Jump to content

Idm Katılımsız


byMaPa
 Share

Recommended Posts

Run("idman.exe")


WinWaitActive("Internet Download Manager Installation Wizard","")
ControlClick("Internet Download Manager Installation Wizard", "", "Button2" )

WinWaitActive("Please read IDM license","")
ControlClick("Please read IDM license", "", "Button2" )

WinWaitActive("Choose Destination Location","")
ControlClick("Choose Destination Location", "", "Button2" )

WinWaitActive("Select Program Manager Group","")
ControlClick("Select Program Manager Group", "", "Button2" )

WinWaitActive("Start Installation of Internet Download Manager","")
ControlClick("Start Installation of Internet Download Manager", "", "Button2" )

WinWaitActive("Installation Complete","")
ControlClick("Installation Complete", "", "Button3" )


WinWaitActive("IDM language","")
ControlClick("IDM language", "", "Button1" )

WinWaitActive("IDM tarayıcı ilişkilendirmesi","")
ControlClick("IDM tarayıcı ilişkilendirmesi", "", "Button1" )

Kurulumu basit bir şekilde verdim yalnız bu şekilde sorunsuz kurulabilmesi için bilgisayarda idm yüklü olmaması lazım. Eğer idm yüklü ise son 2 adım gerçekleşmiyor. Bunu nasıl halledebilirim ? Yardımcı olursanız sevinirim.

Link to comment
Share on other sites

Bilgisayarda IDM'nin yüklü olup olmadığını kontrol ettirip ona göre işlem yaptırabilirsiniz.

Ya da uninstall aracını çalıştırıp yine tıklattırarak işlemi yapabilirsiniz.

En kolay ve güveniliri 1.yol.

Direk kod vermedim, isterseniz hazırlayabilirim..

[spoiler]Yıl 2013 olmuş adam hala decompiler kullanmıyor   :troll: [/spoiler]

Edited by reyiz
Link to comment
Share on other sites

Bilgisayarda IDM'nin yüklü olup olmadığını kontrol ettirip ona göre işlem yaptırabilirsiniz.

Ya da uninstall aracını çalıştırıp yine tıklattırarak işlemi yapabilirsiniz.

En kolay ve güveniliri 1.yol.

Direk kod vermedim, isterseniz hazırlayabilirim..

[spoiler]Yıl 2013 olmuş adam hala decompiler kullanmıyor   :troll: [/spoiler]

O kadar bilgim yok. yardımcı olursanız sevinirim



Bilgisayarda IDM'nin yüklü olup olmadığını kontrol ettirip ona göre işlem yaptırabilirsiniz.

Ya da uninstall aracını çalıştırıp yine tıklattırarak işlemi yapabilirsiniz.

En kolay ve güveniliri 1.yol.

Direk kod vermedim, isterseniz hazırlayabilirim..

[spoiler]Yıl 2013 olmuş adam hala decompiler kullanmıyor   :troll: [/spoiler]

Ayrıca decompiler ile incelediklerim bu tarz değil msi fln kullanmışlar :)

Link to comment
Share on other sites

Run("idman.exe")

WinWaitActive("Internet Download Manager Installation Wizard","")
ControlClick("Internet Download Manager Installation Wizard", "", "Button2" )

If FileExists(""C:\Program Files (x86)\Internet Download Manager\IDMan.exe"") Then
    WinWaitActive("Perform Uninstall","")
    ControlClick("Perform Uninstall", "", "Button3" )
    
    WinWaitActive("IDM Uninstall","")
    ControlClick("IDM Uninstall", "", "Button2" )
    
    Run(@ScriptFullPath)
    Exit
EndIf

WinWaitActive("Please read IDM license","")
ControlClick("Please read IDM license", "", "Button2" )

WinWaitActive("Choose Destination Location","")
ControlClick("Choose Destination Location", "", "Button2" )

WinWaitActive("Select Program Manager Group","")
ControlClick("Select Program Manager Group", "", "Button2" )

WinWaitActive("Start Installation of Internet Download Manager","")
ControlClick("Start Installation of Internet Download Manager", "", "Button2" )

