Jump to content

Katılımsız Kurulum Nasıl Yapılır 3


onuchlu
 Share

Recommended Posts

  • Replies 217
  • Created
  • Last Reply

Top Posters In This Topic

Opt("WinWaitDelay",100)

Opt("WinTitleMatchMode",4)

Opt("WinDetectHiddenText",1)

Opt("MouseCoordMode",0)

Run('C:\Documents and Settings\Sahip\Desktop\acdseekur.exe')

WinWait("ACDSee","Welcome to ACDSee Se")

If Not WinActive("ACDSee","Welcome to ACDSee Se") Then WinActivate("ACDSee","Welcome to ACDSee Se")

WinWaitActive("ACDSee","Welcome to ACDSee Se")

Send("{TAB}{TAB}{ENTER}")

WinWait("ACDSee","Setup will install A")

If Not WinActive("ACDSee","Setup will install A") Then WinActivate("ACDSee","Setup will install A")

WinWaitActive("ACDSee","Setup will install A")

Send("{ENTER}")

Run('taskkill.exe /f /im acdseekur.exe')

Sleep(1000)

kodları bu şekilde yaptım

Link to comment
Share on other sites

Run('C:\Documents and Settings\Sahip\Desktop\acdseekur.exe')

bak bu koda dikkat et Run('acd.exe') olarak değiştir kurulum yani normal kurulumda yapabildiğin dosyanın adını acd yap script exe sinin adını da script falan filan yap ama iki tane acdseekur olunca kafayı yiyo gariban resimden gördüm ve anladım.

Peki neden 'C:\Documents and Settings\Sahip\Desktop\' burayı sildik dersen eğer böyle çalıştırırsan exe mutlaka orada olmalı olmazsa çalışmaz ama yeni şekliyle exe scriptin yanında olduğu sürece çalışır

Link to comment
Share on other sites

Run('C:\Documents and Settings\Sahip\Desktop\acdseekur.exe')

bak bu koda dikkat et Run('acd.exe') olarak değiştir kurulum yani normal kurulumda yapabildiğin dosyanın adını acd yap script exe sinin adını da script falan filan yap ama iki tane acdseekur olunca kafayı yiyo gariban resimden gördüm ve anladım.

Peki neden 'C:\Documents and Settings\Sahip\Desktop\' burayı sildik dersen eğer böyle çalıştırırsan exe mutlaka orada olmalı olmazsa çalışmaz ama yeni şekliyle exe scriptin yanında olduğu sürece çalışır

bi deniyim yapamassam burdasın ne olsa

Link to comment
Share on other sites

Ben uzaktaki bilgisayar için pcanywhere host kurup gerekli şifre, ip ayarlarını girdikten sonra pcyanwhere host programını ayarlı şekilde katılımsız yapmak istiyorum autoit ile bu mümkünmüdür, mümkün değilse nasıl yapabilirim?

Edited by çekirdek
Link to comment
Share on other sites

Run('C:\Documents and Settings\Sahip\Desktop\acdseekur.exe')

bak bu koda dikkat et Run('acd.exe') olarak değiştir kurulum yani normal kurulumda yapabildiğin dosyanın adını acd yap script exe sinin adını da script falan filan yap ama iki tane acdseekur olunca kafayı yiyo gariban resimden gördüm ve anladım.

Peki neden 'C:\Documents and Settings\Sahip\Desktop\' burayı sildik dersen eğer böyle çalıştırırsan exe mutlaka orada olmalı olmazsa çalışmaz ama yeni şekliyle exe scriptin yanında olduğu sürece çalışır

aynen teşekkur ederim ciddi bi dertten kurtandın beni valla

Link to comment
Share on other sites

  • 3 hafta sonra ...

