thomaatje

Thx very much! Works perfect! Learned a lot from your inline assembly examples but it still confuses me sometimes

Hello all, Recently i've been trying to send some data over a TCP connection using the Send() function from Ws2_32.dll instead of the Autoit build-in TCPSend() function. The reason I want to do this this is because I want execute the Send() function in a different thread. The code below works perfectly for sending 1 packet. But if I try to send more than 16 packets the connection is closed. I found out that if I set the flag to 0, the function sends more than 16 packets but the data is in some kind of binary form instead of a string. Since the reciever can't decode that binary, I need to send it as a string. And the only way it seems to sends a string is to change the flag to $MSG_OOB. But with that flag it won't send more than 16 packets... I hope someone here knows a solution for this problem. Thanks in advanced! Client: #include <WinAPI.au3> Global $Ws2_32 = "Ws2_32.dll" Global Const $MSG_OOB = 0x0001 TCPStartup() $Sock = TCPConnect("127.0.0.1", 9100) For $i = 1 To 20 _TCPSend($Sock, "Data" & $i, $MSG_OOB) Sleep(500) Next TCPCloseSocket($Sock) Func _TCPSend($Sock, $sData, $iFlag) Local $DataBuffer = DllStructCreate("char[" & StringLen($sData)+2 & "]") DllStructSetData($DataBuffer, 1, $sData) $Ret = DllCall($Ws2_32, "int", "send", "ptr", $Sock, "ptr", DllStructGetPtr($DataBuffer), "int", DllStructGetSize($DataBuffer)-1, "int", $iFlag) If $Ret[0] = -1 Then Exit MsgBox(16,"Error",_WinAPI_GetLastErrorMessage()) EndFunc Server. I just use it to test the client. It's not the server i really want to send the data to. #include <GUIConstants.au3> #include <Constants.au3> #include <StaticConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> Global $Main Global $DefMsg = "" Global $MainSocket Global $Connection = -1 Global $Count = 0 Opt("GUIOnEventMode", 1) $Main = GUICreate("Server", 290, 50, 100, 512, -1, $WS_EX_TOPMOST) $Display = GUICtrlCreateInput($DefMsg, 5, 5, 280, 40) GUICtrlSetFont(-1, 22) GUICtrlSetState(-1, $GUI_DISABLE) GUISetState() GUISetOnEvent($GUI_EVENT_CLOSE, "SpecialEvents") TCPStartup() $MainSocket = TCPListen("127.0.0.1", 9100) While 1 While $Connection = -1 $Connection = TCPAccept($MainSocket) While $Connection >= 0 $Recv = TCPRecv($Connection, 4098) If $Recv <> "" Then GUICtrlSetData($Display, $Recv) $Count += 1 WinSetTitle($Main, "", "Server - " & $Count) EndIf WEnd Sleep(5) WEnd Sleep(5) WEnd Func SpecialEvents() Select Case @GUI_CTRLID = $GUI_EVENT_CLOSE Exit EndSelect EndFunc Edit: used wrong flag in the client code

CODEIf $chassis = 8 OR $chassis = 9 OR $chassis = 10 OR $chassis = 11 OR $chassis = 12 OR $chassis = 14 Then (DO SOMETHING) Elseif $chassis = 1 OR $chassis = 2 OR $chassis = 3 OR $chassis = 4 OR $chassis = 5 OR $chassis = 6 OR $chassis = 7 Then (DO SOMETHING ELSE) EndIf

Looks good! Only the flag parameter doen't working for me... It just has no effect... i make it 4 and the progress box still appears... any idea how to make it work?

This is very nice! good job! Is it possible to create a cube with 6 difrent textures with 1 texture on each side?

2008-08-27 16:43:28 : ********** New Registry ************ 2008-08-27 16:43:28 : AutoIt Screen Name> Forsaken 2008-08-27 16:43:28 : AutoIt Member Number> 12123 2008-08-27 16:43:28 : User Location> Netherlands 2008-08-27 16:43:28 : ********** End Registry ************ 2008-08-27 16:43:28 : Ver 1.4.8 2008-08-27 16:43:28 : 2008-08-27 16:44:29 : ********** Exam Level One ************ 2008-08-27 16:44:29 : Number of Attempts> 1 2008-08-27 16:44:29 : Exam Scores> 100 ( 100 Points Max ) 2008-08-27 16:44:29 : Accumulated Errors> 0 2008-08-27 16:44:29 : Point Score> 332 ( 333 Points Max ) 2008-08-27 16:44:29 : ********** End Exam Report ************ 2008-08-27 16:44:29 :

