Jump to content
matwachich

[Class] Simple TCP with OOP

Recommended Posts

Hi everybody!

Here is my new super tool!

It's an AutoItObject TCP Class! Very simple to use, with example and complet decumentation (Made with NaturalDocs)

There are two classes: Client, and Server.

- The data are encrypted!

- The server can handle multiple clients

- Data buffering, if you send a big amount of data, it will received as it was sent, not as many little parts of it

- OOP programing! (very simple!)

PS: You don't need to download AutoItObject, everything you need is in the zip.

Update: 03/11/2011

+: Added, -: Deleted/Deprecated, *: Modified, !: Bug corrected
=== 1.1c === (30/10/2011)
Server:
+: ClientGetBufferLen method
+: Completed doc of ClientPropertyGet and ClientPropertySet methods (Return values)
*: Now, when calling .Shutdown, the Callback_LostClient is called for each client.
!: Corrected bug: Script error when calling .DisconnectAll befor calling at least one
    time .Startup (Main socket array was not dimensioned)

UDF_TCPClass.rar

Edited by matwachich

Share this post


Link to post
Share on other sites

this is fantastic :graduated:

i love it!!!!!!

it works like a charm.

now i just need to figure out how to send and recive files with this, i very impressed how stable it is.

Edited by lgvlgv

Share this post


Link to post
Share on other sites

matwachich nice job! :graduated: Im surprised you havent got more comments. Very good use of autoitobject. And documentation is cool too. I like the html. One thing about the examples, you should add a check for window close in your loop. Since you have the tray icon hidden I dont know how to get out of it.

edit: and maybe add the examples to your zip so the user dosent have to copy and create from the help file to test it.

Edited by Beege

Share this post


Link to post
Share on other sites

Hi everybody!

Here is my new super tool!

It's an AutoItObject TCP Class! Very simple to use, with example and complet decumentation (Made with NaturalDocs)

There are two classes: Client, and Server.

- The data are encrypted!

- The server can handle multiple clients

- Data buffering, if you send a big amount of data, it will received as it was sent, not as many little parts of it

- OOP programing! (very simple!)

PS: You don't need to download AutoItObject, everything you need is in the zip.

Here is the zip, enjoy!

So good work!

One question: how do you compile AutoItObject.au3 to DLL file?

(In the Function of _File_AutoItObject_dll(), how do you get $string?)

Share this post


Link to post
Share on other sites

One question: how do you compile AutoItObject.au3 to DLL file?

(In the Function of _File_AutoItObject_dll(), how do you get $string?)

You dont. The Autoitobject UDF automatically extracts the dll for use at runtime.

Share this post


Link to post
Share on other sites

Update 1.1b: Bug correction and new examples

Change log:

=== 1.1b === (30/09/2011)
Server:
!: Corrected bug in Number of client's extended properties
*: Documentation corrected (added 0-based for ClientPropertyGet/Set)
+: New Method: NbrClients
*: Property NbrClients is now private
Client:
!: Changed return value of Connect method (see documentation)

PS: If you want to send a file, just read it's content with binary mode (flag 16 in FileOpen) and send it! The receiver will receive binary data, and all you have to do is write it on a file with binary mode too (flag 18 in FileOpen)

For archive download, see first post

Share this post


Link to post
Share on other sites

Update 1.1b: Bug correction and new examples

Change log:

=== 1.1b === (30/09/2011)
Server:
!: Corrected bug in Number of client's extended properties
*: Documentation corrected (added 0-based for ClientPropertyGet/Set)
+: New Method: NbrClients
*: Property NbrClients is now private
Client:
!: Changed return value of Connect method (see documentation)

PS: If you want to send a file, just read it's content with binary mode (flag 16 in FileOpen) and send it! The receiver will receive binary data, and all you have to do is write it on a file with binary mode too (flag 18 in FileOpen)

For archive download, see first post

i will try it a.s.a.p.

PS.

I love ur work :graduated:

DS

Share this post


Link to post
Share on other sites

i get one error every time i start the app i maid on client side, think it has nothing to do with ur scripts and i think i allways had it.

Yet everything works as it should and cant see any errors in anything else then exept when i start my client (think i implemented ur code a litte wrong?)

