[HELP] AFK Bot

[nightshack]

Heey!

I was learning Autoit and making things on it..Like my SAAFK anti afk bot etc.

But then I discovered Visual Basic and I like it more..

I need help!

1. How do I make a "Sleep" command like on Autoit

2. If I use "Send ("1")" when a button is clicked for example it tells me something like "Cant be used in a function" or something


and other stuff, so please contact me or reply
MSN : [email protected]
AIM: nightshack

[Zurkei]

To your first question add

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

To the top of your code then you can just use the sleep command

Sleep 1000 ' This is in milliseconds so 1000 means 1 second you can change the 1000 to what ever you need just remember it is in milliseconds

This should work as I use it for a bot on another game I play.

[nightshack]

Thanks a lot, but now, How do i make it to send keys to WoW window?

[Y R U A NUB ?]

For sending a key you do:

SendKeys.Send("1")

As for "non digit or letter keys" such as space, add these brackets:

SendKeys.Send("{SPACE}")

More: http://msdn.microsoft.com/en-us/libr...keys.send.aspx

I would actually use AutoIT for these purposes, though.

[Zurkei]

Thanks a lot, but now, How do i make it to send keys to WoW window?

Ok this should work put this into your code somewhere

AppActivate ("World of Warcraft")
SendKeys ("put the keys you want here")
SendKeys ("{to do enter,shift, caps lock, and such put them in these brackets in all capitals}")

An example of that last part would be

SendKeys ("{ENTER}")

Make sure each new SendKeys is on a new line and is in order.

For sending a key you do:

SendKeys.Send("1")

As for "non digit or letter keys" such as space, add these brackets:

SendKeys.Send("{SPACE}")

More: http://msdn.microsoft.com/en-us/libr...keys.send.aspx

I would actually use AutoIT for these purposes, though.

Your problem there is that he also asked how to send it to the WoW window not just plain out send keys so you need to have

AppActivate ("World of Warcraft")

above your SendKeys code.

[Molleren]

I'd use PostMessage as it automaticly sends to a decided window, and I'd use FindWindow for finding the HWND of WoW.

I think the declaration are like this:

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

And then do like this: (This is Delphi code, but you can probably figure it out)

PostMessage(FindWindow(nil, 'World of Warcraft'), WM_KEYDOWN, $0D, 0);
PostMessage(FindWindow(nil, 'World of Warcraft'), WM_KEYUP, $0D, 0);

&0D is the key code for return.

[Zurkei]

I'd use PostMessage as it automaticly sends to a decided window, and I'd use FindWindow for finding the HWND of WoW.

I think the declaration are like this:


And then do like this: (This is Delphi code, but you can probably figure it out)


&0D is the key code for return.

Mine does the same the question is though which is more proffecient, and which is more complicated I will see which is when I get home from school and can get on VB.

[nightshack]

Sendkeys doesnt work i already explained. Going to try with Sendkeys.Send later

[Zurkei]

Sendkeys doesnt work i already explained. Going to try with Sendkeys.Send later

You said send not sendkeys so I didn't know entirely what you meant.

[Apoc]

In VB.NET, use SendKeys.SendWait instead of Send. This lets the app you're sending to process the message pumps, while Send doesn't. Also, SendKeys only works on the active application.

Using SendMessage or PostMessage lets you send keys to non-activated windows. (There's a thread in this section about using the PostMessage in VB.NET)

[nightshack]

HELP!!

Public Class Form1
    Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim start As String
        start = "start"
        Do Until start = "stop"
            AppActivate("World of Warcraft")
            SendKeys.SendWait("1")
            Sleep(10000)

        Loop

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim start As String
        start = "stop"
    End Sub
End Class

When I click the first button, the GUI goes white and doesn't respond, but the program keeps running.
How do I make it so the GUI doesn't freeze?

[Apoc]

Remove the Sleep(10000) and make sure you're sending keys to the proper window. (SendKeys.SendWait won't return until the key has been processed by the active application. So the Sleep is pointless, and will make your GUI go unresponsive.)

Also, don't use the PInvoke Sleep. System.Threading.Thread.Sleep(10000) is what you should use. (PInvoke Sleep is quite different)

[nightshack]

Remove the Sleep(10000) and make sure you're sending keys to the proper window. (SendKeys.SendWait won't return until the key has been processed by the active application. So the Sleep is pointless, and will make your GUI go unresponsive.)

Also, don't use the PInvoke Sleep. System.Threading.Thread.Sleep(10000) is what you should use. (PInvoke Sleep is quite different)

Sleep pointless? why?
Do you know any other way to sleep it then? (Without the freezing ofcourse)


--------------------------------------------------------

So anyone knows how to make it so the GUI doesn't freeze?

[Apoc]

Add a timer. Set it to tick every 10000ms. And put your logic there.

Private Sub timer1_Tick(....)
            AppActivate("World of Warcraft")
            SendKeys.SendWait("1")
EndSub

GUI won't freeze, and it will 'sleep' for you that way. (The other way, is using a new thread to do the work.)

[nightshack]

Add a timer. Set it to tick every 10000ms. And put your logic there.

Private Sub timer1_Tick(....)
            AppActivate("World of Warcraft")
            SendKeys.SendWait("1")
EndSub

GUI won't freeze, and it will 'sleep' for you that way. (The other way, is using a new thread to do the work.)

And...how do I add a timer?