Red and blue are mixed up
[ListVer] CO2=5016 REV=0 [MemAdd] CharName=&H50AE54 CharLV=&H50B978 CharVP=&H50B9CC CharPot=&H50BA00 CharStam=&H50B970 CharJobID=&H50B96C }Double, can you delete one of these CharClass=&H50B96C } CharSpirit=&H50B650 CharAgility=&H50B64C CharStrength=&H50B640 CharVitality=&H50B648 SrvName=&H50F2F4 Spouse=&H50B630 GuildLeader=&H50B9B0 Ping=&H50F080 MoneyInv=&H50BBF4 MoneyWH=&H50C0B0 XPcnt=&H50B654 PKpoints=&H50B9A0 MessageCnt=&H5090B0 MapName=&H509624 MapID=&H5095BC OrdX=&H50AF00 OrdY=&H50AF04 ClientZoom=&H509614 ClientRGB-R=&H509613 ClientRGB-G=&H509612 ClientRGB-B=&H509611 Trippyness=&H509614 XPKillCnt=&H50BDBC CharEffects=&H50ADF6 AccountID=&H50F154 CPS=&H50BBF8 CharXP=&H InvCnt=&H WhisperCnt=&H [DyNyDMA] ;For Use With DyNy's DLL CharMana=&H0 CharHP=&H4E2CD6 Arrows=&H4EC668
Dim CurrentHP As Integer
Dim NewBytes1(16) As Byte
Dim NewBytes2(5) As Byte
'Poke 4E2D07 6A 0F 8B CE 8B D8 A3 D6 2C 4E 00 E9 3D D9 F9 FF
'Poke 48064E E9 B4 26 06 00
NewBytes1(1) = &H6AS
NewBytes1(2) = &HFS
NewBytes1(3) = &H8BS
NewBytes1(4) = &HCES
NewBytes1(5) = &H8BS
NewBytes1(6) = &HD8S
NewBytes1(7) = &HA3S
NewBytes1(8) = &HD6S
NewBytes1(9) = &H2CS
NewBytes1(10) = &H4ES
NewBytes1(11) = &H0S
NewBytes1(12) = &HE9S
NewBytes1(13) = &H3DS
NewBytes1(14) = &HD9S
NewBytes1(15) = &HF9S
NewBytes1(16) = &HFFS
NewBytes2(1) = &HE9S
NewBytes2(2) = &HB4S
NewBytes2(3) = &H26S
NewBytes2(4) = &H6S
NewBytes2(5) = &H0S
hWnd = FindWindow(vbNullString, COWiN)
GetWindowThreadProcessId(hWnd, pID)
pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pID)
WriteProcessMemoryBuffer(pHandle, &H4E2D07, NewBytes1(1), 16, 0)
WriteProcessMemoryBuffer(pHandle, &H48064E, NewBytes2(1), 5, 0)
CloseHandle(pHandle)
System.Array.Clear(NewBytes1, 0, NewBytes1.Length)
System.Array.Clear(NewBytes2, 0, NewBytes2.Length)
hWnd = FindWindow(vbNullString, COWiN)
GetWindowThreadProcessId(hWnd, pID)
pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pID)
ReadProcessMemory(pHandle, Load_currenthp, CurrentHP, Len(Load_currenthp), 0)
CloseHandle(pHandle)
Read_Current_HP = CurrentHP
Dim cohandle As Long
Dim GetString As Long
cohandle = OpenProcess(AllAccess, False, CoId)
ReadProcessMemory cohandle, ByVal CurHPAddress, GetString, 4, 0&
ReadProcessMemory cohandle, ByVal(GetString+CurHPAddressOffset),CurHP, 4, 0&
CloseHandle cohandle
TeamLeaderx=&H50BF88 TeamLeadery=&H50BF8C MaxHP=&H18677A8 MaxMana=&H18676EC CharXP=&H50B998