TechN9ne

Eu tinha esse "tutorial" em um pen drive, então vim postar esse bagulho pra vocês hehehe.

Lembrando:
Não me perguntem nada, pois não mecho com linguagem vb. Use a lógica!

A SendKey ela é uma chamada para simular o teclado. Ela envia um ou mais pressionamentos de teclas para a janela ativa como se tivessem sido digitados no teclado.

Codigo da chamada:


SendKey "{BACKSPACE}"
[/code] Para que o SendKey funcione, será necessário importar: [code]
Imports System.Runtime.InteropServices
Imports System.Drawing
Namespace SimulateKeyPress
Code para selecionar a window:
SetForegroundWindow(tibia)
[/code] Codigos dos caracteres especiais: Exemplo: [spoiler] E aqui vai um exemplo que eu achei no fórum da microsoft. [code]
Imports System
Imports System.Runtime.InteropServices
Imports System.Drawing
Imports System.Windows.Forms

Namespace SimulateKeyPress

Class Form1
Inherits Form
Private WithEvents button1 As New Button()

<STAThread()> _
Public Shared Sub Main()
Application.EnableVisualStyles()
Application.Run(New Form1())
End Sub

Public Sub New()
button1.Location = New Point(10, 10)
button1.TabIndex = 0
button1.Text = "Click to automate Calculator"
button1.AutoSize = True
Me.Controls.Add(button1)
End Sub

' Get a handle to an application window.
Declare Auto Function FindWindow Lib "USER32.DLL" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As IntPtr

' Activate an application window.
Declare Auto Function SetForegroundWindow Lib "USER32.DLL" _
(ByVal hWnd As IntPtr) As Boolean

' Send a series of key presses to the Calculator application.
Private Sub button1_Click(ByVal sender As Object, _
ByVal e As EventArgs) Handles button1.Click

' Get a handle to the Calculator application. The window class
' and window name were obtained using the Spy++ tool.
Dim calculatorHandle As IntPtr = FindWindow("SciCalc", "Calculator")

' Verify that Calculator is a running process.
If calculatorHandle = IntPtr.Zero Then
MsgBox("Calculator is not running.")
Return
End If

' Make Calculator the foreground application and send it
' a set of calculations.
SetForegroundWindow(calculatorHandle)
SendKeys.SendWait("111")
SendKeys.SendWait("*")
SendKeys.SendWait("11")
SendKeys.SendWait("=")
End Sub

' Send a key to the button when the user double-clicks anywhere
' on the form.
Private Sub Form1_DoubleClick(ByVal sender As Object, _
ByVal e As EventArgs) Handles Me.DoubleClick

' Send the enter key to the button, which raises the click
' event for the button. This works because the tab stop of
' the button is 0.
SendKeys.Send("{ENTER}")
End Sub

End Class
End Namespace




É isso, espero ter ajudado, pois hoje em dia todo mundo procura a perfeição do seu bot.

TechN9ne, veja se isso ajuda

http://code.google.com/p/tibiaxbot/source/browse/trunk/TibiaXBot/TibiaXBot/WASD.cs

da pra se ter uma idéia de como funciona olhando o código.

OBS: O código esta em C#, mais pode ser facilmente convertido pra VB.

Criando seu tibia bot com TibiaAPI
Aprenda do 0, com nada de experiência e saia programando seu Bot!

Criando seu tibia bot com TibiaAPI - Parte 1
"Conhecendo o Visual Basic e o TibiaAPI"
Aprenda o princípio do Visual Basic e do TibiaAPI, como funcionam e para que servem.
É a intro do Tutorial.
Parte 1
[*]Criando seu tibia bot com TibiaAPI - Parte 2

"Visual Basic Interface"
Conheça um pouco mais da Interface do Visual Basic, e aprenda a adicionar a referencia da DLL TibiaAPI no seu programa.
Parte 2
[*]Criando seu tibia bot com TibiaAPI - Parte 3

