How to know how many users are using my program

[skeith_sk8]

Hi, i have a bot for the darkorbit name and i want to know how many users are really using my program and if its possible have that info in real time (like current users using your program: 11).
Is any func for it, any ideas about how can i do it?
Thankyou

[Bonnyfication]

You can create a web based service. Your application can connect to this service and trigger some method. If the client does not connect again after a defined time your service knows that the user is not active anymore.

You need some logic in the backgrounds that can count the amount of active users and publish them to your application.

[skeith_sk8]

Originally Posted by Bonnyfication

You can create a web based service. Your application can connect to this service and trigger some method. If the client does not connect again after a defined time your service knows that the user is not active anymore.

You need some logic in the backgrounds that can count the amount of active users and publish them to your application.

You gave me the solution, thanks!

[elmarcia]

U can also make it work the cheap way, use tcp functions in your bot and create a server in autoit where all clients will connect.
[Clients] U can use a web like pastebin to set the clients where u want them to connect (u must be registered to edit your pastes)

 Spoiler

TCPStartup()
$ipConection = BinaryToString(InetRead("http://pastebin.com/raw/XthsTvy2"))
$PORT = 1234
AdlibRegister("doLogin",10000);Check for login every 10secs

Func myBot()
	;blah blah
	;blah
EndFunc

Func doLogin()
$con = TCPConnect($ipConection,$PORT)
If @error Then Return -1;
AdlibUnRegister("doLogin")
EndFunc

While Sleep(15)
	myBot()
WEnd

[Server] U have to open your choosen port to make this work

 Spoiler

#include <Array.au3>

TCPStartup()

$listenSocket = TCPListen("127.0.0.1",1234)
Global $clients[0]
$timeOut = 5000
AdlibRegister("acceptConections")
AdlibRegister("checkAlive",$timeOut)

Func acceptConections()
$socket = 0
$socket = TCPAccept($listenSocket)
If $socket <> -1 Then addClient($socket)
EndFunc


Func addClient($s)
ReDim $clients[UBound($clients)+1]
$clients[UBound($clients)-1] = $s
printdata()
EndFunc

Func countClients()
	Return UBound($clients)
EndFunc

Func printdata()
ToolTip("N: "&countClients(),0,0)
EndFunc

Func checkAlive()
For $i = 0 To UBound($clients)-1
TCPSend($clients[$i],"")
If @error Then
_ArrayDelete($clients,$i)
printdata()
checkAlive() ;Recursive call will remove clients that are disconnected without waiting again 5sec timeout
ExitLoop
EndIf
Next
EndFunc



While Sleep(15)

WEnd

[YatoDev]

Thats not the cheap was it's the **** way

[Devsome]

Just use a web-service as @Bonnyfication said. Do a POST command on login/logout to update the Player count.

[Devsome]

#closed by request