ThanksBut is there an other way for checking what program edits a file?

Realy nice good job all I've been looking for a script like this for a while... Would it be possible to see what program edits/deletes/moves a file?

Well... my virus scanner gave me a warning...Oh and its a _WinAPI_WriteProcessMemory() func and a RegWrite() to \REGISTRY\USER\S-1-5-21-1283738941-3212688771-2078699739-1006\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders

Why does the .exe file try to edit my Process Memory??

This is really impressive... But how can I use it? I want to use this technique to search 80000000 memory adresses for a specific value. It would be great if it can be done with this.

Great script!

This realy is what i needed... i hate typing the long syntax in google just for 1 file Thx

Yeh... you'r right i was thinking a little bit to "complex"... but it works

I know AlmarM made a password gen UDF but this one works difrent... Func _Generate($MaxChar) $Pass = "" Dim $Array[1] = [Chr(Random(Asc("0"), Asc("Z")))] $i = 1 $i2 = 0 Do _ArrayAdd($Array, Chr(Random(Asc("0"), Asc("Z")))) $i = $i + 1 Until $i = $MaxChar Do $Pass &= $Array[$i2] $i2 = $i2 + 1 Until $i2 = $MaxChar Return $Pass EndFuncoÝ÷ Øw«{ljw±jjey«­¢+Ø%¹±Õ±ÐíU% ½¹ÍѹÑ̹ÔÌÐì(%¹±Õ±ÐíÉÉä¹ÔÌÐì((ÀÌØíµ¥¸ôU% ÉÑ ÅÕ½ÐíAÍ̹ÉѽÈÅÕ½Ðì°ÐÀÀ°ÄÈÀ¤((ÀÌØí ÕÐÄôU% Ñɱ ÉÑ ÕÑѽ¸ ÅÕ½Ðí¹ÉÑÅÕ½Ðì°ÐÀ°àÀ°ÄÀÀ¤(ÀÌØí9Õµ%¹ÁÕÐôU% Ñɱ ÉÑ%¹ÁÕÐ ÅÕ½ÐìàÅÕ½Ðì°ÈÀÀ°àÀ°àÀ¤(ÀÌØíUÁ½Ý¸ôU% Ñɱ ÉÑUÁ½Ý¸ ´Ä¤(U% ÑɱMÑ1¥µ¥Ð ´Ä°ÈÀ°È¤(ÀÌØíIÍÕ±ÐôU% Ñɱ ÉÑ%¹ÁÕÐ ÅÕ½ÐìÅÕ½Ðì°ÐÀ°ÐÀ°ÄÔÀ°ÈÀ° ¥Ñ=H ÀÌØíM}UQ=!M I=10°ÀÌØíM}I=91d¤¤)U%MÑMÑÑ ¤()]¡¥±Ä(ÀÌØíµÍôU%Ñ5Í ¤(MÝ¥Ñ ÀÌØíµÍ( ÍÀÌØí ÕÐÄ(U% ÑɱMÑÑ ÀÌØíIÍձаÅÕ½ÐìÅÕ½Ðì¤(U% ÑɱMÑÑ ÀÌØíIÍձа}¹ÉÑ¡U% ÑɱI ÀÌØí9Õµ%¹ÁÕФ¤¤( ÍÀÌØíU%}Y9Q} 1=M(á¥Ð(¹MÝ¥Ñ )]¹()Õ¹}¹ÉÑ ÀÌØí5á ¡È¤(ÀÌØíAÍÌôÅÕ½ÐìÅÕ½Ðì(¥´ÀÌØíÉÉålÅtôm ¡È¡I¹½´¡Í ÅÕ½ÐìÀÅÕ½Ðì¤°Í ÅÕ½ÐíhÅÕ½Ð줤¥t(ÀÌØí¤ôÄ(ÀÌØí¤ÈôÀ(¼(}ÉÉå ÀÌØíÉÉä° ¡È¡I¹½´¡Í ÅÕ½ÐìÀÅÕ½Ðì¤°Í ÅÕ½ÐíhÅÕ½Ð줤¤¤(ÀÌØí¤ôÀÌØí¤¬Ä(U¹Ñ¥°ÀÌØí¤ôÀÌØí5á ¡È(¼(ÀÌØíAÍ̵ÀìôÀÌØíÉÉålÀÌØí¤Ét(ÀÌØí¤ÈôÀÌØí¤È¬Ä(U¹Ñ¥°ÀÌØí¤ÈôÀÌØí5á ¡È(IÑÕɸÀÌØíAÍÌ)¹Õ¹