Important VB Functions, etc

[Dark Pallys]

Here you will find important VB functions, modules and etc selected by our programmers and staff.

You may post a comment with a function which you might find important so we can add it to the list/module.

To start off, I'm posting a simple module with the following functions:

Tibia_Hwnd

Returns the value of the Tibia Window.

subDelay(sngDelay As Single)

Delays the function where its used by X seconds.

Memory_ReadByte(windowHwnd As Long, Address As Long) As Byte

Reads an address and returns a single byte value.

Memory_ReadLong(windowHwnd As Long, Address As Long) As Long

Reads and address and returns a long value.

Memory_ReadString(windowHwnd As Long, Address As Long) As String

Reads an address and returns a string.

Memory_WriteString(TibiaHwnd As Long, Address As Long, tibiaString As String)

Writes a string on an address.

Memory_WriteString_Len

Used by Memory_WriteString

Memory_WriteByte(windowHwnd As Long, Address As Long, valbuffer As Byte)

Writes a single byte value on an address.

Memory_WriteLong(windowHwnd As Long, Address As Long, valbuffer As Long)

Writes a long value on an address.

[Dark Pallys]

Here are some Visual Basic Functions and Statements.

Visual Basic Functions and Statements

[Erra]

Thanks a lot for that link, it was awesome!

[Jesper_Kladden]

Thank you.

[Ramza]

how about some functions to send packets?
and some explanation off how i use this to make a program?

[Aggressive Prefector]

Great job. I need this for my next version of Tibia Book.

Btw how do i use sendkey to any window even if it is not in focus?

Example If you have 2 tibia running and u want to sendkeys to the second tibia from the first tibia window.

Thanks for your help

[Dark Pallys]

If you want to use the function SendKeys to a specified window, you need to set whatever window as the foreground window with SetForegroundWindow

Public Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long

Example..

SetForegroundWindow Tibia_Hwnd

[Erra]

Isn't there a function like sendkey that doesn't need the window to be focused?
I know there is, but I can't remember its name!

[klusbert]

Hi im trying to change for exampel level, just for learn how to write to memory.

I newbie in this so don't tell my im an idiot etc.

I'm trying this code:

Dim levelchange As Long
levelchange = Memory_WriteLong(Tibia_Hwnd, &H613B60)

Text1.Text = "" & levelchange

My idea with this is to change my level in client with the value from textbox1

THX for good respons. // Klusbert

[L4K]

Hi im trying to change for exampel level, just for learn how to write to memory.

I newbie in this so don't tell my im an idiot etc.

I'm trying this code:

Dim levelchange As Long
levelchange = Memory_WriteLong(Tibia_Hwnd, &H613B60)

Text1.Text = "" & levelchange

My idea with this is to change my level in client with the value from textbox1

THX for good respons. // Klusbert

Try this man:

Dim levelchange as Long
levelchange = Text1.Text
Memory_WriteLong(Tibia_Hwnd, &H613B60, levelchange)