TibiaAPI - Anti Kick [Dance]

[Renato 659]

Anti Kick [Dance]

{usando TibiaAPI}

Opa galera, mais um tuto com tibiaApi ai :]

1 - Crie um timer, renomeie para TimerDance. Agora ponha um NumericUpDown no form e do lado um checkbox para ativar/desativar.

No timer você coloca:

Dim min As Integer = NumericUpDown1.Value

TimerDance.Interval = min*60000


p.Turn(Direction.Up)

p.Turn(Direction.Up)

p.Turn(Direction.Down)

p.Turn(Direction.Down)

p.Turn(Direction.Left)

p.Turn(Direction.Left)

p.Turn(Direction.Right)

p.Turn(Direction.Right)

[/code]




[b]Observações¹: [/b]em[i]min*60000 [/i]ele vai multiplicar o valor do numeric por 60 segundos que é um minuto, pois a cada 1000 é 1 segundo. Dando o valor exato em minutos do numeric.



[b]Observações²:[/b] na hora de 'dançar' eu dupliquei cada direção porque o VisualBasic vai ler muito rápido e vai acabar rodando em duas direções somente porque até chegar a informação de 1 direção no client do tibia, já passou mais duas direções no Bot.

Então fiz por garantia. (Aqui funciona)



[size=4][color=#FF0000][b]2 -[/b][/color][/size] Agora de dois clicks no checkbox para entrar no evento "CheckBox1_CheckedChanged".

E ponha:



[code]

If CheckBox1.Checked Then

TimerDance.Start()

NumericUpDown1.Enabled = False

Else

TimerDance.Stop()

NumericUpDown1.Enabled = True

End If

E pronto, o cara que for usar o bot, seleciona quantos de quanto em quanto tempo (MINUTOS) o char vai rodar e ativar =D

Fiz de cabeça, então se aparecer algum erro, avise para min arrumar! Thanks!

Abraços.

[EdsonJunior 966]

Anti Idle OWNA!

Valeu renatovisk!

[Chaos 18]

Tem q muda o interval do timer pra 60000? tentei aki e nao deu nada........

[Renato 659]

min*60000

Significa, o valor do NumericUpDown multiplicado (sinal da multiplicação da programação: * ) por 60000. 60000 equivale á 1 minuto, pois cada 1000 é um segundo.

[Chaos 18]

Tentei de novo e não consegui ^.^. Mas tipo eu só criei 1 form adc o tibiaapi ou tem que faze o msm processo tipo seleciona o char etc?

[Bruno 3]

claro né, se n ele n detecta o char ¬¬ dã

aq pego

[Felipe Sartori 5]

  Private Sub NumericUpDown60000(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerDance.Tick

        Dim min As Integer = NumericUpDown.Enabled

        TimerDance.Interval = min * 60000


        p.Turn(Direction.Up)

        p.Turn(Direction.Up)

        p.Turn(Direction.Down)

        p.Turn(Direction.Down)

        p.Turn(Direction.Left)

        p.Turn(Direction.Left)

        p.Turn(Direction.Right)

        p.Turn(Direction.Right)

    End Sub


    Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged

        If CheckBox1.Checked Then

            TimerDance.Start()

            NumericUpDown.Enabled = False

        Else

            TimerDance.Stop()

            NumericUpDown.Enabled = True

        End If

    End Sub

Aonde está errado?

[Renato 659]

Dim min As Integer= NumericUpDown.Enabled

NumericUpDown é a class

Voce precisa usar o nome do NumericUpDown que voce pois no Form.

Normalmente NumericUpDown1, NumericUpDown2, etc.

E não é .Enabled, é .Value.

[Felipe Sartori 5]

Pronto Renato, funcionou perfeitamente! Era um erro meu, eu não coloquei o código no Check para Ligar/Desligar...

Abraços.

[Renato 659]

Cara, sempre que der erro em algum tutorial meu vai ser erro seu.

Não estou querendo zuar você, eu sei que você ainda é iniciante, mas o que eu quero dizer é que só vou postar um tutorial caso eu tenha certeza absoluta que aquele código funciona.

Abraços.

[Risuke 0]

Um método para melhorar seu código seria usar assim:

If p.Direction = Direction.Up Then

            p.Turn(Direction.Right)

        ElseIf p.Direction = Direction.Right Then

            p.Turn(Direction.Down)

        ElseIf p.Direction = Direction.Down Then

            p.Turn(Direction.Left)

        Else

            p.Turn(Direction.Up)

        End If

Ao invés de repetir cada posição, use isso.

[Augusto 660]

Ou apenas

      Random rand = new Random();

      p.Turn((Direction)rand.Next(3));

[codecase 1]

Renato esse Timer eu do 2 click nele e ponho o code?

[Kimoszin 1160]

Sim, quando você der 2 clicks ele vai abrir para você botar os codigos.

[codecase 1]

N consegui da pra ajudar?

[Kimoszin 1160]

Quando você clicar, vai abrir uma janela com isso

Private Sub dance_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dance.Tick


End Sub

Ai é só botar isso no meio,

Se nao funcionar, clique no Timer, vai nas propriedades, clica em Events e de 2 click ao lado de Tick.

[eldernigan 0]

Aqui infelizmente não funcionou, deu um erro no "p.Turn(Direction.Up)" alguem sabe o que poderia ser?

@Edit~

Segue abaixo uma foto do erro. (O imageshack me torlou, eh uma imagem, fiquem de boa e.e)

http://www12.speedys...wnload/Erro.jpg

@Edit²~

Uplodado pelo TinyPic!

Editado Março 5, 2012 por eldernigan (veja o histórico de edições)

[Private Sub Teste 353]

http://tinypic.com/

[eldernigan 0]

Alguém poderia me ajudar? =x, estou precisando demaais! do anti-afk, é básico pra todos os bots =x

[Private Sub Teste 353]

Você especificou o que é P?

Dim p as Player

p = new Player(process)