Do u have any idea where i should start to look?

in ur client.au3, line 6 is

Global $__TCPClass_oMyErr = ObjEvent("AutoIt.Error", "_TCPClass_ErrFunc")

when i do this.

ConsoleWrite("test")

#include "Client.au3"

ConsoleWrite("test1")

i can see it must be the client.au3

>Running:(3.3.6.1):C:\Program\AutoIt3\autoit3.exe "H:\Jobb\scripts\Dev\ChargeDeamon\utveckling\Ny\CH-Agent\CH-Agent.au3" -d  
testA COM Error has occured!
err.description is:
err.windescription:
err.number is:  00000002
err.lastdllerror is:  0
err.scriptline is:  6
err.source is:
err.helpfile is:
err.helpcontext is:
test1@@(266) :(42:37)Updateing client settnigs...
@@ (500) :(42:37) _Getbiosinfo()
@@(266) :(42:37)Updateing webserver...
Edited by lgvlgv

Share this post


Link to post
Share on other sites

Update 1.1b: Bug correction and new examples Change log:

=== 1.1b === (30/09/2011) Server: !: Corrected bug in Number of client's extended properties *: Documentation corrected (added 0-based for ClientPropertyGet/Set) +: New Method: NbrClients *: Property NbrClients is now private Client: !: Changed return value of Connect method (see documentation)
PS: If you want to send a file, just read it's content with binary mode (flag 16 in FileOpen) and send it! The receiver will receive binary data, and all you have to do is write it on a file with binary mode too (flag 18 in FileOpen) For archive download, see first post

What im i doing wrong?

server sends:
Case $ButtonViewDesktop
Local $sock1 = _GUICtrlListView_GetItemTextArray(GUICtrlGetHandle($ListViewClients)) ;gets the socket
SendPacketToServer($sock1[7], "~~GetScreenShot")

client do:
Case $data[0] = "~~GetScreenShot"
SetClientStatus(1, "Sending Screenshot")
_ScreenCapture_SetJPGQuality(100)
_ScreenCapture_Capture(@DesktopDir & "\tempscreen1.jpg")
sleep(1000)
local $screenfile = FileOpen(@DesktopDir & "\tempscreen1.jpg", 16)
$oClient.Send("~~SendingScreenshot|" & $screenfile)
sERVER RECIVES:
Case $data[0] = "~~SendingScreenshot"
;_ArrayDisplay($data)
local $screenshotfile = FileOpen(@DesktopDir & "\SCREEN.JPG", 18)
Filewrite($screenshotfile, $data[1])
FileClose($screenshotfile)

Share this post


Link to post
Share on other sites

Try like this

Filewrite($screenshotfile, Binary($data[1]))

Or, try to not mix between String data and binary data here: $oClient.Send("~~SendingScreenshot|" & $screenfile)

What i do is, to send a small command to the server to tell him that the next received data will be a screen shot, and just after that, i send ONLY the screen shot binary data, and it works for me.

About the com error, i really don't know, don't have it.

Share this post


Link to post
Share on other sites

Try like this

Filewrite($screenshotfile, Binary($data[1]))

Or, try to not mix between String data and binary data here: $oClient.Send("~~SendingScreenshot|" & $screenfile)

What i do is, to send a small command to the server to tell him that the next received data will be a screen shot, and just after that, i send ONLY the screen shot binary data, and it works for me.

About the com error, i really don't know, don't have it.

Ive got it working :graduated: thx alot.

had 2 stupid errors in the script one was that i only read 4096 of the file no matter how big it was ;) (cut and past from another guys script)

One last question!

there are another threed here on the forums about running "ur own" scripts as a service do u know if its possible to merge ur example with there exampels?

i nuderstand this is not ur table, but beeing a guru and all u probbebly allready have the answer. sorrry for my bad swenglish (im swedish ;) )

any of the example would do :)

Edited by lgvlgv

Share this post


Link to post
Share on other sites