Kurulum hatası :

Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
Run('Aiw.exe')
WinWait("Astrum InstallWizard Installation","Welcome to the Astru")
If Not WinActive("Astrum InstallWizard Installation","Welcome to the Astru") Then WinActivate("Astrum InstallWizard Installation","Welcome to the Astru")
WinWaitActive("Astrum InstallWizard Installation","Welcome to the Astru")
Send("{ENTER}")
WinWait("Astrum InstallWizard Installation","Astrum InstallWizard")
If Not WinActive("Astrum InstallWizard Installation","Astrum InstallWizard") Then WinActivate("Astrum InstallWizard Installation","Astrum InstallWizard")
WinWaitActive("Astrum InstallWizard Installation","Astrum InstallWizard")
Send("{ENTER}")
WinWait("Astrum InstallWizard Installation","Shortcut icons will ")
If Not WinActive("Astrum InstallWizard Installation","Shortcut icons will ") Then WinActivate("Astrum InstallWizard Installation","Shortcut icons will ")
WinWaitActive("Astrum InstallWizard Installation","Shortcut icons will ")
Send("{ENTER}")
WinWait("Astrum InstallWizard Installation","Please read the foll")
If Not WinActive("Astrum InstallWizard Installation","Please read the foll") Then WinActivate("Astrum InstallWizard Installation","Please read the foll")
WinWaitActive("Astrum InstallWizard Installation","Please read the foll")
Send("{ENTER}")
WinWait("Astrum InstallWizard Installation","Astrum InstallWizard")
If Not WinActive("Astrum InstallWizard Installation","Astrum InstallWizard") Then WinActivate("Astrum InstallWizard Installation","Astrum InstallWizard")
WinWaitActive("Astrum InstallWizard Installation","Astrum InstallWizard")
Send("{TAB}{SPACE}{TAB}{SPACE}{TAB}{ENTER}")

Opt("WinWaitDelay",1000)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
Run('Tema.exe')
WinWait("Astrum InstallWizard 2 Tema Installation","It is strongly recom")
If Not WinActive("Astrum InstallWizard 2 Tema Installation","It is strongly recom") Then WinActivate("Astrum InstallWizard 2 Tema Installation","It is strongly recom")
WinWaitActive("Astrum InstallWizard 2 Tema Installation","It is strongly recom")
Send("{ENTER}")
WinWait("Astrum InstallWizard 2 Tema Installation","To install to a diff")
If Not WinActive("Astrum InstallWizard 2 Tema Installation","To install to a diff") Then WinActivate("Astrum InstallWizard 2 Tema Installation","To install to a diff")
WinWaitActive("Astrum InstallWizard 2 Tema Installation","To install to a diff")
Send("{ENTER}")
WinWait("Astrum InstallWizard 2 Tema Installation","Please read the foll")
If Not WinActive("Astrum InstallWizard 2 Tema Installation","Please read the foll") Then WinActivate("Astrum InstallWizard 2 Tema Installation","Please read the foll")
WinWaitActive("Astrum InstallWizard 2 Tema Installation","Please read the foll")
Send("{ENTER}{ENTER}")
WinWait("Astrum InstallWizard 2 Tema Installation","Click Finish to end ")
If Not WinActive("Astrum InstallWizard 2 Tema Installation","Click Finish to end ") Then WinActivate("Astrum InstallWizard 2 Tema Installation","Click Finish to end ")
WinWaitActive("Astrum InstallWizard 2 Tema Installation","Click Finish to end ")
Send("{ENTER}")

Opt("WinWaitDelay",1000)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
Run('Crack.exe')
WinWait("Astrum InstallWizard 2 Crack Installation","It is strongly recom")
If Not WinActive("Astrum InstallWizard 2 Crack Installation","It is strongly recom") Then WinActivate("Astrum InstallWizard 2 Crack Installation","It is strongly recom")
WinWaitActive("Astrum InstallWizard 2 Crack Installation","It is strongly recom")
Send("{ENTER}")
WinWait("Astrum InstallWizard 2 Crack Installation","To install to a diff")
If Not WinActive("Astrum InstallWizard 2 Crack Installation","To install to a diff") Then WinActivate("Astrum InstallWizard 2 Crack Installation","To install to a diff")
WinWaitActive("Astrum InstallWizard 2 Crack Installation","To install to a diff")
Send("{ENTER}")
WinWait("Astrum InstallWizard 2 Crack Installation","You may type a new f")
If Not WinActive("Astrum InstallWizard 2 Crack Installation","You may type a new f") Then WinActivate("Astrum InstallWizard 2 Crack Installation","You may type a new f")
WinWaitActive("Astrum InstallWizard 2 Crack Installation","You may type a new f")
Send("{ENTER}")
WinWait("Astrum InstallWizard 2 Crack Installation","Please read the foll")
If Not WinActive("Astrum InstallWizard 2 Crack Installation","Please read the foll") Then WinActivate("Astrum InstallWizard 2 Crack Installation","Please read the foll")
WinWaitActive("Astrum InstallWizard 2 Crack Installation","Please read the foll")
Send("{ENTER}")
WinWait("Astrum InstallWizard 2 Crack Installation","Click Finish to end ")
If Not WinActive("Astrum InstallWizard 2 Crack Installation","Click Finish to end ") Then WinActivate("Astrum InstallWizard 2 Crack Installation","Click Finish to end ")
WinWaitActive("Astrum InstallWizard 2 Crack Installation","Click Finish to end ")
Send("{ENTER}")

