Ganibal95
GreenBytes
- Сообщения
- 877
- Репутация
- 240
Версия Autoit: 3
Здравствуйте , Возникла такая проблемма TCP с другими компьютерами совершенно не хочет конектится. Друзья конектились друг с другом, а я не могу :'(, может что-то с компьютером?
Сервер:
Клиент:
Сервер и клиент я писал сам, Но уменя как на зло не работает, а у других все норм...
Здравствуйте , Возникла такая проблемма TCP с другими компьютерами совершенно не хочет конектится. Друзья конектились друг с другом, а я не могу :'(, может что-то с компьютером?
Сервер:
Код:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Сервер", 595, 422, 192, 124)
$Input1 = GUICtrlCreateInput("", 8, 392, 489, 21)
$Button1 = GUICtrlCreateButton("Отправить", 512, 392, 75, 25)
$Edit1 = GUICtrlCreateEdit("", 8, 8, 577, 377)
GUICtrlSetData(-1, "")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
TCPStartup()
$Main = TCPListen(@IPAddress1, 8080)
If @error Then
Exit
EndIf
Do
$Socket = TCPAccept($Main)
GUICtrlSetData($Edit1,"Нет соодинения =( подождите")
Until $Socket <> -1
GUICtrlSetData($Edit1,"ВСЕ ОК =)")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Button1
TCPSend($Socket, GUICtrlRead($Input1))
EndSwitch
$bData = TCPRecv($Socket, 512, 1)
if $bData = "" Then
Sleep(0)
Else
$gData = BinaryToString ($bData,1)
GUICtrlSetData($Edit1,@CRLF&$gData,@CRLF)
EndIf
WEnd
TCPCloseSocket($Socket)
TCPShutdown()
Клиент:
Код:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Клиент", 595, 422, 192, 124)
$Input1 = GUICtrlCreateInput("", 8, 392, 489, 21)
$Button1 = GUICtrlCreateButton("Отправить", 512, 392, 75, 25)
$Edit1 = GUICtrlCreateEdit("", 8, 8, 577, 377)
GUICtrlSetData(-1, "")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
TCPStartup()
Do
$Socket = TCPConnect(@IPAddress1, 8080)
GUICtrlSetData($Edit1,"Нет соодинения =( подождите")
Until $Socket <> -1
GUICtrlSetData($Edit1,"ВСЕ ОК =)")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Button1
TCPSend($Socket, GUICtrlRead($Input1))
EndSwitch
$bData = TCPRecv($Socket, 512, 1)
if $bData = "" Then
Sleep(0)
Else
$gData = BinaryToString ($bData,1)
GUICtrlSetData($Edit1,@CRLF&$gData,@CRLF)
EndIf
WEnd
TCPShutdown()
Сервер и клиент я писал сам, Но уменя как на зло не работает, а у других все норм...