Beiträge von Freaky

  • TCP Seite besuchen geht nicht

    Hallo,
    ich möchte über TCP eine Seite besuchen, nur leider komme ich nichtmal soweit das ich was zurück bekommen.
    Was mache ich Falsch ?

    Spoiler anzeigen
    [autoit]

    TCPStartup()
    $iIP = TCPNameToIP("https://customer.cc.at.paysafecard.com")
    Global $iSocket = TCPConnect($iIP, 80)
    If $iSocket = -1 Then Exit

    [/autoit] [autoit][/autoit] [autoit]

    MsgBox (0,"",_psc_besuchen())

    [/autoit] [autoit][/autoit] [autoit]

    Func _psc_besuchen()
    $sHeader = "GET /psccustomer/GetWelcomePanelServlet HTTP/1.1" & @CRLF & _
    "Host: customer.cc.at.paysafecard.com" & @CRLF & _
    "User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.2.3) Gecko/20100401 Firefox/3.6.3 ( .NET CLR 3.5.30729)" & @CRLF & _
    "Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" & @CRLF & _
    "Accept-Language: de-de,de;q=0.8,en-us;q=0.5,en;q=0.3" & @CRLF & _
    "Accept-Encoding: gzip,deflate" & @CRLF & _
    "Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7" & @CRLF & _
    "Keep-Alive: 115" & @CRLF & _
    "Connection: keep-alive"
    $iSend = TCPSend($iSocket, $sHeader)
    MsgBox (0,"",$iSend)
    While 1
    $sRecv = TCPRecv($iSocket, 2048)
    If $sRecv <> '' Then
    While 1
    $sRecv &= TCPRecv($iSocket, 2048)
    If @error Or StringInStr($sRecv, "/seam/resource/captcha") Then ExitLoop 2
    WEnd
    EndIf
    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    Return $sRecv
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func _psc_test($code1, $code2, $code3, $code4, $pw, $captcha)
    $sPost = "j_id17=j_id17&j_id17%3Arn1=" & $code1 & "&j_id17%3Arn2=" & $code2 & "&j_id17%3Arn3=" & $code3 & "&j_id17%3Arn4=" & $code4 & "&j_id17%3Aj_id23=" & $pw & "&j_id17%3AverifyCaptcha=" & $captcha & "&j_id17%3Anext=Next&javax.faces.ViewState=j_id1"
    $sHeader = "POST /psccustomer/GetWelcomePanelServlet HTTP/1.1" & @CRLF & _
    "Host: customer.cc.at.paysafecard.com" & @CRLF & _
    "User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.2.3) Gecko/20100401 Firefox/3.6.3 ( .NET CLR 3.5.30729)" & @CRLF & _
    "Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" & @CRLF & _
    "Accept-Language: de-de,de;q=0.8,en-us;q=0.5,en;q=0.3" & @CRLF & _
    "Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7" & @CRLF & _
    "Keep-Alive: 115" & @CRLF & _
    "Connection: keep-alive" & @CRLF & _
    "Content-Type: text/html; charset=utf-8" & @CRLF & _
    "Content-Length: " & StringLen($sPost) & @CRLF & @CRLF & $sPost

    [/autoit] [autoit][/autoit] [autoit]

    ;"Referer: https://customer.cc.at.paysafecard.com/psccustomer/we…eam?cvid=486817" & @CRLF & _
    $iSend = TCPSend($iSocket, $sHeader)

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $sRecv = TCPRecv($iSocket, 1024)
    If $sRecv <> '' Then
    While 1
    $sRecv &= TCPRecv($iSocket, 1024)
    If @error Or StringInStr($sRecv, "Content-Type: text/html; charset=utf-8") Then ExitLoop 2
    WEnd
    EndIf
    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    Return $sRecv
    EndFunc ;==>_psc_test

    [/autoit]

  • _IE auf Link klicken

    Hallo,
    ich möchte mir ein Script schreiben das mir eine Fakemail macht (bei 10minutenmail.com)

    So das Problem ist, ich kriege es nicht hin wenn ich eine Mail bekomme, das er draufklickt.

    Könnt ihr mir helfen pls ? :)

    [autoit]

    #include <Array.au3>
    #include <GUIConstantsEx.au3>
    #include <IE.au3>
    #include <String.au3>

    [/autoit][autoit][/autoit][autoit]

    _IEErrorHandlerRegister()
    $seite = _IECreateEmbedded()

    [/autoit][autoit][/autoit][autoit]

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 874, 614, 142, 83)
    $Pic1 = GUICtrlCreateObj($seite, 2, 2, 870, 610)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    [/autoit][autoit][/autoit][autoit]

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

    [/autoit][autoit][/autoit][autoit]

    EndSwitch
    WEnd

    [/autoit]

    ps: Um eine Mail zu bekommen, müsst ihr warscheinlich euch selber ne Mail zu schreiben :D

  • Case wird wegen einem Transparenten Bild ausgelöst

    Ich will ein Transparentes Bild drüber legeben weil zuerst kommt ein Label, danach ein Hintergrund Bild.
    Wieso nicht anderes rum?
    Ganz einfach, mein Label hat dann ein fetten wießen Rand. Und wenn ein Bild überm Label liegt, dann kann man nicht draufklicken, und deswegen möchte ich ein Transparentes Bild drüber legeben.
    Ich kann auch ein GUICtrlCreatePic ohne Bild hinmache !
    Nein das macht ebenfals eine wieße Stelle über dem Label so das man es garnicht mehr sieht :(

  • Case wird wegen einem Transparenten Bild ausgelöst

    Ihr immer mit euren Codes :D

    [autoit]

    #include <GUIConstantsEx.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 367, 306, 192, 124)
    $Pic1 = GUICtrlCreatePic("pixel.jpg", 14, 20, 290, 232)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    [/autoit][autoit][/autoit][autoit]

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Pic1
    MsgBox (0,"","")
    EndSwitch
    WEnd

    [/autoit]


    msgbox wird immer ausgelöst egal ob man draufklickt oder nicht :(

  • Farbige Progressbar

    Hallo,
    es gibt ja eine UDF von Progandy um Progressbar zu färben.
    Das Problem ist nur bei mir sterben alle Scripte damit.
    Ok dachte ich mir, vll liegt es an meinem PC, schike das Tool an den Kumpel und tada dort stirbt es ebenfals.

    Kennt wer eine andere UDF um Progressbar zu färben ?

  • Progressbar mit GDIplus

    Hallo,
    ich weiß das es sehr alt ist, aber egal.

    Mein Script bleibt offt mitten im laden hengen und dannach tut sich rein garnichts.
    Damit ich es dann wieder zukriege, muss ich das Script per Task Manager ausmachen.

    Könnte sich das vll jemand angucken (die UDF) und versuchen den Fehler zu finden ?

    ps: Es kommt keine Fehlermeldung.

  • _Adlib.au3 UDF funktioniert nicht

    Ok, habe ich gemacht, jetzt kommt aber ein Error ^^

    Code
    ERROR: _AdlibEnable(): undefined function.
				_AdlibEnable("Ernten", 2000)
				~~~~~~~~~~~~~~~~~~~~~~~~~~~^
ERROR: _AdlibDisable(): undefined function.
			_AdlibDisable("Ernten")
			~~~~~~~~~~~~~~~~~~~~~~^

  • _Adlib.au3 UDF funktioniert nicht

    Nein funktioniert immer noch nicht.
    Hier die Fehlermeldung:

    Vorsicht lang ^^