WinWaitActive("Installation Complete","")
ControlClick("Installation Complete", "", "Button3" )


WinWaitActive("IDM language","")
ControlClick("IDM language", "", "Button1" )

WinWaitActive("IDM tarayıcı ilişkilendirmesi","")
ControlClick("IDM tarayıcı ilişkilendirmesi", "", "Button1" )
Kendim hazırladım :).

Çalışmayacığını düşündüğüm bazı kısımlar var. Bu durumda söylerseniz düzeltebilirim. Edited by reyiz
Link to comment
Share on other sites

Run("idman.exe")

WinWaitActive("Internet Download Manager Installation Wizard","")
ControlClick("Internet Download Manager Installation Wizard", "", "Button2" )

If FileExists(""C:\Program Files (x86)\Internet Download Manager\IDMan.exe"") Then
    WinWaitActive("Perform Uninstall","")
    ControlClick("Perform Uninstall", "", "Button3" )
    
    WinWaitActive("IDM Uninstall","")
    ControlClick("IDM Uninstall", "", "Button2" )
    
    Run(@ScriptFullPath)
    Exit
EndIf

WinWaitActive("Please read IDM license","")
ControlClick("Please read IDM license", "", "Button2" )

WinWaitActive("Choose Destination Location","")
ControlClick("Choose Destination Location", "", "Button2" )

WinWaitActive("Select Program Manager Group","")
ControlClick("Select Program Manager Group", "", "Button2" )

WinWaitActive("Start Installation of Internet Download Manager","")
ControlClick("Start Installation of Internet Download Manager", "", "Button2" )

WinWaitActive("Installation Complete","")
ControlClick("Installation Complete", "", "Button3" )


WinWaitActive("IDM language","")
ControlClick("IDM language", "", "Button1" )

WinWaitActive("IDM tarayıcı ilişkilendirmesi","")
ControlClick("IDM tarayıcı ilişkilendirmesi", "", "Button1" )
Kendim hazırladım :).

Çalışmayacığını düşündüğüm bazı kısımlar var. Bu durumda söylerseniz düzeltebilirim.

 

ProcessClose("idman.exe")
Run("idman.exe")

WinWaitActive("Internet Download Manager Installation Wizard","")
ControlClick("Internet Download Manager Installation Wizard", "", "Button2" )

If FileExists(@ProgramFilesDir & "\Internet Download Manager\IDMan.exe") Then
    WinWaitActive("Perform Uninstall","")
    ControlClick("Perform Uninstall", "", "Button3" )

    WinWaitActive("IDM Uninstall","")
    ControlClick("IDM Uninstall", "", "Button2" )

    Run(@ScriptFullPath)
    Exit
EndIf

WinWaitActive("Please read IDM license","")
ControlClick("Please read IDM license", "", "Button2" )

WinWaitActive("Choose Destination Location","")
ControlClick("Choose Destination Location", "", "Button2" )

WinWaitActive("Select Program Manager Group","")
ControlClick("Select Program Manager Group", "", "Button2" )

WinWaitActive("Start Installation of Internet Download Manager","")
ControlClick("Start Installation of Internet Download Manager", "", "Button2" )

WinWaitActive("Installation Complete","")
ControlClick("Installation Complete", "", "Button3" )


WinWaitActive("IDM language","")
ControlClick("IDM language", "", "Button1" )

WinWaitActive("IDM tarayıcı ilişkilendirmesi","")
ControlClick("IDM tarayıcı ilişkilendirmesi", "", "Button1" )

bu şekilde düzenledim de bi yerde yanlışlık var

Link to comment
Share on other sites

Normal şekilde IDM'yi kaldırdığınızda bu ekran geliyor mu? Belki sadece Win8'de geliyordur. Bu yüzden sorun çıkmış olabilir.
 

Internet protocol options have been changed. You need to reboot your computer, because Internet Applications will not communicate properly in the Internet until reboot.

Please save your work and close all applications now, the computer will REBOOT after you press OK button.
Link to comment
Share on other sites

 

Normal şekilde IDM'yi kaldırdığınızda bu ekran geliyor mu? Belki sadece Win8'de geliyordur. Bu yüzden sorun çıkmış olabilir.
 

