MostWanted Posted July 7, 2010 Share Posted July 7, 2010 ControlSend kullanabilirsin.. ControlSend("progamın başlığı", "", "gönderilecek yerin id'si", "ne yollacaksan") ID'si falan Autoit INFO adlı küçük programda öğrenebilirsin.. Quote Link to comment Share on other sites More sharing options...
ASEV13 Posted July 13, 2010 Share Posted July 13, 2010 Bir sorunum var.Bi scrip olcak kendi kendini 15-20 sn.çalıştırıp kapatacak...bunu nasıl yapabilirim Quote Link to comment Share on other sites More sharing options...
blackman12 Posted July 13, 2010 Share Posted July 13, 2010 Önceki sayfalarda iki örnek verdim bu konuda.... Önceki sayfalarda iki örnek verdim bu konuda.... Quote Link to comment Share on other sites More sharing options...
ASEV13 Posted July 13, 2010 Share Posted July 13, 2010 (edited) Önceki sayfalarda iki örnek verdim bu konuda.... Önceki sayfalarda iki örnek verdim bu konuda.... Bütün sayfaları kontrol ettim ama!!sen bu cvb.yazınca 26. sayfayıda tek tek kontrol ettim ama bulamadım.yardımcı olursanız sevinirim. scrip kendi kendini 15-20 sn.çalıştırıp kapatacak. sanki arka planda kurulum yapıyor gibi. ama kurulum falan yapmayacak Edited July 13, 2010 by ASEV13 Quote Link to comment Share on other sites More sharing options...
blue_life Posted July 13, 2010 Share Posted July 13, 2010 #NoTrayIcon Global $TIME = 5000 ;5 sasniye Global $START = TimerInit() Do ;Buraya yaptırmak istediğin kodları yaz. ToolTip(Round(TimerDiff($START))) ;Silersin Sleep(50) Until Round(TimerDiff($START)) > $TIME Exit Quote Link to comment Share on other sites More sharing options...
Dj Demir Posted July 13, 2010 Share Posted July 13, 2010 (edited) ControlSend ile bir yere veri göndermek istiyorum ama biraz ileri aşamalı birşey ve biraz eksiklerim var ControlSend("Yerel Ağ (LAN) Ayarları","","Edit2","252.154.84.78") ControlSend("Yerel Ağ (LAN) Ayarları","","Edit3","8080") Send("{BACKSPACE}{BACKSPACE}{BACKSPACE}{BACKSPACE}") ControlClick("Yerel Ağ (LAN) Ayarları","","Button12","Left",1) 1 - öncelikle şöyle bir komut denedim rakamlar yazılıyor ama silme komutu olmadı gitti . 2 - Diğer sorun ise "Yerel Ağ Ayarları" ekranda iken komut çalışıyor . Eğer o pencere ekranda yoksa dolayısıyla çalışmıyor "Yerel Ağ Ayarları"nı açmadan yazdıramaz mıyız ille de açtırmak gerekiyorsa o da olur transparan yapabilirim hiç olmazsa Teşekkürler Edited July 13, 2010 by Dj Demir Quote Link to comment Share on other sites More sharing options...
blue_life Posted July 13, 2010 Share Posted July 13, 2010 @Dj Demir ControlSend yerine ControlSetText komutunu dene! Tam olarak ne yapmak istiyorsun. İşlem yaptırmak istediğin yer tam olarak neresi! Quote Link to comment Share on other sites More sharing options...
blue_life Posted July 13, 2010 Share Posted July 13, 2010 @Dj Demir Herlade ie için yapmak istiyordun. Aşağıdaki kodu dene! Belli adresi atamak için; Eğer proxy kapatmak istersen _Bl_IESet_Proxy() yapacaksın. Neyse kolay gelsin. Oyunuma devam edim. _Bl_IESet_Proxy("252.154.84.78" , "8080") Func _Bl_IESet_Proxy($Address = "", $Port = "") Local $Enable = True If $Address = "" And $Port = "" Then $Enable = False RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer", "REG_SZ", $Address & ":" & $Port) RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable", "REG_DWORD", $Enable) EndFunc Quote Link to comment Share on other sites More sharing options...
ASEV13 Posted July 13, 2010 Share Posted July 13, 2010 (edited) #NoTrayIcon Global $TIME = 5000 ;5 sasniye Global $START = TimerInit() Do ;Buraya yaptırmak istediğin kodları yaz. ToolTip(Round(TimerDiff($START))) ;Silersin Sleep(50) Until Round(TimerDiff($START)) > $TIME Exit Abicim yine hızır gibi yetişdin...Teşekkür ediyorum. istediğim şey bu Edit O kısımdaki notu sonradan farkettim. silince istediğim oldu. Edited July 13, 2010 by ASEV13 Quote Link to comment Share on other sites More sharing options...
blue_life Posted July 13, 2010 Share Posted July 13, 2010 @ASEV13 Tam olarak ne yapmak istediğini inan anlamadım Bekleme yapmak istiyorsan misal 5 saniye için sadece Sleep(5000) yeterli oalcaktır. Yukarıdaki verdiğim örneğe gelirsek; ToolTip(Round(TimerDiff($START))) ;Silersin satırını silersin. O zaman mesaj çıkmaz. Ben daha iyi kavraman için mesaj eklemiştim... Kolay gelsin... Quote Link to comment Share on other sites More sharing options...
Dj Demir Posted July 13, 2010 Share Posted July 13, 2010 BLeLife Hocam ellerine sağlık tam istediğim şey aslında Quote Link to comment Share on other sites More sharing options...
casira Posted August 21, 2010 Share Posted August 21, 2010 Bir sorum olacak sistem tipine göre mesela 32 bit ise scriptin yanındaki 32reg.exe, 64 bit ise 64reg.exe dosyasını çalıştırmak istiyorum.Ama olmadı. $type=@OSArch If $type = "X86" Then RunWait(@ScriptDir & "\64reg.exe") Else RunWait(@ScriptDir & "\32reg.exe") EndIf böyle bir komut denedim olmadı. Nasıl yapabilirim yardımcı olursanız sevinirim. Quote Link to comment Share on other sites More sharing options...
djonur007 Posted August 21, 2010 Share Posted August 21, 2010 Şöyle bir dene; $type=@OSArch If $type = "X86" Then RunWait("64reg.exe", @ScriptDir) Else RunWait("32reg.exe", @ScriptDir) EndIf Quote Link to comment Share on other sites More sharing options...
blue_life Posted August 21, 2010 Share Posted August 21, 2010 Dosyaları ters yazmış. $type=@OSArch If $type = "X86" Then ;32 bit ise burdan RunWait(@ScriptDir & "\32reg.exe") Else ;Deyilse burdan.. RunWait(@ScriptDir & "\64reg.exe") EndIf Quote Link to comment Share on other sites More sharing options...
casira Posted August 21, 2010 Share Posted August 21, 2010 (edited) djonur007 olmadı.Manuel olarak 32reg.exe dosyasını çalıştırınca serial girmiş oluyor ama bu script kodlarıyla bir türlü olmadı. Blue life sizinkini yeni gördüm denedim oldu.Teşekkür ederim. Hakikaten pardon ya dalgınlık işte 32reg.exe ile 64reg.exe yerleri değişmiş aslında script doğru ama ben yerleri yanlış yazmışım. Edited August 21, 2010 by recep demirci Quote Link to comment Share on other sites More sharing options...
djonur007 Posted August 21, 2010 Share Posted August 21, 2010 kopyala yapıştır hatası Quote Link to comment Share on other sites More sharing options...
peerfen Posted August 22, 2010 Share Posted August 22, 2010 ;Author = BlueLife #NoTrayIcon #include <IE.au3> Global $User = "kullanıcı adın" Global $Pass = "şifren" Global $oIE,$oForm,$IN_USER,$IN_PASS $oIE = _IECreate ("http://uyeler.mynet.com") ;~ $oIE = _IECreate ("http://uyeler.mynet.com/login/login.asp?rurl=http://oyun.mynet.com%2Frooms%2Frooms.asp%3FGame%3DSatranc&formname=games");Satranç için $oForm = _IEFormGetObjByName ($oIE, "myform") $IN_USER = _IEFormElementGetObjByName ($oForm, "username") _IEFormElementSetValue ($IN_USER, $User) $IN_PASS = _IEFormElementGetObjByName ($oForm, "password") _IEFormElementSetValue ($IN_PASS, $Pass) _IEFormSubmit ($oForm)[/CODE] Cok tesekkürler bisey dikkatimi cekti blue_life ustanin verdigi scripte [b]$oForm = _IEFormGetObjByName ($oIE, "myform")[/b] talha_252 ustanin verdigi scripte [b]$oForm = _IEFormGetObjByName ($oIE, "lform")[/b] [b]myform veya lform bunu neye göre ayarliyoruz[/b] asagidaki formun _IEFormGetObjByName si nedir acaba cok ugrastim bir türlü beceremedim [code]http://beceriksizler.beep.to/usercp.php?s= Quote Link to comment Share on other sites More sharing options...
blue_life Posted August 23, 2010 Share Posted August 23, 2010 (edited) @peerfen Ilgili formun ismi yok. Bir isim ayaıp html ilede yapabilrsin gibi. Aşağıdakini denersin... ;Author = BlueLife #NoTrayIcon #include <IE.au3> Global $oIE = _IECreate () _IEBodyWriteHTML ($oIE, _BL_HTML("kullanıcı adın","şifren")) Global $oForm = _IEFormGetObjByName ($oIE, "BlueLife") _IEFormSubmit ($oForm,0) Exit Func _BL_HTML($b_User,$b_Pass) $b_html = '</head><body>' $b_html &= ' <script type="text/javascript" src="usercp.php_dosyalar/vbulletin_md5.js"></script>' $b_html &= ' <form action="http://beceriksizler.beep.to/login.php?do=login" method="POST" onsubmit="md5hash(vb_login_password, vb_login_md5password, vb_login_md5password_utf, 0)" name="BlueLife">' $b_html &= ' <input name="do" value="login" type="hidden">' $b_html &= ' <input name="url" value="/usercp.php?s=" type="hidden">' $b_html &= ' <input name="vb_login_md5password" type="hidden">' $b_html &= ' <input name="vb_login_md5password_utf" type="hidden">' $b_html &= ' <input name="s" value="3f8242fa5645ef40adc58775971f2d88" type="hidden">' $b_html &= ' <input name="securitytoken" value="guest" type="hidden">' $b_html &= ' <fieldset class="fieldset">' $b_html &= ' <legend>Giriş</legend>' $b_html &= ' <table align="center" border="0" cellpadding="0" cellspacing="3">' $b_html &= ' <tbody><tr>' $b_html &= ' <td>Kullanıcı ismi:<br><input class="bginput" name="vb_login_username" size="50" accesskey="u" tabindex="1" value="' & $b_User & '" type="text"></td>' $b_html &= ' </tr>' $b_html &= ' <tr>' $b_html &= ' <td>Şifreniz:<br><input class="bginput" name="vb_login_password" size="50" tabindex="1" value="' & $b_Pass & '" type="password"></td>' $b_html &= ' </tr>' $b_html &= ' <tr>' $b_html &= ' <td>' $b_html &= ' <span style="float: right;"><a href="http://beceriksizler.beep.to/login.php?amp;do=lostpw">' $b_html &= ' Şifremi unuttum</a></span>' $b_html &= ' <label for="cb_cookieuser"><input name="cookieuser" value="1" id="cb_cookieuser" tabindex="1" type="checkbox"><acronym style="border-bottom: 1px dotted rgb(0, 0, 0); cursor: help;" title="Boarddan çıkış tuşunu kullanarak çıkana kadar, Board tarafından otomatikmen tanınmanızı sağlar.">Beni ' $b_html &= ' hatırla</acronym></label>' $b_html &= ' </td>' $b_html &= ' </tr>' $b_html &= ' <tr>' $b_html &= ' <td align="right">' $b_html &= ' <input class="button" value="Giriş" accesskey="s" tabindex="1" type="submit">' $b_html &= ' <input class="button" value="İptal et" accesskey="r" tabindex="1" type="reset">' $b_html &= ' </td>' $b_html &= ' </tr>' $b_html &= ' </tbody></table>' $b_html &= ' </fieldset>' $b_html &= '</body></html>' Return $b_html EndFunc Edited August 23, 2010 by blue_life Quote Link to comment Share on other sites More sharing options...
casira Posted August 25, 2010 Share Posted August 25, 2010 İyi günler arkadaşlar şöyle bir sorum olacak.Mesela @Tempdir klasöründe 7z ile çıkarılan klasörler var; eğer daha önce yine temp klasöründe 7z isimli klasör var ise bu çıkarılan programın 7zklasör ismi tam belli olmuyor.Benim istediğim script dirremove komutu ile temp klasöründeki ismi 7z ile başlayan klasörleri silsin.Böyle birşey mümkünmü?Yardımlarınız için teşekkür ederim. Quote Link to comment Share on other sites More sharing options...
MostWanted Posted August 25, 2010 Share Posted August 25, 2010 (edited) evde olmadığım için kodları değil mantığı açıklıyorum.Filelisttoarray ile temp dosyaları listelenir, stringleft ile bir if bağlanarak 7z olup olmadığına bakılır varsa dirremove ile silinir. Edited August 25, 2010 by talha_252 Quote Link to comment Share on other sites More sharing options...
casira Posted August 25, 2010 Share Posted August 25, 2010 (edited) talha senin dediğin güsel ama nasıl yapacağım bilemiyorum. Yalnız şimdi bir bat dosyasına RD /S /Q %Temp% ".tmp" kodlarını yazıp çalıştırınca temp klasöründe ne var ne yok hepsini kökünden sildi. Klasörlerin içnide tmp ismi varsa sildi.Bu tmsp yazanlarda 7z harfleri de vardı. Edited September 6, 2010 by recep demirci Quote Link to comment Share on other sites More sharing options...
blue_life Posted August 25, 2010 Share Posted August 25, 2010 @recep demirci Temp klasöründeki silmek istediğin bir klasör için isim örneği ver? Yani ilk harflermi 7z ile mi başlıyor? Quote Link to comment Share on other sites More sharing options...
casira Posted August 25, 2010 Share Posted August 25, 2010 blue life hocam aynen dediğin gibi. Quote Link to comment Share on other sites More sharing options...
MostWanted Posted August 25, 2010 Share Posted August 25, 2010 o zaman blue_life bnm dediğim koda dökülmesi sorunu çözer Quote Link to comment Share on other sites More sharing options...
djonur007 Posted August 25, 2010 Share Posted August 25, 2010 xml için bişi buldum ama udf işlemiyor. #include <Array.au3> #include <String.au3> #include <_XMLDomWrapper.au3> $xml= _XMLLoadXML("C:\Users\Mihan\Desktop\ayar.xml") $names=_StringBetween($xml, "<NAME>", "</NAME>") _ArrayDisplay($names) xml'i farklı bir şekilde load edersek sorun çözülecek ama nasıl? Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.