Tekil Mesaj gsterimi
Alt 04.09.07   #1 (permalink)
By_Heyula
Profil
Kullanýcý Grubu
Administrator
Kullanýcý Bilgileri
 
By_Heyula - ait Kullanıcı Resmi (Avatar)
 
yelik tarihi: Jul 2007
Mesajlar: 1.461
Uye No:3
Rep
By_Heyula is on a distinguished road
Seviye Level: 32 [♥ Bé-Yêu ♥♥ Bé-Yêu ♥]
Paylaþým: 237 / 792
Güç: 487 / 3410
Tecrübe: 69%
Ýletiþim
st Dzey Autot Kodlari

Kod:
 
ShellExecuteWait
AÇIKLAMA:bu komur  AUTOİT ile parametresi olan programların otamatik olarak kurdurmamızı sağlar.
örnek:ShellExecuteWait("bs.exe","/S")
Kod:
 
WinWait 
AÇIKLAMA:bekle anlamındadır.hangi pencereye verildiyse o pencere gelene kadar bekler.
örnek:WinWait("Hoşgeldiniz","Hoşgeldiniz") pencerisi....

Kod:
 
WinActivate
Açıklama:pencereyi bekle ve gelen penceryi aktif et.aktif etmesi gerekiyor çünki diğer verdiğimiz komutların calışması gerekiyor.
örnek:WinActivate("Hoşgeldiniz")  hosgeldınız ekranının gelmesını bekledı ve o ekranı aktıf hale getirdi..
Kod:
 
ControlClick
Açıklama:bu komut ise ekrana gelen pencere üstünde işlem yapmamızı sağlar.yani butonlara tıklamamıza yarar.
örnek:ControlClick("Hoşgeldiniz","","TButton4")

Kod:
 
ClipPut 
Açıklama:yazılan veriyi hafızasında tutar.yani katılımsız program yaptıgımızda program key istediğinde hafızasında bu keyi barındırır.
Örnek: ClipPut("3336-erge-yu21-e587")  gibi

Kod:
 
send("^v")
Açıklama:ClipPut("3336-erge-yu21-e587") un hafızasındaki keyi gondermeyi sağlar..
örnek:send("^v")
Kod:
 
send("{TAB}")   çeşitli yerlerde kullana biliriz..
 
send("{SPACE}")  çeşitli yerlerde kullana biliriz..
 
send("{ENTER}")   çeşitli yerlerde kullana biliriz..
Kod:
 
Run
Açıklama: programımızı bu komut ile çağırırız..
örnek:Run('SetupSwishmax.exe')

Kod:
 
Run('SetupSwishmax.exe') programı çağırdım..
WinWait("TSRh TeaM PROUDLY PRESENTS","Xara 3D v5.02 Crack") ekranın gelmesini beklettirdim
send("{TAB}") komutu ile pencereki butonlarda next butonuna ulasmak için 
send("{TAB}") next ekranına geldim
 
send("{ENTER}") next butonuna bastım
gibiiiiiiiiiiiiiiiii......
Kod:
run("taskkill /f /im setup.exe")
Exit
program kurulduktan sonra programı sonlardırmak veya kapat için kullanılan komut.setup.exe sızın setup.exe ne ıse onu yazcaksınız.mesela heyula.exe ise programın adı o yazılır.

Kod:
 
bi flash get örneği
 
Run('fget.exe')
WinWait("Welcome","Welcome to FlashGet(JetCar) Setup program. This program will install FlashGet(JetCar) on your computer.")
ControlClick("Welcome","Welcome to FlashGet(JetCar) Setup program. This program will install FlashGet(JetCar) on your computer.","Button1")
WinWait("Software license","END-USER LICENSE AGREEMENT FOR THIS SOFTWARE")
ControlClick("Software license","END-USER LICENSE AGREEMENT FOR THIS SOFTWARE","Button1")
WinWait("Choose Destination Location","Setup will install FlashGet(JetCar) in the following folder.")
ControlClick("Choose Destination Location","Setup will install FlashGet(JetCar) in the following folder.","Button1")
WinWait("Select Program Manager Group","Enter the name of the Program Manager group to add FlashGet(JetCar) icons to:")
ControlClick("Select Program Manager Group","Enter the name of the Program Manager group to add FlashGet(JetCar) icons to:","Button1")
WinWait("Start Installation","You are now ready to install FlashGet(JetCar).")
ControlClick("Start Installation","You are now ready to install FlashGet(JetCar).","Button1")
WinWait("FlashGet","FlashGet File Mirrors is an anonymous URL sharing service for users of FlashGet. If another FlashGet user downloaded the same file before you, but found a different mirror for the file and shared that information, this lets you find the mirror they used. And if you share the information, any people downloading the file after you can then find the mirror you found too. And if you're the 100th or 1000th person downloading the file, you may get many mirrors. for more inforatmion visit Linkleri Grebilmeniz in 10 Saniyede Kayt Ola Bilirnsiniz.. ->>")
ControlClick("FlashGet","FlashGet File Mirrors is an anonymous URL sharing service for users of FlashGet. If another FlashGet user downloaded the same file before you, but found a different mirror for the file and shared that information, this lets you find the mirror they used. And if you share the information, any people downloading the file after you can then find the mirror you found too. And if you're the 100th or 1000th person downloading the file, you may get many mirrors. for more inforatmion visit Linkleri Grebilmeniz in 10 Saniyede Kayt Ola Bilirnsiniz.. ->>")
WinWait("FlashGet","FlashGet File Mirrors is an anonymous URL sharing service for users of FlashGet. If another FlashGet user downloaded the same file before you, but found a different mirror for the file and shared that information, this lets you find the mirror they used. And if you share the information, any people downloading the file after you can then find the mirror you found too. And if you're the 100th or 1000th person downloading the file, you may get many mirrors. for more inforatmion visit Linkleri Grebilmeniz in 10 Saniyede Kayt Ola Bilirnsiniz.. ->>")
ControlClick("FlashGet","FlashGet File Mirrors is an anonymous URL sharing service for users of FlashGet. If another FlashGet user downloaded the same file before you, but found a different mirror for the file and shared that information, this lets you find the mirror they used. And if you share the information, any people downloading the file after you can then find the mirror you found too. And if you're the 100th or 1000th person downloading the file, you may get many mirrors. for more inforatmion visit Linkleri Grebilmeniz in 10 Saniyede Kayt Ola Bilirnsiniz.. ->>")
WinWait("Google Toolbar","Free! Google Toolbar")
ControlClick("Google Toolbar","Free! Google Toolbar","Button3")
WinWait("Google Toolbar","Free! Google Toolbar")
ControlClick("Google Toolbar","Free! Google Toolbar","Button1")
WinWait("Installation Complete","FlashGet(JetCar) has been successfully installed.")
ControlClick("Installation Complete","FlashGet(JetCar) has been successfully installed.","Button1")