#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.6.1
Author:      Matwachich
Script Function:
#ce ----------------------------------------------------------------------------
#include <Services.au3>
Global $srvName = "custom_service", $srvDesc = "My Custom Au3 Service"
If Not _Service_Exists($srvName) Then
; This creates your service in windows service manager, it hase to be done
; only one time.
_Service_Create($srvName, $srvDesc, _
     $SERVICE_WIN32_OWN_PROCESS + $SERVICE_INTERACTIVE_PROCESS, _
     $SERVICE_AUTO_START, _
     $SERVICE_ERROR_IGNORE, _
     '"' & @ScriptFullPath & '"')
EndIf
; This starts your service, calling the _Svc_Main function
_Service_init($srvName)
; ##############################################################
Func _Svc_Main()
; Now, all your code goes here!
EndFunc

Share this post


Link to post
Share on other sites

#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.6.1
Author:      Matwachich
Script Function:
#ce ----------------------------------------------------------------------------
#include <Services.au3>
Global $srvName = "custom_service", $srvDesc = "My Custom Au3 Service"
If Not _Service_Exists($srvName) Then
; This creates your service in windows service manager, it hase to be done
; only one time.
_Service_Create($srvName, $srvDesc, _
     $SERVICE_WIN32_OWN_PROCESS + $SERVICE_INTERACTIVE_PROCESS, _
     $SERVICE_AUTO_START, _
     $SERVICE_ERROR_IGNORE, _
     '"' & @ScriptFullPath & '"')
EndIf
; This starts your service, calling the _Svc_Main function
_Service_init($srvName)
; ##############################################################
Func _Svc_Main()
; Now, all your code goes here!
EndFunc

ahh, its under _Svc_main i should put it :graduated: tryed to put it everywere else ;)

i will try it as soon as i get home :)

//Thx alot

Share this post


Link to post
Share on other sites

question...

o_server.au3 add code

#region ### START Koda GUI section ###

$GUI_Main = GUICreate("Mini-Server", 1408, 228)

$tab = GUICtrlCreateTab(6, 6, 1297, 217)

$bsen = GUICtrlCreateButton('bsend',1300,6,100,25)

GUISetState(@SW_SHOW)

#endregion ### END Koda GUI section ###

---------->

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

Case $bsen

Local $Sockets = $oSrv.SocketIDList()

If $oSrv.Broadcast($Sockets, 'bsend') Then

MsgBox(0,'','all')

EndIf

EndSwitch

; ---

$oSrv.Process()

__Process($nMsg)

WEnd

is not send...msg..help me....

Edited by davidkim