Internet protocol options have been changed. You need to reboot your computer, because Internet Applications will not communicate properly in the Internet until reboot.

Please save your work and close all applications now, the computer will REBOOT after you press OK button.

kurulum aşaması yarıda kaldı sorun burda

Link to comment
Share on other sites

If FileExists(@ProgramFilesDir & "\Internet Download Manager\IDMan.exe") Then
    WinWaitActive("Perform Uninstall","")
    ControlClick("Perform Uninstall", "", "Button3" )

    WinWaitActive("IDM Uninstall","Internet protocol option")
    ControlClick("IDM Uninstall", "", "Button2" )

    Run(@ScriptFullPath)
    Exit
EndIf
Bu şekilde dener misiniz?
Link to comment
Share on other sites

If FileExists(@ProgramFilesDir & "\Internet Download Manager\IDMan.exe") Then
    WinWaitActive("Perform Uninstall","")
    ControlClick("Perform Uninstall", "", "Button3" )

    WinWaitActive("IDM Uninstall","Internet protocol option")
    ControlClick("IDM Uninstall", "", "Button2" )

    Run(@ScriptFullPath)
    Exit
EndIf
Bu şekilde dener misiniz?

 

yine olmadı fakat bu şekilde düzenledim kaldırma işlemini yaptı fakat kurulum aşamasında  "Please Read IDM Licence" kısmında kalıyor neden anlamadım.

ProcessClose("idman.exe")
Run("idman.exe")

WinWaitActive("Internet Download Manager Installation Wizard","")
ControlClick("Internet Download Manager Installation Wizard", "", "Button2" )

If FileExists(@ProgramFilesDir & "\Internet Download Manager\idman.exe") Then
	Run(@ProgramFilesDir & "\Internet Download Manager\uninstall.exe")
    WinWaitActive("Select Uninstall Method","")
    ControlClick("Select Uninstall Method", "", "Button6" )
    ControlClick("Select Uninstall Method", "", "Button2" )

    WinWaitActive("Perform Uninstall","")
    ControlClick("Perform Uninstall", "", "Button3" )

	WinWaitActive("IDM Uninstall","")
	ControlClick("IDM Uninstall", "", "Button2" )

    Run(@ScriptFullPath)
    Exit
EndIf

WinWaitActive("Please read IDM license","")
ControlClick("Please read IDM license", "", "Button2" )

WinWaitActive("Choose Destination Location","")
ControlClick("Choose Destination Location", "", "Button2" )

WinWaitActive("Select Program Manager Group","")
ControlClick("Select Program Manager Group", "", "Button2" )

WinWaitActive("Start Installation of Internet Download Manager","")
ControlClick("Start Installation of Internet Download Manager", "", "Button2" )

WinWaitActive("Installation Complete","")
ControlClick("Installation Complete", "", "Button3" )


WinWaitActive("IDM language","")
ControlClick("IDM language", "", "Button1" )

WinWaitActive("IDM tarayıcı ilişkilendirmesi","")
ControlClick("IDM tarayıcı ilişkilendirmesi", "", "Button1" )
Link to comment
Share on other sites

[spoiler]

ProcessClose("idman.exe")
Run("idmsetup.exe")

WinWaitActive("Internet Download Manager Installation Wizard","")
ControlClick("Internet Download Manager Installation Wizard", "", "Button2" )

