blackman12 Posted January 9, 2010 Author Share Posted January 9, 2010 tray icon kayboldumu? Link to comment Share on other sites More sharing options...
NightVision Posted January 9, 2010 Share Posted January 9, 2010 kayboldu herşey normal gözküyor ama masaüsünde pro yok Link to comment Share on other sites More sharing options...
gangster94 Posted January 9, 2010 Share Posted January 9, 2010 tek bi isteğim var blackman başka alternatif linkte koyarmısın rapidshare olmasında yeter kaç gündür nekliyorum rapidshare error veriyor rapidshare bitti lütfen bundan sonraki çalışmalarınıda başka bir yere upload edersen sorun olmaz şimdiden sağol Link to comment Share on other sites More sharing options...
kemoss Posted August 13, 2010 Share Posted August 13, 2010 ;-------------------------------------blackman12 tarafından yazılmıştır ---------------------;-------------------------------------------------Kod Başlangıcı -------------------------------------- #include<File.au3> Opt("WinTitleMatchMode", 2) $pencereadi = "Resource Hacker" $programadi = InputBox("7Zipleme Merkezi","Çalışma Adını Gir:") if @error Then Exit EndIf $programadi2 = '"' & $programadi & '.exe"' $programadi3 = $programadi & ".exe" ClipPut($programadi) ShellExecute("Reshacker.exe","kalip.sfx",@ScriptDir,"",@SW_HIDE) If Not WinActive($pencereadi) Then WinActivate($pencereadi) WinWaitActive($pencereadi) Send("S{Right}5{Right}{Down}{TAB}{Down}{Down}{Down}{Down}{Right}{Right}{Right}{Rig ht}{Right}{Right}^v{TAB}{TAB}{Enter}{TAB}v{Right}{Down}{Right}{Down}{TAB}{Down}{ D own}{Down}{Down}{Down}{Down}{Down}{Down}{Down}{Down}{Down}{Down}{Down}") Send("{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right }{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{R i ght}{Right}{Right}{Right}{Right}{Right}^v{TAB}{TAB}{Enter}{TAB}d") Send("{Right}{Down}{Right}{Down}{TAB}{TAB}{Down}{Down}{Down}{Right}{Right}{Right}{ Right}{Right}{Right}{Right}{Right}{Right}^v{TAB}{TAB}{ENTER}{CTRLDOWN}s{CTRLUP}") WinClose($pencereadi) _FileCreate("config.txt") $dosya = FileOpen("config.txt", 1) If $dosya = -1 Then MsgBox(0, "Hata", "Config.txt Bulunamadı") Exit EndIf FileWrite($dosya, ";!@Install@!UTF-8! " & @CRLF) FileWrite($dosya, 'RunProgram="InstallTips.exe"' & @CRLF) FileWrite($dosya, ";!@InstallEnd@! ") FileClose($dosya) _FileCreate("olustur.txt") $dosya2 = FileOpen("olustur.txt", 1) If $dosya2 = -1 Then MsgBox(0, "Hata", "Olustur.txt Bulunamadı") Exit EndIf ShellExecuteWait("7z.exe","a -t7z [email protected] -m0=lzma -mx=9 archive.7z *",@ScriptDir,"",@SW_HIDE) AdlibEnable("cmd") FileWrite($dosya2, "copy /b kalip.sfx+config.txt+archive.7z " & $programadi2 & @CRLF) FileWrite($dosya2, "exit") FileClose($dosya2) FileMove("olustur.txt","olustur.bat") ShellExecute("olustur.bat","",@ScriptDir,"",@SW_HIDE) Sleep(2000) FileDelete("config.txt") FileDelete("olustur.bat") FileDelete("kalip.sfx") FileDelete("ResHacker.ini") FileDelete("archive.7z") FileDelete("ayarlar.ini") FileMove("kalip_original.sfx","kalip.sfx") FileMove($programadi3,@DesktopDir & "\" & $programadi3,1) FileSetAttrib("otomatik.exe","+S") FileSetAttrib("kalip.sfx","+S") FileSetAttrib("7z.exe","+S") FileSetAttrib("exclude.lst","+S") FileSetAttrib("goster.jpg","+S") FileSetAttrib("InstallTips.exe","+S") FileSetAttrib("Reshacker.exe","+S") FileSetAttrib("cmd.cmd","+S") ShellExecuteWait("cmd.cmd","",@ScriptDir,"",@SW_HIDE) FileSetAttrib("otomatik.exe","-S") FileSetAttrib("kalip.sfx","-S") FileSetAttrib("7z.exe","-S") FileSetAttrib("exclude.lst","-S") FileSetAttrib("goster.jpg","-S") FileSetAttrib("InstallTips.exe","-S") FileSetAttrib("Reshacker.exe","-S") FileSetAttrib("cmd.cmd","-S") Sleep(100) if ProcessExists("cmd.exe") then ProcessClose("cmd.exe") EndIf _FileCreate("ayarlar.txt") $dosya3 = FileOpen("ayarlar.txt", 1) If $dosya3 = -1 Then MsgBox(0, "Hata", "Ayarlar.ini Bulunamadı") Exit EndIf FileWrite($dosya3, "[KOMUT]" & @CRLF) FileWrite($dosya3, '0=Komut' & @CRLF & @CRLF) FileWrite($dosya3, "[YAZ]" & @CRLF) FileWrite($dosya3, "0=Açıklama" & @CRLF) FileClose($dosya3) FileMove("ayarlar.txt","Ayarlar.ini",1) Func cmd() if ProcessExists("7z.exe") then Sleep(1000) EndIf EndFunc ;-------------------------------------------------Kod Sonu--------------------------------------------- ;--------------------------------------- blackman12 tarafından yazılmıştır -------------------------- Blackman12 Bu Verdiğin Kodda Çok Hatalar Var Ben Düzeltip Çalışan Kodları Koyuyorum Aramızda Acemiler Varsa Düzeltemeyebilir. -------------------------------------------------------------------------------------------------------------------- #include<File.au3> Opt("WinTitleMatchMode", 2) $pencereadi = "Resource Hacker" $programadi = InputBox("7Zipleme Merkezi","Çalışma Adını Gir:") if @error Then Exit EndIf $programadi2 = '"' & $programadi & '.exe"' $programadi3 = $programadi & ".exe" ClipPut($programadi) ShellExecute("Reshacker.exe","kalip.sfx",@ScriptDir,"",@SW_HIDE) If Not WinActive($pencereadi) Then WinActivate($pencereadi) WinWaitActive($pencereadi) Send("S")("{Right}{Right}{Down}{TAB}{Down}{Down}{Down}{Down}{Right}{Right}{Right}{Right}{Right}{Right}^v{TAB}{TAB}{Enter}{TAB}v{Right}{Down}{Right}{Down}{TAB}{Down}{Down}{Down}{Down}{Down}{Down}{Down}{Down}{Down}{Down}{Down}{Down}{Down}") Send("{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}^v{TAB}{TAB}{Enter}{TAB}d") Send("{Right}{Down}{Right}{Down}{TAB}{TAB}{Down}{Down}{Down}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}^v{TAB}{TAB}{ENTER}{CTRLDOWN}s{CTRLUP}") WinClose($pencereadi) _FileCreate("config.txt") $dosya = FileOpen("config.txt", 1) If $dosya = -1 Then MsgBox(0, "Hata", "Config.txt Bulunamadı") Exit EndIf FileWrite($dosya, ";!@Install@!UTF-8! " & @CRLF) FileWrite($dosya, 'RunProgram="InstallTips.exe"' & @CRLF) FileWrite($dosya, ";!@InstallEnd@! ") FileClose($dosya) _FileCreate("olustur.txt") $dosya2 = FileOpen("olustur.txt", 1) If $dosya2 = -1 Then MsgBox(0, "Hata", "Olustur.txt Bulunamadı") Exit EndIf ShellExecuteWait("7z.exe","a -t7z [email protected] -m0=lzma -mx=9 archive.7z *",@ScriptDir,"",@SW_HIDE) AdlibEnable("cmd") FileWrite($dosya2, "copy /b kalip.sfx+config.txt+archive.7z " & $programadi2 & @CRLF) FileWrite($dosya2, "exit") FileClose($dosya2) FileMove("olustur.txt","olustur.bat") ShellExecute("olustur.bat","",@ScriptDir,"",@SW_HIDE) Sleep(2000) FileDelete("config.txt") FileDelete("olustur.bat") FileDelete("kalip.sfx") FileDelete("ResHacker.ini") FileDelete("archive.7z") FileDelete("ayarlar.ini") FileMove("kalip_original.sfx","kalip.sfx") FileMove($programadi3,@DesktopDir & "\" & $programadi3,1) FileSetAttrib("otomatik.exe","+S") FileSetAttrib("kalip.sfx","+S") FileSetAttrib("7z.exe","+S") FileSetAttrib("exclude.lst","+S") FileSetAttrib("goster.jpg","+S") FileSetAttrib("InstallTips.exe","+S") FileSetAttrib("Reshacker.exe","+S") FileSetAttrib("cmd.cmd","+S") ShellExecuteWait("cmd.cmd","",@ScriptDir,"",@SW_HIDE) FileSetAttrib("otomatik.exe","-S") FileSetAttrib("kalip.sfx","-S") FileSetAttrib("7z.exe","-S") FileSetAttrib("exclude.lst","-S") FileSetAttrib("goster.jpg","-S") FileSetAttrib("InstallTips.exe","-S") FileSetAttrib("Reshacker.exe","-S") FileSetAttrib("cmd.cmd","-S") Sleep(100) if ProcessExists("cmd.exe") then ProcessClose("cmd.exe") EndIf _FileCreate("ayarlar.txt") $dosya3 = FileOpen("ayarlar.txt", 1) If $dosya3 = -1 Then MsgBox(0, "Hata", "Ayarlar.ini Bulunamadı") Exit EndIf FileWrite($dosya3, "[KOMUT]" & @CRLF) FileWrite($dosya3, '0=Komut' & @CRLF & @CRLF) FileWrite($dosya3, "[YAZ]" & @CRLF) FileWrite($dosya3, "0=Açıklama" & @CRLF) FileClose($dosya3) FileMove("ayarlar.txt","Ayarlar.ini",1) Func cmd() if ProcessExists("7z.exe") then Sleep(1000) EndIf EndFunc ------------------------------------------------------------------------------------------------------------------- BUNLARI Yeni Not Defteri Açıp .au3 Yapıp Bunları Atarsanız Sorunsuz Bir Şekilde Çalışır. Link to comment Share on other sites More sharing options...
blackman12 Posted August 13, 2010 Author Share Posted August 13, 2010 hmm çok merak ettim nereyi değiştirdiğini ama kodun sadece bir yerine bakarak kafadan hatalı olduğunu söyleyebilirim: Send("S")("{Right} şeklinde devam etmişsin olmaz hata verir arkadaşım o kod in blackman we trust canım Link to comment Share on other sites More sharing options...
djonur007 Posted August 14, 2010 Share Posted August 14, 2010 Blackman12 Bu Verdiğin Kodda Çok Hatalar Var Ben Düzeltip Çalışan Kodları Koyuyorum Aramızda Acemiler Varsa Düzeltemeyebilir. -------------------------------------------------------------------------------------------------------------------- #include<File.au3> Opt("WinTitleMatchMode", 2) $pencereadi = "Resource Hacker" $programadi = InputBox("7Zipleme Merkezi","Çalışma Adını Gir:") if @error Then Exit EndIf $programadi2 = '"' & $programadi & '.exe"' $programadi3 = $programadi & ".exe" ClipPut($programadi) ShellExecute("Reshacker.exe","kalip.sfx",@ScriptDir,"",@SW_HIDE) If Not WinActive($pencereadi) Then WinActivate($pencereadi) WinWaitActive($pencereadi) Send("S")("{Right}{Right}{Down}{TAB}{Down}{Down}{Down}{Down}{Right}{Right}{Right}{Right}{Right}{Right}^v{TAB}{TAB}{Enter}{TAB}v{Right}{Down}{Right}{Down}{TAB}{Down}{Down}{Down}{Down}{Down}{Down}{Down}{Down}{Down}{Down}{Down}{Down}{Down}" ) Send("{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}^v{TAB}{TAB}{Enter}{TAB}d" ) Send("{Right}{Down}{Right}{Down}{TAB}{TAB}{Down}{Down}{Down}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}{Right}^v{TAB}{TAB}{ENTER}{CTRLDOWN}s{CTRLUP}" ) WinClose($pencereadi) _FileCreate("config.txt") $dosya = FileOpen("config.txt", 1) If $dosya = -1 Then MsgBox(0, "Hata", "Config.txt Bulunamadı") Exit EndIf FileWrite($dosya, ";!@Install@!UTF-8! " & @CRLF) FileWrite($dosya, 'RunProgram="InstallTips.exe"' & @CRLF) FileWrite($dosya, ";!@InstallEnd@! ") FileClose($dosya) _FileCreate("olustur.txt") $dosya2 = FileOpen("olustur.txt", 1) If $dosya2 = -1 Then MsgBox(0, "Hata", "Olustur.txt Bulunamadı") Exit EndIf ShellExecuteWait("7z.exe","a -t7z [email protected] -m0=lzma -mx=9 archive.7z *",@ScriptDir,"",@SW_HIDE) AdlibEnable("cmd") FileWrite($dosya2, "copy /b kalip.sfx+config.txt+archive.7z " & $programadi2 & @CRLF) FileWrite($dosya2, "exit") FileClose($dosya2) FileMove("olustur.txt","olustur.bat") ShellExecute("olustur.bat","",@ScriptDir,"",@SW_HIDE) Sleep(2000) FileDelete("config.txt") FileDelete("olustur.bat") FileDelete("kalip.sfx") FileDelete("ResHacker.ini") FileDelete("archive.7z") FileDelete("ayarlar.ini") FileMove("kalip_original.sfx","kalip.sfx") FileMove($programadi3,@DesktopDir & "\" & $programadi3,1) FileSetAttrib("otomatik.exe","+S") FileSetAttrib("kalip.sfx","+S") FileSetAttrib("7z.exe","+S") FileSetAttrib("exclude.lst","+S") FileSetAttrib("goster.jpg","+S") FileSetAttrib("InstallTips.exe","+S") FileSetAttrib("Reshacker.exe","+S") FileSetAttrib("cmd.cmd","+S") ShellExecuteWait("cmd.cmd","",@ScriptDir,"",@SW_HIDE) FileSetAttrib("otomatik.exe","-S") FileSetAttrib("kalip.sfx","-S") FileSetAttrib("7z.exe","-S") FileSetAttrib("exclude.lst","-S") FileSetAttrib("goster.jpg","-S") FileSetAttrib("InstallTips.exe","-S") FileSetAttrib("Reshacker.exe","-S") FileSetAttrib("cmd.cmd","-S") Sleep(100) if ProcessExists("cmd.exe") then ProcessClose("cmd.exe") EndIf _FileCreate("ayarlar.txt") $dosya3 = FileOpen("ayarlar.txt", 1) If $dosya3 = -1 Then MsgBox(0, "Hata", "Ayarlar.ini Bulunamadı") Exit EndIf FileWrite($dosya3, "[KOMUT]" & @CRLF) FileWrite($dosya3, '0=Komut' & @CRLF & @CRLF) FileWrite($dosya3, "[YAZ]" & @CRLF) FileWrite($dosya3, "0=Açıklama" & @CRLF) FileClose($dosya3) FileMove("ayarlar.txt","Ayarlar.ini",1) Func cmd() if ProcessExists("7z.exe") then Sleep(1000) EndIf EndFunc ------------------------------------------------------------------------------------------------------------------- BUNLARI Yeni Not Defteri Açıp .au3 Yapıp Bunları Atarsanız Sorunsuz Bir Şekilde Çalışır. başkasının sapa sağlam programına laf atacağına kendi marifeetini göstersen! blackman12 abinin programı zehir gibi çalışıyor. bende faydalandım kodlarından... Link to comment Share on other sites More sharing options...
blackman12 Posted August 14, 2010 Author Share Posted August 14, 2010 Sakin ol şampiyon...Ben cevabı verdim zaten. Heh bu arada bu kodlarla uğraşma arkadaşım buyur programın yeni versiyonu: http://www.tnctr.com/topic/147182-katylymsyz-hazyrlama-aracy-14/ Link to comment Share on other sites More sharing options...
djonur007 Posted August 14, 2010 Share Posted August 14, 2010 Sakin ol şampiyon...Ben cevabı verdim zaten. Heh bu arada bu kodlarla uğraşma arkadaşım buyur programın yeni versiyonu: http://www.tnctr.com/topic/147182-katylymsyz-hazyrlama-aracy-14/ onuda inceledim gecici_proje_klasoru güzel olmus program süper. msn'den gelde gui görselliğini halledelim abi... Link to comment Share on other sites More sharing options...
Recommended Posts
Archived
This topic is now archived and is closed to further replies.