PacketSender?

[AzKay]

Well ive tryed this.

expandcollapse popup

#include <GUIConstants.au3>
Opt("GUIOnEventMode", 1)
### Koda GUI section start ###
$Form = GUICreate("TCPSend", 234, 210, 254, 198)
$IP = GUICtrlCreateInput("IP", 0, 0, 233, 21)
$PORT = GUICtrlCreateInput("PORT", 0, 24, 233, 21)
$Edit = GUICtrlCreateEdit("", 0, 48, 233, 137)
$Send = GUICtrlCreateButton("Send", 0, 187, 233, 21)
GUICtrlSetOnEvent(-1, "_Send")
GUISetOnEvent($GUI_EVENT_CLOSE, "_Quit")
GUISetState(@SW_SHOW)
### Koda GUI section end   ###

Dim $ConnectedSocket

While 1
Sleep(500)
WEnd

Func _Send()
    GUICtrlSetData($Send, "Sending...")
TCPStartUp()

Dim $ConnectedSocket = -1
$ConnectedSocket = TCPConnect(GUICtrlRead($IP),GUICtrlRead($PORT))

If @Error Then MsgBox(0, "Error:(1)", @error)

    $szData = GUICtrlRead($Edit)
    If @error Then MsgBox(0, "Error:(2)", @error)
    
    TCPSend($ConnectedSocket,$szData)
    If @error Then MsgBox(0, "Error:(3)", @Error)
    TCPCloseSocket($ConnectedSocket)
    TCPShutdown()
    GUICtrlSetData($Send, "Send")
EndFunc

Func _Quit()
    TCPCloseSocket($ConnectedSocket)
    TCPShutdown()
    Exit
EndFunc

The info as:

Ip:

8.3.208.85

Port:

443

Body:

C.$...z....sendChatText............Z<FONT FACE="Arial" SIZE="12" COLOR="#000000" LETTERSPACING="0" KERNING="0">test</FONT><br>...1

If, Im send the packet, from WPE, (Thats where I got the info in the first place) It sends, but this doesnt, well, it "sends" but, it doesnt show in the chat. Anyone know where Im going wrong?

[/dev/null]

Well ive tryed this.

Port:

443

by any chance, does the server speak HTTPS on port 443?

Cheers

Kurt

[AzKay]

Dont have a clue

[/dev/null]

Dont have a clue

then better figure out. If it's HTTPS, why should a simple TCP connection work?

Cheers

Kurt

[AzKay]

All I know is, this is the site

http://www.maniatv.com/mip/mip.html

Im on it, because, I like annoying people

[AzKay]