Autoit Script

[codpedia]

arkadaşlar mesela AU3recorder ile kuracağımız programı kayıt etti kodları yazdı oto scripte tıklayınca kuruyor benim yapmak istediğim script.exe ye basıp setup.exe nin yerini gösterip kurmaktansa direk setup.exe ile kodu birleştirip örn : / winrar.exe tıklayınca direk oto kurulsn yani script direk içinden çalışsa nasıl yapacaz )

[morning]

Scriptin en başına aşağıdaki kodu yerleştirdiğinde script klasöründeki setup.exe kurulum dosyası Script'e gömülecektir.Script çalıştırıldığında da bu dosya Temp'e çıkarılacaktır. Dosyayı çalıştırmak istersen,

@TempDir & "\setup.exe"

olarak çağırabilirsin.

FileInstall(@ScriptDir & "\setup.exe",@TempDir & "\setup.exe",1)[/CODE]

[codpedia]

anlamadm yada anlatamadm... masaüstüne winrar ve script editor var ben editürlü kurulmu yaptım AU3 recorder ile compile ettim au3.ex ha ben diyorumki direk winrar.exe içinde olsun yani scip olştukran sonra içine gömülsünde winrar.exe silim son oluşan dosyaya son.exe den drirek çalışsn...

[morning]

Tamam işte verdiğim komut da o işe yarıyor.

[codpedia]

hata aldım )

#region --- ScriptWriter generated code Start --- 
Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
Run('C:\Documents and Settings\Administrator\Desktop\wrar380tr.exe')
WinWait("WinRAR 3.80","Telif Hakkı © 1993-2")
If Not WinActive("WinRAR 3.80","Telif Hakkı © 1993-2") Then WinActivate("WinRAR 3.80","Telif Hakkı © 1993-2")
WinWaitActive("WinRAR 3.80","Telif Hakkı © 1993-2")
MouseMove(202,370)
MouseDown("left")
MouseMove(200,370)
MouseUp("left")
WinWait("WinRAR Kurulumu","WinRAR ilişiklendirm")
If Not WinActive("WinRAR Kurulumu","WinRAR ilişiklendirm") Then WinActivate("WinRAR Kurulumu","WinRAR ilişiklendirm")
WinWaitActive("WinRAR Kurulumu","WinRAR ilişiklendirm")
MouseMove(227,376)
MouseDown("left")
MouseMove(227,379)
MouseUp("left")
WinWait("WinRAR Kurulumu","WinRAR bu klasöre ba")
If Not WinActive("WinRAR Kurulumu","WinRAR bu klasöre ba") Then WinActivate("WinRAR Kurulumu","WinRAR bu klasöre ba")
WinWaitActive("WinRAR Kurulumu","WinRAR bu klasöre ba")
MouseMove(238,370)
MouseDown("left")
MouseUp("left")
WinWait("C:\Documents and Settings\All Users\Start Menu\Programs\WinRAR","FolderView")
If Not WinActive("C:\Documents and Settings\All Users\Start Menu\Programs\WinRAR","FolderView") Then WinActivate("C:\Documents and Settings\All Users\Start Menu\Programs\WinRAR","FolderView")
WinWaitActive("C:\Documents and Settings\All Users\Start Menu\Programs\WinRAR","FolderView")
MouseMove(592,17)
MouseDown("left")
MouseMove(592,15)
MouseUp("left")
#endregion --- ScriptWriter generated code End ---[/CODE]

örnek düzenlermisn bunu ...

[morning]

WinRAR /S parametresiyle katılımsız kuruluyor.Niye AutoIt ile uğraşıyorsun ki

[codpedia]

winrar sadece örnek şimdii yaptım )

[morning]

Tamam. Bak mesela şöyle olabilir.Ama C:\ tarzı şeyler kullanmaktansa, onun yerine geçebilecek kodlar kullanabilirsin.Ayrıca mouse kullanmaman daha iyi olacaktır.

(ilk kodda özellikle direk dosya şeklinde olması gerekiyormuş.

#region --- ScriptWriter generated code Start ---
 FileInstall("C:\Documents and Settings\Administrator\Desktop\wrar380tr.exe",@TempDir & "\wrar380tr.exe",1)
 Opt("WinWaitDelay",100)
 Opt("WinTitleMatchMode",4)
 Opt("WinDetectHiddenText",1)
 Opt("MouseCoordMode",0)
 Run(@TempDir & "\wrar380tr.exe")
 WinWait("WinRAR 3.80","Telif Hakkı © 1993-2")
 If Not WinActive("WinRAR 3.80","Telif Hakkı © 1993-2") Then WinActivate("WinRAR 3.80","Telif Hakkı © 1993-2")
 WinWaitActive("WinRAR 3.80","Telif Hakkı © 1993-2")
 MouseMove(202,370)
 MouseDown("left")
 MouseMove(200,370)
 MouseUp("left")
 WinWait("WinRAR Kurulumu","WinRAR ilişiklendirm")
 If Not WinActive("WinRAR Kurulumu","WinRAR ilişiklendirm") Then WinActivate("WinRAR Kurulumu","WinRAR ilişiklendirm")
 WinWaitActive("WinRAR Kurulumu","WinRAR ilişiklendirm")
 MouseMove(227,376)
 MouseDown("left")
 MouseMove(227,379)
 MouseUp("left")
 WinWait("WinRAR Kurulumu","WinRAR bu klasöre ba")
 If Not WinActive("WinRAR Kurulumu","WinRAR bu klasöre ba") Then WinActivate("WinRAR Kurulumu","WinRAR bu klasöre ba")
 WinWaitActive("WinRAR Kurulumu","WinRAR bu klasöre ba")
 MouseMove(238,370)
 MouseDown("left")
 MouseUp("left")
 $winrarstart = @DocumentsCommonDir & "\All Users\Start Menu\Programs\WinRAR"
 WinWait($winrarstart,"FolderView")
 If Not WinActive($winrarstart,"FolderView") Then WinActivate($winrarstart,"FolderView")
 WinWaitActive($winrarstart,"FolderView")
 MouseMove(592,17)
 MouseDown("left")
 MouseMove(592,15)
 MouseUp("left")
 #endregion --- ScriptWriter generated code End ---[/CODE]

Buradaki mouse kodlarını düzeltmelisin.

Winrarstart da bir değişken, uzun uzun yazmak istemedim.Ayrıca D sürücüsüne kuracaklarda da sorun olmayacaktır.

[codpedia]

deniyelm saol...