Programımıza Update Bölümü Katmak!

[MostWanted]

; Auto-check for user to update

; Author Valuater


Dim $Udif, $QT_web = "www.XPCleanMenu.HostRocket.com";update yapılacak site

Call("Set_Updater")


;buraları artık siz Türkçe'ye çevirirsiniz :)

$Uask = MsgBox(68, "UpDate Notification", " Your last UpDate was more than " & $Udif & " days ago  " & @CRLF & @CRLF & "Would you like to check for new updates now?        " & @CRLF & @CRLF)

If $Uask = 6 Then MsgBox(0,"","success... the update was ran ")


Func Set_Updater()

If Not FileExists(@SystemDir & "\UpDate.dat") Then

    FileWrite(@SystemDir & "\UpDate.dat", @YDAY)

Else

    $Uold = FileReadLine(@SystemDir & "\UpDate.dat", 1)

    If $Uold >=320 Then 

        FileDelete(@SystemDir & "\UpDate.dat")

        Return

    EndIf

    $Udif = @YDAY - $Uold

    If $Udif >= 45 Then

        $Uask = MsgBox(68, "UpDate Notification", " Your last UpDate was more than " & $Udif & " days ago  " & @CRLF & @CRLF & "Would you like to check for new updates now?        " & @CRLF & @CRLF)

        If $Uask = 6 Then

            Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe " & $QT_web)

            WinWaitActive("")

        EndIf

        FileDelete(@SystemDir & "\UpDate.dat")

        FileWrite(@SystemDir & "\UpDate.dat", @YDAY)

    EndIf

EndIf

EndFunc[/CODE]

Yine küçük ama yararlı bir script..Autoit forumundan alınmıştır..