|
You last visited: Today at 20:37
Advertisement
AutoIt
Discussion on AutoIt within the AutoIt forum part of the Coders Den category.
03/06/2010, 22:17
|
#16
|
elite*gold: 1
Join Date: Feb 2009
Posts: 1,726
Received Thanks: 729
|
|
|
|
03/06/2010, 22:27
|
#17
|
elite*gold: 0
Join Date: Feb 2010
Posts: 714
Received Thanks: 842
|
Nice danke habe jetz die hier wie bau ich die in script ein?
Movespeed metin2client.bin+001F74FC 2C8 5B6
Code:
Func button1()
if $OnOff == 0 then
$OnOff = 1
EndIF
$PID = WinGetProcess("METIN2")
$Open = _MemoryOpen($PID)
_MemoryWrite(0x001F74FC,0x2C8, $Open, 5)
Check()
EndFunc
|
|
|
03/06/2010, 22:28
|
#18
|
elite*gold: 1
Join Date: Feb 2009
Posts: 1,726
Received Thanks: 729
|
schau dir mal meine MemoryEngine in der Sig. an
Da siehst du wie man die Werte rechnet.
Und statt Read nimmst du dann einfach Write
|
|
|
03/06/2010, 22:45
|
#19
|
elite*gold: 0
Join Date: Feb 2010
Posts: 714
Received Thanks: 842
|
Fehler Line 43
$SetPrivilege("SedDebugPrivilege",1)
$SetPrivilege^ERROR
Error: Missing right backet ")" In expession
|
|
|
03/06/2010, 22:50
|
#20
|
elite*gold: 0
Join Date: Apr 2009
Posts: 793
Received Thanks: 366
|
Quote:
Originally Posted by Flasher2
$SetPrivilege("SedDebugPrivilege",1)
|
Cool!
Wusste ja garnicht, dass man in AutoIT Variablen als Alias für Funktionen benutzen kann.
|
|
|
03/06/2010, 22:54
|
#21
|
elite*gold: 1
Join Date: Feb 2009
Posts: 1,726
Received Thanks: 729
|
ohh,
epic Fail in meinem Prog.
Gleich ändern!
|
|
|
03/06/2010, 22:54
|
#22
|
elite*gold: 0
Join Date: Feb 2010
Posts: 714
Received Thanks: 842
|
 was muss ich denn jetz machen um den fehler zu beheben?
