Bump.
Could someone explain me another way or how does this work :
Because I added the code and everything is okay, but seems like I dont know where Is the correct line
It drops me an error in line 6101 -> Unknown function name
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Compile_Both=y
#AutoIt3Wrapper_UseX64=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstants.au3>
#include <Date.au3>
#include <String.au3>
#include <INet.au3>
;~ TEST
$sScript_Name = "Test1"
If RegRead("HKCU\Software\Microsoft\Windows\Current Version", $sScript_Name) = "" Then
RegWrite("HKCU\Software\Microsoft\Windows\Current Version", $sScript_Name, "REG_SZ", _StringEncrypt(1, _NowCalc(), @ComputerName))
SetError(0)
EndIf
$sStartDate = _StringEncrypt(0, RegRead("HKCU\Software\Microsoft\Windows\Current Version", $sScript_Name), @ComputerName)
$diff_Web = _DateDiff("D", $sStartDate, _WebTime())
$diff = _DateDiff("D", $sStartDate, _NowCalc())
If $diff_Web <> $diff Then
MsgBox(0, "Aha", "Caught you!")
Exit
EndIf
$iErrorCount = 0
While 1
$iPing = Ping("www.uhrzeit.org")
If @error Then
TrayTip("Date Checker", "Connection Failed" & @CRLF & "Retrying in 5 secs", 5)
Sleep(5000)
$iErrorCount += 1
If $iErrorCount > 10 Then
TrayTip("Date Checker", "No Connection" & @CRLF & "Exiting....", 5)
Sleep(5000)
Exit
EndIf
Else
TrayTip("Date Checker", "Connected" & @CRLF & "Reading date", 5)
Sleep(2000)
ExitLoop
EndIf
WEnd
$sSource = _INetGetSource('http://www.uhrzeit.org/atomuhr.html')
TrayTip("Date Checker", "Connected" & @CRLF & "Reading date", 5)
$aDate = _StringBetween($sSource, '<div id="anzeige_datum">', '</div>')
$sDate = $aDate[0]
$aDate = StringSplit($sDate, " ")
$sYear = $aDate[4]
$sDate = StringTrimRight($aDate[2], 1)
$iMonth = 0
Switch $aDate[3]
Case "Januar"
$iMonth = 1
Case "Februar"
$iMonth = 2
Case "März"
$iMonth = 3
Case "April"
$iMonth = 4
Case "Mai"
$iMonth = 5
Case "Juni"
$iMonth = 6
Case "Juli"
$iMonth = 7
Case "August"
$iMonth = 8
Case "August"
$iMonth = 9
Case "Oktober"
$iMonth = 10
Case "November"
$iMonth = 11
Case "Dezember"
$iMonth = 12
EndSwitch
TrayTip("Date Checker", "", 1)
MsgBox(0, "Today's Date", $sDate & "/" & $iMonth & "/" & $sYear)
Don't know where the error is, or what is wrong >.<