Brauche Webseite als .txt per Batch: wget liefert nur Teile, Chrome würde alles speichern

#NoTrayIcon
#include <IE.au3>
#Include <file.au3>
Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyComErrFunc")  
Global $preis_vario = ""  
$objIE = _IECreate("http://www.aida.de/kreuzfahrt/angebote-buchen/reisesuche.18736.html?screen=SearchResult&tx_aidadyncatalog_catalog[cruiseListPage]=0&tx_aidadyncatalog_catalog[paxConfig]=0&tx_aidadyncatalog_catalog[searchState]=&tx_aidadyncatalog_catalog[region_or_ship]=ship&tx_aidadyncatalog_catalog[searchRegionShipCode]=SO&tx_aidadyncatalog_catalog[harbour_or_poc]=harbour&tx_aidadyncatalog_catalog[searchPortCode]=*0&tx_aidadyncatalog_catalog[searchStartDate]=14.12.2013&tx_aidadyncatalog_catalog[searchEndDate]=21.12.2013&tx_aidadyncatalog_catalog[searchEarlyBird]=*0&tx_aidadyncatalog_catalog[searchPriceCode]=*0&tx_aidadyncatalog_catalog[searchDurationCode]=*0&tx_aidadyncatalog_catalog[searchSpecials]=*0&tx_aidadyncatalog_catalog[searchTransportation]=Z&SearchButton=",0,0,1)  
if $objIE = 0 and @error <> 0 then ExitError("Internet-Explorer Objekt")  
_IELoadWait($objIE,1000,60000)
if @error = 6 then ExitError("IE Load Timeout")  
$tags = _IETagNameGetCollection($objIE,"span")  
if @error <> 0 then ExitError("Konnte Tags nicht finden")  
$counter = 1
for $tag in $tags
	if String($tag.className) = "amount" then  
		If $counter = 2 then
			$preis_vario = Number($tag.innerText)
			ExitLoop
		Else
			$counter = $counter + 1
		Endif
	Endif
Next
if $preis_vario <> "" and $preis_vario < 449 then  
	$strSmtpServer = "[SMTPSERVER]"  
	$strFromName = "[ABSENDERNAME]"  
	$strFromAddress = "[FROM_EMAIL_ADDRESS]"  
	$strTo = "[TO_EMAIL_ADDRESS]"  
	$strSubject = "Preis der Aida Reise hat sich reduziert"  
	$strBody = "Der Preis der Reise hat sich verringert, er beträgt jetzt: <strong>" & $preis_vario & "</strong> Euro"  
	$strImportance = "High"  
	$strUsername = "[SMTP_USERNAME]"  
	$strPassword = "[SMTP_PASSWORD]"  
	$strPort = 25
	$strUseSSL = False
	$ret = _SmtpMailAuth($strSmtpServer,$strFromName,$strFromAddress,$strTo,$strSubject,$strBody,"","","",$strImportance,$strUsername,$strPassword,$strPort,$strUseSSL)  
	If @error Then
		MsgBox(48, "Fehler beim senden der Nachricht", "Fehlercode:" & @error & "  Beschreibung:" & $ret,5)  
	EndIf
Endif
_IEQuit($objIE)
exit

; ------------------Helper Functions ---------------------------------

func ExitError($strError)
	msgbox(48,"Error", "Es ist ein Fehler aufgetreten: " & $strError,5)  
	exit 1
EndFunc

; Parameters for Function _SmtpMailAuth
;##################################
;~ $s_SmtpServer = ""                            ; address for the smtp-server to use - REQUIRED  
;~ $s_FromName = "User"                          ; name from who the email was sent  
;~ $s_FromAddress = ""                           ; address from where the mail should come  
;~ $s_ToAddress = ""                             ; destination address of the email - REQUIRED  
;~ $as_Subject = "testsubject"                       ; subject from the email - can be anything you want it to be  
;~ $as_Body = "This Is The Body"                  ; the messagebody from the mail - can be left blank but then you get a blank mail  
;~ $s_AttachFiles = ""                           ; the file you want to attach- leave blank if not needed  
;~ $s_CcAddress = ""                             ; address for cc - leave blank if not needed  
;~ $s_BccAddress = ""                            ; address for bcc - leave blank if not needed  
;~ $_sImportance = "Normal"                      ; Send message priority: "High", "Normal", "Low"  
;~ $s_Username = ""                              ; username for the account used from where the mail gets sent - REQUIRED  
;~ $s_Password = ""                              ; password for the account used from where the mail gets sent - REQUIRED  
;~ $IPPort = 25                               ; port used for sending the mail
;~ $ssl = 0                                    ; enables/disables secure socket layer sending - put to 1 if using httpS


Func _SmtpMailAuth($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance="Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0)  
    Local $objEmail = ObjCreate("CDO.Message")  
    $objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'  
    $objEmail.To = $s_ToAddress
    Local $i_Error = 0
    Local $i_Error_desciption = ""  
    If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress  
    If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress  
    $objEmail.Subject = $s_Subject
    If StringInStr($as_Body, "<") And StringInStr($as_Body, ">") Then  
        $objEmail.HTMLBody = $as_Body
    Else
        $objEmail.Textbody = $as_Body & @CRLF
    EndIf
    If $s_AttachFiles <> "" Then  
        Local $S_Files2Attach = StringSplit($s_AttachFiles, ";")  
        For $x = 1 To $S_Files2Attach
            $S_Files2Attach[$x] = _PathFull($S_Files2Attach[$x])
            ConsoleWrite('@@ Debug(62) : $S_Files2Attach = ' & $S_Files2Attach & @LF & '>Error code: ' & @error & @LF) ;### Debug Console  
            If FileExists($S_Files2Attach[$x]) Then
                $objEmail.AddAttachment ($S_Files2Attach[$x])
            Else
                ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF)  
                SetError(1)
                Return 0
            EndIf
        Next
    EndIf
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2  
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer  
    If Number($IPPort) = 0 then $IPPort = 25
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort  
    ;Authenticated SMTP
    If $s_Username <> "" Then  
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1  
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username  
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password  
    EndIf
    If $ssl Then
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True  
    EndIf
    ;Update settings
    $objEmail.Configuration.Fields.Update
    ; Set Email Importance
    Switch $s_Importance
        Case "High"  
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "High"  
        Case "Normal"  
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Normal"  
        Case "Low"  
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Low"  
    EndSwitch
    $objEmail.Fields.Update
    ; Sent the Message
    $objEmail.Send()
    If @error Then
        SetError(2)
		Return $oMyRet[1]
    EndIf
    $objEmail=""  
EndFunc

; Com Error Handler
Func MyComErrFunc()
    $HexNumber = Hex($oMyError.number, 8)
    $oMyRet = $HexNumber
    $oMyRet[1] = StringStripWS($oMyError.description, 3)
    ConsoleWrite("### COM Error !  Number: " & $HexNumber & "   ScriptLine: " & $oMyError.scriptline & "   Description:" & $oMyRet[1] & @LF)  
    SetError(1); something to check for when this function returns
    Return
EndFunc