|
You last visited: Today at 14:18
Advertisement
Frage
Discussion on Frage within the AutoIt forum part of the Coders Den category.
03/31/2012, 15:59
|
#16
|
elite*gold: 50 
Join Date: Mar 2010
Posts: 1,373
Received Thanks: 521
|
Sieht dannach aus, als wären Teile aus einem dekompilierten Skript übernommen worden...
|
|
|
|
03/31/2012, 16:06
|
#17
|
elite*gold: 10
Join Date: Mar 2012
Posts: 117
Received Thanks: 46
|
Quote:
Originally Posted by jacky919
Sieht dannach aus, als wären Teile aus einem dekompilierten Skript übernommen worden...
|
Stimmt schon eigentlich das was ich ganze zeit Probiere meins ist das :
PHP Code:
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>
#include <GUIConstantsEx.au3>
$Static = Dec("245B4C")
Global $Fee, $SPtime = 1, $Klasse
FileInstall("C:\Dokumente und Einstellungen\PC\Desktop\AutoIt\GUI.png", @TempDir & "\Nos2.png", 1)
Global $PNGSRCGUIBK = @TempDir & "\Nos2.png"
Global Const $AC_SRC_ALPHA = 1
$GUI = GUICreate("Clientside Hack", 654, 266, -1, -1, $WS_POPUP, BitOR($WS_EX_CONTROLPARENT, $WS_EX_LAYERED, $WS_EX_TOPMOST))
_GDIPlus_Startup()
Global $HIMAGEGUIBK = _GDIPlus_ImageLoadFromFile($PNGSRCGUIBK)
BITMAP($GUI, $HIMAGEGUIBK, 255)
$GUISUB = GUICreate("Clientside Hack", 580, 390, -1, -1, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_MDICHILD, $WS_EX_TOPMOST), $GUI)
$Label1 = GUICtrlCreateLabel("Aussehen", 72, 16, 51, 17)
$Label2 = GUICtrlCreateLabel("Waffe", 40, 56, 33, 17)
$Input1 = GUICtrlCreateInput("", 24, 80, 73, 21)
$Label3 = GUICtrlCreateLabel("Rüstung", 136, 56, 44, 17)
$Input2 = GUICtrlCreateInput("", 120, 80, 73, 21)
$Label5 = GUICtrlCreateLabel("Hut", 48, 128, 21, 17)
$Input3 = GUICtrlCreateInput("", 24, 152, 73, 21)
$Button1 = GUICtrlCreateButton("Change!", 120, 136, 75, 41, $WS_GROUP)
$Label6 = GUICtrlCreateLabel("Waffe", 72, 256, 49, 17)
$Label7 = GUICtrlCreateLabel("Farbe", 48, 288, 31, 17)
$Input4 = GUICtrlCreateInput("", 24, 312, 73, 21)
GUICtrlSetState(-1,$GUI_DISABLE)
$Label8 = GUICtrlCreateLabel("Upgrade", 136, 288, 45, 17)
$Input5 = GUICtrlCreateInput("", 120, 312, 73, 21)
GUICtrlSetState(-1,$GUI_DISABLE)
$Button2 = GUICtrlCreateButton("Change!", 24, 344, 171, 25, $WS_GROUP)
GUICtrlSetState(-1,$GUI_DISABLE)
$Radio13 = GUICtrlCreateRadio("Magier (W)", 296, 288, 113, 17)
$Radio14 = GUICtrlCreateRadio("Bogenschütze (W)", 296, 312, 113, 17)
$Radio15 = GUICtrlCreateRadio("Schwertkämpfer (W)", 296, 336, 113, 17)
$Radio16 = GUICtrlCreateRadio("Abenteurer (W)", 296, 360, 113, 17)
$Label4 = GUICtrlCreateLabel("Feen- und Klassenhack", 296, 24, 150, 17)
$Radio1 = GUICtrlCreateRadio("Feuerfee (unbekannt)", 296, 56, 125, 17)
$Radio2 = GUICtrlCreateRadio("Wasserfee (unbekannt)", 296, 80, 135, 17)
$Radio3 = GUICtrlCreateRadio("Schattenfee (unbekannt)", 296, 104, 135, 17)
$Radio4 = GUICtrlCreateRadio("Lichtfee (unbekannt)", 296, 128, 135, 17)
$Radio5 = GUICtrlCreateRadio("Feuerfee (mall)", 296, 160, 105, 17)
$Radio6 = GUICtrlCreateRadio("Wasserfee (mall)", 296, 184, 105, 17)
$Radio7 = GUICtrlCreateRadio("Schattenfee (mall)", 296, 208, 105, 17)
$Radio8 = GUICtrlCreateRadio("Lichtfee (mall)", 296, 232, 105, 17)
$Radio9 = GUICtrlCreateRadio("Feuerfee (boost)", 444, 56, 113, 17)
$Radio10 = GUICtrlCreateRadio("Wasserfee (boost)", 444, 80, 113, 17)
$Radio11 = GUICtrlCreateRadio("Schattenfee (boost)", 444, 104, 113, 17)
$Radio12 = GUICtrlCreateRadio("Lichtfee (boost)", 444, 128, 113, 17)
$Radio17 = GUICtrlCreateRadio("Magier (M)", 424, 160, 113, 17)
$Radio18 = GUICtrlCreateRadio("Bogenschütze (M)", 424, 184, 113, 17)
$Radio19 = GUICtrlCreateRadio("Schwertkämpfer (M)", 424, 206, 113, 17)
$Radio20 = GUICtrlCreateRadio("Abenteurer (M)", 424, 232, 113, 17)
GUICtrlSetColor(-1, 16777215)
GUISetBkColor(5789784)
_WinAPI_SetLayeredWindowAttributes($GUISUB, 5789784)
GUISetState(@SW_SHOW, $GUI)
GUISetState(@SW_SHOW, $GUISUB)
#endregion ### END Koda GUI section ###
While 1
If GUICtrlRead($Input4) > 999 Then GUICtrlSetData($Input4, 999)
If GUICtrlRead($Input4) > 900 Then GUICtrlSetData($Input4, 900)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_Change()
Case $Button2
_Change2()
Case $Radio1
$Fee = 1336934424
_Fee()
Case $Radio2
$Fee = 1336934425
_Fee()
Case $Radio3
$Fee = 1336934427
_Fee()
Case $Radio4
$Fee = 1336934423
_Fee()
Case $Radio5
$Fee = 1325400305
_Fee()
Case $Radio6
$Fee = 1325400306
_Fee()
Case $Radio7
$Fee = 1325400309
_Fee()
Case $Radio8
$Fee = 1325400307
_Fee()
Case $Radio9
$Fee = 1336934404
_Fee()
Case $Radio10
$Fee = 1336934405
_Fee()
Case $Radio11
$Fee = 1336934403
_Fee()
Case $Radio12
$Fee = 1336934402
_Fee()
Case $Radio13
$Klasse = "3"
_Klasse()
Case $Radio14
$Klasse = "2"
_Klasse()
Case $Radio15
$Klasse = "1"
_Klasse()
Case $Radio16
$Klasse = "0"
_Klasse()
Case $Radio17
$Klasse = "131"
_Klasse()
Case $Radio18
$Klasse = "130"
_Klasse()
Case $Radio19
$Klasse = "129"
_Klasse()
Case $Radio20
$Klasse = "128"
_Klasse()
EndSwitch
WEnd
Func _Fee()
Global $OffsetFee[3] = [0, 0x194, 0x44]
$MemOpen = _MemoryOpen(ProcessExists("NostaleX.dat"))
$BaseAddr = _MemoryGetBaseAddress($MemOpen, 1)
$Addr = "0x" & Hex($BaseAddr + $Static)
_MemoryPointerWrite($Addr, $MemOpen, $OffsetFee, $Fee, "dword")
_MemoryClose($MemOpen)
EndFunc ;==>_Fee
Func _Klasse()
Global $OffsetKlasse[3] = [0, 0x154, 0x2C]
$MemOpen = _MemoryOpen(ProcessExists("NostaleX.dat"))
$BaseAddr = _MemoryGetBaseAddress($MemOpen, 1)
$Addr = "0x" & Hex($BaseAddr + $Static)
_MemoryPointerWrite($Addr, $MemOpen, $OffsetKlasse, $Klasse, "dword")
_MemoryClose($MemOpen)
EndFunc ;==>_Klasse
Func _Change()
Global $OffsetHut[3] = [0, 0x154, 0x30]
Global $OffsetWaffe[3] = [0, 0x154, 0x33]
Global $OffSetRuessi[3] = [0, 0x154, 0x2E]
$MemOpen = _MemoryOpen(ProcessExists("NostaleX.dat"))
$BaseAddr = _MemoryGetBaseAddress($MemOpen, 1)
$Addr = "0x" & Hex($BaseAddr + $Static)
If Not GUICtrlRead($Input2) = "" Then
_MemoryPointerWrite($Addr, $MemOpen, $OffSetRuessi, GUICtrlRead($Input2), "dword")
EndIf
Sleep(300)
If Not GUICtrlRead($Input3) = "" Then
_MemoryPointerWrite($Addr, $MemOpen, $OffsetHut, GUICtrlRead($Input3), "dword")
EndIf
Sleep(300)
If Not GUICtrlRead($Input1) = "" Then
_MemoryPointerWrite($Addr, $MemOpen, $OffsetWaffe, GUICtrlRead($Input1), "dword")
EndIf
_MemoryClose($MemOpen)
EndFunc ;==>_Change
Func _Change2()
Global $OffsetPlus[3] = [0, 0x154, 0x1D]
Global $OffsetLeuchten[3] = [0, 0x154, 0x16]
$MemOpen = _MemoryOpen(ProcessExists("NostaleX.dat"))
$BaseAddr = _MemoryGetBaseAddress($MemOpen, 1)
$Addr = "0x" & Hex($BaseAddr + $Static)
If Not GUICtrlRead($Input5) = "" Then
If GUICtrlRead($Input5) < 895 Then GUICtrlSetData($Input5, 895)
_MemoryPointerWrite($Addr, $MemOpen, $OffsetPlus, "1542224" & GUICtrlRead($Input5), "dword")
EndIf
If Not GUICtrlRead($Input4) = "" Then
If GUICtrlRead($Input4) < 100 Then GUICtrlSetData($Input4, 100)
_MemoryPointerWrite($Addr, $MemOpen, $OffsetLeuchten, GUICtrlRead($Input4) & "0000", "dword")
EndIf
_MemoryClose($MemOpen)
EndFunc ;==>_Change2
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, $HSCRDC, 0, $PSIZE, $HMEMDC, $PSOURCE, 0, $PBLEND, $ULW_ALPHA)
_WinAPI_ReleaseDC(0, $HSCRDC)
_WinAPI_SelectObject($HMEMDC, $HOLD)
_WinAPI_DeleteObject($HBITMAP)
_WinAPI_DeleteDC($HMEMDC)
EndFunc ;==>BITMAP
Wo liegt den hier der fehler der dreck will einfach nicht klappen ;(
|
|
|
|
|
03/31/2012, 16:40
|
#18
|
elite*gold: 0
Join Date: Mar 2009
Posts: 2,317
Received Thanks: 1,255
|
Quote:
Originally Posted by fasdasfda
Wo liegt den hier der fehler der dreck will einfach nicht klappen ;(
|
Lern die Schei*** oder lass es sein.
|
|
|
|
|
03/31/2012, 16:54
|
#19
|
elite*gold: 10
Join Date: Mar 2012
Posts: 117
Received Thanks: 46
|
Also der Hack klappt jetz ...
#Close please
|
|
|
|
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 14:19.
|
|
