Jump to content

Win4lif3

Members
  • Posts

    17
  • Joined

  • Last visited

Win4lif3's Achievements

Seeker

Seeker (1/7)

0

Reputation

  1. i basicly need help with this type of function if my value 1 dosent change within 50 miliseconds then send("{delete}") just an example.. please help me :3
  2. Problem? the problem is that i get error 1 on _MemoryModuleGetBaseAddress, im kinda stuck here -.- Code: ;client.dll+782158 ;vguimatsurface.dll+110010 #include <NomadMemory.au3> #include <Misc.au3> #include <Array.au3> #include <EditConstants.au3> #RequireAdmin SetPrivilege("SetDebugPrivilege", 1) Opt("SendKeyDelay", 5) Opt("SendKeyDownDelay", 0) Global $PID Global $sModule $PID = ProcessExists("hl2.exe") $sModule = "vguimatsurface.dll" If $PID == 0 Then MsgBox(4096,"Error","Hl2 not running!",3) Return EndIf If @error Then Return EndIf $StaticOffset = Dec("110010") $openmem = _MemoryOpen($PID) ConsoleWrite("error?: " & @error & @CRLF) $baseADDR = _MemoryModuleGetBaseAddress($openmem, $sModule) + $StaticOffset ConsoleWrite("error?: " & @error & @CRLF) $finalADDR = "0x" & Hex($baseADDR + $StaticOffset) $read = _MemoryRead($finaladdr,$openmem) ConsoleWrite("Value final addr: " & $read & @CRLF) ConsoleWrite("Value base: " & $baseADDR & @CRLF)
  3. Version v1 beta

    2,042 downloads

    A triangle solver that uses the math of sine cosinus and tangens, it will also show the calculations and how the equation looks like. If you want the picture to work put the files together in 1 folder of just put it the same place for example the desktop
  4. Yep a triangle solver that shows the calculations on how it did. So basicly i had trouble doing all this math with sine cosinus and tangens, so i decided to make a program to do it for me and this is the outcome of it Guide is in the program, should be pretty easy to understand else please let me know. And sorry for my english its probably horrible x) Dont forget that the picture must be in the same folder og placement else it wont show any picture! Triangle solver.rar
  5. Okay thanks for your help, now im going to develop my triangle solver and im going to make it "print" the calculation somehow
  6. $pi = 3.14159265358979 $degToRad = $pi / 180 $y = 10*Sin(30 * $degToRad) ;sine of 30° with hyp as 10 MsgBox(0,"",$y) This is what i got to, please let me know if i did it right, since i get the correct output wich is 5
  7. Okay thanks, ignore the upper question ill try this first
  8. Maybe if i ask in a another way, normally i would take my calculator and type in 10*sin(30) the output would be 5. But! how do i get the same output in the msgbox? should i use another function or something please help.
  9. please explain in newb at maths, im just trying to make this so i can get better :/
  10. Okay so heres my little script: The 30 is the angle of my triangle, and 10 is the hyponuse $mod = (10*aSin(30)) MsgBox(0,"",$mod) what i want it to do is calculate it and then write the answer in a msgbox but it dosent seem to work :/ the output is: "-1.#IND"
  11. i will be trying this tommorow thank you
  12. Problem: i want the ip address's place to be shown just like this: http://whatismyipaddress.com/ip/87.112.32.43 (like it says city: London and State/Region: London... and country: United kingdom..) and it needs to update when pressing on bottum "New IP" ($update) please help, i think this can be done somehow with IE.au3 but im not sure how s: Code: #include <Constants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> $start = 1 If $start = 1 Then $proc = InputBox("Get Ip Addresses from what program?","What Program do you want it to grab Ip addresses from? Example: Skype") & ".exe" $start = 0 $cmd = "netstat -ano" $string = _CMDreturn($cmd) $result = StringSplit($string, @CR) $list = ProcessList($proc) $x = 0 $ppid = ProcessExists($proc) If $list[0][0] = 0 Then MsgBox(0, "Error", " The process: " & $proc & " is not running") Exit EndIf GUICreate("Connected Ip's.",300,300) $getipsfrom = GUICtrlCreateInput($proc,30,30,240) $skypepid = GUICtrlCreateInput("Undefined",30,70,240) $theip = GUICtrlCreateInput(" > > > > Connected Ip's are shown here < < < <",30,100,240,20) $thecity = GUICtrlCreateInput("City the ip belongs to here",30,130,240,20) $thestate = GUICtrlCreateInput("State/Region the ip belongs to here",30,160,240,20) $thecountry = GUICtrlCreateInput("Country the ip belongs to here",30,190,240,20) $update = GUICtrlCreateButton("Update",30,220,240,20) $newproc = GUICtrlCreateButton("New Program",30,250,240,20) GUISetState() While 1 $msg = GuiGetMsg() If $msg = $GUI_EVENT_CLOSE Then ExitLoop If $msg = -3 Then Exit If $msg = $update Then begin() If $msg = $newproc Then new() Wend Func new() $proc = InputBox("Get Ip Addresses from what program?","What Program do you want it to grab Ip addresses from? Example: Skype") & ".exe" GUICtrlSetData($skypepid,"Undefined") GUICtrlSetData($update,"Update") GUICtrlSetData($theip," > > Connected Ip's are shown here < < ") GUICtrlSetData($getipsfrom,$proc) $list = ProcessList($proc) $x = 0 $ppid = ProcessExists($proc) EndFunc Func begin() GUICtrlSetData($skypepid,"Procces ID: " & $ppid) GUICtrlSetData($getipsfrom,$proc) GUICtrlSetData($update,"Next IP") For $i = 1 To $list[0][0] $pid = $list[$i][1] Next If $x = $result[0] Then $x = 0 $x = 1+$x $line = $result[$x] $newline = StringStripWS($line, 4) If StringMid($newline, 1, 1) = @LF Then $newline = StringTrimLeft($newline, 1) $a_line = StringSplit($newline, " ") If $a_line[0] = 5 Then If $a_line[5] = $pid Then GUICtrlSetData($theip,$a_line[3]) ElseIf $x = $result[0] Then $x = 0 $x = 1+$x begin() Else $x = 1+$x begin() EndIf ElseIf $x = $result[0] Then $x = 0 $x = 1+$x begin() Else $x = 1+$x begin() EndIf EndFunc Func _CMDreturn($sCommand) $cmdreturn = "" $stream = Run(@ComSpec & " /c " & $sCommand, @SystemDir, @SW_HIDE, $STDOUT_CHILD + $STDIN_CHILD) While 1 $line = StdoutRead($stream) If @error Then ExitLoop $cmdreturn &= $line WEnd Return $cmdreturn EndFunc
  13. okay my problem is that i get random addresses and all that, but i only want the addresses from PID(procces ID) 3404 (skype) code that shows netstat -ano in cmd: #include <Constants.au3> $cmd = "netstat -ano" $string = _CMDreturn($cmd) MsgBox(0, $cmd, $string) Func _CMDreturn($sCommand) ; Returns a the output of a DOS command as a string $cmdreturn = "" $stream = Run(@ComSpec & " /c " & $sCommand, @SystemDir, @SW_HIDE, $STDOUT_CHILD + $STDIN_CHILD) While 1 ; loop through the return from the command until there is no more $line = StdoutRead($stream) If @error Then ExitLoop $cmdreturn &= $line WEnd Return $cmdreturn EndFunc ;==>_CMDreturn (this is not made by me i found it somewhere on forum)
×
×
  • Create New...