Ticket #1372: Updater-update-protokoll.au3

File Updater-update-protokoll.au3, 1.2 KB (added by anonymous, on Nov 6, 2012 at 7:43:55 PM)
Line 
1#region ;**** Directives created by AutoIt3Wrapper_GUI ****
2#AutoIt3Wrapper_icon=Icons\updater.ico
3#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
4
5HttpSetUserAgent("Monkey")
6If $CmdLine[0] = "" Then Exit
7
8Switch $CmdLine[3]
9 Case 0;Github
10 If Ping("www.github.com", 250) = 0 Then
11 If $CmdLine[2] <> "False" Then _Debug("Failed to ping to www.github.com")
12 Exit Run($CmdLine[1])
13 EndIf
14
15 $iInetGet = InetGet("https://github.com/downloads/monkey666/CoD4-Connect/CoD4%20Connect.exe", $CmdLine[1], 1)
16 If $CmdLine[2] <> "False" Then _Debug("Return from InetGet: " & $iInetGet)
17 Exit Run($CmdLine[1])
18 Case 1;FTP Server
19 If Ping("www.monk3y666.bplaced.net", 250) = 0 Then
20 If $CmdLine[2] <> "False" Then _Debug("Failed to ping to www.monk3y666.bplaced.net")
21 Exit Run($CmdLine[1])
22 EndIf
23
24 $iInetGet = InetGet("http://monk3y666.bplaced.net/filemanager/Autoit/Fertige%20Scripte/COD4/CoD4%20Connect.exe", $CmdLine[1], 1)
25 If $CmdLine[2] <> "False" Then _Debug("Return from InetGet: " & $iInetGet)
26 Exit Run($CmdLine[1])
27EndSwitch
28
29
30Func _Debug($sText)
31 FileWrite(@ScriptDir & "\Debug.txt", @HOUR & ":" & @MIN & ":" & @SEC & " " & @ScriptName & " | " & $sText & @CRLF)
32EndFunc ;==>_Debug