Search the Community

Here I am again, with a brand new UDF! (not so new through...) Taking (great) advantage of the new maps feature, I made a simple, flexible multi-clients TCP server UDF. Features: You can create multiples servers in one scriptPeers limit is optional (the real peers limit is your RAM and the maps performances)You can configure max data receive len (2nd argument of TCPRecv) on a per-client basisYou can set an optional idle time-out (time without receiving any data before peer gets disconnected)Each peer has an empty Map that can contain user defined dataYou can set a function that will be called for each connected peer at pre-defined interval (onPeerCycle callback)The UDF is callback driven (onConnect, onDisconnect, onReceive, onError, onPeerCycle)You can set a disconnect message when kicking a peer. This message will be passed to the onDisconnect callbackonReceive callback must return the number of bytes that have been consumed. Say you receive 100 bytes of data but you used (consumed) only 70 bytes, by returning 70 from the callback the remaining 30 bytes will be buffered and passed again on the next call to onReceiveKnown bugs: TCPRecv bug! the function doesn't detect peer disconnection (hope this will be fixed soon)Download: https://github.com/matwachich/generic-tcp-server/ Thanks in advance for your feedback!

Right now the fastest way I can mine someone's database is by making hundreds of individual executable that all do there on INETGET TCP Request, obviously this take up a lot of processing and RAM resources. Anyone know of a way I can make more requests for pages faster\more efficiently? My scripts that I run look something like this... ;A setprate script makes a txt file with part of a URL to go to #include <File.au3> #include <Array.au3> $htmlstore = @DesktopCommonDir & "\HTMLstore\" $FileList = _FileListToArray($htmlstore) For $count = 2 To $FileList[0] + 1 If FileExists($htmlstore & $count & ".txt") = 1 Then FileMove($htmlstore & $count & ".txt", $htmlstore & @AutoItPID & @ComputerName & ".txt") $file = FileOpen($htmlstore & @AutoItPID & @ComputerName & ".txt") $PID = FileRead($file) FileClose($file) $hDownload = InetGet("http://www.ocpafl.org/Searches/ParcelSearch.aspx/PID/" & $PID, $htmlstore & $PID & ".html", 1) InetClose($hDownload) ; Close the handle to release resources. FileDelete($htmlstore & @AutoItPID & @ComputerName & ".txt") Exit EndIf Next If you need more info let me know. Any recommendations would be appreciated