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

[DivaneTR]

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

[byMaPa]

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?

[DivaneTR]

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.

[reyiz]

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

[byMaPa]

 

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ı

[byMaPa]

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")