Bild anzeigen

[leledergeile]

Hey,

Ich habe ein programm geschrieben welches eine website öffnet ein bild downloadet und es eigentlich anzeigen sollte, aber es wir nicht angezeigt ....
Kann es auch mir erst ankucken wenn ich das script schließe und wieder öffne.
Wie kann ich das umgehen ?

[WJNeeson]

zeig mal bitte dein script

[leledergeile]

du weisst doch grob was es macht für was willst das script ?

[zerogott]

damit mein den fehler finden kann?

[WJNeeson]

natürlich weiß ich was das script macht, ich könnte dir auch einen source posten der dir das bild runterlädt und es dir anzeigt aber ich will deinen script korrigieren und dazu muss ich ihn sehen. wo liegt das problem?

[leledergeile]

 Spoiler

#include <IE.au3>
#include <Array.au3>
#include <WinHTTP.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Email Creator", 445, 173, 192, 132)
$Pic1 = GUICtrlCreatePic(@ScriptDir & "\Captcha.jpg", -8, 0, 244, 68)
$Name = GUICtrlCreateInput("Name", 240, 8, 121, 24)
$Passwort = GUICtrlCreateInput("Passwort", 240, 40, 121, 24)
$Captcha = GUICtrlCreateInput("Captcha", 56, 72, 121, 24)
$Label1 = GUICtrlCreateLabel("@gmx.de", 360, 8, 62, 20)
$Label2 = GUICtrlCreateLabel("Nach eingabe des Captchas auf weiter", 8, 104, 234, 20)
$Button1 = GUICtrlCreateButton("Button1", 272, 80, 1, 9)
$Button2 = GUICtrlCreateButton("Start", 240, 72, 155, 41)
$Button3 = GUICtrlCreateButton("Weiter", 0, 120, 251, 49)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button2
$User = GUICtrlRead($Name)
$Pw = GUICtrlRead($Passwort)
$url = "https://www.gmx.net/mail/freemail/registrierung/?1"
$oIE = _IECreate($url, 0, 1)

$sQuellText = _IEBodyReadHTML($oIE)

$aResults = StringRegExp($sQuellText, 'src="(.+?)"', 3)
For $src in $aResults
If StringInStr($src, "image-captcha") Then $sCaptchaName = $src
Next
FileDelete("gmx.html")
Filewrite("gmx.html", $sQuellText)
If $sCaptchaName = "" then
MsgBox(16, "ERROR", "Captcha-Name konnte nicht extrahiert werden")
Exit
EndIf
ConsoleWrite("Captchaname is " & "/mail/freemail/registrierung/" & $sCaptchaName & @crlf)
$sCookies = _IE_GetCookies($oIE)
$aResults = StringRegExp($sCookies, "JSESSIONID=.+$", 3)
If NOT IsArray($aResults) Then
MsgBox(16, "ERROR", "Konnte Cookie nicht auslesen!" & @crlf & $sCookies)
Exit
EndIf
$sJSESSION = "Cookie: " & $aResults[0]
ConsoleWrite("Cookie ist: " & $sJSESSION & @crlf)

$HttpOpen = _WinHttpOpen("Mozilla/5.0 (compatible; MSIE 10.6; Windows NT 6.1; Trident/5.0; InfoPath.2; SLCC1; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729; .NET CLR 2.0.50727) 3gpp-gba UNTRUSTED/1.0")
$HttpConnect = _WinHttpConnect($HttpOpen, "www.gmx.net")

$hRequest = _WinHttpSimpleSendSSLRequest($HttpConnect, "GET", "/mail/freemail/registrierung/" & $sCaptchaName, "https://www.gmx.net/mail/freemail/registrierung/", $WINHTTP_NO_REQUEST_DATA, $sJSESSION)

If _WinHttpQueryDataAvailable($hRequest) Then
$header = _WinHttpQueryHeaders($hRequest)
EndIf

Local $data = Binary("")
While 1
$chunk = _WinHttpReadData($hRequest, 2) ; Binär!
If Not @extended Then ExitLoop ; @extended = Länge der Rückgabe
$data &= $chunk
WEnd

$fOpen = FileOpen(@ScriptDir & "\Captcha.jpg", 26)
FileWrite($fOpen,$data)

Func _IE_GetCookies($oIE)
Local $oDocument
$oDocument = _IEDocGetObj($oIE)
Return $oDocument.cookie
EndFunc

$oForm = _IEGetObjById($oIE, "id23")

$obj = _IEGetObjById ($oIE, "id2")
_IEAction ($obj, "click")

