Register for your free account! | Forgot your password?

You last visited: Today at 08:30

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement



Frage

Discussion on Frage within the AutoIt forum part of the Coders Den category.

Reply
 
Old   #1
 
elite*gold: 10
Join Date: Mar 2012
Posts: 117
Received Thanks: 46
Frage

Ich hab ein Script erstellt und hier ein Teil davon :

$MemOpen = _MemoryOpen(ProcessExists("NostaleX.dat"))

Was ist daran Falsch da kommt immer Error wenn ich das starte
bitte helfen ^^

GELÖST !!

NEXT ERROR UNTEN !! LESEN DANKE !! !!!
fasdasfda is offline  
Old 03/31/2012, 10:05   #2

 
Njahs's Avatar
 
elite*gold: 574
Join Date: Nov 2010
Posts: 2,498
Received Thanks: 726
Bist du sicher, dass der Prozess "NostaleX.dat" heißt?
Guck im Taskmanager unter Prozesse nach.
Njahs is offline  
Old 03/31/2012, 10:36   #3
 
elite*gold: 10
Join Date: Mar 2012
Posts: 117
Received Thanks: 46
Ja ^^
fasdasfda is offline  
Old 03/31/2012, 11:55   #4
 
elite*gold: 50
Join Date: Mar 2010
Posts: 1,373
Received Thanks: 521
Wenn schon ein Fehler angezeigt wird, könntest du auch so freundlich sein und ihn nennen.
jacky919 is offline  
Thanks
1 User
Old 03/31/2012, 12:35   #5
 
elite*gold: 10
Join Date: Mar 2012
Posts: 117
Received Thanks: 46
Ja sorry hier ist ein Bild also der Fehler tritt immer so auf :
Wenn ich Hack starte alles ist normal kein Error doch wenn dann mein NosTale aufgeht direkt Error...hier :


Edit:

Wenn ihr den Error lesen wollt einfach auf dem Gelben Satz über das Bild klicken dann auf der Bild Seite einmal auf das Bild mit Maus klicken dann zoomt das.
fasdasfda is offline  
Old 03/31/2012, 12:46   #6
 
elite*gold: 50
Join Date: Mar 2010
Posts: 1,373
Received Thanks: 521
Die Funktion ist nicht deklariert _MemoryOpen ist nicht deklariert.
jacky919 is offline  
Thanks
1 User
Old 03/31/2012, 13:01   #7
 
elite*gold: 10
Join Date: Mar 2012
Posts: 117
Received Thanks: 46
Kannst du mir erklären wie ich dass ändere in skype add me pls epvp.everything
fasdasfda is offline  
Old 03/31/2012, 13:08   #8
 
elite*gold: 50
Join Date: Mar 2010
Posts: 1,373
Received Thanks: 521
Lade dir die NomadMemory.au3 runter:
Attached Files
File Type: rar NomadMemory.rar (2.7 KB, 1 views)
jacky919 is offline  
Thanks
1 User
Old 03/31/2012, 13:40   #9
 
elite*gold: 10
Join Date: Mar 2012
Posts: 117
Received Thanks: 46
@jacky919
Danke das war nicht das Problem sondern im Skript stand nicht #include n.....


