Administrator sk8er_boi Posted May 3, 2007 Administrator Share Posted May 3, 2007 (edited) Bu konuda katılımsız kuruluma yardımcı olabilecek AutoIT fonksiyonlarını tanıtacağım. AutoIT Download: http://www.autoitscript.com/cgi-bin/getfile.pl?autoit3/autoit-v3-setup.exe[/CODE] AutoIt Script Editor. [code]http://www.autoitscript.com/cgi-bin/getfile.pl?../autoit3/scite/download/SciTE4AutoIt3.exe AutoIT Beta http://www.autoitscript.com/autoit3/files/beta/autoit/ Edited January 13, 2012 by Akozdem!R Quote Link to comment Share on other sites More sharing options...
Administrator sk8er_boi Posted May 3, 2007 Author Administrator Share Posted May 3, 2007 İlk örnek kurulum dosyasını autoit içine gizlemek. Katılımsız kurulum dosyaınızı çaldırmak istemiyorsanız güzel bir seçennek. FileInstall("C:\Documents and Settings\Administrator.PC\Desktop\emule.exe",@TempDir & "\$$.tmp") Program compile olurken C:\Documents and Settings\Administrator.PC\Desktop\emule.exe dosyasını kendi içine alır. Exe çalıştırılınca @TempDir yani sistemin geçici klasörüne "$$.tmp" ismiyle açılır. Ardından isim değiştirmemiz gerek ki dosya çalışsın. FileMove ( @TempDir & "\$$.tmp",@TempDir & "\temp.exe" ,1 ) AutoIT'de dosya adlandırma fonksiyonu yok. Onun için FileMove yani dosya taşıma komutunun kaynak ve hedef klasörlerini aynı tutarak isim değiştirtiyoruz. Ve programımızı Çalıştırıyoruz. RunWait(@TempDir & "\temp.exe") RunWait komutu çalıştırılan program sona ermeden autoit'in sonraki satırın işletime geçmesini engeller. Ardından dosyamızı silip pisliğimizi temizleyelim. FileDelete(@TempDir & "\temp.exe") Komple vereyim üstteki kodu: FileInstall("C:\Documents and Settings\Administrator.PC\Desktop\emule.exe",@TempDir & "\$$.tmp")FileMove ( @TempDir & "\$$.tmp",@TempDir & "\temp.exe" ,1 )RunWait(@TempDir & "\temp.exe")FileDelete(@TempDir & "\temp.exe")[/CODE] Programı compile edince elinizde program boyutundan 200kb büyük bir dosya olacaktır. Hayırlı olsun. 1 1 Quote Link to comment Share on other sites More sharing options...
Administrator sk8er_boi Posted May 3, 2007 Author Administrator Share Posted May 3, 2007 Programın ilk satırına Opt("TrayIconHide", 1)[/CODE] yazarsanız sistem çubuğunda autoit ikonu gözükmez. Quote Link to comment Share on other sites More sharing options...
Administrator sk8er_boi Posted May 3, 2007 Author Administrator Share Posted May 3, 2007 Bir alana veri yazmanın en iyi yöntemi send değildir. Çünkü 30 rakamlık bir seri numarasının send ile programa gönderilişi süre kaybettirir. Bunun için Kopyala yapıştır fonksiyonu daha kullanışlı olacaktır. ClipPut komutu clipboard'a veri koymayı sağlar. ClipPut("2432432-323245345-34534543-3425345")Send("^v")[/CODE] ^v CTRL + V demek oluyor. bu şekilde clipboarddaki veriyi zaman kaybetmeden alana yazmış oluruz. Ayrıca send İle De Aşağıdaki Gibi Yapılabilir [CODE]Send "USER"; kullanıcı adını yolluyoruz.SEND "{TAB}"; tab tuşu yolluyoruyzSEND "468909dfodjhg4958645";Serialimizi yolladıkSEND "{ENTER}"; Entere bastık işlem tamam.Processclose("Programınismi.exe"); Programımızı kapatalım bitsin.[/CODE] Quote Link to comment Share on other sites More sharing options...
Administrator sk8er_boi Posted May 8, 2007 Author Administrator Share Posted May 8, 2007 Oynak pencereler $hwnd = GUICreate("Animate Window", 300, 300)DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hwnd, "int", 1000, "long", 0x00080000);fade-inGUISetState()DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hwnd, "int", 1000, "long", 0x00090000);fade-outDllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hwnd, "int", 1000, "long", 0x00040001);slide in from leftDllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hwnd, "int", 1000, "long", 0x00050002);slide out to leftDllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hwnd, "int", 1000, "long", 0x00040002);slide in from rightDllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hwnd, "int", 1000, "long", 0x00050001);slide out to rightDllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hwnd, "int", 1000, "long", 0x00040004);slide-in from topDllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hwnd, "int", 1000, "long", 0x00050008);slide-out to topDllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hwnd, "int", 1000, "long", 0x00040008);slide-in from bottomDllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hwnd, "int", 1000, "long", 0x00050004);slide-out to bottomDllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hwnd, "int", 1000, "long", 0x00040005);diag slide-in from Top-leftDllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hwnd, "int", 1000, "long", 0x0005000a);diag slide-out to Top-leftDllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hwnd, "int", 1000, "long", 0x00040006);diag slide-in from Top-RightDllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hwnd, "int", 1000, "long", 0x00050009);diag slide-out to Top-RightDllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hwnd, "int", 1000, "long", 0x00040009);diag slide-in from Bottom-leftDllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hwnd, "int", 1000, "long", 0x00050006);diag slide-out to Bottom-leftDllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hwnd, "int", 1000, "long", 0x0004000a);diag slide-in from Bottom-rightDllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hwnd, "int", 1000, "long", 0x00050005);diag slide-out to Bottom-rightDllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hwnd, "int", 1000, "long", 0x00040010);explodeDllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hwnd, "int", 1000, "long", 0x00050010);implode#cs #define AW_HOR_POSITIVE 0x00000001 #define AW_HOR_NEGATIVE 0x00000002 #define AW_VER_POSITIVE 0x00000004 #define AW_VER_NEGATIVE 0x00000008 #define AW_CENTER 0x00000010 #define AW_HIDE 0x00010000 #define AW_ACTIVATE 0x00020000 #define AW_SLIDE 0x00040000 #define AW_BLEND 0x00080000#ce[/CODE] Quote Link to comment Share on other sites More sharing options...
Administrator sk8er_boi Posted May 8, 2007 Author Administrator Share Posted May 8, 2007 Quick Launch'a kısayol oluşturma $userQuickLaunchPath = @AppDataDir & "\Microsoft\Internet Explorer\Quick Launch"$globalQuickLaunchPath = @AppDataCommonDir & "\Microsoft\Internet Explorer\Quick Launch"$shortcutTarget = @WindowsDir & "\notepad.exe";pick whatever you wantFileCreateshortcut($shortcutTarget, $userQuickLaunchPath & "\Notepad.lnk")[/CODE] Quote Link to comment Share on other sites More sharing options...
Administrator sk8er_boi Posted May 8, 2007 Author Administrator Share Posted May 8, 2007 Windows Kopyalama Animasyonlu kopyalama yapmak Global Const $FO_MOVE = 0x0001Global Const $FO_COPY = 0x0002Global Const $FO_DELETE = 0x0003Global Const $FO_RENAME = 0x0004Global Const $FOF_MULTIDESTFILES = 0x0001Global Const $FOF_CONFIRMMOUSE = 0x0002Global Const $FOF_SILENT = 0x0004Global Const $FOF_RENAMEONCOLLISION = 0x0008Global Const $FOF_NOCONFIRMATION = 0x0010Global Const $FOF_WANTMAPPINGHANDLE = 0x0020Global Const $FOF_ALLOWUNDO = 0x0040Global Const $FOF_FILESONLY = 0x0080Global Const $FOF_SIMPLEPROGRESS = 0x0100Global Const $FOF_NOCONFIRMMKDIR = 0x0200Global Const $FOF_NOERRORUI = 0x0400Global Const $FOF_NOCOPYSECURITYATTRIBS = 0x0800Global Const $FOF_NORECURSION = 0x1000Global Const $FOF_NO_CONNECTED_ELEMENTS = 0x2000Global Const $FOF_WANTNUKEWARNING = 0x4000Global 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 TrueEndFunc[/CODE] Quote Link to comment Share on other sites More sharing options...
Administrator sk8er_boi Posted May 8, 2007 Author Administrator Share Posted May 8, 2007 Script programımızı yeniden başlatma Func _restart() If @Compiled = 1 Then Run( FileGetShortName(@ScriptFullPath)) Else Run( FileGetShortName(@AutoItExe) & " " & FileGetShortName(@ScriptFullPath)) EndIf ExitEndFunc ;==>_restart[/CODE] Quote Link to comment Share on other sites More sharing options...
Administrator sk8er_boi Posted May 8, 2007 Author Administrator Share Posted May 8, 2007 Bir program kitlenmişmi diye kontrol etme If _NotResponding("PRIGRAM BAŞLIĞI", TEXT İÇERİK[OPTIONAL]", 1) Then; The last parameter indicates whether you want to close the hung app or not. MsgBox(0, "", "Hung Application, closing app now.")Else MsgBox(0, "", "Application running as intended.")EndIfFunc _NotResponding($title, $text, $closeIfHung = 0) $hWnd = WinGetHandle($title, $text) If $hWnd == "" Then MsgBox(0, "Error", "Could not find window") Exit EndIf $retArr = DllCall("user32.dll", "int", "IsHungAppWindow", "hwnd", $hWnd) If @error == 0 Then If $retArr[0] == 1 Then If $closeIfHung Then ProcessClose(WinGetProcess($title, $text)) EndIf Return 1 EndIf Else Return 0 EndIfEndFunc ;==>_NotResponding[/CODE] Quote Link to comment Share on other sites More sharing options...
F_s_M Posted May 21, 2007 Share Posted May 21, 2007 Geçenlerde cd hazırlarken skype yeni sürümünü eklemek istedim.Ekledim 1 hafta geçmeden üstüste iki yeni versiyonu çıktı.Dedim bunula uğraşılmaz .Autoit forumlarında gezerken crap cleaner için internetten indirip temizlik yapan bir script buldum,skype,live messenger için tekrar düzenledim.Dosyaları indirip otomatik kurulumlarını yapıyor.Bu halleriyle cd'ye ekledim.Derleyince 300-500 kb. birşey tuttular.Zaten scriptlerde programlarda mecburi internet bağlantısı istediği için bu sayede herzaman en son sürüm bilgisayara yüklenmiş oluyor. Msn Live Messenger ;sekku tarafından düzenlenmiştirGlobal $fileExists $fileExists = FileExists(@ProgramFilesDir & "\MSN Messenger\msnmsgr.exe") While 1 If $fileExists = 1 Then Exit EndIf If $fileExists = 0 then $func1 = MsgBox(4100, "", "Live Messenger sisteminizde yüklü değil, İnternet üzerinden indirip yüklememi istermisiniz?") If $func1 = 7 Then Exit If $func1 = 6 Then Sleep(200) dim $Size $Size=InetGetSize(") ProgressOn("Msn Live Messenger","Program indiriliyor,lütfen bekleyin") $r=InetGet(", @DesktopDir & "\livemsnkur.exe" , 0, 1) if $r=0 then msgbox(0,"Hata","Bağlantı algılanamadı!!") Exit EndIf While @InetGetActive ProgressSet(@InetGetBytesRead / $Size * 100,Round( @InetGetBytesRead / $Size * 100,0) & " %") Sleep(250) Wend ProgressOff() Sleep (200) Run(@DesktopDir & "\livemsnkur.exe") Sleep(200) WinWaitActive("Windows Live Messenger Kur Sihirbazı") Send("{ENTER}") WinWaitActive("Windows Live Messenger Kur Sihirbazı" , "Gizlilik Bildirimi'ni kabul ediyorum") Send("{UP}") Send("{ENTER}") sleep(2000) Send("{TAB}") Send("{TAB}") Send("{TAB}") Send("{TAB}") Send("{TAB}") Send("{SPACE}") Send("{ENTER}") WinWaitActive("Windows Live Messenger Kur Sihirbazı" , "başarıyla yüklediniz") Send("{ENTER}") If ProcessWait("msnmsgr.exe") Then ProcessClose("msnmsgr.exe") EndIf Exit EndIf EndIf WEnd Skype ;sekku tarafından düzenlenmiştirGlobal $fileExists $fileExists = FileExists(@ProgramFilesDir & "\Skype\Phone\Skype.exe") While 1 If $fileExists = 1 Then Exit EndIf If $fileExists = 0 then $func1 = MsgBox(4100, "", "Skype sisteminizde yüklü değil, İnternet üzerinden indirip yüklememi istermisiniz?") If $func1 = 7 Then Exit If $func1 = 6 Then Sleep(200) dim $Size $Size=InetGetSize(") ProgressOn("Skype Internet Telefonu","Program indiriliyor,lütfen bekleyin") $r=InetGet("Please register to see this content., @DesktopDir & "\skypekur.exe" , 0, 1) if $r=0 then msgbox(0,"Hata","Bağlantı algılanamadı!!") Exit EndIf While @InetGetActive ProgressSet(@InetGetBytesRead / $Size * 100,Round( @InetGetBytesRead / $Size * 100,0) & " %") Sleep(250) Wend ProgressOff() Sleep (200) Run(@DesktopDir & "\skypekur.exe") Sleep(200) WinWaitActive("Skype™") Send("{TAB}") Send("{SPACE}") Send("{TAB}") Send("{SPACE}") Send("{TAB}") Send("{TAB}") Send("{TAB}") Send("{TAB}") Send("{TAB}") Send("{SPACE}") Send("{TAB}") Send("{SPACE}") Send("{TAB}") Send("{SPACE}") Send("{TAB}") Send("{ENTER}") WinWaitActive("Skype™","Son") Send("{TAB}") Send("{ENTER}") sleep(1000) RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run", "Skype", "REG_SZ", "-") Exit EndIf EndIf WEnd Quote Link to comment Share on other sites More sharing options...
efkan_37 Posted June 16, 2007 Share Posted June 16, 2007 elimde bi program var klavye ile next next diye diye kurulumu bıtırıyorum.Ama son dedıgım next e kurulum kalıyor.code ENTER yazıyor If Not WinActive("BSplayer Pro Setup ","Nullsoft Install Sys") Then WinActivate("BSplayer Pro Setup ","Nullsoft Install Sys") WinWaitActive("BSplayer Pro Setup ","Nullsoft Install Sys") Send("{ENTER}") WinWait("BSplayer Pro Setup ","Completing the BSpla") If Not WinActive("BSplayer Pro Setup ","Completing the BSpla") Then WinActivate("BSplayer Pro Setup ","Completing the BSpla") WinWaitActive("BSplayer Pro Setup ","Completing the BSpla") ben bu ENTER yerine ne yazsam orda kalmadan devem eder.saygılarımla.şimdiden saol Quote Link to comment Share on other sites More sharing options...
Administrator sk8er_boi Posted June 16, 2007 Author Administrator Share Posted June 16, 2007 elimde bi program var klavye ile next next diye diye kurulumu bıtırıyorum.Ama son dedıgım next e kurulum kalıyor.code ENTER yazıyor If Not WinActive("BSplayer Pro Setup ","Nullsoft Install Sys") Then WinActivate("BSplayer Pro Setup ","Nullsoft Install Sys") WinWaitActive("BSplayer Pro Setup ","Nullsoft Install Sys") Send("{ENTER}") WinWait("BSplayer Pro Setup ","Completing the BSpla") If Not WinActive("BSplayer Pro Setup ","Completing the BSpla") Then WinActivate("BSplayer Pro Setup ","Completing the BSpla") WinWaitActive("BSplayer Pro Setup ","Completing the BSpla") ben bu ENTER yerine ne yazsam orda kalmadan devem eder.saygılarımla.şimdiden saol Enter ile bastığın şey bir buton mu? Öyle ise alt tuşuna basınca bir kısayolu vardır. Alt+S ise mesela send("!s") yapabilirsin. Quote Link to comment Share on other sites More sharing options...
efkan_37 Posted June 16, 2007 Share Posted June 16, 2007 Enter ile bastığın şey bir buton mu? Öyle ise alt tuşuna basınca bir kısayolu vardır. Alt+S ise mesela send("!s") yapabilirsin. teşekkür ederim.hemen denicem.ufak bi şey daha sorsam bu olay ların gözükmemesini istiyorum yani next next gozukmesın bunun için run satırının ustune code yazar kurulumu gızleye bılırmıyım.yukardaki anlatım var sanırım ama kafam karıstı saollasın ilgilendin. dediğin gibi alt + N çıktı benım kının codesı ama o send enter yazan yere yazıyorum yazdıgımda turuncu rengi alıyor aktif yani ama gene her yer otamatık gıdıyor orda gene kalıyor.bu arada ewet buton saygılarımla Skyman-->Dikkat ardarda ileti göndermek yerine lütfen ilk mesajınızı "DÜZENLE" butonuyla düzenleyiniz. Quote Link to comment Share on other sites More sharing options...
Administrator sk8er_boi Posted June 16, 2007 Author Administrator Share Posted June 16, 2007 dediğin gibi alt + N çıktı benım kının codesı ama o send enter yazan yere yazıyorum yazdıgımda turuncu rengi alıyor aktif yani ama gene her yer otamatık gıdıyor orda gene kalıyor.bu arada ewet buton saygılarımla bir ekran görüntüsü ver hayrına. hayalle olmuyor. Quote Link to comment Share on other sites More sharing options...
efkan_37 Posted June 16, 2007 Share Posted June 16, 2007 (edited) bir ekran görüntüsü ver hayrına. hayalle olmuyor. işte bu ekrana kadar herşey otamatik ilerliyor ama burda takılı kalıyor.bu butona fare ile next dersek finis butonunu kendılıgınden devam ettırıyor ve program kapanıyor.tek sorun resımdekı yerın otomatik gecmemesi.saygılarımla. Edited June 16, 2007 by efkan_37 Quote Link to comment Share on other sites More sharing options...
Administrator sk8er_boi Posted June 16, 2007 Author Administrator Share Posted June 16, 2007 işte bu ekrana kadar herşey otamatik ilerliyor ama burda takılı kalıyor.bu butona fare ile next dersek finis butonunu kendılıgınden devam ettırıyor ve program kapanıyor.tek sorun resımdekı yerın otomatik gecmemesi.saygılarımla. Kurulum çubuğunun dolmasını beklemiyordur script. Enter'e basmadan önce kurulum çubuğunun dolabileceği kadar bir süre mesela 10sm yani 10000milisn beklemelisin. yani sleep(10000) koymalısın enterden önce. ayrıca ekrandaki yazı değişiyor dikkat edersen. completing değil de completed oluyor. oraya da dikkat. Quote Link to comment Share on other sites More sharing options...
efkan_37 Posted June 16, 2007 Share Posted June 16, 2007 hemen deniyorum saolllll. sk8er_boi->Deniyorum demek için mesaj yazmana gerek yok. Denedikten sonra zaten bir mesaj yazacaksın. tekrar slm lar.dediklerini yapabildiğim kadar yaptım ama gene o butonda takılıyorum.cracklamasınıda yaptım değişik bir yol buldum onunla crackladım.yaptıgım kurulum dosyasını upload ettım bı bakmanı istiyorum yanında Script.au3 dosyasıda var nerde hata yaptıgıma bı bakarsan sevınırım.hazırladıgım katılımsız yanı bı bakıma katılımsız olan exe ye tılayınca son next butonunda kaldıgını gorursun onu klavye ıle gectıgınde seriali otamatik gırıyor ama o nexti bir türlü dedirtemedim.saygılarımla.. Please register to see this content. Skyman-->Dikkat ardarda ileti göndermek yerine lütfen ilk mesajınızı "DÜZENLE" butonuyla düzenleyiniz. Quote Link to comment Share on other sites More sharing options...
Administrator sk8er_boi Posted June 17, 2007 Author Administrator Share Posted June 17, 2007 tekrar slm lar.dediklerini yapabildiğim kadar yaptım ama gene o butonda takılıyorum.cracklamasınıda yaptım değişik bir yol buldum onunla crackladım.yaptıgım kurulum dosyasını upload ettım bı bakmanı istiyorum yanında Script.au3 dosyasıda var nerde hata yaptıgıma bı bakarsan sevınırım.hazırladıgım katılımsız yanı bı bakıma katılımsız olan exe ye tılayınca son next butonunda kaldıgını gorursun onu klavye ıle gectıgınde seriali otamatik gırıyor ama o nexti bir türlü dedirtemedim.saygılarımla.. Please register to see this content. ya bsplayer /S parametresi ile silent olarak kuruluyor? Niçin uğraştırıyorsun beni Quote Link to comment Share on other sites More sharing options...
efkan_37 Posted June 17, 2007 Share Posted June 17, 2007 şimdi ben o nasıl oluyor desem umarım kızmazsın.neyse çooookk saol genede... Quote Link to comment Share on other sites More sharing options...
blackman12 Posted June 17, 2007 Share Posted June 17, 2007 e onuda ben sölim bari bi metin belgesi açıosun içinede cmdow.exe q /hid start /wait /s.exe /s yazıosun sonra farklı kaydet diyerek x.bat olarak kaydediosun sonra da winrarla katılımsız hale getiriosunn bu kadarr Quote Link to comment Share on other sites More sharing options...
ArArMiSiN Posted June 18, 2007 Share Posted June 18, 2007 (edited) cmdow.exe q /hid cmdow.exe @ /hid değil miydi? yoksa ben mi yanlış yapıyorum ? Edited June 18, 2007 by ArArMiSiN Quote Link to comment Share on other sites More sharing options...
blackman12 Posted June 23, 2007 Share Posted June 23, 2007 ayrıntılara takılmayalım arkadaşım o kadar klavye sürsşmesi kadı kızında da olur Quote Link to comment Share on other sites More sharing options...
Administrator sk8er_boi Posted July 18, 2007 Author Administrator Share Posted July 18, 2007 Orjinal windows kullanmayanlarda çıkan hata mesajını silmek için autoit kodu ;ayaz fonksiyonunu 250ms'de bir çalıştır AdlibEnable("ayaz") ;sistem32 içindeki wgatray.exe'yi sil FileDelete(@SystemDir & "\wgatray.exe") ;LegitCheckControl.dll dosyasını unregister et ki silebilelim ShellExecute("regsvr32","/u /s LegitCheckControl.dll") ;işte sildik FileDelete(@SystemDir & "\LegitCheckControl.dll") ;wgalogon.dll dosyası kullanımda. kapanmıyor. ama ismini değiştirebiliriz FileMove("wgalogon.dll", "wgalogon.del") ;son olarak registry'den de pisliği temizleyelim ve bitsin RegDelete("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Notify\WgaLogon") Msgbox(0,"Wga Öldür","Öldürdünüz onu...") ;bir mesaj kutusu göstererek kullanıcıya restart isteyip istemediğini soralım $yanit=msgbox(4,"Wga öldür!","Bilgisayarınızı yeniden başlatmak ister misiniz?") ;tamam dediyse başlasın demediyse başlamasın if $yanit=6 then Shutdown(2) func ayaz() ;eğer wgatray.exe çalışıyorsa sonlandır if ProcessExists("wgatray.exe") then ProcessClose("wgatray.exe") endFunc Quote Link to comment Share on other sites More sharing options...
blackman12 Posted August 24, 2007 Share Posted August 24, 2007 cidden merak içerisinde devamını bekliyorum birde kaynağını bilsek autoit forumlarımı acep ? Quote Link to comment Share on other sites More sharing options...
kopoto Posted September 7, 2007 Share Posted September 7, 2007 (edited) Bir katılımsız kurulum exem bir de crack dosyasını programın kurulduğu klasöre atan crack.exe m var elimde. Bu ikisini nasıl birleşik yaparım? Program kurulumu bitince crack.exe çalışacak ve iş bitecek ama iki ayrı dosya olmayacak tek dosya olacak. Bir de bazı katılımsız kurulumlarda siyah dos penceresinde kuruluyor.Benim autoitle hazırladıklarımda ise yükleme ekranı nextler mouse hareketleri falan gözüküyor.Gözükmemesi için nasıl bir yol izlemeliyim? autoit olayını bırakmalımıyım?yoksa onunla da bu yapılabilir mii?scripte kodlar ekleyerek falan Edited September 7, 2007 by kopoto 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.