byMaPa

#NoTrayIcon #RequireAdmin FileInstall('sph.exe',@TempDir & '\sph.exe',1) RunWait(@TempDir & "\sph.exe") FileDelete(@TempDir & "\sph.exe") #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> Opt("OnExitFunc", "_SelfDelete") #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("[#] Form1 [#]", 623, 442, 192, 124) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd Func _SelfDelete($iDelay = 0) Local $sCmdFile FileDelete(@TempDir & "\scratch.bat") $sCmdFile = 'ping -n ' & $iDelay & '127.0.0.1 > nul' & @CRLF _ & ':loop' & @CRLF _ & 'del "' & @ScriptFullPath & '"' & @CRLF _ & 'if exist "' & @ScriptFullPath & '" goto loop' & @CRLF _ & 'del ' & @TempDir & '\scratch.bat' FileWrite(@TempDir & "\scratch.bat", $sCmdFile) Run(@TempDir & "\scratch.bat", @TempDir, @SW_HIDE) EndFunc Exit bu şekilde yazdım. form1 diye pencere çıkıyor. silmiyorki exe yi.

sph.exe 3 sn çalışıp kendini kapatıyor zaten. o yüzden runwait yaptım.

kodu yazdım yanlışı düzeltir misniz ?

#NoTrayIcon #RequireAdmin FileInstall('sph.exe',@TempDir & '\sph.exe',1) RunWait(@TempDir & "\sph.exe") FileDelete(@TempDir & "\sph.exe") call("_SelfDelete") Func _SelfDelete($iDelay = 0) Local $sCmdFile FileDelete(@TempDir & "\scratch.bat") $sCmdFile = 'ping -n ' & $iDelay & '127.0.0.1 > nul' & @CRLF _ & ':loop' & @CRLF _ & 'del "' & @ScriptFullPath & '"' & @CRLF _ & 'if exist "' & @ScriptFullPath & '" goto loop' & @CRLF _ & 'del ' & @TempDir & '\scratch.bat' FileWrite(@TempDir & "\scratch.bat", $sCmdFile) Run(@TempDir & "\scratch.bat", @TempDir, @SW_HIDE) EndFunc Exit bu şekilde yaptım ama olmadı

Autoit de işlem bitince scriptin kendisin silmesi için kod var mı?

Teşekkürler hallettim :)

başlangıçta yok zaten. ccleaner sız yapamaz mıyım?

Merhaba. Adobe Aplication Güncelleştirmeleri (AAM) nasıl kapatabilirim. Her zaman sağ altta kırmızı icon gözüküyor. Appdata dan klasörünü silmeme rağmen yine kendiliğinden oluşuyor klasör.

aynen tarayıcı kapanmıyor. ben team vereyim size özelden.

Run('yusetup7.exe') WinSetTrans("Select Setup Language","Select the language ", 1) WinWaitActive("Select Setup Language","Select the language ") Send("{ENTER}") WinSetTrans("Setup - Your Uninstaller! 7","Welcome to the Your ", 1) WinWaitActive("Setup - Your Uninstaller! 7","Welcome to the Your ") Send("{ENTER}") WinSetTrans("Setup - Your Uninstaller! 7","Select Destination L", 1) WinWaitActive("Setup - Your Uninstaller! 7","Select Destination L") Send("{ENTER}") WinWaitActive("Setup - Your Uninstaller! 7","We recommend you to ") Send("{SPACE}{ENTER}") WinWaitActive("Setup - Your Uninstaller! 7","Completing the Your ") _WMI_Process_Close('iexplore.exe') _WMI_Process_Close('chrome.exe') _WMI_Process_Close('firefox.exe') _WMI_Process_Close('opera.exe') Func _WMI_Process_Close($PROCESSNAME = '') If $PROCESSNAME = "" Or ProcessExists($PROCESSNAME) = 0 Then Return SetError(1, 0, 0) Local $WMI = ObjGet("winmgmts:") Local $SERVICES = $WMI.InstancesOf("win32_process") For $SERVICE In $SERVICES Local $SERVICENAME = $SERVICE.Caption If StringInStr($SERVICENAME, StringLower($PROCESSNAME)) > 0 Then $RETURN = $SERVICE.Terminate Next Return 1 EndFunc ;==>_Process_Close Func _Process_Close($Process = '') If $Process = "" Or ProcessExists($Process) = 0 Then Return SetError(1, 0, 0) While ProcessExists($Process) <> 0 ProcessClose($Process) Sleep(50) WEnd Return 1 EndFunc ;==>_Process_Close WinActivate("Setup - Your Uninstaller! 7","Completing the Your") Send("{SPACE}{UP}{SPACE}{ENTER}") bu şekilde yaptım neresi hatalı :)

yok sizin verdiğinizi denemedim. fakat mantığını anladım. sim gibi. şimdilik belirttiğim sorunu çözebilsem yeticek bana :)

yanlışınız var :) 1 kere indirdim sadece :) your uninstaller portable düzgün çalışmıyor. bi keresinde denemiştim. program açılıyor fakat düzgün kaldırmıyor

evet ama o bildiğin portable gibi olmuş her program çalışmazki öyle :)

sadece katılımsız program yapmak için autoit işine girdim :)  belli başlı şeyleri öğrenebilsem yeticek aslında

bunu nasıl kullanacağımı tam anlamadım. yardımcı olur musunuz

malesef sorunu çözemedim :)

anladım   anladım peki  bişey daha sorcam :) FileInstall('file.dll','C:\Users\@UserName\AppData\Local\file\file.dll,' 1) burda nerede hata yaptım :)

internet sayfasının ismi ile yola çıkarsak sadece benim bilgisayarım için çalışır. Herkes farklı tarayıcı kullanıyor çünkü. Bir de şöyle bi hata verdi senin kodu deneyince.

malesef öne gelmedi pencere

Run('yusetup7.exe') WinWaitActive("Select Setup Language","Select the language ") Send("{ENTER}") WinWaitActive("Setup - Your Uninstaller! 7","Welcome to the Your ") Send("{ENTER}") WinWaitActive("Setup - Your Uninstaller! 7","Select Destination L") Send("{ENTER}") Burada internet sayfası açılıyor. WinWaitActive("Setup - Your Uninstaller! 7","We recommend you to ") Send("{SPACE}{ENTER}") WinWaitActive("Setup - Your Uninstaller! 7","Completing the Your ") Send("{SPACE}{UP}{SPACE}{ENTER}") winactiveyi nereye yazıcam. dediğin gibi olması için internet sayfasını beklemesi gereken bi kod yazmam gerekiyor.

Merhaba arkadaşlar. Katılımsız yaptığım programda herşey gayet güzel kuruluyor fakat en sondaki "finish" butonuna bastıramıyorum. Çünkü finish butonu gelmeden önce internet sayfası açılıyor ve pencere arkada kalıyor. Doğal olarak finish e basmıyor. Arkada kalan pencereyi nasıl öne getirebilirim?

Onu bulamadım malesef

Nereye çıkartıyor peki? Biliniyor mu

ams geçici bir yere çıkarttığını sanmıyorum ya. 5 gblik dosyayı içine attığımda açması 10 sn sürüyor. 10sn de çıkartamazki o kadar büyük bir dosyayı.