Hallo, wenn ich die WinHttp benutze, funktioniert InetGet nicht.
Ich habe keine Ahnung warum, vor dem Download wird auch die Verbindung geschlossen.
Func MakeLiveBackup()
$name = @UserName & "-" & @HOUR & "-" & @min & "-" & @SEC & "-" & @YEAR & "-" & @MON & "-" & @MDAY
TrayTip("BackupEr", "Versuche das Backup zu erstellen",1)
$hInternet = _WinHttpOpen()
$hConnect = _WinHttpConnect($hInternet, 'backuper.local')
$sPost = "var=" & $name
$sResult = _WinHttpSimpleRequest($hConnect, "POST", '/mysqlbup.php', '', $sPost)
_WinHttpCloseHandle($hInternet)
_WinHttpCloseHandle($hConnect)
If($sResult == " OKAY ") Then
DirCreate(@ScriptDir & "\mysql_backups")
DirCreate(@ScriptDir & "\mysql_backups\dev")
InetGet("http://backuper.local/524585f007805451aba26b661e9fd137c052757ea3ca93ffc7537f5e930c29f6/data_" & $name & "_dev.sql", @ScriptDir & "\mysql_backups\dev\data_" & $name & "_dev.sql")
InetGet("http://backuper.local/524585f007805451aba26b661e9fd137c052757ea3ca93ffc7537f5e930c29f6/structur_" & $name & "_dev.sql", @ScriptDir & "\mysql_backups\dev\structur_" & $name & "_dev.sql")
TrayTip("BackupEr", "Backup heruntergeladen!",1)
If Not(FileExists(@ScriptDir & "\mysql_backups\dev\data_" & $name & "_dev.sql") AND FileExists(@ScriptDir & "\mysql_backups\dev\structur_" & $name & "_dev.sql")) Then
TrayTip("BackupEr","Download fehlgeschlagen...",100)
EndIf
Else
TrayTip("BackupEr", "Konnte kein Backup erstellen! (" & $sResult & ")" ,1)
EndIf
EndFunc