Beiträge von Nachid

  • Zeichensatz Problem

    Hallo Leute =)

    ich habe ein kleines Problem mit der Zeichenkodierung und die Hilfe konnte mir leider nicht weiter helfen.

    Ich bekomme folgendes von einer Google API zurück :

    <start_address>********** straße, 71739 Oberriexingen, Germany</start_address>
    <end_address>********** straße , 71638 Ludwigsburg, Germany</end_address>

    der Request an Google wird mit dem Zeichensatz UTF-8 beantwortet.

    Wie kann ich nun diese Rückmeldung in einer MSG-Box ausgeben ohne das ß als komischer Kauderwelsch angezeigt wird.
    Anscheinen gibt es für die Zeichensätze keine "Übersetzung" bzw. keinen Befehl der diese einfach Konvertiert.

    Bitte um Rückmeldung.

    PS : Programm ist zur automatisierten Abfrage von Routen aus google-maps. (über XML Api)

  • Möglichkeiten externe Scripts in laufende .Exe einzubinden?

    Macht so absolut kein Sinn weil sich hier keine Anwendung erschließt.

    Script 1

    [autoit]


    $test = "Test 1 MSGbox"
    Execute(FileReadLine("test2.au3",1))
    MsgBox(0,"",$test)

    [/autoit]


    Script 2

    [autoit]


    $test = "Das hier bekommst du nie zu sehen"

    [/autoit]

    Anwendung nur für MsgBoxen = Sinnlos.
    Und dein Beispiel lässt wieder nicht erkennen für was du das brauchst.
    Es wird dir hier niemand ne Anleitung für geben wie du nachladbare Module in deinen Trojaner einbaust.
    Besser du Postest dein Script - das in dem du es wirklich verwenden willst.

  • GrooveLoad - ein Grooveshark Downloader

    gerade getestet.
    leider immer nerfige meldung wenn cover in Mp3 eingefügt wird.
    Kann vllt mir #RequireAdmin behoben werden.

    Nettes scrit werde mir hier ein paar parts klauen.
    Werde unter umständen noch eine Version für komplette Alben erstellen.
    (Sollte das genehmigt werden (Copyright usw))


    EDIT :::
    Alben funktionieren über die suche.
    mal testen ob ich das auf CMDLines umbauen kann (soweit erlaubt)
    MfG

  • Packet an IE weiterreichen

    Der IE bleibt im Ladescreen hängen. Also ich bekomm weder ne Fehlermeldung noch irgendwas. Nur den kringel.
    Wenn ich die Verbindung beende kommt ein error das die Proxy Connection fehl schlägt obwohl alle Daten übermittelt wurden.

  • Packet an IE weiterreichen

    €3
    Der ganze Code scheint zu lang für den Spoiler ich grenz das mal ein.
    Bekommt der IE überhaupt mit das ich Fertig bin ihm die Daten zu schicken ?
    Ich kann die Verbindung ja nicht Trennen da Proxy-Connection : Keep-Alive gesetzt ist

    Spoiler anzeigen
    [autoit]

    HTTP/1.1 200 OK
    Date: Tue, 09 Apr 2013 10:03:46 GMT
    Expires: -1
    Cache-Control: private, max-age=0
    Content-Type: text/html; charset=UTF-8
    Server: gws
    X-XSS-Protection: 1; mode=block
    X-Frame-Options: SAMEORIGIN
    Connection: close

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

    <!doctype html><html itemscope="itemscope" itemtype="http://schema.org/WebPage"><head><meta http-equiv="X-UA-Compatible" content="IE=edge"><meta content="text/html; charset=UTF-8" http-equiv="content-type"><meta itemprop="image" content="/images/google_favicon_128.png"><title>Google</title><script>(function(){
    window.google={kEI:"gudjUYWHBoXJswaLwYHwAg",getEI:functi......</html>

    [/autoit]


    €4

    Hier ein weitere einfacheres Script.
    Da ich immernoch nicht weis wie ich dem IE Signalisiere das alle Packete da sind habe ich eine andere Methode verwendet.
    Auserdem habe ich das Connection : Close aus der Antwort entfernt da der User ja eine aktive Proxy Connection will.

    Spoiler anzeigen
    [autoit]

    #cs ----------------------------------------------------------------------------

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

    AutoIt Version: 3.3.8.1
    Author: myName

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

    Script Function:
    Template AutoIt script.

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

    #ce ----------------------------------------------------------------------------

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

    ; Script Start - Add your code below here
    #include "Inet.au3"
    TCPStartup()

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

    $mslisten = TCPListen(@IPAddress1,"8080",1)
    Do
    $ConnectionSocket = TCPAccept($mslisten)
    Until $ConnectionSocket<>-1
    ConsoleWrite(SocketToIP($ConnectionSocket)&" connected."&@CRLF)

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

    $request = ""
    While 1
    $recv = TCPRecv($ConnectionSocket, 2048)
    If @error Then ExitLoop
    $recv = BinaryToString($recv, 4)
    If $recv <> "" Then
    ConsoleWrite($recv&@CRLF)
    $packet = $recv
    $googleip = TCPNameToIP("google.de")
    $socket = TCPConnect($googleip,"80")
    TCPSend($socket,StringReplace(StringReplace($packet,"Accept-Encoding: gzip, deflate","Accept-Encoding: none"),"Proxy-Connection: Keep-Alive","Connection: Close"))
    $data = ""
    While 1
    $recv2 = TCPRecv($socket, 2048)
    If @error Then ExitLoop
    $recv2 = BinaryToString($recv2, 4)
    If $recv2 <> "" Then
    $data = $data & $recv2
    EndIf
    WEnd
    $data = StringSplit($data,@CRLF&@CRLF,1)
    If StringInStr($data[1],"Connection : Close") Then
    StringReplace($data[1],"Connection : Close","Transfer-Encoding: chunked")
    EndIf
    TCPSend($ConnectionSocket,$data[1]&@CRLF&@CRLF)
    TCPSend($ConnectionSocket,$data[2])
    TCPSend($ConnectionSocket,"")
    EndIf
    WEnd

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

    Func SocketToIP($SHOCKET)
    Local $sockaddr, $aRet
    $sockaddr = DllStructCreate("short;ushort;uint;char[8]")
    $aRet = DllCall("Ws2_32.dll", "int", "getpeername", "int", $SHOCKET, _
    "ptr", DllStructGetPtr($sockaddr), "int*", DllStructGetSize($sockaddr))
    If Not @error And $aRet[0] = 0 Then
    $aRet = DllCall("Ws2_32.dll", "str", "inet_ntoa", "int", DllStructGetData($sockaddr, 3))
    If Not @error Then $aRet = $aRet[0]
    Else
    $aRet = 0
    EndIf
    $sockaddr = 0
    Return $aRet
    EndFunc ;==>SocketToIP

    [/autoit]

  • Packet an IE weiterreichen

    Hallo^^

    hab malwieder ein Problem mit einer TCP Funktion.
    Soweit wie unten steht hab ichs allein hinbekommen bzw mit der Hilfe funktion.
    Wenn ihr das script austestet und im IE als proxy 127.0.0.1 port 8080 eintragt werdet ihr sehen,
    dass wenn ihr google anfragt eine Meldung mit dem Paket an google erscheint. Das script dreht nun Proxy-Connection : Keep-Alive in
    Connection: Close um und findet die IP von google als Zieladresse raus. Es verbindet sich mit google reicht die Anfrage weiter und bekommt die Antwort.
    (Bei mir GZip komprimiert). Ich scheitere nun aber daran diese antwort wieder an den IE weiter zu reichen.

    Ist bestimmt nichtmehr viel aufwand aber ich verstehs einfach nicht und mit der Hilfe komm ich auch nicht klar.
    Vielen Dank

    Spoiler anzeigen
    [autoit]

    $serverip = "127.0.0.1"
    $serverport = "8080"
    TCPStartup()
    $mslisten = TCPListen($serverip,$serverport,3)

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

    Do
    $cosl = TCPAccept($mslisten)
    Until $cosl>=0

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

    While 1
    $recv = TCPRecv($cosl, 2048)
    If @error Then ExitLoop
    $recv = BinaryToString($recv, 4)
    If $recv <> "" Then
    MsgBox(0,"",$recv)
    $packet = StringSplit($recv,@CRLF,1)
    $dnt = 0;Do Not Track
    $PKA = 0;Proxy Keep Alive
    $recvip = "";IP of where the Request have to go to

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

    For $i=1 To $packet[0]
    Select
    Case StringInStr($packet[$i],"DNT") Or StringInStr($packet[$i],"X-Do-Not-Track")
    $dnt = 1
    Case StringInStr($packet[$i],"Proxy-Connection: Keep-Alive")
    $packet[$i] = "Connection: Close"
    $PKA = 1
    Case StringInStr($packet[$i],"Host: ")
    $recvip = StringSplit($packet[$i],"Host: ",1)
    $recvip = TCPNameToIP($recvip[2])
    EndSelect
    Next

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

    $newpacket = ""
    For $i=1 To $packet[0]
    If $packet[$i]<>"" And $i>=2 Then
    $newpacket = $newpacket&@CRLF&$packet[$i]
    ElseIf $packet[$i]<>"" And $i=1 Then
    $newpacket = $packet[$i]
    EndIf
    Next
    $newpacket = $newpacket&@CRLF&@CRLF
    FileWrite("newpacket.txt",$newpacket)

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

    MsgBox(0,"",""""&$recvip&"""")
    $socket = TCPConnect($recvip,"80")
    MsgBox(0,"",$newpacket)
    TCPSend($socket,$newpacket)
    $gzippacketfromgoogle = ""
    While 1
    $recv = TCPRecv($socket, 2048)
    If @error Then ExitLoop
    $recv = BinaryToString($recv, 4)
    If $recv <> "" Then
    $gzippacketfromgoogle = $gzippacketfromgoogle & $recv
    MsgBox(0,"",$recv)
    EndIf
    WEnd
    TCPSend($cosl,$gzippacketfromgoogle)
    ConsoleWrite("data send to IE.");FALSCH wurde wieder zu 127.0.0.1 geschickt. Muss erst CLientname zu IP auflösen??
    MsgBox(0,"",$gzippacketfromgoogle)
    EndIf
    WEnd

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

    Func SocketToIP($SHOCKET)
    Local $sockaddr, $aRet
    $sockaddr = DllStructCreate("short;ushort;uint;char[8]")
    $aRet = DllCall("Ws2_32.dll", "int", "getpeername", "int", $SHOCKET, _
    "ptr", DllStructGetPtr($sockaddr), "int*", DllStructGetSize($sockaddr))
    If Not @error And $aRet[0] = 0 Then
    $aRet = DllCall("Ws2_32.dll", "str", "inet_ntoa", "int", DllStructGetData($sockaddr, 3))
    If Not @error Then $aRet = $aRet[0]
    Else
    $aRet = 0
    EndIf
    $sockaddr = 0
    Return $aRet
    EndFunc ;==>SocketToIP

    [/autoit]


    €geändert um folgefehler zu vermeiden

  • modbus

    Zitat von m-obi

    Ich hab deinen Thread gelesen im SPS-Forum und hab mich dann hierhin durchgeklickt ;)

    Und Checkboxen am besten immer mit BitAND und $GUI_CKECKED abfragen. Nicht nur einfach mit GuiCtrlRead.

    Ansonsten sehr schön und weiter so.


    Erläutere er es näher ! :D