😳 Taking Programming Requests!

Hey everyone, I'm just looking to help if anyones stuck with anything in specific. I think i can be a big help.
Just reply with the Idea/Source code you need help with!

well i could use some help with a CA afk bot. i cant figure out what is wrong...
i will be back home tomorow(at my house) so if you could and would help me i would love you

Alrighty, Can you give me a basic idea of how this is supposed to work?

sure can. its a source. but i cant figure out why it doesnt work.

Code:

Imports System.Windows.Forms.SendKeys
Imports System.Data
Imports System.Data.OleDb
Imports System.Runtime.InteropServices
Public Class Form1
    Private Declare Function GetAsyncKeyState Lib "User32" (ByVal vkey As Integer) As Short
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        If GetAsyncKeyState(Keys.Insert) Then
            If Me.Visible = True Then
                Me.Visible = False
                Exit Sub
            End If
            If Me.Visible = False Then
                Me.Visible = True
                Exit Sub
            End If
        End If

        If GetAsyncKeyState(Keys.Delete) Then
            Me.Close()
        End If
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        If GetAsyncKeyState(Keys.NumPad0) Then
            Timer2.Enabled = True
            Exit Sub
        End If
        If Me.Visible = False Then
            Me.Visible = True
            Exit Sub
        End If


        If GetAsyncKeyState(Keys.NumPad1) Then
            Timer2.Enabled = False
        End If

        Try
            Interaction.AppActivate("Engine.exe")
            My.Computer.Keyboard.SendKeys("W")
            My.Computer.Keyboard.SendKeys("A")
            My.Computer.Keyboard.SendKeys("S")
            My.Computer.Keyboard.SendKeys("D")
        Catch

        End Try
        ' AFK move section
        Try
            Interaction.AppActivate("Engine.exe")
            My.Computer.Keyboard.SendKeys("W")
            My.Computer.Keyboard.SendKeys("A")
            My.Computer.Keyboard.SendKeys("S")
            My.Computer.Keyboard.SendKeys("D")
        Catch

        End Try


    End Sub

End Class

mouse clicks and keyboard
if you could please help me with this. MSN(Barly on anymore): kegd1996@hotmail.com SKYPE(more reliable): speedman1996

PS: anyway you could keep private? like after you get it working? or try your best if you cant ohh well. need me to test ill do it via skype

@speedforyou

this code
Private Declare Function GetAsyncKeyState Lib "User32" (ByVal vkey As Integer) As Short
will give windows 7 users an error

make the rseult as short also so it wan't give errors

and put this code
If GetAsyncKeyState(Keys.NumPad0) Then
Timer2.Enabled = True
Exit Sub
End If
If Me.Visible = False Then
Me.Visible = True
Exit Sub
End If

If GetAsyncKeyState(Keys.NumPad1) Then
Timer2.Enabled = False
End If

at the first timer because it will make the app lagging
and its better make it
My.Computer.Keyboard.SendKeys("W")
My.Computer.Keyboard.SendKeys("A")

and remove .exe after the engine...
Note:it willn't work with any flash game

i dont under stand the first part. please post code...

but thanks

Originally Posted by ClaimIT

@speedforyou

this code
Private Declare Function GetAsyncKeyState Lib "User32" (ByVal vkey As Integer) As Short
will give windows 7 users an error

make the rseult as short also so it wan't give errors

and put this code
If GetAsyncKeyState(Keys.NumPad0) Then
Timer2.Enabled = True
Exit Sub
End If
If Me.Visible = False Then
Me.Visible = True
Exit Sub
End If

If GetAsyncKeyState(Keys.NumPad1) Then
Timer2.Enabled = False
End If

at the first timer because it will make the app lagging
and its better make it
My.Computer.Keyboard.SendKeys("W")
My.Computer.Keyboard.SendKeys("A")

and remove .exe after the engine...
Note:it willn't work with any flash game

its not a flash game

Originally Posted by speedforyou

i dont under stand the first part. please post code...

but thanks

would be easier to jus do mouse event and screw sendkeys cuz u going to have to do mouse events anyway

Speed add me on skype, i sent you a request. It will come up as Pathogenix.

I think i solved it with him on skype guys, thanks anyways!

Add my msn ; iiNarbz@live.com
Can't explain through here gotta show

Originally Posted by speedforyou

i dont under stand the first part. please post code...

but thanks

---------------
Private Property result As Short
Private Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As Integer) As Short
---------------
this should do it with win 7

I'm actually looking for a part-time coder. Maybe you might be interested @consca? I'm currently working on a side project with a couple of friends and we're planning on splitting all of the profits. Coders will get the biggest cuts. Please PM for more info.

i'm wanting to get a hack for realm of the mad god (browser version) and have it include 1. item creating not duping or changing and well.... thats all email me @ othieisabel@gmail.com thx

I'm doing a kinda big project and I need a little help, add me on msn pl0x.
cookiemsv83@live.com

consca, i need help with something add me on skype please: markroy40 , thanks

😳 Taking Programming Requests!

Post a Reply

Similar Threads

Tags for this Thread