Hallo!
Ich muss mal wieder nerven. Und zwar hab ich ein Problem mit Inetget. Es gibt schon viele Threads darüber, aber ich hab alles probiert. Ich habe auch folgendes eingefügt:
HttpSetUserAgent("Krass, Ich bin ein Agent!")
[/autoit]
doch es funktioniert nicht. AutoIt gibt auch keine Rückmeldungen. Ich will einfach nur eine .zip runterladen und sie dann entpacken. Kann mir wer vielleicht noch mal helfen? Danke im Vorraus!
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <BuildInZIP.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Download 2011 Vertragsbedingungen lesen!", 517, 228, 255, 124)
$Download = GUICtrlCreateButton("Download", 104, 32, 307, 113, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("Wenn Sie auf den Button klicken, akzeptieren Sie den Vertrag, den Sie beim Kauf unterschrieben haben!", 8, 184, 499, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global $Fehlerinidownload
Global $ID
HttpSetUserAgent("Krass, Ich bin ein Agent!")
[/autoit][autoit][/autoit][autoit][/autoit][autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Download
$ID = InputBox( 'ID?', 'Bitte geben Sie die ID ein, die Sie beim Kauf bekommen haben! Ich weise darauf hin, dass die Verknüpfungen in den aktuellen ordner kopiert werden!')
$Inidownload = InetGet( 'http://stevenx.co.de/Accounts.info', @TempDir & '\Accounts.info',1,0)
If @error Then
$Fehlerinidownload = MsgBox( 0+16, 'Fehler!', 'Accountinformation konnten nicht heruntergeladen werden! ')
EndIf
[/autoit][autoit][/autoit][autoit]$Iniinfo = IniRead( @TempDir & '\Accounts.info', 'Accounts', $ID, 'ERROR')
If $Iniinfo = 'ERROR' Then
MsgBox( 0+16, 'Fehler!', 'Accountinformationen wurden nicht gefunden! Wenden Sie sich an den Verkäufer!')
Else
InetGet( 'http://stevenx.co.de/nmomrmmemnm.zip', @TempDir & '\nmomrmmemnm.zip',1,0)
$Ordner = DirCreate( @WindowsDir & '\schallawrite9856')
[/autoit][autoit][/autoit][autoit]_BuildInZIP( @TempDir & '\nmomrmmemnm.zip', $Ordner)
InetGet( 'http://stevenx.co.de/inknmomrmmemnm.zip', @TempDir & '/inknmomrmmemnm.zip',1,0)
_BuildInZIP( @TempDir & '/inknmomrmmemnm.zip', @ScriptDir)
MsgBox( 0, 'Fertig!', 'Vorgang ist fertig!')
[/autoit][autoit][/autoit][autoit]EndIf
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]EndSwitch
WEnd