au3scr

tnx, buttrere is still something wrong.I dont know what but when game sends packets, SmartSniff shows me 00000000 3C 2A 00 00 00 FF FF FF FF but when my script sends packet, SmartSniff shows 3C26000000FFFFFFFF. How I make tis script send packets like game does so I could use script to make my char do something? Here is picture about how game sends packet And here is picture how same hing is done in my script. My script ;============================================== TCPStartup() ; Open a "SOCKET" ;============================================== $socket = TCPConnect("213.248.106.227", 4000) If @error <> 0 Then Exit $n=0 While 1 Sleep(4000) $n = $n + 1 $status = TCPSend($socket, Binary("3C26000000FFFFFFFF") ) If $status = 0 then MsgBox(0, "ERROR", "Error while sending TCP message: " & @error) Exit EndIf WEnd Func OnAutoItExit() TCPCloseSocket($socket) TCPShutdown() EndFunc here is little table: Nō. Size Parameters 3c 9 [WORD skill] 00 [bYTE left (80) or right (00) skill] FF FF FF FF it seems like I have to use WORD and BYTE but how I do it in autoit? Look this, if it write $status = TCPSend($socket, Binary("string lol") ) it sends packet string lol so binary() dont work, it dont tell autoit to handle expression ass binar data, autoit handles t as string.

Can someone convert this for tcp?I used tcpsend example from help but it didn.t work, I got errors. I need to have script that sends binary tcp packets. looks like this works, but I need someone to convert it for tcp. ;============================================== UDPStartup() ; Open a "SOCKET" ;============================================== $socket = UDPOpen("213.248.106.227", 4264) If @error <> 0 Then Exit $n=0 While 1 Sleep(2000) $n = $n + 1 $status = UDPSend($socket, Binary("0CAB149310") ) If $status = 0 then MsgBox(0, "ERROR", "Error while sending UDP message: " & @error) Exit EndIf WEnd Func OnAutoItExit() UDPCloseSocket($socket) UDPShutdown() EndFunc

I tried following modification but it dont stop func.but I see MsgBox(1,1,"2nd func"&$Location) 2 times for some reason, and that 2-nd time it goes bad. If $var2un = $SizeSourceRegSearch Then $Location = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"&$varun,"InstallLocation") MsgBox(1,1,"2nd func"&$Location) $SizeFromReg = Round (RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"&$varun,"EstimatedSize") / 1024,2) If Not $SizeFromReg = 0 Then $ProgramSize = $SizeFromReg ExitLoop

What u mean?This function likely repeat itself until it finds matching "DisplayName" and then it reads "InstallLocation" . MsgBox(1,1,$Location) on 25th line shows right info but msgbox on 6th line shows wrong info edit: it shows msgbox on line 25 2 times 1-st time it contains right info, 2nd time dont contain any info