"Desenvolvendo com TibiaAPI.dll"
Aprenda o básico dos códigos do VBnet.
Importar o TibiaAPI aos códigos, declarar variávies e criar o Loader.
Parte 3
[*]Criando seu tibia bot com TibiaAPI - Parte 4

"Form2 e Funções Básicas"
Aprenda a criar outras forms e criar funções básicas de um bot.
Como por exemplo, Outfits e Light Hack.
Parte 4
[*]Criando seu tibia bot com TibiaAPI - Parte 5

"Configurando e Compilando"
Aprenda a configurar a Assembly e a Compilar seu bot pronto.
Parte 5

Criando seu tibia bot com TibiaAPI - Parte 3
{Desenvolvendo com TibiaAPI}



Depois de ter injetado a DLL como referência começaremos a desenvolver nosso Bot!

O Design:

Primeiro de tudo vamos criar o Loader, para que possamos carregar nosso char e o bot funcione.
No form1, ponha um combobox e um botão escrito Start, ou OK, ou Entrar, ou Abrir Bot, enfim, o que você achar melhor.
Se preferir também ponha uma frase para que o player saiba o que fazer. (eu puis: Escolha seu personagem...) segue a foto:





Códigos vbnet!

Agora vamos partir para os códigos. Os códigos do loader não são complicados. Basta usar a lógica para intender.
Na parte á direitas vá em Solution Explorer, clique com botão direito em cima do Form1 e depois em View Code. Ai estará todos os códigos do Form1.

Se você não modificou nada, vai estar assim:


Public Class Form1

End Class
[/code] [b][color=#800080][size=4]Importanto do TibiaAPI[/size][/color][/b] Então terá as duas abas no seu programa, a Form1.vb que é o codigo e a Form1.vb [Designer] que é o design obviamente. No code antes de Public Class Form1, ponha isto: [code]Imports Tibia
Imports Tibia.Util
Imports Tibia.Objects
Imports Tibia.Constants Isto é para importar do DLL, para o resto funcionar. Declarando as Variáveis client e player Então logo depois, vamo definir as variáveis, para nos ajudar a longo do programa Após Public Class Form1, ponha: Public c as client
Public p as player[/code] Aqui você declarou que c é Client e p é Player. Em tutoriais pela net você pode encontrar funções com client.Map.. etc, pois eles declararam "Dim client as client" então mude para c.Map... etc O código ficará: [code]Imports Tibia
Imports Tibia.Util
Imports Tibia.Objects
Imports Tibia.Constants

Public Class Form1

Public c As Client
Public p As Player

End Class
Form1_Load - Seu char no combobox. Volte no design e clique duas vezes no seu programa (em qualquer parte, menos no botão e no combobox). Verá que foi acrescentado um "Private Sub" no code (o que é isso? R: não te interessa agora).
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
[/code] Você abriu um evento para o Form1 que é o Load, ou seja, tudo que estará ai será executado quando o programa for carregado (quando abrir). Então ponha este código no Form1_Load: [code] For Each cl In Client.GetClients
ComboBox1.Items.Add(cl)
Next
Só entender inglês e usar a lógica para entender o código. Para cara cl em client.GetClients Adiciona o item cl no ComboBox1, Next é o que fecha o For Each. Carregando seu Bot Volte para o designer e clique duas vezes no botão. Aparecerá este code: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

End Sub
[/code] Reparem que não é mais _Load e sim _Click. Pois o evento será executado quando o botão for clicado e não carregado. Então ponha dentro do Private Sub: [code]
Form2.Show()
Mas pera ai, "mostrar form2"? Mas nem criamos o form2! Sim, isto é o que veremos no próximo tutorial O código final ficou assim:
Imports Tibia
Imports Tibia.Util
Imports Tibia.Objects
Imports Tibia.Constants

Public Class Form1

Public c As Client
Public p As Player

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For Each cl In Client.GetClients
ComboBox1.Items.Add(cl)
Next
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Form2.Show()
End Sub
End Class

[/code]

Seu form2 ficara sublinhado com erro pois ainda não existe. Aguarde.

Até mais guys!