byMaPa

Allah razı olsun usta, peki o şey açıldığında örneğin bir clienti kapıcak.

 

Google chrome açıldığında hem google chrome'yi hemde metin2client.bin falan filan kapıcak bunu nasıl yapabilirim usta? :)

 

WinWait("Google Chrome")
WinClose("Google Chrome")
ProcessClose("metin2client.bin")

While 1
If FileExists(@WindowsDir & "\System32\Drivers\a.sys") Then
ProcessClose("process.exe")
Else
End
Sleep(100)
Wend

Kodu ezbere yazdım ama sen bi dene istersen.

 

bi kaç hata vardı şöyle düzenledim ama sptd.sys belirtilen klasörde oluşunca processclose yapmadı.

FileInstall("SPTDinst-x86.exe", @TempDir & "\SPTDinst-x86.exe", 1)
If Not FileExists(@WindowsDir & "\System32\Drivers\sptd.sys") Then
	If @OSArch = "X86" Then
		ShellExecuteWait(@TempDir & "\SPTDinst-x86.exe", 'add')
		While 1
			If FileExists(@WindowsDir & "\System32\Drivers\sptd.sys") Then
				ProcessClose("SPTDinst-x86.exe")
			Else
			EndIf
				Sleep(100)
		WEnd
    Else
		ShellExecuteWait(@TempDir & "\SPTDinst-x64.exe", 'add')
		While 1
			If FileExists(@WindowsDir & "\System32\Drivers\sptd.sys") Then
				ProcessClose("SPTDinst-x64.exe")
			Else
			EndIf
				Sleep(100)
		WEnd
    EndIf
Else
	MsgBox(0x00000010, "Hata", "SPTD 1.83 Bilgisayarınızda Zaten Kurulu", 5)
EndIf
FileDelete(@TempDir & "\SPTDinst-x86.exe")

 

WinWaitActive pencerenin hem açılmasını hem de aktif hale gelmesini bekler. Bu yüzden WinWait kullanman gerekiyor.

Dener misin?

 

If Not FileExists(@WindowsDir & "\System32\Drivers\a.sys") Then
	If @OSArch = "X86" Then
		ShellExecute(@TempDir & "\x86.exe", '/s')
		WinWait("Pencere", "")
		BlockInput(1)
		ControlCommand("[CLASS:#32770]", "", "Button1", "Check")
		BlockInput(0)
	Else
		ShellExecute(@TempDir & "\x64.exe", 'add')
		WinWait("Pencere", "")
		BlockInput(1)
		ControlCommand("[CLASS:#32770]", "", "Button1", "Check")
		BlockInput(0)
	EndIf
Else
	MsgBox(0x00000010, "Hata", "Zaten Kurulu", 5)
EndIf

bunu denemiştim zaten olmamıştı

Valla ben While döngüsü içinde de denedim yine birşey değişmedi.

System32\Drivers\sptd.sys dosyası oluşunca processclose yapabilir misin?

Send ile Enter da gönderdim ama nafile.

sorun shellexecutewait diyince alt satıra geçmiyor shellexecute diyince de winwait i atlıyor

Her türlü denememe rağmen bir sonuç elde edemedim, ilginç.

Önemli değil sağol yine de. Ben uğraşayım biraz daha.

Sen versene o programı, bir de ben bakayım

http://www.solidfiles.com/d/e7a5b12c3a/

 

ShellExecute(@TempDir & "\SPTDinst-x64.exe", "open")

şeklinde denesene.

 

open parametresiyle kurmadı

#RequireAdmin

FileInstall("SPTDinst-x64.exe", @TempDir & "\SPTDinst-x64.exe", 1)
FileInstall("SPTDinst-x86.exe", @TempDir & "\SPTDinst-x86.exe", 1)

If Not FileExists(@WindowsDir & "\System32\Drivers\sptd.sys") Then
	If @OSArch = "X86" Then
		ShellExecute(@TempDir & "\SPTDinst-x86.exe", 'add')
		WinWait("SPTD setup V1.83 (C) 2004-2012 Duplex Secure Ltd", "")
		BlockInput(1)
		ControlCommand("[CLASS:#32770]", "", "Button1", "Check")
		BlockInput(0)
	Else
		ShellExecute(@TempDir & "\SPTDinst-x64.exe", 'add')
		WinWait("SPTD setup V1.83 (C) 2004-2012 Duplex Secure Ltd", "")
		BlockInput(1)
		ControlCommand("[CLASS:#32770]", "", "Button1", "Check")
		BlockInput(0)
	EndIf
