|
You last visited: Today at 07:40
Advertisement
Suche Hilfe!!
Discussion on Suche Hilfe!! within the AutoIt forum part of the Coders Den category.
06/14/2010, 18:01
|
#16
|
elite*gold: 0 
Join Date: Jan 2010
Posts: 622
Received Thanks: 262
|
Quote:
Originally Posted by KillerDeluxe
PHP Code:
$HPLeiste = GUICtrlCreateProgress()
$HPCur = _MemoryPointerRead(0x01937708)
$HPMax = _MemoryPointerRead(0x0193770C)
Du musst die Funktionen richtig benutzten, schau dir dazu einfach mal am besten die "F1" Hilfe an.
Sollte in etwa so aussehen, geh am besten noch mal alles durch, denn auf Dauer bleibt kein Lerneffekt.
PHP Code:
#include <NomadMemory.au3>
;#include <Pointer.au3>
$GUI = GUICreate("HP Scanner", 235, 65)
;WinSetOnTop($GUI, "", 1); Fenster ist immer im Vordergrund
$labelHP = GUICtrlCreateLabel("0 / 0", 45, 15, 175, 15)
$progressHP = GUICtrlCreateProgress(45, 40, 175, 15)
GUICtrlCreateLabel("HP:", 15, 40, 20, 12)
GUISetState()
$iv_Address = 0x1063F2E8; Base
$LC = ProcessExists("Nksp.exe")
$ah_Handle = _MemoryOpen($LC)
Dim $av_OffsetHP[2] = [0, 0x107324]; aktuelle HP
Dim $av_OffsetHPM[2] = [0, 0x107320]; maximale HP
$sv_Type = "float"; Type: dword = 4 Bytes, float = Float
While True
If $LC Then
$msg = GUIGetMsg()
Switch $msg
Case -3
Exit
EndSwitch
$HP = _MemoryPointerRead($iv_Address, $ah_Handle, $av_OffsetHP, $sv_Type); aktuelle HP des Ziels
$HPM = _MemoryPointerRead($iv_Address, $ah_Handle, $av_OffsetHPM, $sv_Type); maximale HP des Ziels
$label = $HP[1] & " / " & $HPM[1]; Wert des Labels
$progress = $HP[1] * 100 / $HPM[1]; Prozent ausrechnen
If GUICtrlRead($labelHP) <> $label Then GUICtrlSetData($labelHP, $label); ändert das Label nur, wenn sich die Werte geändert haben
GUICtrlSetData($progressHP, $progress)
Else
MsgBox(48, "Fehler", "Starte zuerst LastChaos!")
Exit
EndIf
WEnd
|
alles schön und gut Killer aber vollkommen am ziel vorbeigeschossen xD ich möchte nicht die HP des Targets anzeigen sondern die eigene
was bedeutet das ich eine sich immer wieder aktualisierende Funktion zusammenbekommen muss um meine HP mein Mana und die HP meines pets immer aktuell im Projekt sehen zu können und das überfordert mich noch ein bisschen
Edit: Ich habs nun dank EndtotheNight geschafft immerhin die Anzeige abzustimmen so das meine HP leiste jetzt meine eigenen HP anzeigt wie sie es soll das muss ich jetzt nur noch in zahlen umsetzen und dann ist mein tagesziel erriecht
|
|
|
|
06/14/2010, 21:31
|
#17
|
elite*gold: 0
Join Date: Mar 2009
Posts: 7,260
Received Thanks: 33,149
|
Ersetzt einfach die Offsets durch die des eigenen Spielers und änder das "float" zu "dword" → das wars.
Mach es einfach so:
PHP Code:
;GUI
While True
;$msg = GUIGetMsg()
;...
_Read()
WEnd
Func _Read()
Global $HP = _MemoryPointerRead()
Global $HPM = _MemoryPointerRead()
Global $MP = _MemoryPointerRead()
Global $MPM = _MemoryPointerRead()
Global $PetHP = _MemoryPointerRead()
Global $PetFP = _MemoryPointerRead()
_Heal()
EndFunc
Func _Heal()
If $HP[1] = $HPM[1] - GUICtrlRead($inputHP) Then ControlSend("LastChaos - Gamigo", "", "", "{F1}")
;
EndFunc
|
|
|
|
|
06/14/2010, 22:13
|
#18
|
elite*gold: 0
Join Date: Jan 2010
Posts: 622
Received Thanks: 262
|
Quote:
Originally Posted by KillerDeluxe
Ersetzt einfach die Offsets durch die des eigenen Spielers und änder das "float" zu "dword" → das wars.
Mach es einfach so:
PHP Code:
;GUI
While True
;$msg = GUIGetMsg()
;...
_Read()
WEnd
Func _Read()
Global $HP = _MemoryPointerRead()
Global $HPM = _MemoryPointerRead()
Global $MP = _MemoryPointerRead()
Global $MPM = _MemoryPointerRead()
Global $PetHP = _MemoryPointerRead()
Global $PetFP = _MemoryPointerRead()
_Heal()
EndFunc
Func _Heal()
If $HP[1] = $HPM[1] - GUICtrlRead($inputHP) Then ControlSend("LastChaos - Gamigo", "", "", "{F1}")
;
EndFunc
|
Sry vergessen Bescheid zu sagen...
Killer deine Variante hat mir auch geholfen ich habe 2 Leisten eingebaut eine für die eigene und eine für das Target
Edit:
Jetzt fehlt mir nur noch eines und dann bin ich erst mal gerüstet^^
eine mgöichkeit das hier einzubinden...
PHP Code:
$onoff = 0 ;1= an 0= aus
Case $btn_Start
$onoff = 1
Case $btn_Stop
$onoff = 0
wer ne Idee hat ich bin für alles dankbar
mein größter Danke geht wohl an Endtothenight für seine extremen Nerven die er mit mir hat und für seine super Hilfe mit meinem Script
|
|
|
|
|
06/15/2010, 15:58
|
#19
|
elite*gold: 0
Join Date: Mar 2009
Posts: 7,260
Received Thanks: 33,149
|
Riechen können wir es nicht, wäre evtl. ganz hilfreich das Script zu posten.
$btn_Start = Startbutton (soll den Bot starten)
$btn_Stop = Stopbutton (soll den Bot beenden/pausieren)
|
|
|
|
|
06/15/2010, 16:09
|
#20
|
elite*gold: 0
Join Date: Jan 2010
Posts: 622
Received Thanks: 262
|
Quote:
Originally Posted by KillerDeluxe
Riechen können wir es nicht, wäre evtl. ganz hilfreich das Script zu posten.
$btn_Start = Startbutton (soll den Bot starten)
$btn_Stop = Stopbutton (soll den Bot beenden/pausieren)
|
lässt sich machen
PHP Code:
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <NomadMemory.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
$windowname = "LastChaos -"
Opt("SendKeyDownDelay" , 200) ;Erzwingt, dass jeder Tastendruck midestens 200 millisek lang ist
HotKeySet("{ESC}","_esc")
#Region ### START Koda GUI section ### Form=c:\users\timothy\documents\autoit\form1_1.kxf
$Form1_1 = GUICreate("Hitchens Bot", 463, 329, 192, 124)
GUISetBkColor(0xB9D1EA)
$Tab1 = GUICtrlCreateTab(32, 8, 401, 305)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Trainer")
$Angriffstempo = GUICtrlCreateCheckbox("Angriffsgeschwindigkeit", 45, 56, 145, 33)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Geschwindigkeit = GUICtrlCreateCheckbox("Laufgeschwindigkeit", 45, 81, 153, 33)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Input_AT = GUICtrlCreateInput("10", 198, 61, 57, 22, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Input_GS = GUICtrlCreateInput("10", 198, 84, 57, 22, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$labelHP = GUICtrlCreateLabel("0 / 0", 45, 211, 162, 33)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$HPLeiste = GUICtrlCreateProgress(45, 226, 250, 15)
$progressHP = GUICtrlCreateProgress(45, 261, 250, 15)
$labelTG = GUICtrlCreateLabel("0 / 0", 45, 245, 162, 33)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Eigene = GUICtrlCreateLabel("Eigene HP", 136, 211, 52, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Label9 = GUICtrlCreateLabel("Target HP", 136, 245, 51, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$TabSheet2 = GUICtrlCreateTabItem("Bot")
$Checkbox1 = GUICtrlCreateCheckbox("F1 Angriff", 52, 95, 73, 33)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Checkbox2 = GUICtrlCreateCheckbox("F2 Aufsammeln", 52, 127, 97, 33)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$tb_min = GUICtrlCreateInput("10", 146, 71, 49, 22, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$tb_max = GUICtrlCreateInput("10", 237, 71, 49, 22, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$bis = GUICtrlCreateLabel("bis", 208, 71, 18, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Monsterlevel = GUICtrlCreateLabel("Monsterlevel von", 52, 71, 86, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$btn_Start = GUICtrlCreateButton("Start", 320, 56, 97, 33, $WS_GROUP)
GUICtrlSetFont(-1, 11, 800, 0, "Arial Black")
$btn_Stop = GUICtrlCreateButton("Stop", 320, 95, 97, 33, $WS_GROUP)
$TabSheet3 = GUICtrlCreateTabItem("Thanks")
$Label1 = GUICtrlCreateLabel("Spezial Thanks to", 39, 63, 162, 28)
GUICtrlSetFont(-1, 16, 800, 2, "Comic Sans MS")
$Label2 = GUICtrlCreateLabel("KillerDeluxe123,", 39, 119, 189, 31)
GUICtrlSetFont(-1, 16, 800, 2, "Comic Sans MS")
$Label7 = GUICtrlCreateLabel("OldLucieN und", 39, 173, 165, 31)
GUICtrlSetFont(-1, 14, 800, 2, "Comic Sans MS")
$Label3 = GUICtrlCreateLabel("und", 31, 33, 31, 4)
GUICtrlSetFont(-1, 14, 800, 2, "Comic Sans MS")
$Label4 = GUICtrlCreateLabel("huberhans", 39, 199, 97, 31)
GUICtrlSetFont(-1, 14, 800, 2, "Comic Sans MS")
$Label5 = GUICtrlCreateLabel("für ihre tatkräftige Unterstützung", 39, 223, 350, 27)
GUICtrlSetFont(-1, 14, 800, 2, "Comic Sans MS")
$Label8 = GUICtrlCreateLabel("Endtothenight,", 40, 146, 189, 31)
GUICtrlSetFont(-1, 16, 800, 2, "Comic Sans MS")
$TabSheet4 = GUICtrlCreateTabItem("Info")
$Label6 = GUICtrlCreateLabel("Diese GUI ist erst einmal rein spartanisch", 40, 82, 368, 93)
GUICtrlSetFont(-1, 14, 800, 0, "Cambria Math")
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;$iv_Address = 0x1063F2E8; Base
Dim $av_OffsetHP[2] = [0, 0x107324];
Dim $av_OffsetHPM[2] = [0, 0x107320];
$sv_Type = "float";
Global $iv_Pid = ProcessExists("Nksp.exe")
Global $ah_Handle = _MemoryOpen($iv_Pid)
Global $av_OffsetAT[5] = [0, 0x1C , 0x10 , 0x4 , 0xDDC]
Global $av_OffsetGS[5] = [0, 0x1C, 0x10, 0x4, 0xDD4]
Global $SV_TYPE4B = "dword"
Global $sv_TypeF = "float"
Global $PID = WinGetProcess("LastChaos - (")
Global $Memory = _MemoryOpen($iv_Pid)
Global $Pointer1 = 0x1063F2E8 ;_pnetwork
Global $HPCuroffset[2] = [0 ,0x1076E8]
Global $HPMaxoffset[2] = [0 , 0x1076EC]
Global $HPCur
Global $HPMax
Global $Moblvloffset[2] = [0,0x107328]
Global $Moblvl
Func _esc()
Exit
EndFunc
While 1
$NMG = GUIGetMsg()
Switch $NMG
Case $GUI_Event_Close
Exit
EndSwitch
Bot()
Hacks()
HPLabel()
HPTarget()
WEnd
Func Hacks()
$v_DataAT = GUICtrlRead($Input_AT)
$v_DataGS = GUICtrlRead($Input_GS)
If GUICtrlRead($Angriffstempo)=$GUI_CHECKED Then
_MemoryPointerWrite($Pointer1, $ah_Handle, $av_OffsetAT, $v_DataAT, "dword")
EndIf
If GUICtrlRead($Geschwindigkeit)=$GUI_CHECKED Then
_MemoryPointerWrite($Pointer1, $ah_Handle, $av_OffsetGS, $v_DataGS, "float")
EndIf
EndFunc
Func HPLabel()
If $PID Then
$HPCur = _MemoryPointerRead($Pointer1, $Memory, $HPCuroffset, "dword")
If @error Then
Beep(100,500)
EndIf
$HPMax = _MemoryPointerRead($Pointer1, $Memory, $HPMaxoffset, "dword")
If @error Then
Beep(100,500)
EndIf
$label = $HPCur[1] & " / " & $HPMax[1];
If GUICtrlRead($labelHP) <> $label Then GUICtrlSetData($labelHP, $label)
GuiCtrlSetData($HPLeiste, Int(($HPcur[1]/($HPmax[1] / 100))))
EndIf
EndFunc
Func HPTarget()
If $PID Then
$msg = GUIGetMsg()
Switch $msg
Case -3
Exit
EndSwitch
$HP = _MemoryPointerRead($Pointer1, $ah_Handle, $av_OffsetHP, $sv_Type);
$HPM = _MemoryPointerRead($Pointer1, $ah_Handle, $av_OffsetHPM, $sv_Type);
$label = $HP[1] & " / " & $HPM[1];
$progress = $HP[1] * 100 / $HPM[1];
If GUICtrlRead($labelTG ) <> $label Then GUICtrlSetData($labelTG , $label);
GUICtrlSetData($progressHP, $progress)
Else
MsgBox(48, "Fehler", "Starte zuerst LastChaos!")
Exit
EndIf
EndFunc
Func Bot ()
$Moblvl = _MemoryPointerRead($Pointer1 , $Memory , $Moblvloffset)
If $Moblvl[1] >= GUICtrlRead($tb_min) And $Moblvl[1] <= GUICtrlRead($tb_max) Then
If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then
ControlSend($windowname, "", "", "{F1}")
EndIf
Sleep(100)
If GUICtrlRead($Checkbox2) = $GUI_CHECKED Then
ControlSend($windowname, "", "", "{F2}")
EndIf
Else
ControlSend($windowname, "", "", "{TAB}")
EndIF
EndFunc
momentan kommt noch das hier bei raus ich hoffe aber das ich das bald behoben bekomme
PHP Code:
: ==> Subscript used with non-Array variable.:
|
|
|
|
|
06/15/2010, 16:18
|
#21
|
elite*gold: 50
Join Date: Feb 2009
Posts: 2,173
Received Thanks: 1,766
|
Quote:
Originally Posted by Hitchens
lässt sich machen
PHP Code:
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <NomadMemory.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
$windowname = "LastChaos -"
Opt("SendKeyDownDelay" , 200) ;Erzwingt, dass jeder Tastendruck midestens 200 millisek lang ist
HotKeySet("{ESC}","_esc")
#Region ### START Koda GUI section ### Form=c:\users\timothy\documents\autoit\form1_1.kxf
$Form1_1 = GUICreate("Hitchens Bot", 463, 329, 192, 124)
GUISetBkColor(0xB9D1EA)
$Tab1 = GUICtrlCreateTab(32, 8, 401, 305)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Trainer")
$Angriffstempo = GUICtrlCreateCheckbox("Angriffsgeschwindigkeit", 45, 56, 145, 33)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Geschwindigkeit = GUICtrlCreateCheckbox("Laufgeschwindigkeit", 45, 81, 153, 33)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Input_AT = GUICtrlCreateInput("10", 198, 61, 57, 22, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Input_GS = GUICtrlCreateInput("10", 198, 84, 57, 22, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$labelHP = GUICtrlCreateLabel("0 / 0", 45, 211, 162, 33)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$HPLeiste = GUICtrlCreateProgress(45, 226, 250, 15)
$progressHP = GUICtrlCreateProgress(45, 261, 250, 15)
$labelTG = GUICtrlCreateLabel("0 / 0", 45, 245, 162, 33)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Eigene = GUICtrlCreateLabel("Eigene HP", 136, 211, 52, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Label9 = GUICtrlCreateLabel("Target HP", 136, 245, 51, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$TabSheet2 = GUICtrlCreateTabItem("Bot")
$Checkbox1 = GUICtrlCreateCheckbox("F1 Angriff", 52, 95, 73, 33)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Checkbox2 = GUICtrlCreateCheckbox("F2 Aufsammeln", 52, 127, 97, 33)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$tb_min = GUICtrlCreateInput("10", 146, 71, 49, 22, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$tb_max = GUICtrlCreateInput("10", 237, 71, 49, 22, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$bis = GUICtrlCreateLabel("bis", 208, 71, 18, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Monsterlevel = GUICtrlCreateLabel("Monsterlevel von", 52, 71, 86, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$btn_Start = GUICtrlCreateButton("Start", 320, 56, 97, 33, $WS_GROUP)
GUICtrlSetFont(-1, 11, 800, 0, "Arial Black")
$btn_Stop = GUICtrlCreateButton("Stop", 320, 95, 97, 33, $WS_GROUP)
$TabSheet3 = GUICtrlCreateTabItem("Thanks")
$Label1 = GUICtrlCreateLabel("Spezial Thanks to", 39, 63, 162, 28)
GUICtrlSetFont(-1, 16, 800, 2, "Comic Sans MS")
$Label2 = GUICtrlCreateLabel("KillerDeluxe123,", 39, 119, 189, 31)
GUICtrlSetFont(-1, 16, 800, 2, "Comic Sans MS")
$Label7 = GUICtrlCreateLabel("OldLucieN und", 39, 173, 165, 31)
GUICtrlSetFont(-1, 14, 800, 2, "Comic Sans MS")
$Label3 = GUICtrlCreateLabel("und", 31, 33, 31, 4)
GUICtrlSetFont(-1, 14, 800, 2, "Comic Sans MS")
$Label4 = GUICtrlCreateLabel("huberhans", 39, 199, 97, 31)
GUICtrlSetFont(-1, 14, 800, 2, "Comic Sans MS")
$Label5 = GUICtrlCreateLabel("für ihre tatkräftige Unterstützung", 39, 223, 350, 27)
GUICtrlSetFont(-1, 14, 800, 2, "Comic Sans MS")
$Label8 = GUICtrlCreateLabel("Endtothenight,", 40, 146, 189, 31)
GUICtrlSetFont(-1, 16, 800, 2, "Comic Sans MS")
$TabSheet4 = GUICtrlCreateTabItem("Info")
$Label6 = GUICtrlCreateLabel("Diese GUI ist erst einmal rein spartanisch", 40, 82, 368, 93)
GUICtrlSetFont(-1, 14, 800, 0, "Cambria Math")
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;$iv_Address = 0x1063F2E8; Base
Dim $av_OffsetHP[2] = [0, 0x107324];
Dim $av_OffsetHPM[2] = [0, 0x107320];
$sv_Type = "float";
Global $iv_Pid = ProcessExists("Nksp.exe")
Global $ah_Handle = _MemoryOpen($iv_Pid)
Global $av_OffsetAT[5] = [0, 0x1C , 0x10 , 0x4 , 0xDDC]
Global $av_OffsetGS[5] = [0, 0x1C, 0x10, 0x4, 0xDD4]
Global $SV_TYPE4B = "dword"
Global $sv_TypeF = "float"
Global $PID = WinGetProcess("LastChaos - (")
Global $Memory = _MemoryOpen($iv_Pid)
Global $Pointer1 = 0x1063F2E8 ;_pnetwork
Global $HPCuroffset[2] = [0 ,0x1076E8]
Global $HPMaxoffset[2] = [0 , 0x1076EC]
Global $HPCur
Global $HPMax
Global $Moblvloffset[2] = [0,0x107328]
Global $Moblvl
Func _esc()
Exit
EndFunc
While 1
$NMG = GUIGetMsg()
Switch $NMG
Case $GUI_Event_Close
Exit
EndSwitch
Bot()
Hacks()
HPLabel()
HPTarget()
WEnd
Func Hacks()
$v_DataAT = GUICtrlRead($Input_AT)
$v_DataGS = GUICtrlRead($Input_GS)
If GUICtrlRead($Angriffstempo)=$GUI_CHECKED Then
_MemoryPointerWrite($Pointer1, $ah_Handle, $av_OffsetAT, $v_DataAT, "dword")
EndIf
If GUICtrlRead($Geschwindigkeit)=$GUI_CHECKED Then
_MemoryPointerWrite($Pointer1, $ah_Handle, $av_OffsetGS, $v_DataGS, "float")
EndIf
EndFunc
Func HPLabel()
If $PID Then
$HPCur = _MemoryPointerRead($Pointer1, $Memory, $HPCuroffset, "dword")
If @error Then
Beep(100,500)
EndIf
$HPMax = _MemoryPointerRead($Pointer1, $Memory, $HPMaxoffset, "dword")
If @error Then
Beep(100,500)
EndIf
$label = $HPCur[1] & " / " & $HPMax[1];
If GUICtrlRead($labelHP) <> $label Then GUICtrlSetData($labelHP, $label)
GuiCtrlSetData($HPLeiste, Int(($HPcur[1]/($HPmax[1] / 100))))
EndIf
EndFunc
Func HPTarget()
If $PID Then
$msg = GUIGetMsg()
Switch $msg
Case -3
Exit
EndSwitch
$HP = _MemoryPointerRead($Pointer1, $ah_Handle, $av_OffsetHP, $sv_Type);
$HPM = _MemoryPointerRead($Pointer1, $ah_Handle, $av_OffsetHPM, $sv_Type);
$label = $HP[1] & " / " & $HPM[1];
$progress = $HP[1] * 100 / $HPM[1];
If GUICtrlRead($labelTG ) <> $label Then GUICtrlSetData($labelTG , $label);
GUICtrlSetData($progressHP, $progress)
Else
MsgBox(48, "Fehler", "Starte zuerst LastChaos!")
Exit
EndIf
EndFunc
Func Bot ()
$Moblvl = _MemoryPointerRead($Pointer1 , $Memory , $Moblvloffset)
If $Moblvl[1] >= GUICtrlRead($tb_min) And $Moblvl[1] <= GUICtrlRead($tb_max) Then
If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then
ControlSend($windowname, "", "", "{F1}")
EndIf
Sleep(100)
If GUICtrlRead($Checkbox2) = $GUI_CHECKED Then
ControlSend($windowname, "", "", "{F2}")
EndIf
Else
ControlSend($windowname, "", "", "{TAB}")
EndIF
EndFunc
momentan kommt noch das hier bei raus ich hoffe aber das ich das bald behoben bekomme
PHP Code:
: ==> Subscript used with non-Array variable.:
|
In welcher Line?
|
|
|
|
|
06/15/2010, 16:23
|
#22
|
elite*gold: 0
Join Date: Nov 2009
Posts: 927
Received Thanks: 1,317
|
Quote:
Originally Posted by Hitchens
momentan kommt noch das hier bei raus ich hoffe aber das ich das bald behoben bekomme
PHP Code:
: ==> Subscript used with non-Array variable.:
|
Im normalfall schreibt autoit aber auch die Zeile und den fehlerhaften Ausdruck mit dazu... das wäre hilfreich
|
|
|
|
|
06/15/2010, 17:06
|
#23
|
elite*gold: 0
Join Date: Jan 2010
Posts: 622
Received Thanks: 262
|
PHP Code:
>Running:(3.3.6.1):C:\Program Files\AutoIt3\autoit3.exe "C:\Users\Timothy\Documents\Autoit\Script NewGui.au3"
C:\Users\Timothy\Documents\Autoit\Script NewGui.au3 (173) : ==> Subscript used with non-Array variable.:
If $Moblvl[1] >= GUICtrlRead($tb_min) And $Moblvl[1] <= GUICtrlRead($tb_max) Then
If $Moblvl^ ERROR
vllt hilft das weiter
|
|
|
|
|
06/15/2010, 17:10
|
#24
|
elite*gold: 50
Join Date: Feb 2009
Posts: 2,173
Received Thanks: 1,766
|
Quote:
Originally Posted by Hitchens
PHP Code:
>Running:(3.3.6.1):C:\Program Files\AutoIt3\autoit3.exe "C:\Users\Timothy\Documents\Autoit\Script NewGui.au3"
C:\Users\Timothy\Documents\Autoit\Script NewGui.au3 (173) : ==> Subscript used with non-Array variable.:
If $Moblvl[1] >= GUICtrlRead($tb_min) And $Moblvl[1] <= GUICtrlRead($tb_max) Then
If $Moblvl^ ERROR
vllt hilft das weiter |
Mach beides mal aus ein .
|
|
|
|
|
06/15/2010, 17:21
|
#25
|
elite*gold: 0
Join Date: Jan 2010
Posts: 622
Received Thanks: 262
|
hat funktioniert jetzt muss ich nurnoch diese Buttons da rein bekommen
alles was ich bereits versucht habt schlug irgendwie fehl >.<
erst dachte ich so
PHP Code:
$onoff = 0 ;1= an 0= aus
Switch
Case $btn_Start
$onoff = 1
Case $btn_Stop
$onoff = 0
EndSwitch
aber man lernt nie aus xD
Error Error Error
|
|
|
|
|
06/15/2010, 17:42
|
#26
|
elite*gold: 0
Join Date: Nov 2009
Posts: 927
Received Thanks: 1,317
|
PHP Code:
switch GUIGetMsg()
|
|
|
|
|
06/15/2010, 17:55
|
#27
|
elite*gold: 0
Join Date: Jan 2010
Posts: 622
Received Thanks: 262
|
Quote:
Originally Posted by huberhans
PHP Code:
switch GUIGetMsg()
|
so ich habs jetzt so gemacht
PHP Code:
;$iv_Address = 0x1063F2E8; Base
Dim $av_OffsetHP[2] = [0, 0x107324];
Dim $av_OffsetHPM[2] = [0, 0x107320];
$sv_Type = "float";
Global $iv_Pid = ProcessExists("Nksp.exe")
Global $ah_Handle = _MemoryOpen($iv_Pid)
Global $av_OffsetAT[5] = [0, 0x1C , 0x10 , 0x4 , 0xDDC]
Global $av_OffsetGS[5] = [0, 0x1C, 0x10, 0x4, 0xDD4]
Global $SV_TYPE4B = "dword"
Global $sv_TypeF = "float"
Global $PID = WinGetProcess("LastChaos - (")
Global $Memory = _MemoryOpen($iv_Pid)
Global $Pointer1 = 0x1063F2E8 ;_pnetwork
Global $HPCuroffset[2] = [0 ,0x1076E8]
Global $HPMaxoffset[2] = [0 , 0x1076EC]
Global $HPCur
Global $HPMax
Global $Moblvloffset[2] = [0,0x107328]
Global $Moblvl
$onoff = 0 ;1= an 0= aus
Func _esc()
Exit
EndFunc
Switch GUIGetMsg()
Case $btn_Start
$onoff = 1
Case $btn_Stop
$onoff = 0
EndSwitch
While 1
$NMG = GUIGetMsg()
Switch $NMG
Case $GUI_Event_Close
Exit
EndSwitch
Bot()
Hacks()
HPLabel()
HPTarget()
WEnd
Func Hacks()
$v_DataAT = GUICtrlRead($Input_AT)
$v_DataGS = GUICtrlRead($Input_GS)
If GUICtrlRead($Angriffstempo)=$GUI_CHECKED Then
_MemoryPointerWrite($Pointer1, $ah_Handle, $av_OffsetAT, $v_DataAT, "dword")
EndIf
If GUICtrlRead($Geschwindigkeit)=$GUI_CHECKED Then
_MemoryPointerWrite($Pointer1, $ah_Handle, $av_OffsetGS, $v_DataGS, "float")
EndIf
EndFunc
Func HPLabel()
If $PID Then
$HPCur = _MemoryPointerRead($Pointer1, $Memory, $HPCuroffset, "dword")
If @error Then
Beep(100,500)
EndIf
$HPMax = _MemoryPointerRead($Pointer1, $Memory, $HPMaxoffset, "dword")
If @error Then
Beep(100,500)
EndIf
$label = $HPCur[1] & " / " & $HPMax[1];
If GUICtrlRead($labelHP) <> $label Then GUICtrlSetData($labelHP, $label)
GuiCtrlSetData($HPLeiste, Int(($HPcur[1]/($HPmax[1] / 100))))
EndIf
EndFunc
Func HPTarget()
If $PID Then
$msg = GUIGetMsg()
Switch $msg
Case -3
Exit
EndSwitch
$HP = _MemoryPointerRead($Pointer1, $ah_Handle, $av_OffsetHP, $sv_Type);
$HPM = _MemoryPointerRead($Pointer1, $ah_Handle, $av_OffsetHPM, $sv_Type);
$label = $HP[1] & " / " & $HPM[1];
$progress = $HP[1] * 100 / $HPM[1];
If GUICtrlRead($labelTG ) <> $label Then GUICtrlSetData($labelTG , $label);
GUICtrlSetData($progressHP, $progress)
Else
MsgBox(48, "Fehler", "Starte zuerst LastChaos!")
Exit
EndIf
EndFunc
Func Bot()
If $onoff = 1 Then
$Moblvl = _MemoryPointerRead($Pointer1 , $Memory , $Moblvloffset)
If $Moblvl >= GUICtrlRead($tb_min) And $Moblvl <= GUICtrlRead($tb_max) Then
If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then
ControlSend($windowname, "", "", "{F1}")
EndIf
Sleep(100)
If GUICtrlRead($Checkbox2) = $GUI_CHECKED Then
ControlSend($windowname, "", "", "{F2}")
EndIf
Else
ControlSend($windowname, "", "", "{TAB}")
EndIF
EndIf
EndFunc
da mir eure kenntnisse fehlen komme ich auch nicht wirklich voran
muss ich bei Buttons eigentlich etwas extra includen?
habe da nur #include <ButtonConstants.au3> indem das wort button vorkommt
|
|
|
|
|
06/15/2010, 18:19
|
#28
|
elite*gold: 0
Join Date: Nov 2009
Posts: 927
Received Thanks: 1,317
|
Nimm die Buttons in die Switch in der Schleife mit rein, dann sollte es auch funktionieren
|
|
|
|
|
06/15/2010, 18:37
|
#29
|
elite*gold: 0
Join Date: Jan 2010
Posts: 622
Received Thanks: 262
|
Quote:
Originally Posted by huberhans
Nimm die Buttons in die Switch in der Schleife mit rein, dann sollte es auch funktionieren
|
öööhhm NÖ xD das will nicht
folgende Variationen versucht (ich sag ja ich mir fehlen eure Kenntnisse)
Variation 1
PHP Code:
While 1
$NMG = GUIGetMsg()
Switch $NMG
Case $GUI_Event_Close
Case $btn_Start
$onoff = 1
Case $btn_Stop
$onoff = 0
Exit
EndSwitch
Bot()
Hacks()
HPLabel()
HPTarget()
WEnd
Variation 2
PHP Code:
While 1
$NMG = GUIGetMsg()
Switch $NMG
Case $GUI_Event_Close
Exit
Case $btn_Start
$onoff = 1
Case $btn_Stop
$onoff = 0
EndSwitch
Bot()
Hacks()
HPLabel()
HPTarget()
WEnd
nur in einem bin ich mir sicher
muss noch viel lernen 
|
|
|
|
|
06/15/2010, 18:45
|
#30
|
elite*gold: 0
Join Date: Nov 2009
Posts: 927
Received Thanks: 1,317
|
Variante 2 sieht vielversprechend aus!
So hab ich das gemeint, mit Buttons ins Switch in der Schleife mit rein nehmen
|
|
|
|
 |
|
Similar Threads
|
[Hilfe] Suche Guten Patcher und seine hilfe
05/28/2010 - Metin2 PServer Guides & Strategies - 5 Replies
Hallo Liebe community suche einen patcher der von http://ytsf2.netai.net/
alle datein runterladet die drauf sind aber ohne den ganzen client raufzuladen auf den webspace z.b ich mein das so
webspace is leer tuhe item.txt raufladen
soll er die datei ruter laden kann mir bitte wer helfen were supper :D
|
Hilfe!!!Hae Root angebot aber wie Server eröffnen...Suche Hilfe und ein TEAM!!!!!
04/19/2010 - Metin2 Private Server - 3 Replies
Hey,ich habe ein wundervolles Angebot ein Root zu kriegen,und wollte fragen,wie stelle ich das ein,das ich ein Root Server habe,wie eröffne ich ihn???Und noch viel mehr
Suche ein Team!!!
Hp Designer
Datenbank helfen undso
"entbugger"
und und und
Meldet euch oder schreibts in den Thread
Danke!!!!!!!!
|
HILFE: Wegen PlaySpan IP Change suche hilfe mit teamviewer
02/04/2010 - WarRock - 5 Replies
Hi,
ich habe mir schon ätliche tuts angesehen und ohne virustotal gedownloadet aber bei mir klappt es nicht kann mir jemand einen genauen link der Klappt und mir helfen`??? pls wäre nett
|
All times are GMT +1. The time now is 07:42.
|
|
