Churchy112 Posted June 15, 2015 Posted June 15, 2015 Hello, I'm trying my hand at a simple TCP server and client but I have a bit of a worry! I create a simple GUI to return the error code following the TCPStartUp command and its returning an error! I have tried using some example TCP Scripts too which don't seem to work properly. Would someone mind having a look at my code below and tell me if the TCPStartUp should be working? Should it be returning errorcode 1? And should my text steps be TCP Listen > TCP Accept > TCP Recieve?I'm a bit of a noob so any help would be hugely appreciated #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> Opt('GUIonEventMode', 1) $GUI = GUICreate("S.M.I Server", 472, 311, 751, 312) $Content = GUICtrlCreateEdit("", 8, 8, 313, 289, BitOR($GUI_SS_DEFAULT_EDIT,$ES_READONLY)) GUISetState(@SW_SHOW) GUICtrlSetData($Content, "Content") TCPStartup() IF @error == 1 Then GUICtrlSetData($content, "TCP Services started with: " & @Error) Else GUICtrlSetData($content, "TCP Services failed with error: " & @error) EndIf While 1 GUISetOnEvent($GUI_EVENT_CLOSE, "quit", $GUI) WEnd Func quit() TCPShutdown() GUICtrlSetData($content, "TCP Shut Down: " & @error) sleep(700) Exit EndFunc
Andreik Posted June 15, 2015 Posted June 15, 2015 TcpStartup() will return 1 if the service started and 0 if not. You can use @error macro in case the function call failed to start tcp service to see wherethe problem is.
232showtime Posted June 15, 2015 Posted June 15, 2015 (edited) try this:; == Start the TCP service. Example() Func Example() Local $vTCP = TCPStartup() ; Start the TCP service. If $vTCP = 1 Then MsgBox(64, "", $vTCP) EndIf EndFunc ;==>Example Edited June 15, 2015 by 232showtime ill get to that... i still need to learn and understand a lot of codes Correct answer, learn to walk before you take on that marathon.
Churchy112 Posted June 15, 2015 Author Posted June 15, 2015 try this:; == Start the TCP service. Example() Func Example() Local $vTCP = TCPStartup() ; Start the TCP service. If $vTCP = 1 Then MsgBox(64, "", $vTCP) EndIf EndFunc ;==>Example I assigned a variable to TCPStartUp() as you did and this returns the error code I'm now expecting within my GUI! Thanks.Next step is trying to get another script to talk to this one.
guinness Posted June 15, 2015 Posted June 15, 2015 You don't really need to hardcode the 1, If $vTCP Then is enough as anything that isn't zero is consider True, with zero meaning False. This is the beauty (or ugly side) of dynamic languages. UDF List: _AdapterConnections() • _AlwaysRun() • _AppMon() • _AppMonEx() • _ArrayFilter/_ArrayReduce • _BinaryBin() • _CheckMsgBox() • _CmdLineRaw() • _ContextMenu() • _ConvertLHWebColor()/_ConvertSHWebColor() • _DesktopDimensions() • _DisplayPassword() • _DotNet_Load()/_DotNet_Unload() • _Fibonacci() • _FileCompare() • _FileCompareContents() • _FileNameByHandle() • _FilePrefix/SRE() • _FindInFile() • _GetBackgroundColor()/_SetBackgroundColor() • _GetConrolID() • _GetCtrlClass() • _GetDirectoryFormat() • _GetDriveMediaType() • _GetFilename()/_GetFilenameExt() • _GetHardwareID() • _GetIP() • _GetIP_Country() • _GetOSLanguage() • _GetSavedSource() • _GetStringSize() • _GetSystemPaths() • _GetURLImage() • _GIFImage() • _GoogleWeather() • _GUICtrlCreateGroup() • _GUICtrlListBox_CreateArray() • _GUICtrlListView_CreateArray() • _GUICtrlListView_SaveCSV() • _GUICtrlListView_SaveHTML() • _GUICtrlListView_SaveTxt() • _GUICtrlListView_SaveXML() • _GUICtrlMenu_Recent() • _GUICtrlMenu_SetItemImage() • _GUICtrlTreeView_CreateArray() • _GUIDisable() • _GUIImageList_SetIconFromHandle() • _GUIRegisterMsg() • _GUISetIcon() • _Icon_Clear()/_Icon_Set() • _IdleTime() • _InetGet() • _InetGetGUI() • _InetGetProgress() • _IPDetails() • _IsFileOlder() • _IsGUID() • _IsHex() • _IsPalindrome() • _IsRegKey() • _IsStringRegExp() • _IsSystemDrive() • _IsUPX() • _IsValidType() • _IsWebColor() • _Language() • _Log() • _MicrosoftInternetConnectivity() • _MSDNDataType() • _PathFull/GetRelative/Split() • _PathSplitEx() • _PrintFromArray() • _ProgressSetMarquee() • _ReDim() • _RockPaperScissors()/_RockPaperScissorsLizardSpock() • _ScrollingCredits • _SelfDelete() • _SelfRename() • _SelfUpdate() • _SendTo() • _ShellAll() • _ShellFile() • _ShellFolder() • _SingletonHWID() • _SingletonPID() • _Startup() • _StringCompact() • _StringIsValid() • _StringRegExpMetaCharacters() • _StringReplaceWholeWord() • _StringStripChars() • _Temperature() • _TrialPeriod() • _UKToUSDate()/_USToUKDate() • _WinAPI_Create_CTL_CODE() • _WinAPI_CreateGUID() • _WMIDateStringToDate()/_DateToWMIDateString() • Au3 script parsing • AutoIt Search • AutoIt3 Portable • AutoIt3WrapperToPragma • AutoItWinGetTitle()/AutoItWinSetTitle() • Coding • DirToHTML5 • FileInstallr • FileReadLastChars() • GeoIP database • GUI - Only Close Button • GUI Examples • GUICtrlDeleteImage() • GUICtrlGetBkColor() • GUICtrlGetStyle() • GUIEvents • GUIGetBkColor() • Int_Parse() & Int_TryParse() • IsISBN() • LockFile() • Mapping CtrlIDs • OOP in AutoIt • ParseHeadersToSciTE() • PasswordValid • PasteBin • Posts Per Day • PreExpand • Protect Globals • Queue() • Resource Update • ResourcesEx • SciTE Jump • Settings INI • SHELLHOOK • Shunting-Yard • Signature Creator • Stack() • Stopwatch() • StringAddLF()/StringStripLF() • StringEOLToCRLF() • VSCROLL • WM_COPYDATA • More Examples... Updated: 22/04/2018
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now