Jump to content
Sign in to follow this  
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
Sign in to follow this  

  • Recently Browsing   0 members

    No registered users viewing this page.

  • Similar Content

    • By TheXman
      Purpose (from Microsoft's website)
      The HTTP Server API enables applications to communicate over HTTP without using Microsoft Internet Information Server (IIS). Applications can register to receive HTTP requests for particular URLs, receive HTTP requests, and send HTTP responses. The HTTP Server API includes SSL support so that applications can exchange data over secure HTTP connections without IIS.
      Description
      There have been several times in the past that I wanted to either retrieve information from one of my PCs or execute commands on one of my PCs, whether it was from across the world or sitting on my couch.  Since AutoIt is one of my favorite tools for automating just about anything on my PC, I looked for ways to make to make it happen.  Setting up a full blown IIS server seemed like overkill so I looked for lighter weight solutions.  I though about creating my own AutoIt UDP or TCP server but that just wasn't robust enough,  Then I found Microsoft's HTTP Server API and it looked very promising.  After doing a little research into the APIs, I found that it was flexible & robust enough to handle just about any of the tasks that I required now and in the future.  So a while back I decided to wrap the API functionality that I needed into an AutoIt UDF file to allow me to easily create the functionality I needed at the time.  It has come in very handy over the years.  Of course it wasn't all wrapped up with a nice little bow like it is now.  That only happened when I decided to share it with anyone else who could use it or learn from it.
      The example file that I included is a very granular example of the steps required to get a lightweight HTTP Server up and listening for GET requests.  The UDF is a wrapper for the Microsoft APIs.  That means to do anything over and above what I show in the example, one would probably have to have at least a general knowledge of APIs or the ability to figure out which APIs/functions to use, what structures and data is needed to be passed to them, and in what order.  However, the UDF gives a very solid foundation on which to build upon.  Of course, if anyone has questions about the UDF or how to implement any particular functionality, I would probably help to the extent that I could or point you in the right direction so that you can figure out how to implement your own solution.
      The APIs included in the UDF are the ones that I needed in the past to do what I needed to do.  If any additional APIs need to be added to the UDF file, please make those suggestions in the related forum topic.
      Being that this is basically an AutoIt wrapper for the Microsoft API functions, there's no need to create AutoIt-specific documentation.  All of the UDF functions, structures, constants, and enumerations are named after their Microsoft API counterparts.  Therefore, you can refer to Microsoft's extensive documentation of their HTTP Server API.  As stated earlier, if there is one or more APIs that you find yourself needing for your particular solution, please suggest it in the related Example Scripts forum topic.
      Related Links
      Microsoft HTTP Server API - Start Page
      Microsoft HTTP Server API - API v2 Reference
      Microsoft HTTP Server API - Programming Model
    • By YogendraAtluri
      Hi, 
      I am new to AutoIT scripting and I am still learning. I am trying to communicate with a Labview application that acts like a server. it basically takes commands from the client. But for some commands, it also send back some data. 
      When i am sending commands from my script, i can see that the labview is getting them. But i am not able to get anything back. I tried different code pieces that are available online in the forum.
      This is the working piece of code which i been using to send data.
      #cs This module is used to establish tcp connection with lab view #ce #include <File.au3> Func SendCmd($cmd) TCPStartup() Local $IpAddress="192.168.10.101" Local $Port="5353" $Labview = TCPConnect($IpAddress,$Port) If @error Then ConsoleWrite('!--> TCPConnect error number ( ' & @error & ' ).' & @CRLF) TCPCloseSocket($Labview) TCPShutdown() Exit EndIf TCPSend($Labview, $cmd & @CRLF) TCPCloseSocket($Labview) TCPShutdown() EndFunc SendCmd("wt42d")  
      This is slightly modified code to send and receive data, which is not working. I am not getting any response back
      SendCmd("galil") Func SendCmd($cmd) TCPStartup() Local $IpAddress="192.168.10.101" Local $Port="5353" $Labview = TCPConnect($IpAddress,$Port) If @error Then ConsoleWrite('!--> TCPConnect error number ( ' & @error & ' ).' & @CRLF) TCPCloseSocket($Labview) TCPShutdown() Exit EndIf TCPSend($Labview, $cmd & @CRLF) $ip = @IPAddress1 ;create listening socket $Listensocket = TCPListen($ip, $Port) ConsoleWrite("Listening to Socket - " & $Listensocket & @CRLF) If $Listensocket = -1 Then ConsoleWrite("Exiting..." & @CRLF) Exit EndIf ;Accept incoming clients and recieve info While 1 $connectedsocket = TCPAccept($Listensocket) ConsoleWrite("Connecting to Socket - " & $connectedsocket & "Error -" & @error & @CRLF) If $ConnectedSocket >= 0 Then $ip2 = TCPRecv($connectedsocket,1000000) EndIf WEnd TCPCloseSocket($connectedsocket) TCPCloseSocket($Labview) TCPShutdown() EndFunc I am not getting anything back. I am getting the following output in the console
      +>Setting Hotkeys...--> Press Ctrl+Alt+Break to Restart or Ctrl+BREAK to Stop. Listening to Socket - 544 Connecting to Socket - -1Error -0 Connecting to Socket - -1Error -0 Connecting to Socket - -1Error -0 Connecting to Socket - -1Error -0 Connecting to Socket - -1Error -0 Connecting to Socket - -1Error -0 Connecting to Socket - -1Error -0 Connecting to Socket - -1Error -0 Connecting to Socket - -1Error -0 its going through that loop forever. i need to force stop it.
      But when i open putty and send the same command, i am getting response right away. 
      Can someone please help me with that.
      Thanks in advance
      Regards
      Yogendra
    • By Colduction
      Hello again to all, I've searched many times in forum and help file to find AES-256-GCM Algorithm for Crypt\Decrypt strings and files but i did not find anything about GCM Algorithm.

      Do you have any idea for solving this issue?
    • By argumentum
      I can TCP/IP in AutoIt, hence, make a HTTP deamon. Now, how can I HTTPS to use SSL !??
      Well, Apache has this "mod_proxy.so" module that can let me have SSL and what not is in Apache.
      All that is needed is to tell Apache what I wanna do by editing httpd.conf .
      # Implements a proxy/gateway for Apache. # 1. Open /Applications/XAMPP/etc/httpd.conf # 2. Enable the following Modules by removing the # at the front of the line. # - LoadModule rewrite_module modules/mod_rewrite.so # - LoadModule proxy_module modules/mod_proxy.so # - LoadModule proxy_http_module modules/mod_proxy_http.so # # 3. Copy and Paste below to the bottom of httpd.conf # <IfModule mod_proxy.c> ProxyRequests On <Proxy *> Order deny,allow Allow from all </Proxy> ProxyVia Off ProxyPreserveHost Off ProxyPass /home/ http://127.0.0.1:84/home/ ProxyPassReverse /home/ http://127.0.0.1:84/home/ SetEnv proxy-nokeepalive 1 # ..since we are not using "keep-alive", we are using "close" </IfModule> ...et voila  
      I'm using XAMPP ( https://www.apachefriends.org/download.html )
      and this is my solution to avoid coding in PHP, as I feel more comfortable coding in AutoIt.
      A "muli-thread or concurrency" can be done by forking the socket ( https://www.autoitscript.com/forum/topic/199177-fork-udf-ish/ )
      but responses are under 20 ms., so I feel fine with a single thread.
      I modified an example ( attached below ), so can try out the concept.
      PS: I am not an Apache guru. I just discovered this and it opens a world of possibilities. In my case, I'm thinking of an API to query SQLite 
      PS2: I'm not gonna make Poll but do click like if you do  
       
      201673-json-http-post-serverlistener.au3
    • By Stormgrade
      Hello.
      I'm french, sorry for my english.
      I release my project, a password manager : Password Keeper
      First I would like to thanks Guinness and Melba23 for their help, and I'm very sorry for those I forget, please remind me to add you.
      Well my program manage and crypt passwords, first I understand if you don't trust me for this kind of sensible software, but I remember you that all the the source files are at your disposal, fell free to explore them.
      The login is : admin and you can change it later
      How it work ? see Methode de cryptage en BDD.pdf in french
      login

       
      The main interface
      You can obviously add,modify and delete your entry, also you can search with keywords

      A password generator is included

      I won't update it anymore.
      It's a BSD license.
      Autoit version : 3.3.14.5
      Have a good day.
      Methode de cryptage en BDD.pdf Passwordkeeper.7z
×
×
  • Create New...