DivaneTR Posted August 14, 2013 Share Posted August 14, 2013 Valla ben While döngüsü içinde de denedim yine birşey değişmedi. Quote Link to comment Share on other sites More sharing options...
byMaPa Posted August 14, 2013 Author Share Posted August 14, 2013 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? Quote Link to comment Share on other sites More sharing options...
DivaneTR Posted August 14, 2013 Share Posted August 14, 2013 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. Quote Link to comment Share on other sites More sharing options...
reyiz Posted August 14, 2013 Share Posted August 14, 2013 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 Quote Link to comment Share on other sites More sharing options...
byMaPa Posted August 14, 2013 Author Share Posted August 14, 2013 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ı Quote Link to comment Share on other sites More sharing options...
byMaPa Posted August 14, 2013 Author Share Posted August 14, 2013 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") Quote Link to comment Share on other sites More sharing options...
Recommended Posts
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.