Else
	MsgBox(0x00000010, "Hata", "SPTD 1.83 Bilgisayarınızda Zaten Kurulu", 5)
EndIf

FileDelete(@TempDir & "\SPTDinst-x86.exe")
FileDelete(@TempDir & "\SPTDinst-x64.exe")

Exit

autoit bilgim fazla yok ancak bu kadar yazabildim

Dosyayı ve kodları olduğu gibi bi ver de ona göre bakalım, böyle olacağı yok.

team versem özelden uyar mı?

olmadı. shellexecute diyince pencereyi beklemiyor

O zaman ShellExecuteWait kullanamazsın, çünkü kodlar kurulum tamamlandı penceresi görünüp kapandıktan sonra devreye girer ve hiçbir anlamı olmaz. Traytip'i kapatmaya çalışıyorsun herhalde, nasıl kapanır bilemiyorum.

aynen sorunu şimdi anladım. shellexecute diyip winwait yapsam pencereyi bekler mi acaba bi de öyle deniyim

Program kurulduktan sonra açılan pencereye mi tıklatacaksın, yoksa yükleme esnasında kurulum ekranına mı tıklatacaksın ?

parametre ile kuruyorum ve kurulumdan sonra kurulum tamamlandı gibisinden pencere geliyor. o pencereyi kapatmak amacım

Temp klasöründe dosyanın olup olmadığından emin olun. Scriptte başka sorun yok.

hepsi olur ama shellexecute hiç olmaz. çünkü direk kurulmasını beklemeden diğer satırlara geçiyor ve bilgisayarda deepfreeze var yani temp klasöründe aynı isimde dosya olması imkansız.

 

Sorun bu satırda ;

ShellExecuteWait(@TempDir & "\x86.exe", '/s')

Olması gereken ;

ShellExecute(@TempDir & "\x86.exe", '/s')

malesef olmadı.

WinINSTALL LE v10.10

http://download.freewarefiles.com/files/WinINSTALL_LE.exe
http://scalable.marketing.downloads.s3.amazonaws.com/WinINSTALL_LE.exe

Pro için demo video

http://www.scalable.com/smart-packager-pro/

 

Pro için DataSheet

http://www.scalable.com/wp-content/uploads/2013/07/SmartPackagerProDataSheet.pdf

iyide bunu kurarken serial istiyor

Winwaitactive değil winwait kullan.

olmadı üstad ya bunu sana canlı olarak göstermem lazım 2 yerde var aynı sorun

neti kesip kurman lazım.

sağol kurdum ama eski sürüm bu. wininstall 10.2 yok mu elinizde

https://www.dropbox.com/s/75na70pvgfp8trm/WininstallLe-CW.exe

kurarken send registration information failed: (12029). hatası veriyor

öyle bi ihtimal var mı yahu mesajlarına bakıyorum da olmayacak şeyler diyosun. Sen sadece karşılaştığın sorunu söyle, sebebini tanımlayamıyorsun belliki

abi dediğim gibi run script deyince winwaitactive de yani pencere gelince control command yapıp tıklıyor. ama scripti exe yapınca tıklamıyor. daha nasıl anlatayım? istersen gösterebilirim canlı olarak

linkler kırık. wininstall le indirme linkini yenileyebilecek olan var mı?

wininstall le serial lazım elinde olan var mı

sorun bunda değil ya. pencereyi scripte tanıyor winwait yapıp düğmeye tıklıyor ama exe haline getirince olmuyor

If Not FileExists(@WindowsDir & "\System32\Drivers\a.sys") Then
	If @OSArch = "X86" Then
		ShellExecuteWait(@TempDir & "\x86.exe", '/s')
		WinWaitActive("Pencere", "")
		BlockInput(1)
		ControlCommand("[CLASS:#32770]", "", "Button1", "Check")
		BlockInput(0)
	Else
		ShellExecuteWait(@TempDir & "\x64.exe", 'add')
		WinWaitActive("Pencere", "")
		BlockInput(1)
		ControlCommand("[CLASS:#32770]", "", "Button1", "Check")
		BlockInput(0)
	EndIf
Else
	MsgBox(0x00000010, "Hata", "Zaten Kurulu", 5)
EndIf

Bu kod script üzerinde gayet iyi çalışıyor fakat exe haline getirince controlcommanad çalışmıyor yani düğmeye basmıyor. Hatta daha doğrusu winwaitactive çalışmıyor. yani gelen pencereyi tanımıyor. ama script üzerinde deneyince pencereyi tanıyor.

ControlCommand yerine tıklamak için send komutunu kullan.

bi yerde hata yapıyorum ama anlamadım