$ofName = _IEFormElementGetObjByName($oForm, "personaldataPanel:first-name:textfield")
_IEFormElementSetValue($ofName, "Heinz")

$osName = _IEFormElementGetObjByName($oForm, "personaldataPanel:last-name:textfield")
_IEFormElementSetValue($osName, "Heil")

$oSelect = _IEFormElementGetObjByName($oForm, "personaldataPanel:countryDependentZipCodeCity-form:country:dropdown")
_IEFormElementOptionSelect($oSelect, "Deutschland", 1, "byText")

$oOrtZahl = _IEFormElementGetObjByName($oForm, "personaldataPanel:countryDependentZipCodeCity-form:zipCodeAndCity:zipCode-textfield")
_IEFormElementSetValue($oOrtZahl, "36100")

$oOrt = _IEFormElementGetObjByName($oForm, "personaldataPanel:countryDependentZipCodeCity-form:zipCodeAndCity:city-textfield")
_IEFormElementSetValue($oOrt, "Fulda")

$oStrasse = _IEFormElementGetObjByName($oForm, "personaldataPanel:streetAndStreetNumber:streetNam e-textfield")
_IEFormElementSetValue($oStrasse, "Mozartstraße")

$oStrasseZahl = _IEFormElementGetObjByName($oForm, "personaldataPanel:streetAndStreetNumber:streetNum ber-textfield")
_IEFormElementSetValue($oStrasseZahl, "40")

$oTag = _IEFormElementGetObjByName($oForm, "personaldataPanel:birthday:birthdata:birthday-textfield")
_IEFormElementSetValue($oTag, "06")

$oMonat = _IEFormElementGetObjByName($oForm, "personaldataPanel:birthday:birthdata:birthmon th-textfield")
_IEFormElementSetValue($oMonat, "09")

$oJahr = _IEFormElementGetObjByName($oForm, "personaldataPanel:birthday:birthdata:birthyea r-textfield")
_IEFormElementSetValue($oJahr, "1980")

$oEmail = _IEFormElementGetObjByName($oForm, "wishnamePanel:wishname:subForm:alias")
_IEFormElementSetValue($oEmail, $User)

$oPw = _IEFormElementGetObjByName($oForm, "passwordPanelassword-formassword:textfield")
_IEFormElementSetValue($oPw, $Pw)

$oID = _IEFormElementGetObjByName($oForm, "passwordPanelassword-formassword-confirm:textfield")
_IEFormElementSetValue($oID, $Pw)

$oKontakt = _IEFormElementGetObjByName($oForm, "passwordPanel:email:textfield")
_IEFormElementSetValue($oKontakt, "")

$oGeheim = _IEFormElementGetObjByName($oForm, "passwordPanel:challenge-parent:challenge:dropdown")
_IEFormElementOptionSelect($oGeheim, "Geburtsname der Mutter", 1, "byText")

$oGeheimA = _IEFormElementGetObjByName($oForm, "passwordPanel:answer:textfield")
_IEFormElementSetValue($oGeheimA, "gaby")
Case $Button3
$text = GUICtrlRead($Input)
Sleep(1000)
$oCaptcha = _IEFormElementGetObjByName($oForm, "captchaPanel:captcha-response:textfield")
_IEFormElementSetValue($oCaptcha, $text)
Sleep(1000)
$anmeldebutton = _IEGetObjByName($oIE,"submitButton")
_IEAction($anmeldebutton,"click")
Sleep(10000)
Exit
EndSwitch
WEnd

[WJNeeson]

ich sehe nirgends, dass du etwas runterlädst bzw. anzeigen willst

das einzigste was mir aufgefallen ist , ist:

PHP Code:

$fOpen = FileOpen(@ScriptDir & "\Captcha.jpg", 26)
FileWrite($fOpen,$data) 


du willst $data in die 26. zeile einer .jpg datei schreiben, die du nichtmal heruntergeladen hast.

[leledergeile]

Originally Posted by #System

ich sehe nirgends, dass du etwas runterlädst bzw. anzeigen willst

das einzigste was mir aufgefallen ist , ist:

PHP Code:

$fOpen = FileOpen(@ScriptDir & "\Captcha.jpg", 26)
FileWrite($fOpen,$data) 


du willst $data in die 26. zeile einer .jpg datei schreiben, die du nichtmal heruntergeladen hast.

$Pic1 = GUICtrlCreatePic(@ScriptDir & "\Captcha.jpg", -8, 0, 244, 68)

Und ja es wir eine Captcha.jpg gedownloadet

[WJNeeson]

bei
$Pic1 = GUICtrlCreatePic(@ScriptDir & "\Captcha.jpg", -8, 0, 244, 68)
wird das bild angezeigt nicht heruntergeladen

