CoMemory

Page 2 of 5

12/05/2006 10:38 blinko#16

also note the coMemoryRead class file work's the same as the posted above about the DLL file.

Dim Char as coMemoryRead ( only Minus the .Player since that was the DLL's Class name )

Private Sub Form_Load()
Set Char = New coMemoryRead 'might not need this part not sure
End Sub

Char.CharName (rtnID as string)- Display's CharName
Char.Strength(rtnID as string) - Display's Character's Strength
Char.Virtue(rtnID as string) - Display's Character's Virtue
Char.Stamina(rtnID as string) - Display's Character's Stamina

so on and so forth

12/05/2006 13:38 blinko#17

Would let me Edit the Post Here's the Updated DLL and Resource pack link,
added 2 new memory address's to read from

Kill counter, Map Name (client Version) - Differs from my MapsIDNum control
which i had it gather the Map ID and then rename them to what i prefered them to say

[Only registered and activated users can see links. Click Here To Register...]

12/06/2006 00:14 Spike21#18

Maybe you can add a box to choose for windows name !
Maybe that's why it's not working for me !

12/06/2006 00:29 blinko#19

Quote:

Originally posted by Spike21@Dec 6 2006, 00:14
Maybe you can add a box to choose for windows name !
Maybe that's why it's not working for me !

I don't think u nderstand what you mean, Example below

dim hWnd as long
dim pID as long
dim pHandle as long

hWnd = FindWindow(vbnullstring,"Conquer2.0")
GetWindowThreadProcessID hWnd,pID

pHandle = OpenProcess(PROCCESS_ALL_ACCESS,False,pID)

where i have mine set to a Global Const COWiN = "Conquer2.0"
so i use
hWnd = FindWindow(vbnullstring,COWiN)
GetWindowThreadProcessID hWnd,pID

12/06/2006 08:09 ZoSo#20

I think maybe he means to implement a loop which would iterate through all open CO processes and populate a combo box with the character names, so that the user could choose which account is accessed. :eek:

Thanks for the update blinko :)

12/06/2006 23:53 Spike21#21

Quote:

Originally posted by blinko@Dec 6 2006, 00:29
I don't think u nderstand what you mean, Example below

dim hWnd as long
dim pID as long
dim pHandle as long

hWnd = FindWindow(vbnullstring,"Conquer2.0")
GetWindowThreadProcessID hWnd,pID

pHandle = OpenProcess(PROCCESS_ALL_ACCESS,False,pID)

where i have mine set to a Global Const COWiN = "Conquer2.0"
so i use
hWnd = FindWindow(vbnullstring,COWiN)
GetWindowThreadProcessID hWnd,pID

I'm running 2 windows, and the name isn't Conquer2.0
What should i do ?

12/06/2006 23:57 blinko#22

Quote:

Originally posted by ZoSo@Dec 6 2006, 08:09
I think maybe he means to implement a loop which would iterate through all open CO processes and populate a combo box with the character names, so that the user could choose which account is accessed. :eek:

Thanks for the update blinko :)

well i think i understand a bit better i'll just have to add in some piece of code for that in the next update,but as of now it'll read more than one client but it read's the Active Window so if one is minimized it'll read the one thats open, or the last viewed.

I'll have to read character name Values and have the combobox fill with the char names, then as you've stated add a loop to have it find the Windows pID
and the character name to match that id ^^.

The class files are easy to use yourself as well as the DLL, you can code almost anyhting with them really if ya know what you're doing

however the sample project i made that's in the folder, as well as the compiled EXE is coded all sorts of sloppy lol, but it works :) so it's ok.That's just how i do.

also going to be adding into the class files and the DLL, the client side changes which will be simply used as such

Dim Player as Player
set Player = new Player

Private Sub Command1_Click()
Player.Normal ( True )
Player.bluename ( True )
End Sub

Set's values to 0 first then makes the char bluename.

i just got a True value set so far soon i'll be changing it so you won''t need the (True) you'll just use the

Private Sub Command1_Click()
Player.Normal
Player.bluename
End Sub

Makes more sense since if it just sets the state, using true/false values would be better used for a (example type of alert system if player.bluename=true then blah)
i'll work all of that in Each with Separate Modules.
Also will eb adding a playsound API and custom sounds to alert on lvl up,Experience gain (example alert when at 60.000 % )

