crazy_pretty_murat Posted July 23, 2008 Share Posted July 23, 2008 İçinde 4 tanecik virüs buldu ama.4'üde au3 uzantılı dosyalar. Quote Link to comment Share on other sites More sharing options...
Administrator sk8er_boi Posted July 23, 2008 Author Administrator Share Posted July 23, 2008 Bende de bulmuştu. Ama false positivedir büyük ihtimalle. Zaten sildikleri örnek dosyalar. Programın çalışmasında sorun çıkarmaz. Quote Link to comment Share on other sites More sharing options...
akk33 Posted July 24, 2008 Share Posted July 24, 2008 (edited) Windows Kopyalama Animasyonlu kopyalama yapmak _FileCopy("C:\Installed Apps\Patches\WindowsXP-KB835935-SP2-ENU.exe", "C:\temp")Func _FileCopy($fromFile, $tofile) Local $FOF_RESPOND_YES = 16 Local $FOF_SIMPLEPROGRESS = 256 $winShell = ObjCreate("shell.application") $winShell.namespace ($tofile).CopyHere ($fromFile, $FOF_RESPOND_YES)EndFunc;==>_FileCopy[/CODE] [b]adminim bu şekilde kopyalama animasyonu olur demişsiniz..?[/b] [CODE] FileCopy("D:\Tarsus Otomobil Sporları Kulübü\TAROSK Organizasyonları\", "C:\Documents and Settings\TEKNORIUM\Desktop\Yeni Klasör\")Func _FileCopy($fromFile, $tofile) Local $FOF_RESPOND_YES = 16 Local $FOF_SIMPLEPROGRESS = 256 $winShell = ObjCreate("shell.application") $winShell.namespace ($tofile).CopyHere ($fromFile, $FOF_RESPOND_YES) EndFunc;==>_FileCopy[/CODE] [b]benim kodlarımda bu yeni klasöre dosyaları kopyalıyor fakat. animasyon yok ortada sebebi nedir.?[/b] Edited July 24, 2008 by akk33 Quote Link to comment Share on other sites More sharing options...
Administrator sk8er_boi Posted July 24, 2008 Author Administrator Share Posted July 24, 2008 benim kodlarımda bu yeni klasöre dosyaları kopyalıyor fakat. animasyon yok ortada sebebi nedir.? O kodlar artık çalışmıyor. Yeni kod: Global Const $FO_MOVE = 0x0001 Global Const $FO_COPY = 0x0002 Global Const $FO_DELETE = 0x0003 Global Const $FO_RENAME = 0x0004 Global Const $FOF_MULTIDESTFILES = 0x0001 Global Const $FOF_CONFIRMMOUSE = 0x0002 Global Const $FOF_SILENT = 0x0004 Global Const $FOF_RENAMEONCOLLISION = 0x0008 Global Const $FOF_NOCONFIRMATION = 0x0010 Global Const $FOF_WANTMAPPINGHANDLE = 0x0020 Global Const $FOF_ALLOWUNDO = 0x0040 Global Const $FOF_FILESONLY = 0x0080 Global Const $FOF_SIMPLEPROGRESS = 0x0100 Global Const $FOF_NOCONFIRMMKDIR = 0x0200 Global Const $FOF_NOERRORUI = 0x0400 Global Const $FOF_NOCOPYSECURITYATTRIBS = 0x0800 Global Const $FOF_NORECURSION = 0x1000 Global Const $FOF_NO_CONNECTED_ELEMENTS = 0x2000 Global Const $FOF_WANTNUKEWARNING = 0x4000 Global Const $FOF_NORECURSEREPARSE = 0x8000 $n = _CopyWithProgress("D:\Tarsus Otomobil Sporları Kulübü\TAROSK Organizasyonları\" , "C:\Documents and Settings\TEKNORIUM\Desktop\Yeni Klasör\") ;~ If Not $n Then ConsoleWrite('error:' & @error & @CRLF) Func _CopyWithProgress($sFrom, $sTo) Local $SHFILEOPSTRUCT, $pFrom, $pTo, $aDllRet, $i, $nError = 0 $SHFILEOPSTRUCT = DllStructCreate("hwnd hwnd;uint wFunc;ptr pFrom;ptr pTo;int fFlags;int fAnyOperationsAborted;ptr hNameMappings;ptr lpszProgressTitle") DllStructSetData($SHFILEOPSTRUCT, "hwnd", 0) DllStructSetData($SHFILEOPSTRUCT, "wFunc", $FO_COPY) $pFrom = DllStructCreate("char[" & StringLen($sFrom)+2 & "]") DllStructSetData($pFrom, 1, $sFrom) For $i = 1 To StringLen($sFrom)+2 If DllStructGetData($pFrom, 1, $i) = Chr(10) Then DllStructSetData($pFrom, 1, Chr(0), $i) Next DllStructSetData($pFrom, 1, Chr(0), StringLen($sFrom)+2) ; second null at the end DllStructSetData($SHFILEOPSTRUCT, "pFrom", DllStructGetPtr($pFrom)) $pTo = DllStructCreate("char[" & StringLen($sTo)+2 & "]") DllStructSetData($pTo, 1, $sTo) DllStructSetData($pTo, 1, Chr(0), StringLen($sTo)+2) ; second null at the end DllStructSetData($SHFILEOPSTRUCT, "pTo", DllStructGetPtr($pTo)) DllStructSetData($SHFILEOPSTRUCT, "fFlags", BitOR($FOF_NOCONFIRMMKDIR, $FOF_NOCONFIRMATION, $FOF_NOERRORUI)) DllStructSetData($SHFILEOPSTRUCT, "fAnyOperationsAborted", 0) DllStructSetData($SHFILEOPSTRUCT, "hNameMappings", 0) DllStructSetData($SHFILEOPSTRUCT, "lpszProgressTitle", 0) $aDllRet = DllCall("shell32.dll", "int", "SHFileOperation", "ptr", DllStructGetPtr($SHFILEOPSTRUCT)) If @error Or $aDllRet[0] <> 0 Then $aDllRet = DllCall("kernel32.dll", "long", "GetLastError") If Not @error Then $nError = $aDllRet[0] EndIf ; test if button Abort was pressed If DllStructGetData($SHFILEOPSTRUCT, "fAnyOperationsAborted") Then $nError = -1 $pFrom = 0 $pTo = 0 $SHFILEOPSTRUCT = 0 If $nError <> 0 Then SetError($nError) Return False EndIf Return True EndFunc Quote Link to comment Share on other sites More sharing options...
morning Posted July 26, 2008 Share Posted July 26, 2008 (edited) Autoit ile Modem resetlemek [MODEM KONTROL PANELİNDE RESETLEME BUTONU OLMALIDIR!] Gerçi rapid yeni sisteme geçti artık bunun bir faydası kalmadı ama bu autoitteki ilk scriptim paylaşayım dedim. Genelde Modem Kontrol Panellerinde Modemi resetle diye bir tuş olur.BU tuşa otomatik basmayı sağlıyoruz o kadar. Öncelikle tarayıcıyı açıyoruz.Örneğimde IE Kullandım.Çünkü Mozilla ile sörf yapıyorken ALt+F4 yaptığımızda tüm sekmeler gitmesin. Tüm pencereleri de aşağı alıyoruz ki ters bir şey olmasın. İp Adresini modemin kontrol panel ipsi ile,Log in bölümünü de tarayıcıda görünen başlıkla değiştiriyoruz elbette. WinMinimizeAll()ShellExecute(@ProgramFilesDir & "\Internet Explorer\iexplore.exe","İp Adresi")WinWaitActive(">Log In")WinSetTrans(">Log In", "", 1 )[/CODE] Pencereyi de transparan yaptık son satırdaki kodla. Genelde modem kontrol panelleri kullanıcı ve şifre isterler. Şifreyi giriyoruz.Aksilik çıkmasın diye 5 saniye bekliyor. [CODE]sleep("5000")Send("Kullanıcı adı")Send("{tab}")Send("Şifre")Send("{Enter}")[/CODE] Şimdi Modem Kontrol Panelindeyiz.Tab tuşlarıyla resetleme tuşuna geliyoruz.Başka bir sayfaya girmeniz gerekiyorsa ona da girin. Benim reset tuşu anasayfada olduğundan direk anasayfadan gösteriyorum.İkinci tuş modem reset bende.Genelde bunlar tuş değil link şeklindedir.bu nedenle linklere tıklamak için tab kullanmanız gerekiyor. [CODE]Send("{tab}")Send("{tab}")Send("{Enter}")[/CODE] Böylece Modem reset yazısına tıklıyor.Şimdi Tarayıcıyı kapatalım. Aksilik çıkmasın diye 5 saniye bekliyor. [CODE]Sleep("5000")WinClose(">Log In")[/CODE] NOT:BU ayarlar Herkesin Modemine göre FARKLIDIR! kodları aynen yapıştırmayınız.Önce test yaparak nereye kaç kere basmanız gerektiğini öğreniniz. Şimdi komple verelim kodu: [CODE]WinMinimizeAll()ShellExecute(@ProgramFilesDir & "\Internet Explorer\iexplore.exe","İp Adresi")WinWaitActive(">Log In")WinSetTrans(">Log In", "", 1 )sleep("5000")Send("Kullanıcı Adı")Send("{tab}")Send("Şifre")Send("{Enter}")Send("{tab}")Send("{tab}")Send("{Enter}")Sleep("5000")WinClose(">Log In")[/CODE] Edited July 27, 2008 by morning Quote Link to comment Share on other sites More sharing options...
Administrator sk8er_boi Posted July 26, 2008 Author Administrator Share Posted July 26, 2008 Altf4 göndermek yerine winclose("pencereismi") kullanman daha yerinde olur. Quote Link to comment Share on other sites More sharing options...
crazy_pretty_murat Posted July 26, 2008 Share Posted July 26, 2008 Pencere ismi çok uzun olan dosya veya klasörler var.Bunların ilk 6 harfini yazıp ~1 yaptığımda olmuyor.Bunun bir yolu var mı acaba? Quote Link to comment Share on other sites More sharing options...
Administrator sk8er_boi Posted July 26, 2008 Author Administrator Share Posted July 26, 2008 Opt("WinTitleMatchMode", 2) Projene bu satırı eklersen, başlığın tamamını yazmana gerek kalmaz. Yazdığın kadarını bir pencere içeriyorsa, o etkinleşir. Quote Link to comment Share on other sites More sharing options...
Nerox Posted August 3, 2008 Share Posted August 3, 2008 Tekrardan selamlar öncelikle uzun zamandır bu siteye giremiyordum autoit i bosverdim sonra canım sıkıldı bari ugrasim dedim ve yeni bir sorum var simdi autoitte bir siteye uye olma programı yaptım diyelim ama resim kodu var benim istegim o resim kodunu kullanıcıya gostermesi ve kullanıcınında bu kodu yazınca islemine devam etmesi boyle bisey autoitte mumkunmu yoksa baska yazılım dillerindemi mumkun Quote Link to comment Share on other sites More sharing options...
morning Posted August 4, 2008 Share Posted August 4, 2008 autoitle böyle bir şey mümkün sk8er_boi NOD32 key bulucuyu bu mantıkla yapmış sanırım.Bir sitedeki key listesinde yeşil renkli olan keyi panoya kopyalıyor.Bu yapılabiliyorsa seninki de mümkündür. Quote Link to comment Share on other sites More sharing options...
Nerox Posted August 4, 2008 Share Posted August 4, 2008 sk8er_boi o zaman boyle bir kod icin bana yardımcı olurmusun? Quote Link to comment Share on other sites More sharing options...
Administrator sk8er_boi Posted August 4, 2008 Author Administrator Share Posted August 4, 2008 Hiç fikrin var mı nasıl yapılacağı hakkında?Aklımda şöyle yapmak var ama yapamadın gibi birşey yokki. Direk kod yaz diyorsun. Quote Link to comment Share on other sites More sharing options...
Nerox Posted August 4, 2008 Share Posted August 4, 2008 hayır oyle demek istemedim yapmak istedigim sey program calıcasak herseyi kendi yapacak ama o resim kodunu kullanıcıya soracak ama kullanıcıya nası soracagını hiç bilemiyorum Quote Link to comment Share on other sites More sharing options...
Administrator sk8er_boi Posted August 4, 2008 Author Administrator Share Posted August 4, 2008 InetGet fonksiyonu ile resmi download edersin. Sonra bir picturebox oluşturup oraya koyarsın. Textbox çizersin bide. Butona tıkladığında url'ye captcha kodunu eklersin. Quote Link to comment Share on other sites More sharing options...
Nerox Posted August 4, 2008 Share Posted August 4, 2008 peki abi son bir sorum daha var autoitte programın kendi kendine bir kelime yaratmasını nasıl saglayabilirim(OR:asfgetgs) Quote Link to comment Share on other sites More sharing options...
blackman12 Posted August 4, 2008 Share Posted August 4, 2008 Random fonksiyonunu kullanabilirsin.Tabi seçmesi için belirli değerleri üretmelisin. Quote Link to comment Share on other sites More sharing options...
Nerox Posted August 4, 2008 Share Posted August 4, 2008 random fonksiyonuyla sadece sayıları yapabiliyorum peki nası kelime yaratıcam onu anlayamadım :S Quote Link to comment Share on other sites More sharing options...
Administrator sk8er_boi Posted August 4, 2008 Author Administrator Share Posted August 4, 2008 if kullanarak yapabilirsin. if randomsayi=1 then harf="a" if randomsayi=2 then harf="b" biraz programcılık bilgisi gerekiyor. Quote Link to comment Share on other sites More sharing options...
Nerox Posted August 15, 2008 Share Posted August 15, 2008 bir sorum daha var.. simdi ben bi inputbox olusturdum diyelim $kutu = InputBox("xx", "xx", "xx", "", _ -1, -1, 0, 0)[/CODE] bu kutuda yazan yazıyı baska bir degiskene nasıl aktarabilirim mesela abc yazdılar kutuya ve bende o yazının $kutudakiyazi degiskeninin tanımı olmasını istiyorum nasıl yapabilirim.... Quote Link to comment Share on other sites More sharing options...
Administrator sk8er_boi Posted August 15, 2008 Author Administrator Share Posted August 15, 2008 $Kutu değişkenine aktarmışsın zaten? $kutudakiyazi =$kutu yap? Quote Link to comment Share on other sites More sharing options...
Nerox Posted August 15, 2008 Share Posted August 15, 2008 (edited) SOn bir sorum daha var dahada basınızı agrıtmayacam simdi ben bir site icin autologin programı yapıyorum programın kodları soyle $User = InputBox("Cyberdunk Autologin", "Please write your Username", "Username", "", -1, -1) $Pass= InputBox("Cyberdunk Autologin", "Please write your Password", "Password", "", -1, -1) $Username=$User $oIE = _IECreate("www.cybersoccer.com") ;Get pointers to the fields $oForm = _IEFormGetCollection($oIE, 0) $oUser = _IEFormElementGetCollection($oForm,0) $oPassword = _IEFormElementGetCollection($oForm,1) $oLogin = _IEFormElementGetCollection($oForm,3) ;Set Field Values & Click Login button _IEFormElementSetValue($oUser,$User) _IEFormElementSetValue($oPassword,$Pass) _IEAction($oLogin,"click") HotKeySet("{ESC}", "Stop") Func Stop() _IEQuit($oIE) If _IEQuit($oIE) Then MsgBox(1,"Cyberdunk Autologin","Good bye(:") EndIf EndFunc Ancak program benim esc ye basmamı beklemeden siteye login oldugunda direk kendini kapıyor.Programın sadece esc ye bastıgında cıkması icin ne yapmalıyım Bir sorumda su GUI den pek anlamıyorum inputbox falan yaptımda sunun gibi bir menuyu nasıl yapabilirim.Ayrıca birde su password hatırlama olayı nasıl oluyor soylerseniz cok makbule gecer... Edited August 17, 2008 by Nerox Quote Link to comment Share on other sites More sharing options...
Nerox Posted August 17, 2008 Share Posted August 17, 2008 birde soylemeyi unuttum autoitle proxy degistirmekmumkunmu mumkunse bununa ilgili bir program varmı? Quote Link to comment Share on other sites More sharing options...
blackman12 Posted August 17, 2008 Share Posted August 17, 2008 En basiti böyle bir ekranı guibuilder ile yapar ve sonra bunlara komutlarınızı atarsınız.Şifreyi kaydetmekte kolay olmalı ama denemeden yinede birşey demeyeyim ben önce bi denim.size söylerim o zaman. Quote Link to comment Share on other sites More sharing options...
Nerox Posted August 19, 2008 Share Posted August 19, 2008 usta ben gui isini hallettim de su sifre hatırlatmayı hala yapamıyorum sen denedinmi? Quote Link to comment Share on other sites More sharing options...
blackman12 Posted August 20, 2008 Share Posted August 20, 2008 Valla buldum ama şifreyi n kadar güvenli olarak saklayabilirsin onu bilemem... Bir tane değeri boş olan input oluşturup style'ına $es_password koy bi kere sonra bi check box oluştur beni hatırla anlamında ve while case altına $Checkboxadi If GUICtrlRead($Checkboxadi)=1 then IniWriteSection ( "sifreninkaydedilecegi dosya", "section", "bilgi vs." [, index ] ) yapıcaksın ve programın en başına da bir if koyman lazım bu if bilmemne.ini dosyana bakıcak ve eğer o dosya varsa inputa onu yazdıracak yoksa normal açılacak...Olay bundan ibaret tüm kodları koymak isterdim ama elimde hazır kalıp bişi yok 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.