|
|
|
03/06/2010, 22:55
|
#23
|
elite*gold: 1
Join Date: Feb 2009
Posts: 1,726
Received Thanks: 729
|
das $ Zeichen weg
|
|
|
03/06/2010, 22:57
|
#24
|
elite*gold: 0
Join Date: Feb 2010
Posts: 714
Received Thanks: 842
|
sry aber geht immer noch net -.-
Code:
Func button1()
if $OnOff == 0 then
$OnOff = 1
EndIF
SetPrivilege("SedDebugPrivilege", 1)
$PID = WinExists("METIN2")
if $PID = 0 then
MsgBox(16, "Fehler", "Prozess nicht gefunden!")
Exit
EndIf
$Open = _MemoryOpen($PID)
Dim $Read = 0
While 1
$Read = _MemoryRead (0x001F74FC, "METIN2")
if $Read <> $Read then
$PID = WinGetProcess("METIN2")
$Open = _MemoryOpen($PID)
_MemoryWrite(0x001F74FC, $Open, 5)
$Read = $Read
EndIf
WEnd
_MemoryClose("METIN2")
Check()
EndFunc
|
|
|
03/06/2010, 23:04
|
#25
|
elite*gold: 1
Join Date: Feb 2009
Posts: 1,726
Received Thanks: 729
|
Wie schon gesagt, musst du das read weg machen
also:
PHP Code:
... $Open = _MemoryOpen($PID) _MemoryWrite(0x001F74FC, "Metin2") ...
Die Software wurde bisher nur zum auslesen konfiguriert
|
|
|
03/06/2010, 23:07
|
#26
|
elite*gold: 0
Join Date: Apr 2009
Posts: 793
Received Thanks: 366
|
Quote:
Originally Posted by Flasher2
Code:
if $Read <> $Read then
|
WTF?
Warum schreibs du nicht gleich "if false then" ?
|
|
|
03/06/2010, 23:08
|
#27
|
elite*gold: 0
Join Date: Feb 2010
Posts: 714
Received Thanks: 842
|
ist kopiert aus seinem tool
-.- bin zu dumm dafür hab jetz read weggemacht
Code:
$Open = _MemoryOpen($PID)
Dim $Read = 0
While 1
$PID = WinGetProcess("METIN2")
$Open = _MemoryOpen($PID)
_MemoryWrite(0x001F74FC, $Open, 5)
WEnd
_MemoryClose("METIN2")
checks net was mach ich falsch
wie würde es richtig aussehn?
Code:
#RequireAdmin
#include <NomadMemory.au3>
GuiCreate("Speed hack",461,429,372,2)
$button1=GuiCtrlCreateButton("On",15,106,50,50)
$button2=GuiCtrlCreateButton("Off",14,174,50,50)
$button3=GuiCtrlCreateButton("Exit Speedhack",29,339,384,26)
$button4=GuiCtrlCreateButton("Exit and go to Homepage",29,404,384,26)
$L1=GUICtrlCreateLabel("SpeeD Hack",5,70,275,17)
GuiSetState()
$OnOff = 0
$Pause = 0
While 1
Check()
WEnd
Func Check()
$msg=GuiGetMsg()
If $msg=-3 Then Exit
If $msg=$button1 Then button1()
If $msg=$button2 Then button2()
If $msg=$button3 Then button3()
If $msg=$button4 Then button4()
EndFunc
Func button1()
if $OnOff == 0 then
$OnOff = 1
EndIF
SetPrivilege("SedDebugPrivilege", 1)
$PID = WinExists("METIN2")
if $PID = 0 then
MsgBox(16, "Fehler", "Prozess nicht gefunden!")
Exit
EndIf
$Open = _MemoryOpen($PID)
Dim $Read = 0
While 1
$PID = WinGetProcess("METIN2")
$Open = _MemoryOpen($PID)
_MemoryWrite(0x001F74FC, $Open, 5)
WEnd
_MemoryClose("METIN2")
Check()
EndFunc
Func button2()
$Pause = 0
While $Pause == 0
$msg=guiGetMsg()
If $msg=$button1 Then $Pause = 1
If $msg=$button2 Then $Pause = 1
If $msg=$button3 Then Exit
Wend
EndFunc
Func button3()
Exit
EndFunc
Func button4()
ShellExecute ("http://www.thebloodofdragon.npage.de")
Exit
EndFunc
|
|
|
03/06/2010, 23:08
|
#28
|
elite*gold: 1
Join Date: Feb 2009
Posts: 1,726
Received Thanks: 729
|
Wenn $Read <> als das neue $Read dann
also damit wird überprüft, ob das $Read aus dem vorherigen Schleifendurchgang dem aktuellen entspricht
|
|
|
03/06/2010, 23:11
|
#29
|
elite*gold: 0
Join Date: Apr 2009
Posts: 793
Received Thanks: 366
|
Quote:
Originally Posted by General Desert
Wenn $Read <> als das neue $Read dann
also damit wird überprüft, ob das $Read aus dem vorherigen Schleifendurchgang dem aktuellen entspricht
|
Ergibt keinen Sinn.
Wenn du den gleichen Variablennamen benutzt, wird die Bedingung nie "True" ergeben.
|
|
|
03/06/2010, 23:13
|
#30
|
elite*gold: 1
Join Date: Feb 2009
Posts: 1,726
Received Thanks: 729
|
mom, irgendwie hab ich das aber gelöst.
Oder auch nicht. Muss ich ja noch viel machen :/
Danke dir für die Anregung
|
|
|
All times are GMT +1. The time now is 20:37.
|
|