ActionType.cls ( Class Module for Client side Changes ) To be uploaded soon.
Added Changing Character Size,Character Direction - Changing Character Name (work in progress having trouble getting it to write properly to the memory)
so far i've tested the name "babe" as it now only allows 4 characters lol
and it omes out on the client as "ebab" plus some strange character's working on that too.

Working on gathering mouse click event's to finish up the auto healer stuff's, cause up until now i used VB and created an object of AutoIT to do that, so i need ot change it all around.

12/07/2006 00:04 blinko#23

Quote:

Originally posted by Spike21+Dec 6 2006, 23:53--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE (Spike21 @ Dec 6 2006, 23:53)</td></tr><tr><td id='QUOTE'> <!--QuoteBegin--blinko@Dec 6 2006, 00:29
I don't think u nderstand what you mean, Example below

dim hWnd as long
dim pID as long
dim pHandle as long

hWnd = FindWindow(vbnullstring,"Conquer2.0")
GetWindowThreadProcessID hWnd,pID

pHandle = OpenProcess(PROCCESS_ALL_ACCESS,False,pID)

where i have mine set to a Global Const COWiN = "Conquer2.0"
so i use
hWnd = FindWindow(vbnullstring,COWiN)
GetWindowThreadProcessID hWnd,pID

I'm running 2 windows, and the name isn't Conquer2.0
What should i do ? [/b][/quote]
well first of all if you're runnign two window's thne the window names SHOULD be Conquer2.0 since that's the window title on the taskbar. unless you've changed the window titles.

Again if you've opened my project it's going to have alot of code that i just threw in it, so much i confuse myself lol.

However Creating a new project might be better for you to start with then code it yourself just use mine as an example, since mine takes the prjXTAB.ocx to be registered ( which is the Tabbed Control )

Just open a new project thne add the modules APIS.bas, coMemoryFlags.bas,ColorPickerFunc.bas ( if ya want color junks )

then add the class files coMemoryRead.cls,and CMouse.cls

you don't need all the user control's unless u want to use them to make a nice interface and all that ^^.

if ya use yahoo or msn contact me
Yahoo = PM me for this
MSN = [Only registered and activated users can see links. Click Here To Register...]

12/07/2006 01:13 blinko#24

Quote:

Originally posted by Spike21+Dec 6 2006, 23:53--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE (Spike21 @ Dec 6 2006, 23:53)</td></tr><tr><td id='QUOTE'> <!--QuoteBegin--blinko@Dec 6 2006, 00:29
I don't think u nderstand what you mean, Example below

dim hWnd as long
dim pID as long
dim pHandle as long

hWnd = FindWindow(vbnullstring,"Conquer2.0")
GetWindowThreadProcessID hWnd,pID

pHandle = OpenProcess(PROCCESS_ALL_ACCESS,False,pID)

where i have mine set to a Global Const COWiN as String = "Conquer2.0"
so i use
hWnd = FindWindow(vbnullstring,COWiN)
GetWindowThreadProcessID hWnd,pID

I'm running 2 windows, and the name isn't Conquer2.0
What should i do ? [/b][/quote]
I got what ya mean just now by accidentally messing up a piece of code ^^

if not "Conquer2.0" use "[Conquer2.0]"
Set a Global Const COWiN as String = "[Conquer2.0]" in a module ^^
and it'll work better
then you can use the
hWnd = FindWindow(vbnullstring,COWiN)

dim hWnd as long
dim pID as long
dim pHandle as long

hWnd = FindWindow(vbnullstring,"[Conquer2.0]")
GetWindowThreadProcessID hWnd,pID

pHandle = OpenProcess(PROCCESS_ALL_ACCESS,False,pID)

12/07/2006 12:47 InflamedFetus#25

Whats this do exactly?

12/07/2006 23:42 Bud_wis_er_420#26

Quote:

Originally posted by blinko+Dec 5 2006, 10:27--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE (blinko @ Dec 5 2006, 10:27)</td></tr><tr><td id='QUOTE'> <!--QuoteBegin--ZoSo@Dec 5 2006, 10:12
cool, I've been checking for this everyday! thanks* :)