Rar paket içerği :

Astrum.exe ->autoit compiler exe'si
Aiw.exe program
Crack.exe crack yaması
Tema.exe tema paması[/CODE]

Rar.Sfx Komutu :

[CODE];Bu açıklamadan sonraki kısım SFX kod komutlarını içerir

Setup=Astrum.exe
TempMode
Silent=1
Overwrite=1[/CODE]

Lakin, olutşurulan Winrar açılışça geçince Temp'de bir dizin açarak içini kopyalıyor. Sonra script devereye girip çalışmaya başlacak.. Ama ne hikmetse Aiw.exe rar içeriğinde olmasına karşın kendini tempe kopyalamıyor. Haliyle script çalıştıramıyor..

Böyle dandik bir sorun neden olabilir ? Orasına burasına baktım ama malesef bir sonuca varamadım

Edited by sessizce
Link to comment
Share on other sites

  • 3 hafta sonra ...

Bu hatayı nasıl aşabilirim?

aynı hata bende oluşuyor

Çalıştırılan dosya yolunu kontrol et. Dosya orada yokmuş.

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****

#AutoIt3Wrapper_icon=G:\Program Files\Virtual CD v9\System\Symbols\Virtual CD Vista\001.ico

#AutoIt3Wrapper_Compression=4

#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

Run('uiso8_pe.exe')

WinWait("Kur Dilini Seçiniz","Lütfen kurulum sıras")

If Not WinActive("Kur Dilini Seçiniz","Lütfen kurulum sıras") Then WinActivate("Kur Dilini Seçiniz","Lütfen kurulum sıras")

WinWaitActive("Kur Dilini Seçiniz","Lütfen kurulum sıras")

Send("{ENTER}")

WinWait("UltraISO - Kur","UltraISO Kurulum Sih")

If Not WinActive("UltraISO - Kur","UltraISO Kurulum Sih") Then WinActivate("UltraISO - Kur","UltraISO Kurulum Sih")

WinWaitActive("UltraISO - Kur","UltraISO Kurulum Sih")

Send("{ENTER}")

WinWait("UltraISO - Kur"," Inno Setup 5.1+ Tür")

If Not WinActive("UltraISO - Kur"," Inno Setup 5.1+ Tür") Then WinActivate("UltraISO - Kur"," Inno Setup 5.1+ Tür")

WinWaitActive("UltraISO - Kur"," Inno Setup 5.1+ Tür")

Send("{TAB}{UP}{ENTER}{ENTER}{ENTER}{ENTER}{ENTER}")

WinWait("UltraISO - Kur","UltraISO Kur Sihirba")

If Not WinActive("UltraISO - Kur","UltraISO Kur Sihirba") Then WinActivate("UltraISO - Kur","UltraISO Kur Sihirba")

WinWaitActive("UltraISO - Kur","UltraISO Kur Sihirba")

Send("{ENTER}")

WinWait("Hoşgeldiniz","Şimdi Kaydedin ! - S")

If Not WinActive("Hoşgeldiniz","Şimdi Kaydedin ! - S") Then WinActivate("Hoşgeldiniz","Şimdi Kaydedin ! - S")

WinWaitActive("Hoşgeldiniz","Şimdi Kaydedin ! - S")

MouseMove(261,250)

MouseDown("left")

MouseUp("left")

WinWait("UltraISO (Deneme Versiyonu)","Açılabilir Değil")

If Not WinActive("UltraISO (Deneme Versiyonu)","Açılabilir Değil") Then WinActivate("UltraISO (Deneme Versiyonu)","Açılabilir Değil")

WinWaitActive("UltraISO (Deneme Versiyonu)","Açılabilir Değil")

MouseMove(772,25)

MouseDown("left")

MouseUp("left")

Run('taskkill /f /im uiso_pe.exe')

Sleep(1000)

kontrol ettim sorun yok burda Run('uiso8_pe.exe')

Sadece scriptini ver demek istemiştim. au3 dosyanı yani.

scriptini nasıl verceğiz orayı çözemedim

Please register to see this content.

birde resimdeki target yazılı olan ne yazacağız

Link to comment
Share on other sites

  • 3 hafta sonra ...
Guest
This topic is now closed to further replies.
 Share

  • Recently Browsing   0 members

    No registered users viewing this page.


×
×
  • Create New...