SendHotkeys like neobot.

[klusbert]

I had little fun today playing around with hotkeys.

And I found out the structure pretty fast, you can use it to read all existed hotkey but for what use?

So this program shows you how you can use a hotkey for saying message use item on your self use item with crosshair etcetc.

What this do is that it will create a hotkey temporally and execute it and restores it again.

[code=vbnet]
Dim h As New Hotkey
h.ItemId = 268 'mana
h.UseType = HotkeyUsetype.Onself
Sendhotkey(h)

Dim h As New Hotkey
h.Message = "Hello this is nice!"
If CheckBox1.Checked Then
h.SendAuto = 1
Else
h.SendAuto = 0
End If
Sendhotkey(h)

Dim h As New Hotkey
h.ItemId = 3031
h.UseType = HotkeyUsetype.WithCrosshair
Sendhotkey(h)
[/code]


For those who do not want to download here is the addresses(9.1)
[code=vbnet]
Dim HotkeyObjectStart As UInteger = &H829600
Dim HotkeySendAutostart As UInteger = &H8295B4
Dim HotkeyUseTypeStart As UInteger = &H829518
Dim HotkeyTextStart As UInteger = &H8270E8

Public Enum HotkeyUsetype
Onself = 2
OnTarget = 1
WithCrosshair = 0
End Enum
[/code]

And yes this is working for xp vista and seven users

UPDATE!!
Now you can use this to heal your self. check the image below.
The program is not tested to 100%, I wrote it pretty fast so.

[Ash Katchup]

Which Visual Studio version did you use on it?

[klusbert]

Which Visual Studio version did you use on it?

2010

[abdiel2475]

Good Job!

[klusbert]

Glad you liked it.

[4589417]

Great job!
But, why when i send the hotkey, the letter "p" go to the bar? o0
I revised the function and dont searched this...

[d3nni]

Wich language is that?... C++, C#, vb.net?

[4589417]

VB.NET --'

[klusbert]

the "p" problem can be solved if you delete this line.
[code=vbnet]
Public Sub SendKey(ByVal key As Keys)
SendMessage(Hooks.WM_KEYDOWN, CInt(key), 0)
'SendMessage(Hooks.WM_CHAR, CInt(key), 0)
SendMessage(Hooks.WM_KEYUP, CInt(key), 0)
End Sub
[/code]

[d3nni]

Hello can someone explain me how to get for example the 'level'?
I saw this line...

TextBox5.Text = client.ReadInt(GetPlayerAdr() + 44)

I just created a new TextBox called TextBox6 now I try to figure out how to get the adress of the level.
Just found the adress in the forums 'AdrLevel: 0081CE44', but how do I get something like this '(GetPlayerAdr() + 44)'?
I dont understand whats about the GetPlayerAdr.

Thanks for help.