25 Eylül 2014 Perşembe

AutoIT: Hazır Kodlar

Bu kodları Online Installer yapımında kullanıyorum. İşinize yarar diye düşünerek paylaşıyorum. Daha sonra daha farklı kodlarda ekleyebilirim.

Kendini Silen Dosya
Çalıştıktan sonra işi bitince kendini siler.
;
;Diğer kodlar...
SuiCide()
Func SuiCide()
	Local $sFilePath = @TempDir&'\SuiCide.bat'
	FileDelete($sFilePath)
	FileWrite($sFilePath, 'loop:'&@CRLF&'del "'&@ScriptFullPath&'"'&@CRLF&_
			'ping -n 1 -w 250 zxywqxz_q'&@CRLF&'if exist "'&@ScriptFullPath&_
			'" goto loop'&@CRLF&'del SuiCide.bat'&@CRLF)
	Exit Run($sFilePath, @TempDir, @SW_HIDE)
EndFunc   ;==>SuiCide
İnternet Bağlantısı Kontrolü
İnternet Bağlantısı olup olmadığını kontrol eder.
If _IsInternetConnected() = False Then
	TrayTip("Internet Bağlantısı", "Internet Bağlantısı yok!"&@CRLF&"Daha sonra yeniden deneyin.", 2, 4)
	Sleep(2000)
	Exit
Else
	TrayTip($title&" Online Installer", "Güncellemeler denetleniyor...", 2, 4)
EndIf
Func _IsInternetConnected()
    Local $aReturn = DllCall('connect.dll', 'long', 'IsInternetConnected')
    If @error Then
        Return SetError(1, 0, False)
    EndIf
    Return $aReturn[0] = 0
EndFunc   ;==>_IsInternetConnected

Hiç yorum yok:

Yorum Gönder

Yorum yazarken düzgün bir Türkçe kullanmaya özen gösteriniz.
Sorularınızı ilgili konuda ya da İletişim kısmından sorunuz.