Kod:
 
SoundPlay("C:\Siir.mp3",1) 
bu komut ise mp3 açmaya yarar hemde arka planda.istediğniz bir yere mp3 dosyanız koyun ve yolunu belirtin arka planda kendılıgınden çalar.gorev yonetıcıs ıle ancak sonlandıra bılırsını.yazdıgınız sicrp lere göme bilir siniz.

Kod:
 
biraz eğlenmek için :
msn örneği verelim mesela msn 8,0 pc mızde yuklu 
ve her defasında adımı ve sıfremızı gırmekten bıktık dıyelım ( benı hatırla secenegını yok sayıyorum :)  )
örnek:
Run("C:\Program Files\MSN Messenger\msnmsgr.exe") c dızınınde msn.exe cagırdım.
WinWait("Windows Live Messenger")ekranın gelmesını beklettırdım
WinActivate("Windows Live Messenger")geldıgınde aktıf hale getırdım.
send("<A href="mailto:örnek@hotmail.com")send">örnek@hotmail.com")send komutuyla kullanıcı adı yazılıcak yere gectım ve gonderdım nıkımı
Send("{TAB}")şifre yazılıcak yere gectım
send("123456789") şifremi gonderdım
Send("{TAB}") sen tab komutu ile oturum açmaya kadar gidiyorum
Send("{TAB}")
Send("{TAB}")
Send("{TAB}")
Send("{TAB}")
Send("{TAB}")
Send("{ALTDOWN}m{ALTUP}") ve geldım enter ledi ve oturum açılıyor.

son olarakta bi programı silent olarak kurduralım ve crack ını yaptıralım.
Noiseware Professional Edition örneği:

kurulum için

Kod:
Run('Noisew1.exe')
WinWait("Noiseware Professional Edition Setup","The Setup Wizard wil")
WinWaitActive("Noiseware Professional Edition Setup","The Setup Wizard wil")
Send("{ENTER}")
WinWait("Noiseware Professional Edition Setup","I &accept the terms ")
WinWaitActive("Noiseware Professional Edition Setup","I &accept the terms ")
Send("{UP}{ENTER}")
WinWait("Noiseware Professional Edition Setup","This is the folder w")
WinWaitActive("Noiseware Professional Edition Setup","This is the folder w")
Send("{ENTER}")
WinWait("Noiseware Professional Edition Setup","The Setup Wizard is ")
WinWaitActive("Noiseware Professional Edition Setup","The Setup Wizard is ")
Send("{ENTER}")
WinWait("Noiseware Professional Edition Setup","Click the Finish but")
WinWaitActive("Noiseware Professional Edition Setup","Click the Finish but")
Send("{ENTER}")
crack için

Kod:
Run('C:\Program Files\Noiseware Professional Edition\NoisewarePro.exe')
WinWait("About Noiseware","Version 2.5 (build 2")
WinWaitActive("About Noiseware","Version 2.5 (build 2")
Send("{TAB}{ENTER}")
Run('keygen.exe')
WinWait("Noiseware Professional Standalone  * SSG","                    ")
WinWaitActive("Noiseware Professional Standalone  * SSG","                    ")
Send("oralet{SHIFTDOWN}-{SHIFTUP}osman{CTRLDOWN}{ALTDOWN}q{CTRLUP}{ALTUP}hotmail.com{TAB}{TAB}{ENTER}{TAB}{CTRLDOWN}c{CTRLUP}")
ClipPut("oralet_osman@hotmail.com")
WinActivate("License Key Installation","Please enter Your Information and the License Key.")
send("^v")
WinActivate("Noiseware Professional Standalone  * SSG","Generate")
send("{TAB}")
ClipPut("A79DE0284BD0A36DE2DF143A8532F552614C6D656B55473F614C6D656B55473FCC7E6DD7B61ED0F9")
WinActivate("License Key Installation","Please enter Your Information and the License Key.")
send("{TAB}")
Send("by_heyula & by_efkan")
send("{TAB}")
Send("oralet_osman@hotmail.com")
send("{TAB}")
send("^v")
send("{ENTER}")
send("{ENTER}")
Run("taskkill /f /im NoisewarePro.exe")
denemek isterseniz
Linkleri Grebilmeniz in 10 Saniyede Kayt Ola Bilirnsiniz.. ->>

ındırın bakın derim.
By_Heyula isimli ye şimdilik offline konumundadır   Alıntı ile Cevapla