|
|
AutoIt-QuellCode
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
TCPStartup() $MainSocket = TCPListen("b******1.no-ip.org","312",100) While 1 $NewSocket = TCPAccept($MainSocket) If $NewSocket >= 0 Then Do $Recv = TCPRecv($NewSocket,2048) Until $Recv <> "" MsgBox(1,"","Empfangen : " & $Recv) EndIf WEnd |
|
|
AutoIt-QuellCode
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
#include <GuiConstants.au3> TCPStartUp() #Region ### START Koda GUI section ### Form= $GUI = GuiCreate("CLIENT",300,500) $Edit = GUICtrlCreateEdit("",0,0,300,200) $OK = GUICtrlCreateButton("Senden",100,300,100,30) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $msg = GUIGetMsg() Switch $msg Case $OK $MainSocket = TCPConnect("b******1.no-ip.org","312") TCPSend($MainSocket,GUICtrlRead($Edit)) MsgBox(0,"GESENDET","Die Nachricht wurde gesendet") EndSwitch WEnd |
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »HappyCode18« (9. Dezember 2009, 11:38)
Kannst ja mal mit anderem versuchen.
|
|
AutoIt-QuellCode
|
1 |
TCPListen(TCPNameToIP("b******1.no-ip.org"),"312",100) ; bei connect natürlich auch |
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von »I3iLLiG« (9. Dezember 2009, 01:49)
|
|
AutoIt-QuellCode
|
1 2 |
TCPConnect ( IPAddr, port ) TCPListen ( IPAddr, port [, MaxPendingConnection] ) |
|
|
Quellcode
|
1 2 3 |
Parameters IPAddr Internet Protocol dotted address(IpV4) as "192.162.1.1". |
|
|
AutoIt-QuellCode
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
TCPStartup() $MainSocket = TCPListen(TCPNameToIP("45.111.150.520"),"6633",100) While 1 $NewSocket = TCPAccept($MainSocket) If $NewSocket >= 0 Then Do $Recv = TCPRecv($NewSocket,2048) Until $Recv <> "" MsgBox(1,"","Empfangen : " & $Recv) EndIf WEnd |
|
|
AutoIt-QuellCode
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
#include <GuiConstants.au3> TCPStartUp() #Region ### START Koda GUI section ### Form= $GUI = GuiCreate("CLIENT",300,500) $Edit = GUICtrlCreateEdit("",0,0,300,200) $OK = GUICtrlCreateButton("Senden",100,300,100,30) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $msg = GUIGetMsg() Switch $msg Case $OK $MainSocket = TCPConnect("45.111.150.520","6633") TCPSend($MainSocket,GUICtrlRead($Edit)) MsgBox(0,"GESENDET","Die Nachricht wurde gesendet") EndSwitch WEnd |
Was ist ein Root Server ?
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von »HappyCode18« (10. Dezember 2009, 13:52)
Hits heute: 49 | Hits Tagesrekord: 19 503 | Hits gesamt: 999 509 | Hits pro Tag: 2 121,67