You're quite welcome, if you have any question's or bug's to report let me know.
Just remember to register that prjXTAB.ocx file before opening the project in visual basic,
unless you manually add the modules,class files,and form yourself, else it will result in alot of crap that's just plain annoying.

also note under the bot junk tab the Auto Healer and stuff isn't implimented yet as i haven't found a good enough code to handle such a function that i'm happy with..any idea's?
If ya have CO running just run the compiled exe and tell me what ya think (REGISTER the prjXTAB.ocx first) [/b][/quote]
Im a noob at this stuff but I'm trying to work it out. I use VB 2005 and I tried to update your sourse to it and i got the "register that prjXTAB.ocx " problem. how do I register it. I want to look at the code because i learn best by figuring out how it works.

12/08/2006 10:24 inSertCoiN#27

ElseIf pH.ID = "1042" Then
rtnID = "Tactics Main Map" 'tested
ElseIf pH.ID = "1043" Then
rtnID = "Peace Tactic" 'logicaly asumed
ElseIf pH.ID = "1044" Then
rtnID = "Chaos Tactic" 'tested
ElseIf pH.ID = "1045" Then
rtnID = "Deserted Tactic" 'tested
ElseIf pH.ID = "1046" Then
rtnID = "Prosperous Tactic" 'logicaly asumed
ElseIf pH.ID = "1047" Then
rtnID = "Disturbed Tactic" 'logicaly asumed
ElseIf pH.ID = "1048" Then
rtnID = "Calmed Tactic" 'tested
ElseIf pH.ID = "1049" Then
rtnID = "Death Tactic" 'logicaly asumed
ElseIf pH.ID = "1050" Then
rtnID = "Life Tactic" 'logicaly asumed

12/08/2006 16:07 Bud_wis_er_420#28

Do you mean?

If pH.ID = "1042" Then
rtnID = "Tactics Main Map" 'tested
ElseIf pH.ID = "1043" Then
rtnID = "Peace Tactic" 'logicaly asumed
ElseIf pH.ID = "1044" Then
rtnID = "Chaos Tactic" 'tested
ElseIf pH.ID = "1045" Then
rtnID = "Deserted Tactic" 'tested
ElseIf pH.ID = "1046" Then
rtnID = "Prosperous Tactic" 'logicaly asumed
ElseIf pH.ID = "1047" Then
rtnID = "Disturbed Tactic" 'logicaly asumed
ElseIf pH.ID = "1048" Then
rtnID = "Calmed Tactic" 'tested
ElseIf pH.ID = "1049" Then
rtnID = "Death Tactic" 'logicaly asumed
ElseIf pH.ID = "1050" Then
rtnID = "Life Tactic" 'logicaly asumed
Else
MsgBox("ph.ID not = 1042-1050")
End IF

and whats this supoose to be. I know its a if statement but what for. And none of the variables are declared.

12/08/2006 19:31 inSertCoiN#29

Quote:

Originally posted by Bud_wis_er_420@Dec 8 2006, 16:07
Else
MsgBox("ph.ID not = 1042-1050")
End IF

and whats this supoose to be. I know its a if statement but what for. And none of the variables are declared.

This is not a standalone code .. :D

its a code to insert in to blinko's Module or DLL code so that when you request the map ID and if you are in some tactic it will show you the map name instead of the ID number.

and you dont need this:

Else
MsgBox("ph.ID not = 1042-1050")
End IF

If your not on a map which ID is conected to a name in the code you will be shown the ID number.
Look thro the module/dll code, you'll find where you need to put what I wrote ;)

12/08/2006 20:49 Bud_wis_er_420#30

Oh I c. And sry I was just tring to be funny. Guess I didn't succede. But... I'm not trying to run the code just look at it. And when my VB 2005 tried t update it from VB 6 it says this:

Code:

Upgrade failed&#58; Exception occured&#58; Could not load referenced component&#58; prjXTab.ocx&#40;1.0.0&#41;
You need to install this component before you upgrade the project.
It is recommended you install VB6.0, with all referenced components, and ensure the application compiles and runs before upgrading.

Do I HAVE to install VB6.0 or is there a way I can look at the code without having to do that?

Page 2 of 5

Last »