But whats wrong here? I want that 2nd (in source it is on 1-st place) msgbox show size and location of Microsoft .NET Framework 2.0, but function dont edit variables as needed. $ProgramSize = "N/A" $Location = "N/A" $SizeSourceRegSearch = "Microsoft .NET Framework 2.0" _getsize($SizeSourceRegSearch,$ProgramSize,$Location) MsgBox(1,1,$ProgramSize&" "&$Location ) Func _getsize (ByRef $SizeSourceRegSearch,ByRef $ProgramSize,ByRef $Location) MsgBox(1,1,$SizeSourceRegSearch) $Keyun = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall" $cun = 1 Do $cun+=1 RegEnumKey($Keyun,$cun) Until @error $answerun = "" For $i= 1 to $cun $varun = RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall", $i) If @error <> 0 then ExitLoop $var2un = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"&$varun,"DisplayName") $var3un = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"&$varun,"UninstallString") $var4un = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"&$varun,"QuietUninstallString") If $var2un = $SizeSourceRegSearch Then $Location = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"&$varun,"InstallLocation") MsgBox(1,1,$Location) $SizeFromReg = Round (RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"&$varun,"EstimatedSize") / 1024,2) If Not $SizeFromReg = 0 Then $ProgramSize = $SizeFromReg EndIf EndIf Next ;~ Return $Location EndFunc

Thanks

Hi , I am trying to make function that returns dir size 1-st msgbox (in func) shows right data,but second msgbox (in source it is beforefunc) shows me wrong info, it always shows 0 (zero) how I can make that secont msg box show right information? $sourcedir = "C:\windows" $ProgramSize = 0 _getsize($sourcedir,$ProgramSize) MsgBox(1,1,$ProgramSize) Func _getsize ($sourcedir,$ProgramSize) $ProgramSize = Round((DirGetSize($sourcedir) / 1024 )/1024,0) MsgBox(1,1,$ProgramSize) Return $ProgramSize EndFunc and How I could use it in If sentences later? i wanna do something like: I have never made any if sentences with funcs.

Hi, does anyone know how to get full path of @tempdir ? I tried following example but i couldn't get fullpath! #include <file.au3> $TestPath = _PathFull(@TempDir) MsgBox(0,"demo _PathFull",$TestPath)

a little modification to make it perfect Opt("SendKeyDelay", 20) Opt("SendKeyDownDelay", 3) ;~ #include <IsPressed.au3> #Include <Misc.au3> $dll = DllOpen("user32.dll") $PlayerName = ClipGet() $data = "" While 1 If _IsPressed('4c', $dll) Then clipsave() FoulLang() clipload() EndIf Sleep(10) WEnd ;Warnings Below Func AbuseLang() ClipPut('y@ '&$PlayerName&', Please watch your language on our servers. Thanks.') Send("^v") EndFunc ;==>AbuseLang Func FoulLang() ClipPut('y@ '&$PlayerName&', Please keep inappropiate content off of our servers. Thank you.') Send("^v") EndFunc ;==>FoulLang Func BadSpray() ClipPut('y@ '&$PlayerName&', Please do not spray your spray again in our servers. Thank you.') Send("^v") EndFunc ;==>BadSpray Func BadName() ClipPut('y@ '&$PlayerName&', Please change your name, as <these words> are not allowed on our servers. Thank you.') Send("^v") EndFunc ;==>BadName ;Kicks Below Func AbuseKick() ClipPut('sm_kick '&$PlayerName&' "Repeated use of foul/abusive language"') Send("^v") EndFunc ;==>AbuseKick Func FoulKick() ClipPut('sm_kick '&$PlayerName&' "Repeated use of inappropiate language"') Send("^v") EndFunc ;==>FoulKick Func SprayKick() ClipPut('sm_kick <'&$PlayerName&'> "Inappropiate spray"') Send("^v") EndFunc ;==>SprayKick Func NameKick() ClipPut('sm_kick <'&$PlayerName&'> "Inappropiate name"') Send("^v") EndFunc ;==>NameKick Func OnAutoItExit() DllClose($dll) EndFunc ;==>OnAutoItExit ; these 2 funcs are tu restore old clippboard :) func clipsave() $data = ClipGet() EndFunc func clipload() ClipPut($data) EndFunc

Maybe this? Can you paste in your game? Opt("SendKeyDelay", 20) Opt("SendKeyDownDelay", 3) ;Please uncomment #Include <Misc.au3> if you use #include <IsPressed.au3> ;~ #include <IsPressed.au3> #Include <Misc.au3> $dll = DllOpen("user32.dll") $PlayerName = ClipGet() While 1 If _IsPressed('13', $dll) Then FoulLang() EndIf Sleep(10) WEnd ;Warnings Below Func AbuseLang() Send('y@ '&$PlayerName&', Please watch your language on our servers. Thanks.', 1) EndFunc;==>AbuseLang Func FoulLang() Send('y@ '&$PlayerName&', Please keep inappropiate content off of our servers. Thank you.', 1) EndFunc;==>FoulLang Func BadSpray() Send('y@ '&$PlayerName&', Please do not spray your spray again in our servers. Thank you.', 1) EndFunc;==>BadSpray Func BadName() Send('y@ '&$PlayerName&', Please change your name, as <these words> are not allowed on our servers. Thank you.', 1) EndFunc;==>BadName ;Kicks Below Func AbuseKick() Send('sm_kick '&$PlayerName&' "Repeated use of foul/abusive language"', 1) EndFunc;==>AbuseKick Func FoulKick() Send('sm_kick '&$PlayerName&' "Repeated use of inappropiate language"', 1) EndFunc;==>FoulKick Func SprayKick() Send('sm_kick <'&$PlayerName&'> "Inappropiate spray"', 1) EndFunc;==>SprayKick Func NameKick() Send('sm_kick <'&$PlayerName&'> "Inappropiate name"', 1) EndFunc;==>NameKick Func OnAutoItExit() DllClose($dll) EndFunc;==>OnAutoItExit

oh I'd better cancel. I didn't even thought tha it would take so long time.

cowmoo how did you get that? u calculated or found from internet? I wanna make program that calculates all number.

but how is calculated this one? http://www.wikihow.com/Memorize-Pi There must be a way to do it or any else programming language that can do it?

Here I tried to calculate pi , but I couldn't get 100 decimal places.This script calculates. How could I do it? $val = Round( 768 * Sqrt(2 - Sqrt(2 + Sqrt(2 + Sqrt(2 + Sqrt(2 + Sqrt(2 + Sqrt(2 + Sqrt(2 + Sqrt(2 + 1))))))))),100) MsgBox (1,"Pi value",$val) at last i want result like this: 3.14159265358979323846264338327950288419716939937510 quote from other site

with dual/quad core Test: Dual/Quad Core optimization Your time: 62.0742 sec π (pi) result: 3.14159265358979 Your CPU: AMD Sempron Processor 2800+ system properties shows 1604 MHz