Hey Leute,
1. ich habe hier an diesem PC schon immer das Problem, dass ich die Beispielscripte aus der Hilfedatei nicht direkt aufrufen kann. Ich muss die erst immer kopieren un dann wieder in den SciTE einfügen. So sieht das Ganze aus:
[Blockierte Grafik: http://www.imgbox.de/?img=n40617i235.jpg]
Edit: Mhm...iwie funkt das mit dem Bild einfügen net^^ Naja einfach Copy&Paste
2. Habe ein Problem mit dem IE.au3 Include. Bei mir zeigt´s immer bei einem Aufruf (nie nach dem ersten Aufruf!!!!!) von ner Funktion diesen Fehler an:
[autoit]C:\Programme\AutoIt3\Include\IE.au3 (2165) : ==> Variable must be of type "Object".:
Return $o_object.document.documentElement.outerHTML
Return $o_object.document.documentElement^ ERROR
Das heißt der Fehler ist in dieser Funktion:
Spoiler anzeigen
;===============================================================================
;
; Function Name: _IEDocReadHTML()
; Description: Returns the full HTML source of a document
; Parameter(s): $o_object - Object variable of an InternetExplorer.Application, Window or Frame object
; Requirement(s): AutoIt3 V3.2 or higher
; Return Value(s): On Success - Returns the HTML included in the <HTML> of the docuement, including the <HTML> and </HTML> tags
; On Failure - Returns 0 and sets @ERROR
; @ERROR - 0 ($_IEStatus_Success) = No Error
; - 3 ($_IEStatus_InvalidDataType) = Invalid Data Type
; @Extended - Contains invalid parameter number
; Author(s): Dale Hohm
;
;===============================================================================
;
Func _IEDocReadHTML(ByRef $o_object)
If Not IsObj($o_object) Then
__IEErrorNotify("Error", "_IEDocReadHTML", "$_IEStatus_InvalidDataType")
SetError($_IEStatus_InvalidDataType, 1)
Return 0
EndIf
If Not __IEIsObjType($o_object, "browserdom") Then
__IEErrorNotify("Error", "_IEDocReadHTML", "$_IEStatus_InvalidObjectType", "Expected document element")
SetError($_IEStatus_InvalidObjectType, 1)
Return 0
EndIf
;
SetError($_IEStatus_Success)
Return $o_object.document.documentElement.outerHTML
EndFunc ;==>_IEDocReadHTML
Und hier, ein ausschnitt, wie ich die Funktion in meinem Script nutze:
Spoiler anzeigen
Do
$read = _IEDocReadHTML($oIE)
$strin = _StringBetween($read, "IP-Adresse", "runter")
If Not @error Then
$error = GUICtrlSetData ($errorlabel,"Es wird bereits eine Datei von dieser IP " & @CRLF & " gedownloaded!!!")
GUICtrlSetFont($errorlabel, 13)
Sleep(120000)
ControlSend("RapidShare", "", "[CLASS:Internet Explorer_Server; INSTANCE:1]", "{F5}")
Sleep(4000)
ControlSend("Windows Internet Explorer", "", "[CLASS:Static; INSTANCE:2]", "{Enter}")
EndIf
$string = _StringBetween($read, "Leider", "Server")
If Not @error Then
$error = GUICtrlSetData($errorlabel,"Server ist voll! Download" &@CRLF&" verzögert sich!")
GUICtrlSetFont($errorlabel, 13)
Sleep(120000)
ControlSend("RapidShare", "", "[CLASS:Internet Explorer_Server; INSTANCE:1]", "{F5}")
Sleep(4000)
ControlSend("Windows Internet Explorer", "", "[CLASS:Static; INSTANCE:2]", "{Enter}")
EndIf
Until @error
Danke
LG
Manlius