BOT
Ae gente estou fazendo 2 bot, um eu fiz ele cria um arquivos html com todas as tags básicas e mostra onde deve ser digitado os dados, o outro eu pretendo fazer um bot para um jogo e preciso mover e clicar com o mouse, minha dúvida é como eu posso mover o mouse e fazer ele dar [Ô]auto click[Ô] obrigado
e tambem para o 1º bot gostaria como fazer uma pausa entre as letras digitadas para ficar mais legal e chamativo, um comando para fazer o vb espera para executar cada linha de comando
[txt-size=6]Cara, o código para digitação é este:
Este exemplo necessita de um Form, um TextBox1 com um conteúdo e um TextBox2 para receber o conteúdo e um botão para executar o código.
[txt-color=#007100][ô]##### Código para inserir o conteúdo de [Ô]Mensagem[Ô] dentro do campo de texto[/txt-color]
[txt-color=#0000f0]Dim[/txt-color] Aleatorio [txt-color=#0000f0]As Random [/txt-color]=[txt-color=#0000f0] New [/txt-color]Random
[txt-color=#0000f0]Dim[/txt-color] Inteiro [txt-color=#0000f0]As Integer
Dim[/txt-color] Inicio [txt-color=#0000f0]As Integer [/txt-color]= My.Computer.Clock.TickCount [txt-color=#007100][ô]Variável para determinar o valor de inÃcio do loop de espera[/txt-color]
[txt-color=#0000f0]Dim[/txt-color] Final [txt-color=#0000f0]As Integer [/txt-color]= 0 [txt-color=#007100][ô]Variável que vai determinar o final do loop de espera[/txt-color]
[txt-color=#0000f0]Dim[/txt-color] Mensagem [txt-color=#0000f0]As String [/txt-color]= TextBox1.Text
[txt-color=#0000f0]For[/txt-color] C = 0 [txt-color=#0000f0]To[/txt-color] Mensagem.Length
[txt-color=#0000f0]If[/txt-color] C = Mensagem.Length [txt-color=#0000f0]Then Exit For[/txt-color]
TextBox2.Text += Mensagem(C)
Inteiro = Aleatorio.Next(10000, 1000000) [txt-color=#007100][ô]Para digitação mais rápida, diminua o valor do segundo parêmetro[/txt-color]
Final = Inicio + Inteiro
[txt-color=#0000f0]While Not[/txt-color] Inicio = Final
Application.DoEvents()
Inicio += 1
[txt-color=#0000f0]End While
Next[/txt-color] C
[txt-color=#007100][ô]##### Fim[/txt-color]
Para mover o mouse, você deve utilizar o System.Drawing, algo como:
Windows.Forms.Cursor.Position = New System.Drawing.Point(Button1.Location.X + Me.Location.X + 50, Button1.Location.Y + Me.Location.Y + 30)
Agora executar o clique do mouse ainda é um mistério pra mim
[/txt-size]
Este exemplo necessita de um Form, um TextBox1 com um conteúdo e um TextBox2 para receber o conteúdo e um botão para executar o código.
[txt-color=#007100][ô]##### Código para inserir o conteúdo de [Ô]Mensagem[Ô] dentro do campo de texto[/txt-color]
[txt-color=#0000f0]Dim[/txt-color] Aleatorio [txt-color=#0000f0]As Random [/txt-color]=[txt-color=#0000f0] New [/txt-color]Random
[txt-color=#0000f0]Dim[/txt-color] Inteiro [txt-color=#0000f0]As Integer
Dim[/txt-color] Inicio [txt-color=#0000f0]As Integer [/txt-color]= My.Computer.Clock.TickCount [txt-color=#007100][ô]Variável para determinar o valor de inÃcio do loop de espera[/txt-color]
[txt-color=#0000f0]Dim[/txt-color] Final [txt-color=#0000f0]As Integer [/txt-color]= 0 [txt-color=#007100][ô]Variável que vai determinar o final do loop de espera[/txt-color]
[txt-color=#0000f0]Dim[/txt-color] Mensagem [txt-color=#0000f0]As String [/txt-color]= TextBox1.Text
[txt-color=#0000f0]For[/txt-color] C = 0 [txt-color=#0000f0]To[/txt-color] Mensagem.Length
[txt-color=#0000f0]If[/txt-color] C = Mensagem.Length [txt-color=#0000f0]Then Exit For[/txt-color]
TextBox2.Text += Mensagem(C)
Inteiro = Aleatorio.Next(10000, 1000000) [txt-color=#007100][ô]Para digitação mais rápida, diminua o valor do segundo parêmetro[/txt-color]
Final = Inicio + Inteiro
[txt-color=#0000f0]While Not[/txt-color] Inicio = Final
Application.DoEvents()
Inicio += 1
[txt-color=#0000f0]End While
Next[/txt-color] C
[txt-color=#007100][ô]##### Fim[/txt-color]
Para mover o mouse, você deve utilizar o System.Drawing, algo como:
Windows.Forms.Cursor.Position = New System.Drawing.Point(Button1.Location.X + Me.Location.X + 50, Button1.Location.Y + Me.Location.Y + 30)
Agora executar o clique do mouse ainda é um mistério pra mim
[/txt-size]
Tópico encerrado , respostas não são mais permitidas