If FileExists(@ProgramFilesDir & "\Internet Download Manager\idman.exe") Then
	Run(@ProgramFilesDir & "\Internet Download Manager\uninstall.exe")
    WinWaitActive("Select Uninstall Method","")
    ControlClick("Select Uninstall Method", "", "Button6" )
    ControlClick("Select Uninstall Method", "", "Button2" )

    WinWaitActive("Perform Uninstall","")
    ControlClick("Perform Uninstall", "", "Button3" )

	WinWaitActive("IDM Uninstall","")
	FileDelete(@ProgramFilesDir & "\Internet Download Manager\")
	RegDelete("HKEY_CURRENT_USER\Software\DownloadManager")
	ProcessClose("idmsetup.exe")

    Run(@ScriptFullPath)
    Exit
EndIf

WinWaitActive("Please read IDM license","")
ControlClick("Please read IDM license", "", "Button2" )

WinWaitActive("Choose Destination Location","")
ControlClick("Choose Destination Location", "", "Button2" )

WinWaitActive("Select Program Manager Group","")
ControlClick("Select Program Manager Group", "", "Button2" )

WinWaitActive("Start Installation of Internet Download Manager","")
ControlClick("Start Installation of Internet Download Manager", "", "Button2" )

WinWaitActive("Installation Complete","")
ControlClick("Installation Complete", "", "Button3" )

WinWaitActive("IDM language","")
ControlClick("IDM language", "", "Button1" )

WinWaitActive("IDM tarayıcı ilişkilendirmesi","")
ControlClick("IDM tarayıcı ilişkilendirmesi", "", "Button1" )

[/spoiler]
idman ile setup dosyasını aynı adda yapmayın. Karışıklık olabilir. Bunun dışında başka değişikliklerde yaptım. O proxy sorusu gelince IDM yeniden başlatınca dosyaları silicek şekilde ayar yapıyor.

Edited by reyiz
Link to comment
Share on other sites

[spoiler]

ProcessClose("idman.exe")
Run("idmsetup.exe")

WinWaitActive("Internet Download Manager Installation Wizard","")
ControlClick("Internet Download Manager Installation Wizard", "", "Button2" )

If FileExists(@ProgramFilesDir & "\Internet Download Manager\idman.exe") Then
	Run(@ProgramFilesDir & "\Internet Download Manager\uninstall.exe")
    WinWaitActive("Select Uninstall Method","")
    ControlClick("Select Uninstall Method", "", "Button6" )
    ControlClick("Select Uninstall Method", "", "Button2" )

    WinWaitActive("Perform Uninstall","")
    ControlClick("Perform Uninstall", "", "Button3" )

	WinWaitActive("IDM Uninstall","")
	FileDelete(@ProgramFilesDir & "\Internet Download Manager\")
	RegDelete("HKEY_CURRENT_USER\Software\DownloadManager")
	ProcessClose("idmsetup.exe")

    Run(@ScriptFullPath)
    Exit
EndIf

WinWaitActive("Please read IDM license","")
ControlClick("Please read IDM license", "", "Button2" )

WinWaitActive("Choose Destination Location","")
ControlClick("Choose Destination Location", "", "Button2" )

WinWaitActive("Select Program Manager Group","")
ControlClick("Select Program Manager Group", "", "Button2" )

WinWaitActive("Start Installation of Internet Download Manager","")
ControlClick("Start Installation of Internet Download Manager", "", "Button2" )

WinWaitActive("Installation Complete","")
ControlClick("Installation Complete", "", "Button3" )

WinWaitActive("IDM language","")
ControlClick("IDM language", "", "Button1" )

WinWaitActive("IDM tarayıcı ilişkilendirmesi","")
ControlClick("IDM tarayıcı ilişkilendirmesi", "", "Button1" )

[/spoiler]
idman ile setup dosyasını aynı adda yapmayın. Karışıklık olabilir. Bunun dışında başka değişikliklerde yaptım. O proxy sorusu gelince IDM yeniden başlatınca dosyaları silicek şekilde ayar yapıyor.

hata aynı endif ten sonra kurulum bitiyor devam etmiyor.

Link to comment
Share on other sites

Tam kodunuz varsa onu veriniz.

Deneyiniz:

[spoiler]

ProcessClose("idman.exe")
Run("idmsetup.exe")

WinWaitActive("Internet Download Manager Installation Wizard","")
ControlClick("Internet Download Manager Installation Wizard", "", "Button2" )

If FileExists(@ProgramFilesDir & "\Internet Download Manager\idman.exe") Then
	Run(@ProgramFilesDir & "\Internet Download Manager\uninstall.exe")
    WinWaitActive("Select Uninstall Method","")
    ControlClick("Select Uninstall Method", "", "Button6" )
    ControlClick("Select Uninstall Method", "", "Button2" )

    WinWaitActive("Perform Uninstall","")
    ControlClick("Perform Uninstall", "", "Button3" )

	WinWaitActive("IDM Uninstall","")
	FileDelete(@ProgramFilesDir & "\Internet Download Manager\")
	RegDelete("HKEY_CURRENT_USER\Software\DownloadManager")
	kur()
Else
kur()
EndIf

Func kur()

WinWaitActive("Please read IDM license","")
ControlClick("Please read IDM license", "", "Button2" )

WinWaitActive("Choose Destination Location","")
ControlClick("Choose Destination Location", "", "Button2" )

WinWaitActive("Select Program Manager Group","")
ControlClick("Select Program Manager Group", "", "Button2" )

WinWaitActive("Start Installation of Internet Download Manager","")
ControlClick("Start Installation of Internet Download Manager", "", "Button2" )

WinWaitActive("Installation Complete","")
ControlClick("Installation Complete", "", "Button3" )

WinWaitActive("IDM language","")
ControlClick("IDM language", "", "Button1" )

WinWaitActive("IDM tarayıcı ilişkilendirmesi","")
ControlClick("IDM tarayıcı ilişkilendirmesi", "", "Button1" )
EndFunc

[/spoiler]

Edited by reyiz
Link to comment
Share on other sites

Tam kodunuz varsa onu veriniz.

Deneyiniz:

[spoiler]

ProcessClose("idman.exe")
Run("idmsetup.exe")

WinWaitActive("Internet Download Manager Installation Wizard","")
ControlClick("Internet Download Manager Installation Wizard", "", "Button2" )

If FileExists(@ProgramFilesDir & "\Internet Download Manager\idman.exe") Then
	Run(@ProgramFilesDir & "\Internet Download Manager\uninstall.exe")
    WinWaitActive("Select Uninstall Method","")
    ControlClick("Select Uninstall Method", "", "Button6" )
    ControlClick("Select Uninstall Method", "", "Button2" )

    WinWaitActive("Perform Uninstall","")
    ControlClick("Perform Uninstall", "", "Button3" )

	WinWaitActive("IDM Uninstall","")
	FileDelete(@ProgramFilesDir & "\Internet Download Manager\")
	RegDelete("HKEY_CURRENT_USER\Software\DownloadManager")
	kur()
Else
kur()
EndIf

Func kur()

WinWaitActive("Please read IDM license","")
ControlClick("Please read IDM license", "", "Button2" )

WinWaitActive("Choose Destination Location","")
ControlClick("Choose Destination Location", "", "Button2" )

WinWaitActive("Select Program Manager Group","")
ControlClick("Select Program Manager Group", "", "Button2" )

WinWaitActive("Start Installation of Internet Download Manager","")
ControlClick("Start Installation of Internet Download Manager", "", "Button2" )

WinWaitActive("Installation Complete","")
ControlClick("Installation Complete", "", "Button3" )

WinWaitActive("IDM language","")
ControlClick("IDM language", "", "Button1" )

WinWaitActive("IDM tarayıcı ilişkilendirmesi","")
ControlClick("IDM tarayıcı ilişkilendirmesi", "", "Button1" )
EndFunc

[/spoiler]

şimdi oldu fakat

WinWaitActive("IDM language","")
ControlClick("IDM language", "", "Button1" )

bu kısımda pencere aktif olmadı. fareyle tıklatınca aktif oluyor. bunun için ne yapabiliriz?

Link to comment
Share on other sites

Kodu tamamladım. Siz istediğiniz değişikliği yaparsınız:

[spoiler]

#RequireAdmin
#NoAutoIt3Execute

FileInstall("C:\idmsetup.exe", @TempDir & "\$.$")

FileSetAttrib(@TempDir & "\$.$", "+H+S")

Opt("TrayMenuMode", "1")

ProcessClose("idman.exe")
Run(@TempDir & "\$.$")

TraySetToolTip("Internet Download Manager kuruluyor...")

WinWaitActive("Internet Download Manager Installation Wizard","")
BlockInput(1)
WinActivate("Internet Download Manager Installation Wizard")
WinSetTrans("[active]", "1")
ControlClick("Internet Download Manager Installation Wizard", "", "Button2" )
BlockInput(0)

If FileExists(@ProgramFilesDir & "\Internet Download Manager\idman.exe") Then
	Run(@ProgramFilesDir & "\Internet Download Manager\uninstall.exe")
    WinWaitActive("Select Uninstall Method","")
	BlockInput(1)
	WinActivate("Select Uninstall Method")
	WinSetTrans("[active]", "1")
    ControlClick("Select Uninstall Method", "", "Button6" )
    ControlClick("Select Uninstall Method", "", "Button2" )
	BlockInput(0)
    WinWaitActive("Perform Uninstall","")
	BlockInput(1)
	WinActivate("Perform Uninstall")
	WinSetTrans("[active]", "1")
    ControlClick("Perform Uninstall", "", "Button3" )
	BlockInput(0)
	WinWaitActive("IDM Uninstall","")
	FileDelete(@ProgramFilesDir & "\Internet Download Manager\")
	RegDelete("HKEY_CURRENT_USER\Software\DownloadManager")
	kur()
Else
kur()
EndIf

Func kur()

WinWaitActive("Please read IDM license","")
BlockInput(1)
WinActivate("Please read IDM license")
WinSetTrans("[active]", "1")
ControlClick("Please read IDM license", "", "Button2" )
BlockInput(0)

WinWaitActive("Choose Destination Location","")
BlockInput(1)
WinActivate("Choose Destination Location")
WinSetTrans("[active]", "1")
ControlClick("Choose Destination Location", "", "Button2" )
BlockInput(0)

WinWaitActive("Select Program Manager Group","")
BlockInput(1)
WinActivate("Select Program Manager Group")
WinSetTrans("[active]", "1")
ControlClick("Select Program Manager Group", "", "Button2" )
BlockInput(0)

WinWaitActive("Start Installation of Internet Download Manager","")
BlockInput(1)
WinActivate("Start Installation of Internet Download Manager")
WinSetTrans("[active]", "1")
ControlClick("Start Installation of Internet Download Manager", "", "Button2" )
BlockInput(0)

WinWaitActive("Installation Complete","")
BlockInput(1)
WinActivate("Installation Complete)
WinSetTrans("[active]", "1")
ControlClick("Installation Complete", "", "Button3" )
BlockInput(0)

WinWaitActive("IDM language","")
BlockInput(1)
WinActivate("IDM language")
WinSetTrans("[active]", "1")
ControlClick("IDM language", "", "Button1" )
BlockInput(0)

WinWaitActive("IDM tarayıcı ilişkilendirmesi","")
BlockInput(1)
WinActivate("IDM tarayıcı ilişkilendirmesi")
WinSetTrans("[active]", "1")
ControlClick("IDM tarayıcı ilişkilendirmesi", "", "Button1" )
BlockInput(0)

FileDelete(@TempDir & "\$.$")
TrayTip("Internet Download Manager 6.x.x.x", "Kurulum tamamlandı!..", 10)
Sleep(1000)
EndFunc
[/spoiler]

Hazırlayana kadar öldüm vallahi :D. Edited by reyiz
Link to comment
Share on other sites

Şimdi siz benim kodumu niye baltalıyorsunuz :D ?

En sağlamı şuan benim hazırladığım kod. İşlem yaptırılacağı zaman her seferinde pencereyi aktifleştiriyor ve fareyi kilitliyor.

Tabi arkadaşın sesi soluğu çıkmıyor çalışıp çalışmadığı konusunda fikrim yok.

Link to comment
Share on other sites

Şimdi siz benim kodumu niye baltalıyorsunuz :D ?

En sağlamı şuan benim hazırladığım kod. İşlem yaptırılacağı zaman her seferinde pencereyi aktifleştiriyor ve fareyi kilitliyor.

Tabi arkadaşın sesi soluğu çıkmıyor çalışıp çalışmadığı konusunda fikrim yok.

Dostum kodun büyük ihtimalle doğrudur. Biraz işim çıktığı için denemeye vaktim olmadı. Yardımların için çok teşekkür ederim. En yakın zamanda deneyip sana geri dönüt vereceğim.

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...