Jump to content
Sign in to follow this  
Gif

no helping?

Recommended Posts

Gif

SERVER:

#include <GUIConstants.au3>

$waitin_ip = InputBox("enter", "ip to connect to..")


Dim $nPORT = 33891
Dim $szIPADDRESS = $waitin_ip

TCPStartUp()

$MainSocket = TCPListen($szIPADDRESS, $nPORT)

if $mainsocker = -1 then exit

Dim $GOOEY = GUICreate("My Server (IP: " & $szIPADDRESS & ")",300,200)
Dim $edit = GUICtrlCreateEdit("",10,10,280,180, $ES_READONLY + $WS_VSCROLL)
GUISetState()

Dim $ConnectedSocket = -1

Do
    $ConnectedSocket = TCPAccept($MainSocket)
Until $ConnectedSocket <> -1

Dim $szIP_Accepted = SocketToIP($ConnectedSocket)

Dim $msg, $recv

While 1
   $msg = GUIGetMsg()

    If $msg = $GUI_EVENT_CLOSE Then ExitLoop

    $recv = TCPRecv( $ConnectedSocket, 2048 )
    
    If @error Then ExitLoop

    If $recv <> "" Then GUICtrlSetData($edit, _
            $szIP_Accepted & " > " & $recv & @CRLF & GUICtrlRead($edit))
WEnd



If $ConnectedSocket <> -1 Then TCPCloseSocket( $ConnectedSocket )

TCPShutDown()



Func SocketToIP($SHOCKET)
    Local $sockaddr = DLLStructCreate("short;ushort;uint;char[8]")

    Local $aRet = DLLCall("Ws2_32.dll","int","getpeername","int",$SHOCKET, _
            "ptr",DLLStructGetPtr($sockaddr),"int_ptr",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
EndFuncoÝ÷ Ø"ÈÔÚºÚ"µÍÚ[ÛYH  ÑÕRPÛÛÝ[Ë]LÉÝÂÔÝ

B[H ÌÍÚÛÛXÝYH[]Þ
    ][ÝØÛÛXÝ   ][ÝË  ][ÝÝÜ]HHÙHÛÛ]][ÝHÛÝ[ZÙHÈÛÛXÝË][ÝÊB[H   ÌÍÜÞTQTÔÈH    ÌÍÚÛÛXÝY[H    ÌÍÛÔHÌÎLB[H   ÌÍÐÛÛXÝYÛØÚÙ]HLBÌÍÐÛÛXÝYÛØÚÙ]HÔÛÛXÝ
    ÌÍÜÞTQTÔË ÌÍÛÔ
B[H ÌÍÑÓÓÑVHHÕRPÜX]J    ][ÝØÛÛXÝÈÙ
T   ][ÝÈ  [È ÌÍÜÞTQTÔÈ [È ][ÝÊI][ÝË


B[H ÌÍÜÞ]HHÕRPÝÜX]R[]
    ][ÝÉ][ÝËLLÌJB[H    ÌÍÜÙ[HÕRPÝÜX]P]Û    ][ÝÜÙ[   ][ÝËÌL
JBÕRTÙ]Ý]J
BYÜ[ÙÐÞ
    ][ÝÑÜ][ÝË  ][ÝØØ[ÝÛÛXÝ  ][ÝÊB[ÙBÚ[HB    ÌÍÛÙÈHÕRQÙ]ÙÊ
BÙ[XÝØÙH    ÌÍÛÙÈH ÌÍÑÕRWÑUSÐÓÔÑB^]ÛÜØÙH  ÌÍÛÙÈH ÌÍÜÙ[ÔÙ[
    ÌÍÐÛÛXÝYÛØÚÙ]ÕRPÝXY
    ÌÍÜÞ]JJB[Ù[XÝÑ[[Y

the server accepts messages only from the computer that the server is runnning? how can i change this and allow the client to connect to the server globaly?

please help...

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  

×