So next Error ;( :
fasdasfda is offline  
Old 03/31/2012, 13:54   #10
 
omer36's Avatar
 
elite*gold: 0
Join Date: Mar 2009
Posts: 2,317
Received Thanks: 1,255
..\Desktop\Stealer\ ...
hmpf


PHP Code:
Func _MemoryGetBaseAddress($ah_Handle$iHexDec 0)

    
Local $iv_Address 0x00100000
    Local $v_Buffer 
DllStructCreate('dword;dword;dword;dword;dword;dword;dword')
    
Local $vData
    Local $vType

    
If Not IsArray($ah_HandleThen
        SetError
(1)
        Return 
0
    
EndIf


    
DllCall($ah_Handle[0], 'int''VirtualQueryEx''int'$ah_Handle[1], 'int'$iv_Address'ptr'DllStructGetPtr($v_Buffer), 'int'DllStructGetSize($v_Buffer))

    If 
Not @Error Then

        $vData 
Hex(DllStructGetData($v_Buffer2))
        
$vType Hex(DllStructGetData($v_Buffer3))

        While 
$vType <> "00000080"
            
DllCall($ah_Handle[0], 'int''VirtualQueryEx''int'$ah_Handle[1], 'int'$iv_Address'ptr'DllStructGetPtr($v_Buffer), 'int'DllStructGetSize($v_Buffer))
            
$vData Hex(DllStructGetData($v_Buffer2))
            
$vType Hex(DllStructGetData($v_Buffer3))
            If 
Hex($iv_Address) = "01000000" Then ExitLoop
            $iv_Address 
+= 65536

        WEnd

        
If $vType "00000080" Then
            SetError
(0)
            If 
$iHexDec 1 Then
                
Return Dec($vData)
            Else
                Return 
$vData
            
EndIf

        Else
            
SetError(2)
            Return 
0
        
EndIf

    Else
        
SetError(3)
        Return 
0
    
EndIf

EndFunc   ;==>_MemoryGetBaseAddress 
omer36 is offline  
Old 03/31/2012, 13:56   #11
 
elite*gold: 10
Join Date: Mar 2012
Posts: 117
Received Thanks: 46
Quote:
Originally Posted by omer36 View Post
PHP Code:
Func _MemoryGetBaseAddress($ah_Handle$iHexDec 0)

    
Local $iv_Address 0x00100000
    Local $v_Buffer 
DllStructCreate('dword;dword;dword;dword;dword;dword;dword')
    
Local $vData
    Local $vType

    
If Not IsArray($ah_HandleThen
        SetError
(1)
        Return 
0
    
EndIf


    
DllCall($ah_Handle[0], 'int''VirtualQueryEx''int'$ah_Handle[1], 'int'$iv_Address'ptr'DllStructGetPtr($v_Buffer), 'int'DllStructGetSize($v_Buffer))

    If 
Not @Error Then

        $vData 
Hex(DllStructGetData($v_Buffer2))
        
$vType Hex(DllStructGetData($v_Buffer3))

        While 
$vType <> "00000080"
            
DllCall($ah_Handle[0], 'int''VirtualQueryEx''int'$ah_Handle[1], 'int'$iv_Address'ptr'DllStructGetPtr($v_Buffer), 'int'DllStructGetSize($v_Buffer))
            
$vData Hex(DllStructGetData($v_Buffer2))
            
$vType Hex(DllStructGetData($v_Buffer3))
            If 
Hex($iv_Address) = "01000000" Then ExitLoop
            $iv_Address 
+= 65536

        WEnd

        
If $vType "00000080" Then
            SetError
(0)
            If 
$iHexDec 1 Then
                
Return Dec($vData)
            Else
                Return 
$vData
            
EndIf

        Else
            
SetError(2)
            Return 
0
        
EndIf

    Else
        
SetError(3)
        Return 
0
    
EndIf

EndFunc   ;==>_MemoryGetBaseAddress 

??????????

Bitte hilfe !! 2post über meinen ist screen von error !!
fasdasfda is offline  
Old 03/31/2012, 13:58   #12
 
omer36's Avatar
 
elite*gold: 0
Join Date: Mar 2009
Posts: 2,317
Received Thanks: 1,255
1 Post unter dein Screen ist die Lösung.

Da du eh nur C&P machst, kopier die Funktion und füg sie in "deiner" Source ein.
omer36 is offline  
Thanks
1 User
Old 03/31/2012, 14:00   #13
 
elite*gold: 10
Join Date: Mar 2012
Posts: 117
Received Thanks: 46
Edit: Habe eingefügt ganz unten der Error ist weg jetz wieder einer....

fasdasfda is offline  
Old 03/31/2012, 14:22   #14
 
omer36's Avatar
 
elite*gold: 0
Join Date: Mar 2009
Posts: 2,317
Received Thanks: 1,255
poste doch einfach dein komplettes script.

ps: druck F5 um es zu starten, musst es nicht immer compilieren.
omer36 is offline  
Old 03/31/2012, 15:50   #15
 
elite*gold: 10
Join Date: Mar 2012
Posts: 117
Received Thanks: 46
Quote:
Originally Posted by omer36 View Post
poste doch einfach dein komplettes script.

ps: druck F5 um es zu starten, musst es nicht immer compilieren.
Nagut hier ist das Script was fehlt den alles aufjedenfall fällt da viel ^^
PHP Code:
$STATIC 6576996
Global $FEE$SPTIME 1$KLASSE
FileInstall
("C:\Users\Ronny\Downloads\AutoIt\GUI.png", @TempDir "\Nos2.png"1)
Global 
$PNGSRCGUIBK = @TempDir "\Nos2.png"
Global Const $AC_SRC_ALPHA 1
$GUI 
GUICreate("Clientside Hack"654266, -1, -1$WS_POPUPBitOR($WS_EX_CONTROLPARENT$WS_EX_LAYERED$WS_EX_TOPMOST))
_GDIPlus_Startup()
Global 
$HIMAGEGUIBK _GDIPlus_ImageLoadFromFile($PNGSRCGUIBK)
BITMAP($GUI$HIMAGEGUIBK255)
$GUISUB GUICreate("Clientside Hack"580390, -1, -1$WS_POPUPBitOR($WS_EX_LAYERED$WS_EX_MDICHILD$WS_EX_TOPMOST), $GUI)
$LABEL1 GUICtrlCreateLabel("Aussehen"72165117)
$LABEL2 GUICtrlCreateLabel("Waffe"40563317)
$INPUT1 GUICtrlCreateInput(""24807321)
$LABEL3 GUICtrlCreateLabel("Rüstung"136564417)
$INPUT2 GUICtrlCreateInput(""120807321)
$LABEL5 GUICtrlCreateLabel("Hut"481282117)
$INPUT3 GUICtrlCreateInput(""241527321)
$BUTTON1 GUICtrlCreateButton("Change!"1201367541$WS_GROUP)
$LABEL6 GUICtrlCreateLabel("Waffe"722564917)
$LABEL7 GUICtrlCreateLabel("Farbe"482883117)
$INPUT4 GUICtrlCreateInput(""243127321)
$LABEL8 GUICtrlCreateLabel("Upgrade"1362884517)
$INPUT5 GUICtrlCreateInput(""1203127321)
$BUTTON2 GUICtrlCreateButton("Change!"2434417125$WS_GROUP)
$RADIO13 GUICtrlCreateRadio("Magier (W)"29628811317)
$RADIO14 GUICtrlCreateRadio("Bogenschütze (W)"29631211317)
$RADIO15 GUICtrlCreateRadio("Schwertkämpfer (W)"29633611317)
$RADIO16 GUICtrlCreateRadio("Abenteurer (W)"29636011317)
$LABEL4 GUICtrlCreateLabel("Feen- und Klassenhack"2962415017)
$RADIO1 GUICtrlCreateRadio("Feuerfee (unbekannt)"2965612517)
$RADIO2 GUICtrlCreateRadio("Wasserfee (unbekannt)"2968013517)
$RADIO3 GUICtrlCreateRadio("Schattenfee (unbekannt)"29610413517)
$RADIO4 GUICtrlCreateRadio("Lichtfee (unbekannt)"29612813517)
$RADIO5 GUICtrlCreateRadio("Feuerfee (mall)"29616010517)
$RADIO6 GUICtrlCreateRadio("Wasserfee (mall)"29618410517)
$RADIO7 GUICtrlCreateRadio("Schattenfee (mall)"29620810517)
$RADIO8 GUICtrlCreateRadio("Lichtfee (mall)"29623210517)
$RADIO9 GUICtrlCreateRadio("Feuerfee (boost)"4445611317)
$RADIO10 GUICtrlCreateRadio("Wasserfee (boost)"4448011317)
$RADIO11 GUICtrlCreateRadio("Schattenfee (boost)"44410411317)
$RADIO12 GUICtrlCreateRadio("Lichtfee (boost)"44412811317)
$RADIO17 GUICtrlCreateRadio("Magier (M)"42416011317)
$RADIO18 GUICtrlCreateRadio("Bogenschütze (M)"42418411317)
$RADIO19 GUICtrlCreateRadio("Schwertkämpfer (M)"42420611317)
$RADIO20 GUICtrlCreateRadio("Abenteurer (M)"42423211317)
GUICtrlSetColor(-116777215)
GUISetBkColor(5789784)
_WINAPI_SETLAYEREDWINDOWATTRIBUTES($GUISUB5789784)
GUISetState(@SW_SHOW$GUI)
GUISetState(@SW_SHOW$GUISUB)
#EndRegion ### END Koda GUI section ###
While 1
    
If GUICtrlRead($INPUT4) > 999 Then GUICtrlSetData($INPUT4999)
    If 
GUICtrlRead($INPUT4) > 900 Then GUICtrlSetData($INPUT4900)
    
$NMSG GUIGetMsg()
    Switch 
$NMSG
        
Case $GUI_EVENT_CLOSE
            
Exit
        Case 
$BUTTON1
            _CHANGE
()
        Case 
$BUTTON2
            _CHANGE2
()
        Case 
$RADIO1
            _FEE
(1336934424)
        Case 
$RADIO2
            _FEE
(1336934425)
        Case 
$RADIO3
            _FEE
(1336934427)
        Case 
$RADIO4
            _FEE
(1336934423)
        Case 
$RADIO5
            _FEE
(1325400305)
        Case 
$RADIO6
            _FEE
(1325400306)
        Case 
$RADIO7
            _FEE
(1325400309)
        Case 
$RADIO8
            _FEE
(1325400307)
        Case 
$RADIO9
            _FEE
(1336934404)
        Case 
$RADIO10
            _FEE
(1336934405)
        Case 
$RADIO11
            _FEE
(1336934403)
        Case 
$RADIO12
            _FEE
(1336934402)
        Case 
$RADIO13
            _KLASSE
(3)
        Case 
$RADIO14
            _KLASSE
(2)
        Case 
$RADIO15
            _KLASSE
(1)
        Case 
$RADIO16
            _KLASSE
(0)
        Case 
$RADIO17
            _KLASSE
(131)
        Case 
$RADIO18
            _KLASSE
(130)
        Case 
$RADIO19
            _KLASSE
(129)
        Case 
$RADIO20
            _KLASSE
(128)
    EndSwitch
WEnd
Func _FEE
($DATA)
    
$OPEN OPENPROCESS(ProcessExists("NostaleX.dat"))
    
$POINTER READPROCESSMEMORY($OPEN$STATIC)
    
$FEE READPROCESSMEMORY($OPEN$POINTER Dec("194"))
    
WRITEPROCESSMEMORY($OPEN$FEE Dec("44"), $DATA)
    
CLOSEPROCESS($OPEN)
EndFunc
Func _KLASSE
($DATA)
    
$OPEN OPENPROCESS(ProcessExists("NostaleX.dat"))
    
$POINTER READPROCESSMEMORY($OPEN$STATIC)
    
$KLASSE READPROCESSMEMORY($OPEN$POINTER Dec("154"))
    
WRITEPROCESSMEMORY($OPEN$KLASSE Dec("2C"), $DATA)
    
CLOSEPROCESS($OPEN)
EndFunc
Func _CHANGE
()
    
$OPEN OPENPROCESS(ProcessExists("NostaleX.dat"))
    
$POINTER READPROCESSMEMORY($OPEN$STATIC)
    
$HUT READPROCESSMEMORY($OPEN$POINTER Dec("154"))
    If 
Not GUICtrlRead($INPUT2) = "" Then
        WRITEPROCESSMEMORY
($OPEN$HUT Dec("2E"), GUICtrlRead($INPUT2))
    EndIf
    
Sleep(300)
    If 
Not GUICtrlRead($INPUT3) = "" Then
        WRITEPROCESSMEMORY
($OPEN$HUT Dec("30"), GUICtrlRead($INPUT3))
    EndIf
    
Sleep(300)
    If 
Not GUICtrlRead($INPUT1) = "" Then
        WRITEPROCESSMEMORY
($OPEN$HUT Dec("33"), GUICtrlRead($INPUT1))
    EndIf
    
CLOSEPROCESS($OPEN)
EndFunc
Func _CHANGE2
()
    Global 
$OFFSETPLUS[3] = [034029]
    Global 
$OFFSETLEUCHTEN[3] = [034022]
    
$OPEN OPENPROCESS(ProcessExists("NostaleX.dat"))
    
$POINTER READPROCESSMEMORY($OPEN$STATIC)
    
$PLUS READPROCESSMEMORY($OPEN$POINTER Dec("154"))
    If 
Not GUICtrlRead($INPUT5) = "" Then
        
If GUICtrlRead($INPUT5) < 895 Then GUICtrlSetData($INPUT5895)
        
WRITEPROCESSMEMORY($OPEN$PLUS Dec("1D"), "1542224" GUICtrlRead($INPUT5))
    EndIf
    If 
Not GUICtrlRead($INPUT4) = "" Then
        
If GUICtrlRead($INPUT4) < 100 Then GUICtrlSetData($INPUT4100)
        
WRITEPROCESSMEMORY($OPEN$PLUS Dec("16"), GUICtrlRead($INPUT4) & "0000")
    EndIf
    
CLOSEPROCESS($OPEN)
EndFunc
Func BITMAP
($HGUI$HIMAGE$IOPACITY)
    
Local $HSCRDC$HMEMDC$HBITMAP$HOLD$PSIZE$TSIZE$PSOURCE$TSOURCE$PBLEND$TBLEND
    $HSCRDC 
_WinAPI_GetDC(0)
    
$HMEMDC _WinAPI_CreateCompatibleDC($HSCRDC)
    
$HBITMAP _GDIPlus_BitmapCreateHBITMAPFromBitmap($HIMAGE)
    
$HOLD _WinAPI_SelectObject($HMEMDC$HBITMAP)
    
$TSIZE DllStructCreate($TAGSIZE)
    
$PSIZE DllStructGetPtr($TSIZE)
    
$TSOURCE DllStructCreate($TAGPOINT)
    
$PSOURCE DllStructGetPtr($TSOURCE)
    
$TBLEND DllStructCreate($TAGBLENDFUNCTION)
    
$PBLEND DllStructGetPtr($TBLEND)
    
DllStructSetData($TBLEND"Alpha"$IOPACITY)
    
DllStructSetData($TBLEND"Format"$AC_SRC_ALPHA)
    
DllStructSetData($TSIZE"X"_GDIPlus_ImageGetWidth($HIMAGE))
    
DllStructSetData($TSIZE"Y"_GDIPlus_ImageGetHeight($HIMAGE))
    
_WinAPI_UpdateLayeredWindow($HGUI$HSCRDC0$PSIZE$HMEMDC$PSOURCE0$PBLEND$ULW_ALPHA)
    
_WinAPI_ReleaseDC(0$HSCRDC)
    
_WinAPI_SelectObject($HMEMDC$HOLD)
    
_WinAPI_DeleteObject($HBITMAP)
    
_WinAPI_DeleteDC($HMEMDC)
EndFunc 
Hoffej eamand schafft das richtig zu beigen damit es funktioniert
fasdasfda is offline  
Reply


Similar Threads Similar Threads
Frage zu Bot machen-Maus Frage-Button Frage
02/16/2012 - AutoIt - 10 Replies
Hallo, Elitepvpers hat echt für alles ein Ort :D Geil. Also...Bin AutoIt anfänger. Ich bin dabei ein Bot für das Online Game Runescape zu machen. Ich hette 2 Fragen(FÜR DEN MOMMENT :) ): Kann ich machen das AutoIt inaktiv die Maus benutzt,also werend der Bot läuft das ich bzw. man im Internet surft oder was anderes macht`?



All times are GMT +1. The time now is 08:31.


Powered by vBulletin®
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2025 elitepvpers All Rights Reserved.