TCPAccept Bug? O_O

myli · May 4, 2007

Hello. Im trying to code a lil remote administration tool.

if i use out of the mainloop a Do $mSock = TCPAccept($listeningSock) it works perfectly. I Get 2 packets from the Sender and it can accept them both without any problems. IF i build the $mSock = TCPAccept within my main while loop, then i receive only the first packet.

The packets are sent in this row:

TCPSend($ratSocket, "1.0:" & $oIP & ":" & $cNICK & ":" & @ComputerName & ":AUTH:" & ":0" & @CRLF)

then i wait for the Server for a "AUTH". im receiving that and then.. usually i have to send

TCPSend($ratSocket, "1.0:" & $oIP & ":" & $cNICK & ":" & @ComputerName & ":VERSION:" & ":0" & @CRLF)

wich works too. just my server wont respnse if the $mSock = TCPAccept($listeningsock) is in my While(1) loop.

if it's before in Do $mSock = TcpAccept($listeningSock) Until $mSock <> -1 its working.

here is the source..

thanks so far (=

#include <Misc.au3>
#include <GUIConstants.au3>
;#include <A3LTreeView.au3>
#include "config.au3"

;TCPStartup()
TCPStartup()

; GUICreate
;$maingui = GUICreate("Camera", 350, 270)
$maingui = GUICreate("Rat Tool by Li",450,250,-1,-1,BitOr($WS_MINIMIZEBOX,$WS_GROUP,$WS_CAPTION,$WS_POPUP,$WS_SYSMENU))
$menutree = GUICtrlCreateTreeView (10,10,100,230)
$aboutitem = GUICtrlCreateTreeViewItem ("About", $menutree)
$chatitem = GUICtrlCreateTreeViewItem ("Chat",$menutree)
$ircchatitem = GUICtrlCreateTreeViewItem ("IRC",$chatitem)
$matrixchatitem = GUICtrlCreateTreeViewItem ("Matrix",$chatitem)
$captureitem = GUICtrlCreateTreeViewItem("Capture", $menutree)
$screencaptureitem = GUICtrlCreateTreeViewItem("Screen", $captureitem)
$webcamcaptureitem = GUICtrlCreateTreeViewItem("Webcam", $captureitem)

;Version:ip:botnick:computername:command:slave:pslave
;; ABout Gui
$aboutGroup = GUICtrlCreateGroup ("Informationen", 115, 5, 330, 130)
$versionLabel = GUICtrlCreateLabel ("Version: ", 130, 25, 80, 20)
$versionInput = GuiCtrlCreateInput("", 210, 25, 230, 20, $ES_READONLY)
$ipLabel = GUICtrlCreateLabel("IP: ", 130, 50, 80, 20)
$ipInput = GuiCtrlCreateInput("", 210, 50, 230, 20, $ES_READONLY)
$computerLabel = GUICtrlCreateLabel("Computername", 130, 75, 80, 20)
$computerInput = GuiCtrlCreateInput("", 210, 75, 230, 20, $ES_READONLY)
$botnickLabel = GuiCtrlCreateLabel("Botnick", 130, 100, 80, 20)
$botnickInput = GuiCtrlCreateInput("", 210, 100, 230, 20, $ES_READONLY)

$aboutlabel = GUICtrlCreateLabel ("Rat Tool 'n Bot Coded by li (=.",300,225,180,20)
$testButton = GUICtrlCreateButton("TestButton", 160,220,100,20)
GUICtrlSetColor ($aboutitem, 0xFFFFFF)
GUICtrlSetColor($captureitem, 0xB8AE88)
GUICtrlSetColor($chatitem, 0xB8AE88)
GuiCtrlSetcolor($ircchatitem, 0xFFFFFF)
GuiCtrlSetcolor($matrixchatitem, 0xFFFFFF)
GuiCtrlSetcolor($screencaptureitem, 0xFFFFFF)
GuiCtrlSetcolor($webcamcaptureitem, 0xFFFFFF)

GUICtrlSetBkColor ($menutree,0xA49B88)
GuiCtrlSetBKColor($versionInput, 0xA49B88)
GuiCtrlSetBKColor($ipInput, 0xA49B88)
GuiCtrlSetBKColor($computerInput, 0xA49B88)
GuiCtrlSetBKColor($botnickInput, 0xA49B88)

GUISetState(@SW_SHOW)

; GUIEND

; *******************
; *** Chat Gui (= ***
; *******************
$IRCchatInputChannel = GUICtrlCreateInput("#Target", 120, 180, 80, 20)
$IRCChatInputText = GuiCtrlCreateInput("Your Text (=", 200, 180, 190, 20)
$IRCChatGroup = GUICtrlCreateGroup("IRC Chat", 115, 5, 330, 200)
$IRCChatEditList  = GuiCtrlCreateEdit("", 120, 25, 320, 150, BitOr($ES_AUTOVSCROLL, $ES_READONLY))
$IRCChatButtonSend = GUICtrlCreateButton("Send!", 390, 179, 50, 19)
GUIctrlSetState ($IRCChatGroup, $GUI_HIDE)
GUIctrlSetState ($IRCChatEditList, $GUI_HIDE)
GUIctrlSetState ($IRCChatButtonSend, $GUI_HIDE)
GUIctrlSetState ($IRCchatInputChannel, $GUI_HIDE)
GUIctrlSetState ($IRCChatInputText, $GUI_HIDE)
GUICtrlSetBkColor ($IRCchatInputChannel,0xA49B88)
GuiCtrlSetBKColor($IRCChatInputText, 0xA49B88)
GuiCtrlSetBKColor($IRCChatButtonSend, 0xA49B9B)
GuiCtrlSetBKColor($IRCChatEditList, 0xD0D9EB)
; *******************
; *** Cam Capture ***
; *******************
$cap = DllCall(DllOpen("avicap32.dll"), "int", "capCreateCaptureWindow", "str", "cap", "int", BitOR($WS_CHILD, $WS_VISIBLE), "int",0, "int", 0, "int", 0, "int", 0, "hwnd", $maingui, "int", 1);Msgbox(0,$cap,$cap)
DllCall(DllOpen("user32.dll"), "int", "SendMessage", "hWnd", $cap[0], "int", $WM_CAP_DRIVER_CONNECT, "int", 0, "int", 0)
DllCall(DllOpen("user32.dll"), "int", "SendMessage", "hWnd", $cap[0], "int", $WM_CAP_SET_SCALE, "int", 1, "int", 0)
DllCall("user32.dll", "int", "SendMessage", "hWnd", $cap[0], "int", $WM_CAP_SET_OVERLAY, "int", 1, "int", 0)
DllCall("user32.dll", "int", "SendMessage", "hWnd", $cap[0], "int", $WM_CAP_SET_PREVIEW, "int", 1, "int", 0)
DllCall("user32.dll", "int", "SendMessage", "hWnd", $cap[0], "int", $WM_CAP_SET_PREVIEWRATE, "int", 1, "int", 0)
Func SnapShot()
    DllCall("user32.dll", "int", "SendMessage", "hWnd", $cap[0], "int", $WM_CAP_GRAB_FRAME_NOSTOP, "int", 0, "int", 0)
    DllCall("user32.dll", "int", "SendMessage", "hWnd", $cap[0], "int", $WM_CAP_FILE_SAVEDIBA, "int", 0, "str", $snapfile)
EndFunc  


$listenSocket = TCPListen(@IPAddress1, $ratPort, 5)
if $listenSocket = -1 Then  MsgBox(0, "Error", "Cannot listen at Receiver port.")
        
while (1)       
    
    $mSock = TCPAccept($listenSocket)
    ;if ($mSock = -1) Then MsgBox(0,@error,@error)
    $mBuffer = ""
    $mBuffer = TcpRecv($mSock, 4096)
    
    $ratVersion = ""
    $ratIP = ""
    $ratComputer = ""
    $ratSlave = ""
    $ratSlaveSlave = ""
    $ratParse = ""
    $ratcommand = ""
                
    if ($mBuffer <> "") Then
                $mBuffer = StringStripWS ( $mBuffer, 3 )
                $ratParse = StringSplit($mBuffer, ":")
                    for $i = 0 to UBound($ratParse) -1
                        Select
                            Case $i = 1
                                $ratVersion = $ratParse[$i]
                            Case $i = 2
                                $ratIP = $ratParse[$i]
                            Case $i = 3
                                $ratBotnick = $ratParse[$i]
                            Case $i = 4
                                $ratComputer = $ratParse[$i]
                            Case $i = 5
                                $ratCommand = $ratParse[$i]
                            Case $i = 6 
                                $ratSlave = $ratParse[$i]
                            Case $i = 7 
                                $ratSlaveslave = $ratParse[$i]
                        EndSelect
                    Next
                    ;MsgBox(0,$ratCommand,$ratCommand)
                    Select
                        Case $ratCommand = "AUTH"
                            TCPSend($mSock, "AUTH:0:" & @crlf)
                        Case $ratCommand = "VERSION"
                            TCPSend($mSock, "VERSION:" & $ClientVersion & ":" & @crlf)
                    EndSelect
                    GUICtrlSetData ($versionInput, $ratVersion)
                    GUICtrlSetData ($computerInput, $ratComputer)
                    GUICtrlSetData ($ipInput, $ratIP)
                    GUICtrlSetData ($botnickInput, $ratBotnick)
                EndIf
                $msg = GUIGetMsg()
    Select
            Case $msg = $aboutitem
                GUIctrlSetState ($versionLabel, $GUI_SHOW)
                GUIctrlSetState ($versionInput, $GUI_SHOW)
                GUIctrlSetState ($ipLabel, $GUI_SHOW)
                GUIctrlSetState ($ipInput, $GUI_SHOW)
                GUIctrlSetState ($computerLabel, $GUI_SHOW)
                GUIctrlSetState ($computerInput, $GUI_SHOW)
                GUIctrlSetState ($botnickLabel, $GUI_SHOW)
                GUIctrlSetState ($botnickInput, $GUI_SHOW)
                GUIctrlSetState ($IRCchatInputChannel, $GUI_HIDE)
                GUIctrlSetState ($IRCChatInputText, $GUI_HIDE)
                GUIctrlSetState ($IRCChatGroup, $GUI_HIDE)
                GUIctrlSetState ($IRCChatEditList, $GUI_HIDE)
                GUIctrlSetState ($IRCChatButtonSend, $GUI_HIDE)
                GUIctrlSetState ($aboutGroup, $GUI_SHOW)
            Case $msg = $chatitem 
                GUIctrlSetState ($versionLabel, $GUI_HIDE)
                GUIctrlSetState ($versionInput, $GUI_HIDE)
                GUIctrlSetState ($ipLabel, $GUI_HIDE)
                GUIctrlSetState ($ipInput, $GUI_HIDE)
                GUIctrlSetState ($computerLabel, $GUI_HIDE)
                GUIctrlSetState ($computerInput, $GUI_HIDE)
                GUIctrlSetState ($botnickLabel, $GUI_HIDE)
                GUIctrlSetState ($botnickInput, $GUI_HIDE)
                GUIctrlSetState ($IRCchatInputChannel, $GUI_HIDE)
                GUIctrlSetState ($IRCChatInputText, $GUI_HIDE)
                GUIctrlSetState ($IRCChatGroup, $GUI_HIDE)
                GUIctrlSetState ($IRCChatEditList, $GUI_HIDE)
                GUIctrlSetState ($IRCChatButtonSend, $GUI_HIDE)
                GUIctrlSetState ($aboutGroup, $GUI_HIDE)
            Case $msg = $ircchatitem 
                GUIctrlSetState ($IRCchatInputChannel, $GUI_SHOW)
                GUIctrlSetState ($IRCChatInputText, $GUI_SHOW)
                GUIctrlSetState ($IRCChatGroup, $GUI_SHOW)
                GUIctrlSetState ($IRCChatEditList, $GUI_SHOW)
                GUIctrlSetState ($IRCChatButtonSend, $GUI_SHOW)
            Case $msg = $IRCChatButtonSend 
                if (GUICtrlRead($IRCChatInputText) <> "" AND GUICtrlRead($IRCchatInputChannel) <> "") Then
                    TCPSend($mSock, "IRCSEND:" & GUICtrlRead($IRCchatInputChannel) & ":" & GUICtrlRead($IRCChatInputText) & @CRLF)
                    GUICtrlSetData($IRCChatEditList, "Sent to " & GUICtrlRead($IRCchatInputChannel) & ": " & GUICtrlRead($IRCChatInputText) & @CRLF,"IRCChat")
                EndIf
            Case $msg = $GUI_EVENT_CLOSE 
                ExitLoop
                Exit
        EndSelect
              DllCall("psapi.dll", "int", "EmptyWorkingSet", "long", -1)
    ;*** cleanup
    
WEnd

Edited May 4, 2007 by Larry

myli · May 4, 2007

yeah, but if i look into the documentation it's 1:1 the same. http://www.autoitscript.com/autoit3/docs/f...s/TCPAccept.htm

Helge · May 4, 2007

Larry, what about having a helpfile-entry that shows the basics of networking, similar to what's done with GUI (GUI Reference) ?

Just an idea I had.

Sign In

TCPAccept Bug? O_O

Recommended Posts

myli

Link to comment

Share on other sites

myli

Link to comment

Share on other sites

Helge

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Browse

AutoIt Resources

Release

Beta