[Autoit]Das skript funzt nicht richtig hab schon alles ausprobiert
|
|
Quellcode |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 |
#include <GUIConstants.au3>
#include <NomadMemory.au3>
#include <GuiStatusBar.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("PlayerInfo", 520, 59, 300, 0)
GUISetBkColor(0x000000)
$Progress1 = GUICtrlCreateProgress(32, 8, 174, 16)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0x000000)
$Progress2 = GUICtrlCreateProgress(32, 32, 174, 16)
GUICtrlSetColor(-1, 0x3399FE)
GUICtrlSetBkColor(-1, 0x000000)
$Label1 = GUICtrlCreateLabel("HP:", 8, 8, 22, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label2 = GUICtrlCreateLabel("MP:", 8, 32, 23, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label3 = GUICtrlCreateLabel("EXP: ", 215, 8, 23, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label4 = GUICtrlCreateLabel(" %", 245, 8, 40, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlCreateLabel("SP: ", 215, 32, 23, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label5 = GUICtrlCreateLabel(" ", 245, 32, 40, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlCreateLabel("Y:", 280, 8, 40, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$PosY = GUICtrlCreateLabel(" ", 295, 8, 40, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlCreateLabel("X:", 280, 32, 40, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$PosX = GUICtrlCreateLabel(" ", 295, 32, 40, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Nick = GUICtrlCreateLabel(" ", 325, 8, 60, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Server = GUICtrlCreateLabel(" ", 325, 32, 60, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlCreateLabel("(c) By Dubbel", 400, 8, 120, 17)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetColor(-1, 0xFFFFFF)
GUISetState(@SW_SHOW)
WinSetOnTop("PlayerInfo", "", 1)
$proc = ProcessList("SRO_Client.exe")
$adress = 0x00CEA538
$adress2 = 0x00CEA438
$ID=_MemoryOpen($proc[1][1])
$charname = _MemoryRead($adress, $ID, 'wchar[16]')
$servers = _MemoryRead($adress2, $ID, 'wchar[16]')
_MemoryClose($ID)
GuiCtrlSetData($Nick, $charname)
GuiCtrlSetData($Server, $servers)
While 1
Global $Pointer = 0x00CEBB4C
Global $CurHpOS = 0x00000440
Global $MaxHpOS = 0x00000448
Global $CurMpOS = 0x00000444
Global $MaxMpOS = 0x0000044C
Global $CurExpOffset = 0x00000828
Global $PlayerLevelOffset = 0x00000820
Global $CurSpOffset = 0x00000838
Global $Process = ProcessList("SRO_Client.exe")
Global $DllInfo1 = _MemoryOpen($Process[1][1])
Global $Lv1 = 118
Global $Lv2 = 470
Global $Lv3 = 1058
Global $Lv4 = 1880
Global $Lv5 = 2938
Global $Lv6 = 5640
Global $Lv7 = 9048
Global $Lv8 = 13160
Global $Lv9 = 17987
Global $Lv10 = 23500
Global $Lv11 = 34898
Global $Lv12 = 47940
Global $Lv13 = 61628
Global $Lv14 = 78960
Global $Lv15 = 96938
Global $Lv16 = 127840
Global $Lv17 = 161798
Global $Lv18 = 198810
Global $Lv19 = 238878
Global $Lv20 = 282000
Global $Lv21 = 351231
Global $Lv22 = 427755
Global $Lv23 = 512196
Global $Lv24 = 605232
Global $Lv25 = 707587
Global $Lv26 = 820046
Global $Lv27 = 943453
Global $Lv28 = 1078717
Global $Lv29 = 1226815
Global $Lv30 = 1388803
Global $Lv31 = 1595229
Global $Lv32 = 1818827
Global $Lv33 = 2060796
Global $Lv34 = 2322414
Global $Lv35 = 2605043
Global $Lv36 = 2910129
Global $Lv37 = 3239210
Global $Lv38 = 3593924
Global $Lv39 = 3976012
Global $Lv40 = 4387323
Global $Lv41 = 4869381
Global $Lv42 = 5382982
Global $Lv43 = 5929882
Global $Lv44 = 6511920
Global $Lv45 = 7131034
Global $Lv46 = 7789258
Global $Lv47 = 8488730
Global $Lv48 = 9231697
Global $Lv49 = 10020519
Global $Lv50 = 10857676
Global $Lv51 = 11857343
Global $Lv52 = 19213686
Global $Lv53 = 14029449
Global $Lv54 = 15207495
Global $Lv55 = 16450818
Global $Lv56 = 17762545
Global $Lv57 = 19145940
Global $Lv58 = 20604414
Global $Lv59 = 22141527
Global $Lv60 = 23760997
Global $Lv61 = 25933410
Global $Lv62 = 28214785
Global $Lv63 = 30609702
Global $Lv64 = 39747505
Global $Lv65 = 51493509
Global $Lv66 = 55474876
Global $Lv67 = 59648780
Global $Lv68 = 64023195
Global $Lv69 = 68606389
Global $Lv70 = 73406955
Global $Lv71 = 79345238
Global $Lv72 = 85573756
Global $Lv73 = 92104572
Global $Lv74 = 98950215
Global $Lv75 = 106123703
Global $Lv76 = 113638552
Global $Lv77 = 121508783
Global $Lv78 = 129748946
Global $Lv79 = 138374168
Global $Lv80 = 147400127
;;Rest
$MP = _FindNewAddress($Pointer, $CurMpOS)
$CurMp = _MemoryRead($MP, $DllInfo1)
$MaxMp = _FindNewAddress($Pointer, $MaxMpOS)
$MaxMpOS = _MemoryRead($MaxMp, $DllInfo1)
$HP = _FindNewAddress($Pointer, $CurHpOS)
$CurHpOS = _MemoryRead($HP, $DllInfo1)
$MaxHp = _FindNewAddress($Pointer, $MaxHpOS)
$MaxHpOS = _MemoryRead($MaxHp, $DllInfo1)
$CurSpAdd = _FindNewAddress($Pointer, $CurSpOffset)
$CurSp = _MemoryRead($CurSpAdd, $DllInfo1)
$LevelAdd = _FindNewAddress($Pointer, $PlayerLevelOffset)
$CurLv = _MemoryRead($LevelAdd, $DllInfo1, "byte")
$CurExpAdd = _FindNewAddress($Pointer, $CurExpOffset)
$CurExp = _MemoryRead($CurExpAdd, $DllInfo1)
$nicks = _MemoryRead($Pointer, $DllInfo1, 'wchar[12]')
$server = _MemoryRead($Pointer, $DllInfo1, 'wchar[12]')
If $CurLv = "1" Then
$exx = $Lv1
ElseIf $CurLv = "2" Then
$exx = $Lv2
ElseIf $CurLv = "3" Then
$exx = $Lv3
ElseIf $CurLv = "4" Then
$exx = $Lv4
ElseIf $CurLv = "5" Then
$exx = $Lv5
ElseIf $CurLv = "6" Then
$exx = $Lv6
ElseIf $CurLv = "7" Then
$exx = $Lv7
ElseIf $CurLv = "8" Then
$exx = $Lv8
ElseIf $CurLv = "9" Then
$exx = $Lv9
ElseIf $CurLv = "10" Then
$exx = $Lv10
ElseIf $CurLv = "11" Then
$exx = $Lv11
ElseIf $CurLv = "12" Then
$exx = $Lv12
ElseIf $CurLv = "13" Then
$exx = $Lv13
ElseIf $CurLv = "14" Then
$exx = $Lv14
ElseIf $CurLv = "15" Then
$exx = $Lv15
ElseIf $CurLv = "16" Then
$exx = $Lv16
ElseIf $CurLv = "17" Then
$exx = $Lv17
ElseIf $CurLv = "18" Then
$exx = $Lv18
ElseIf $CurLv = "19" Then
$exx = $Lv19
ElseIf $CurLv = "20" Then
$exx = $Lv20
ElseIf $CurLv = "21" Then
$exx = $Lv21
ElseIf $CurLv = "22" Then
$exx = $Lv22
ElseIf $CurLv = "23" Then
$exx = $Lv23
ElseIf $CurLv = "24" Then
$exx = $Lv24
ElseIf $CurLv = "25" Then
$exx = $Lv25
ElseIf $CurLv = "26" Then
$exx = $Lv26
ElseIf $CurLv = "27" Then
$exx = $Lv27
ElseIf $CurLv = "28" Then
$exx = $Lv28
ElseIf $CurLv = "29" Then
$exx = $Lv29
ElseIf $CurLv = "30" Then
$exx = $Lv30
ElseIf $CurLv = "31" Then
$exx = $Lv31
ElseIf $CurLv = "32" Then
$exx = $Lv32
ElseIf $CurLv = "33" Then
$exx = $Lv33
ElseIf $CurLv = "34" Then
$exx = $Lv34
ElseIf $CurLv = "35" Then
$exx = $Lv35
ElseIf $CurLv = "36" Then
$exx = $Lv36
ElseIf $CurLv = "37" Then
$exx = $Lv37
ElseIf $CurLv = "38" Then
$exx = $Lv38
ElseIf $CurLv = "39" Then
$exx = $Lv39
ElseIf $CurLv = "40" Then
$exx = $Lv40
ElseIf $CurLv = "41" Then
$exx = $Lv41
ElseIf $CurLv = "42" Then
$exx = $Lv42
ElseIf $CurLv = "43" Then
$exx = $Lv43
ElseIf $CurLv = "44" Then
$exx = $Lv44
ElseIf $CurLv = "45" Then
$exx = $Lv45
ElseIf $CurLv = "46" Then
$exx = $Lv46
ElseIf $CurLv = "47" Then
$exx = $Lv47
ElseIf $CurLv = "48" Then
$exx = $Lv48
ElseIf $CurLv = "49" Then
$exx = $Lv49
ElseIf $CurLv = "50" Then
$exx = $Lv50
ElseIf $CurLv = "51" Then
$exx = $Lv51
ElseIf $CurLv = "52" Then
$exx = $Lv52
ElseIf $CurLv = "53" Then
$exx = $Lv53
ElseIf $CurLv = "54" Then
$exx = $Lv54
ElseIf $CurLv = "55" Then
$exx = $Lv55
ElseIf $CurLv = "56" Then
$exx = $Lv56
ElseIf $CurLv = "57" Then
$exx = $Lv57
ElseIf $CurLv = "58" Then
$exx = $Lv58
ElseIf $CurLv = "59" Then
$exx = $Lv59
ElseIf $CurLv = "60" Then
$exx = $Lv60
ElseIf $CurLv = "61" Then
$exx = $Lv61
ElseIf $CurLv = "62" Then
$exx = $Lv62
ElseIf $CurLv = "63" Then
$exx = $Lv63
ElseIf $CurLv = "64" Then
$exx = $Lv64
ElseIf $CurLv = "65" Then
$exx = $Lv65
ElseIf $CurLv = "66" Then
$exx = $Lv66
ElseIf $CurLv = "67" Then
$exx = $Lv67
ElseIf $CurLv = "68" Then
$exx = $Lv68
ElseIf $CurLv = "69" Then
$exx = $Lv69
ElseIf $CurLv = "70" Then
$exx = $Lv70
ElseIf $CurLv = "71" Then
$exx = $Lv71
ElseIf $CurLv = "72" Then
$exx = $Lv72
ElseIf $CurLv = "73" Then
$exx = $Lv73
ElseIf $CurLv = "74" Then
$exx = $Lv74
ElseIf $CurLv = "75" Then
$exx = $Lv75
ElseIf $CurLv = "76" Then
$exx = $Lv76
ElseIf $CurLv = "77" Then
$exx = $Lv77
ElseIf $CurLv = "78" Then
$exx = $Lv78
ElseIf $CurLv = "79" Then
$exx = $Lv79
ElseIf $CurLv = "80" Then
$exx = $Lv80
EndIf
Global $expper = $CurExp * 100 / $exx
Global $results = StringTrimRight($expper, 11)
;ToolTip("Nick: " & $nick & " Server: " & $server & " HP: " & $CurHpOS & " MP: " & $CurMpOS & " EXP: " & $results, 400, 4, "PlayerInfo", 1, 4)
|
Leider ist der ganze code zu lang mussd a in 2 threads machen : )
|
|
Quellcode |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 |
$CurHpOSz = $CurHpOS / $MaxHpOS * 100
GUICtrlSetData($Progress1, $CurHpOSz)
$CurMpOSz = $CurMp / $MaxMpOS * 100
GUICtrlSetData($Progress2, $CurMpOSz)
GuiCtrlSetData($Label4, $results)
GuiCtrlSetData($Label5, $CurSp)
$ECX = _MEMORYREAD($Pointer, $DllInfo1, 'DWORD')
$EAX = _MEMORYREAD($ECX + 120, $DllInfo1, 'ushort')
$EBX = $EAX
$EDI = $EBX
$EBP = $EBX
$ESP_1C = $EAX
$EDI = BitAND($EDI, dec("0FF"))
$EBP = BitShift($EBP, 8)
$EAX = _MEMORYREAD($Pointer, $DllInfo1)
$EDX = _MEMORYREAD($EAX + dec('7C'), $DllInfo1)
$fTmp4 = 0
$fTmp5 = 0
$fTmp4 = _MEMORYREAD($EAX + dec('7C'), $DllInfo1, 'float')
$EAX += 0x7C
$ECX = _MEMORYREAD($EAX + dec('04'), $DllInfo1)
$ESI_3E4 = 0
$ESI_3E4 = $ECX
$EDX = _MEMORYREAD($EAX + dec('8'), $DllInfo1)
$fTmp5 = _MEMORYREAD($EAX + dec('8'), $DllInfo1, 'float')
$ESI_3E8 = 0
$ESI_3E8 = $EDX
$EAX = _MEMORYREAD($Pointer, $DllInfo1)
$fTmp1 = 0
$fTmp1 = _MEMORYREAD($EAX + dec("88"), $DllInfo1, 'float')
$ECX = _MEMORYREAD($Pointer, $DllInfo1)
$EAX = 0
$ESP_20 = $EAX
$EAX = $ESP_1C
$EAX = BitShift($EBP, dec('0F'))
$ESP_2A = $EAX
$fTmp4 /= -10.0
$EAX = int($fTmp4)
$ECX = $EDI + $EDI * 2 - 0x195
$ECX = BitShift($ECX, -0x06)
$ECX -= $EAX
$finalX = $ECX
$fTmp5 /= -10.0
$EAX = int($fTmp5)
$ECX = $EBP + $EBP * 2 - 0x114
$ECX = BitShift($ECX, -0x06)
$ECX -= $EAX
$finalY = $ECX
GuiCtrlSetData($PosY, $finalY)
GuiCtrlSetData($PosX, $finalX)
Sleep (100)
WEnd
_MemoryClose($Process)
Func _FindNewAddress(ByRef $Pointer, ByRef $OSet)
$New_Address = _MemoryRead($Pointer, $DllInfo1) + $OSet
Return $New_Address
EndFunc
|
Ist für [Ecsro(Fembria)]SilkroadOnline Hab da nen autologin tool geschrieben aber will die statusbar noch hinzufügen : )
So der rest des codes
ich habe mir deinen Code einam angesehen
ei fehler liegt gang klar hier
$ID=_MemoryOpen($proc[1][1])
Du kannst nicht zwei Arrays ( hoffe das ist so richtig) auf eine Variable setzen..
Ich bin mor da nicht so ganz sicher...
Ich hoffe du verstehst das denn ich schreibe gerade ein Datenbankprogramm und brauche NomadMemory nicht.
MfG Nitrostar
ei fehler liegt gang klar hier
$ID=_MemoryOpen($proc[1][1])
Du kannst nicht zwei Arrays ( hoffe das ist so richtig) auf eine Variable setzen..
Ich bin mor da nicht so ganz sicher...
Ich hoffe du verstehst das denn ich schreibe gerade ein Datenbankprogramm und brauche NomadMemory nicht.
MfG Nitrostar
Ähnliche Themen
-
Datenbanken »-
Starten von VB Skript aus MySQL Datenbank (Kommandozeile)
(6. März 2008, 09:37)
-
Games »-
Der Etwas andere Granatenkill (CS:S)
(20. Februar 2005, 15:27)
-
(X)HTML & CSS & DHTML & Javascript »-
Bild-PopUp
(28. September 2003, 15:14)
-
Grafiken »-
bg - wiederholen
(9. Februar 2004, 16:31)
-
PHP »-
file downloadbar machen mit php?
(20. August 2003, 01:25)


