Scripte Çalışıp .exe De Çalışmama Sorunu

[byMaPa]

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.

Edited August 13, 2013 by byMaPa

[reyiz]

Winwaitactive değil winwait kullan.

[byMaPa]

Winwaitactive değil winwait kullan.

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

[DivaneTR]

Sorun bu satırda ;

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

Olması gereken ;

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

[byMaPa]

 

Sorun bu satırda ;

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

Olması gereken ;

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

malesef olmadı.

[DivaneTR]

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

[byMaPa]

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.

[DivaneTR]

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

[byMaPa]

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

[DivaneTR]

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.

[byMaPa]

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

[DivaneTR]

Bekler herhalde niye beklemesin, daha denemeden hiç olmaz diyorsun.

[byMaPa]

olmadı. shellexecute diyince pencereyi beklemiyor

[DivaneTR]

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

[byMaPa]

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

team versem özelden uyar mı?

[DivaneTR]

Uymaz.

[byMaPa]

#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

Edited August 14, 2013 by byMaPa

[DivaneTR]

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

şeklinde denesene.

[byMaPa]

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

şeklinde denesene.

 

open parametresiyle kurmadı

[DivaneTR]

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

[byMaPa]

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

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

 

[DivaneTR]

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

[byMaPa]

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.

[DivaneTR]

Send ile Enter da gönderdim ama nafile.

[byMaPa]

Send ile Enter da gönderdim ama nafile.

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