codpedia Posted May 20, 2009 Share Posted May 20, 2009 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 ) Link to comment Share on other sites More sharing options...
morning Posted May 20, 2009 Share Posted May 20, 2009 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] Link to comment Share on other sites More sharing options...
codpedia Posted May 20, 2009 Author Share Posted May 20, 2009 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... Link to comment Share on other sites More sharing options...
morning Posted May 20, 2009 Share Posted May 20, 2009 Tamam işte verdiğim komut da o işe yarıyor. Link to comment Share on other sites More sharing options...
codpedia Posted May 20, 2009 Author Share Posted May 20, 2009 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 ... Link to comment Share on other sites More sharing options...
morning Posted May 20, 2009 Share Posted May 20, 2009 WinRAR /S parametresiyle katılımsız kuruluyor.Niye AutoIt ile uğraşıyorsun ki Link to comment Share on other sites More sharing options...
codpedia Posted May 20, 2009 Author Share Posted May 20, 2009 winrar sadece örnek şimdii yaptım ) Link to comment Share on other sites More sharing options...
morning Posted May 20, 2009 Share Posted May 20, 2009 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. Link to comment Share on other sites More sharing options...
codpedia Posted May 20, 2009 Author Share Posted May 20, 2009 deniyelm saol... Link to comment Share on other sites More sharing options...
Recommended Posts
Archived
This topic is now archived and is closed to further replies.