ich hatte soetwas ähnliches hier schonmal gepostet ich suchs mal raus

[leledergeile]

Originally Posted by #System

bei
$Pic1 = GUICtrlCreatePic(@ScriptDir & "\Captcha.jpg", -8, 0, 244, 68)
wird das bild angezeigt nicht heruntergeladen

ich hatte soetwas ähnliches hier schonmal gepostet ich suchs mal raus

Ich weiss das es da angezeigt werden
Das mit dem download is das weiter unten

[WJNeeson]

Captcha.jpg kommt in deinem script 2x vor (strg+f) einmal um es anzuzeigen, und einmal um in zeile 26 $data zu schreiben

hier meine funktion zum captcha runterladen, funktioniert aber nur wenn du alles über ein eingebetteten browser machst:

PHP Code:

; #FUNCTION# ====================================================================================================================
; Name ..........: _DownloadCaptcha
; Description ...: Läd die Captcha von einer gegebenen URL im eingebetteten Browser herunter
; Syntax ........: _DownloadCaptcha( $oEmbedded, $sRegisterURL, $sSearchPattern, $sCaptchaLocalPath = @ScriptDir & "/Captcha.jpg" )
; Parameters ....: $oEmbedded         - _IECreateEmbedded()
;                  $sRegisterURL      - URL zum Registrierungsformular
;                  $sSearchPattern    - Pattern für StringRegExp
;                  $sCaptchaLocalPath - Lokaler Pfad zum Captcha, Standard @ScriptDir & "/Captcha.jpg"
; Return values .: Erfolg     - True
;                  Fehlschlag - False
; Author ........: #System
; ===============================================================================================================================
Func _DownloadCaptcha($oEmbedded, $sRegisterURL, $sSearchPattern, $sCaptchaLocalPath = @ScriptDir & "/Captcha.jpg")
    _IENavigate($oEmbedded, $sRegisterURL)
    $sSource = _IEDocReadHTML($oEmbedded)
    $sSource = BinaryToString($sSource, 4)
    $sResult = StringRegExp($sSource, $sSearchPattern, 1)
    $sResult = StringTrimLeft($sResult[0], 2)
    InetGet($sRegisterURL & $sResult, $sCaptchaLocalPath)
    If FileExists($sCaptchaLocalPath) Then Return True
    Return False
EndFunc   ;==>_DownloadCaptcha 


[leledergeile]

Originally Posted by #System

Captcha.jpg kommt in deinem script 2x vor (strg+f) einmal um es anzuzeigen, und einmal um in zeile 26 $data zu schreiben

hier meine funktion zum captcha runterladen, funktioniert aber nur wenn du alles über ein eingebetteten browser machst:

PHP Code:

; #FUNCTION# ====================================================================================================================
; Name ..........: _DownloadCaptcha
; Description ...: Läd die Captcha von einer gegebenen URL im eingebetteten Browser herunter
; Syntax ........: _DownloadCaptcha( $oEmbedded, $sRegisterURL, $sSearchPattern, $sCaptchaLocalPath = @ScriptDir & "/Captcha.jpg" )
; Parameters ....: $oEmbedded         - _IECreateEmbedded()
;                  $sRegisterURL      - URL zum Registrierungsformular
;                  $sSearchPattern    - Pattern für StringRegExp
;                  $sCaptchaLocalPath - Lokaler Pfad zum Captcha, Standard @ScriptDir & "/Captcha.jpg"
; Return values .: Erfolg     - True
;                  Fehlschlag - False
; Author ........: #System
; ===============================================================================================================================
Func _DownloadCaptcha($oEmbedded, $sRegisterURL, $sSearchPattern, $sCaptchaLocalPath = @ScriptDir & "/Captcha.jpg")
    _IENavigate($oEmbedded, $sRegisterURL)
    $sSource = _IEDocReadHTML($oEmbedded)
    $sSource = BinaryToString($sSource, 4)
    $sResult = StringRegExp($sSource, $sSearchPattern, 1)
    $sResult = StringTrimLeft($sResult[0], 2)
    InetGet($sRegisterURL & $sResult, $sCaptchaLocalPath)
    If FileExists($sCaptchaLocalPath) Then Return True
    Return False
EndFunc   ;==>_DownloadCaptcha 


Kannste das mal mit machen ??

[WJNeeson]

das ist nun wirklich nicht schwer selbst zu machen oder?

du erstellst mit _IECreateEmbedded einen eingebetteten browser dem du einem objekt in deiner gui zuweist, suchst dir dein searchpattern aus dem quelltext und rufst meine funktion auf.