I interest am many quite in AutoitScript.From that is [http://cafe.naver.com/autoitscript[/color]] Korea of cafe(blog) to be operating, [size="2"][color="#ff00ff"]English cannot well[/size].Many help it requests.To read, it stands it thanks.

Share this post


Link to post
Share on other sites

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

Case $bsen

Local $Sockets = $oSrv.SocketIDList()

If $oSrv.Broadcast($Sockets, 'bsend') Then ; is not send...

MsgBox(0,'','all')

EndIf

;/// is var enable....

_ArrayDisplay($__TCPServer_Sockets)

For $i = 0 To $oSrv.max_clients - 1

If $__TCPServer_Sockets[$i][0] <> -1 Then TCPSend($__TCPServer_Sockets[$i][0], 'bsend')

;// is send not.......

Next

help me...

EndSwitch

; ---

$oSrv.Process()

__Process($nMsg)

WEnd


I interest am many quite in AutoitScript.From that is [http://cafe.naver.com/autoitscript[/color]] Korea of cafe(blog) to be operating, [size="2"][color="#ff00ff"]English cannot well[/size].Many help it requests.To read, it stands it thanks.

Share this post


Link to post
Share on other sites

Your problem is that you have not well read the documentation of the broadcast method. It takes only one parameter: The data to be sent.

Why do you pass it the socketID list???!!!

#region ### START Koda GUI section ###
$GUI_Main = GUICreate("Mini-Server", 1408, 228)
$tab = GUICtrlCreateTab(6, 6, 1297, 217)
$bsen = GUICtrlCreateButton('bsend', 1300, 6, 100, 25)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit
  Case $bsen
   If $oSrv.Broadcast('bsend') Then
    MsgBox(0, '', 'all')
   EndIf
EndSwitch
; ---
$oSrv.Process()
__Process($nMsg)
WEnd

Share this post


Link to post
Share on other sites

I now run 1 server speaking <> with 60+ clients no problem or error to report, working great.

Thx for this great job.

Share this post


Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.

Sign In Now

  • Similar Content

    • By AoRaToS
      I started working on this program in the summer then I stopped cause I faced some problems I couldn't overcome back then. Now that I've practiced more and have become a better scripter/programmer I'm releasing the program to the public to get some opinions. I know it's not a new concept but it's the first program I started besides some small stuff I did just for practice! I won't post the source code yet because it's still under construction, although I'm sure I've posted early stages of the code with bugs in the past in some topic...
      What I wanted was a simple, small, serverless program that would work without installation cause I wanted it for where I work, so I ended up with this!
       
      I have attached some images of various versions, also visit the forum thread.
       
      The package includes s!mpL3 LAN Messenger, the License Agreement and the change log.
       
      Current version 2.9.9.0! [13/06/2019]
       
      Check the Change Log below!
       
       
      http://www.autoitscript.com/forum/index.php?showtopic=88782
       
       
       
      Read the license before using this software.
       
    • By Jeep
      Here is an other UDF for string handling :
      Date handling
      _StringDateConvert:  convert a date from one format ("YMD", "MDY" or "DMY") to another.
      _StringIsDate:  checks if a date with a given format is valid
      String management
      _StringCount: count of occurrences that appear in a string
      _StringFormatBytesSize: formatting a dimension expressed in bytes (bytes) in MB, TB, ...)
      _StringIsEndingWith: check if a string end with some characters
      _StringIsStartingWith: check if a string start with some characters
      _StringJoinArray:  concatenate elements of an array to rebuild a string
      _StringPadLeft: filling a string with characters on the left
      _StringPadRight: fill a string with characters on the right
      _StringRemoveFrenchAccent: remove french accent
      _StringRemoveChars: deleting characters from a string
      _StringStrip: eliminate characters at the begin and/or at the  end of a string
      _StringTitleCaseFrench: capitalize the first letter of each word with elimination of french accents
      _StringWSClean: simple replacement of "White Spaces",  remove beginning and trailing spaces and multiple spaces removal
      Any comments, suggestions for improvement or constructive criticism are welcome.
      Below you will find the UDF and a demo program. 
       
       
      JPD_String.zip
    • By XinYoung
      Greetings!
      I am in need of your guidance once again. I searched the forums for clicking in span, clicking by class, clicking without an ID or Name, etc., but I am unable to find a solution for my problem.
      I am trying to expand this tree in IE. There is an arrow ( > ) that i need to click, but I can't find a way to do it . Alternatively, I can double-click the text "Servers", but that seems to be even more troublesome. I will have to do this 2-3 more times as the tree expands.
      There appears to be an ID for the tree, simply called "tree", but that isn't working when I send a click to it.

      ;Open an IE session and navigate to pgAdmin. Global $oIE = _IECreate($pgAdmin) ;Maximize the IE window. WinSetState(_IEPropertyGet($oIE, "hwnd"), "", @SW_MAXIMIZE) Sleep(2000) ;Expand the tree $oTree = _IEGetObjById($oIE, "tree") _IEAction($oTree, "click") Any ideas?  
    • By HansHenrik
      ----------
      edit: this is probably in the wrong place, can a moderator move it to wherever it belongs?
      ----------

      is there any way to completely disable TCPTimeout and make TCPRecv() wait indefinitely? maybe setting it to 0 or -1 or something? 
      the docs doesn't seem to mention any way to disable it

      - the underlying C code would set SO_RCVTIMEO to 0 , aka

      DWORD timeout=0;
      setsockopt(s, SOL_SOCKET, SO_RCVTIMEO, &timeout, sizeof(timeout));
    • By Pricehacker
      Hello again!
      I have tried searching for quite some time now but couldn´t find a single working way to change the class of your GUI that doesn´t include changing it manually after its compilation.
      First or "AutoIt v3 GUI" is a pretty boring name tbh and i would like to spice it up a bit, also, and more importantly, I would like to identify my windows by something other than its title as it will change depending on some factors and im using two different programs independently as multi threading isn't supported.
      Any help is appreciated! Thank you!
×
×
  • Create New...