Results 1 to 12 of 12
  1. #1
    Samueldo's Avatar
    Join Date
    Jan 2010
    Gender
    male
    Location
    Meh
    Posts
    1,024
    Reputation
    29
    Thanks
    346
    My Mood
    Inspired

    Question [Source Help]Spot the problem in this

    Code:
    Public Class Form1
        Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
        Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
            If GetAsyncKeyState(Keys.F3) Then
                Timer2.Start()
            End If
            If GetAsyncKeyState(Keys.F4) Then
                Timer2.Stop()
            End If
        End Sub
    
        Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
            Dim value As Point
            value = Cursor.Position
            Cursor.Position = value
            Me.Cursor = New Cursor(Cursor.Current.Handle)
            Cursor.Position = New Point(Cursor.Position.X, Cursor.Position.Y + 30)
        End Sub
    End Class
    That was the code for my Anti-Recoil Beta 2, which apparently fucked up but ran perfectly on my PC. Here is the full unedited code for it, which is actually quite simple. I got the Cursor.Position thing straight from the Microsoft online help/resource thingy.

    Anybody know what the problem is? It's F3 to start and F4 to stop. If you can fix it successfully then I will put your name on it as well as mine. If you're gonna leech, credit me for the original.
    Last edited by Samueldo; 01-12-2010 at 02:35 AM.
    Quote Originally Posted by Grim View Post
    glad to be an inspiration
    Minions rule. /endof

    InjectPlz Refresh - download v1.0 now!

  2. #2
    Grim's Avatar
    Join Date
    Jul 2009
    Gender
    male
    Posts
    5,362
    Reputation
    112
    Thanks
    3,781
    My Mood
    Cynical
    there's no stopper for it.

    Code:
        Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
            Dim value As Point
            value = Cursor.Position  << one of these is unnecessary
            Cursor.Position = value << one of these is unnecessary
            Me.Cursor = New Cursor(Cursor.Current.Handle)
            Cursor.Position = New Point(Cursor.Position.X, Cursor.Position.Y + 30)
        End Sub
    what you need to do is have the hotkey F3 call a function to wait for the person to click their mouse before moving down, then when they are not clicking the mouse to stop.

    the way you have the code is that when its turned on the cursor is constantly moving down.. it doesnt wait for any mouse clicks before moving down it just moves
    Last edited by Grim; 01-12-2010 at 03:07 AM.
    Want to see my programs?
    \/ CLICK IT BITCHES \/

  3. #3
    Samueldo's Avatar
    Join Date
    Jan 2010
    Gender
    male
    Location
    Meh
    Posts
    1,024
    Reputation
    29
    Thanks
    346
    My Mood
    Inspired
    I know, I tried everything to do the click bit with loads of different functions but none worked. Any ideas which one?
    Quote Originally Posted by Grim View Post
    glad to be an inspiration
    Minions rule. /endof

    InjectPlz Refresh - download v1.0 now!

  4. #4
    Grim's Avatar
    Join Date
    Jul 2009
    Gender
    male
    Posts
    5,362
    Reputation
    112
    Thanks
    3,781
    My Mood
    Cynical
    you need to wait for the mouse click not do it.. XBUTTON1 i think.. i'm not very well adapted with VB, but i think WM_LBUTTONDOWN and WM_LBUTTONUP is what you need
    Want to see my programs?
    \/ CLICK IT BITCHES \/

  5. #5
    Zoom's Avatar
    Join Date
    May 2009
    Gender
    male
    Location
    Your going on my 24/7 DDoS hit list.
    Posts
    8,561
    Reputation
    127
    Thanks
    5,912
    My Mood
    Happy
    Code:
    Dim hotkey as boolean
    hotkey = GetAsyncKeyState(Keys.F3)
    
    if hotkey = true then
    ' your code here!
    end if
    -Rest in peace leechers-

    Your PM box is 100% full.

  6. #6
    Samueldo's Avatar
    Join Date
    Jan 2010
    Gender
    male
    Location
    Meh
    Posts
    1,024
    Reputation
    29
    Thanks
    346
    My Mood
    Inspired
    Quote Originally Posted by WarPathSin View Post
    you need to wait for the mouse click not do it.. XBUTTON1 i think.. i'm not very well adapted with VB, but i think WM_LBUTTONDOWN and WM_LBUTTONUP is what you need
    Thanks, I'll try it in a minute.

    Quote Originally Posted by hejsan1 View Post
    Code:
    Dim hotkey as boolean
    hotkey = GetAsyncKeyState(Keys.F3)
    
    if hotkey = true then
    ' your code here!
    end if
    I know that bit but we want it to work if it's on and if the mouse button is pressed.
    Quote Originally Posted by Grim View Post
    glad to be an inspiration
    Minions rule. /endof

    InjectPlz Refresh - download v1.0 now!

  7. #7
    Zoom's Avatar
    Join Date
    May 2009
    Gender
    male
    Location
    Your going on my 24/7 DDoS hit list.
    Posts
    8,561
    Reputation
    127
    Thanks
    5,912
    My Mood
    Happy
    Quote Originally Posted by Samueldo View Post
    Thanks, I'll try it in a minute.



    I know that bit but we want it to work if it's on and if the mouse button is pressed.
    Isn´t it mouse.left?
    -Rest in peace leechers-

    Your PM box is 100% full.

  8. #8
    Samueldo's Avatar
    Join Date
    Jan 2010
    Gender
    male
    Location
    Meh
    Posts
    1,024
    Reputation
    29
    Thanks
    346
    My Mood
    Inspired
    Tried that, for some reason it doesn't like me.
    Quote Originally Posted by Grim View Post
    glad to be an inspiration
    Minions rule. /endof

    InjectPlz Refresh - download v1.0 now!

  9. #9
    zmansquared's Avatar
    Join Date
    Oct 2008
    Gender
    male
    Location
    Kickin it at Microsoft
    Posts
    2,088
    Reputation
    36
    Thanks
    221
    My Mood
    Cheerful
    humm. i tired messin with it and it froze my keys. were all good now
    Need Help With Coding or Something??? MSN me
    zmansquared@hotmail.com


    I am the one and only Microsoft Fag!!!

    Quote:
    Originally Posted by Arhk
    All games should be hacked, if we don't do it someone else will. Hackers force the progress, of better programming methods.
    ~


    Take this Pic everyone!



    next-

  10. #10
    Zoom's Avatar
    Join Date
    May 2009
    Gender
    male
    Location
    Your going on my 24/7 DDoS hit list.
    Posts
    8,561
    Reputation
    127
    Thanks
    5,912
    My Mood
    Happy
    Quote Originally Posted by zmansquared View Post
    humm. i tired messin with it and it froze my keys. were all good now
    Make 2 timers, 1 for hotkey and 1 for the code
    -Rest in peace leechers-

    Your PM box is 100% full.

  11. #11
    noobhackers's Avatar
    Join Date
    Dec 2009
    Gender
    male
    Location
    World Elite Revengers headquater
    Posts
    210
    Reputation
    10
    Thanks
    5
    My Mood
    Amused
    Any one got codes for unlimited respawnÉ

  12. #12
    MGHP's Avatar
    Join Date
    Nov 2008
    Gender
    male
    Posts
    94
    Reputation
    10
    Thanks
    21
    My Mood
    Aggressive
    Samueldo i will give you the answer MOuse left is = (Keys.LButton) this is for vb 2008 express.for right its = (Keys.RButton)

    Edit:
    THAT Code needs to change becuase it's all wrong.For Timer1

    Edit This is what i have changed so far:

    Public Class Form1
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    Dim Hotkey1 As Boolean
    If Hotkey1 = GetAsyncKeyState(Keys.F3) Then
    GetAsyncKeyState(Keys.LButton)
    If Hotkey1 = True Then
    Timer2.Start()
    End If
    End If
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
    Dim value As Point
    value = Cursor.Position
    Cursor.Position = value
    Me.Cursor = New Cursor(Cursor.Current.Handle)
    Cursor.Position = New Point(Cursor.Position.X, Cursor.Position.Y + 30)
    End Sub
    End Class
    Last edited by MGHP; 01-15-2010 at 05:40 AM.
    Goal List:

    Have 50 posts []
    Have 75 posts[]
    Have 100 posts [ ]
    Have 150 posts []
    Have 250 posts []
    Have 500 posts []
    Have 1000 posts[]
    Have atleast 2 acc banned[]
    Make my own hack []
    Finish list start new one[]

    Im getting some kind of posts from some people and IDK WHAT to do with em so let me tell now If you send me message about " should be MPGH not MGHP AND LAUGH ABOUT" IT I KNOW THAT IT SHOULD BE like that NOT MGHP BUT MGHP STANDS FOR ME SOMETHING Else
    Actually when i got this username it was going to be MultiGearHp then I just want to make it smaller and said MGHP so now if you send me a message remember this!And if any mod can change it To MultiGearHp im glad to that! Thank MGHP (MultiGearHp)!


    Status: Bored From Playing Combat Arms

Similar Threads

  1. [Release] All the hacks in this posts just to help you versions 1.0.180
    By sasifakos in forum Call of Duty 6 - Modern Warfare 2 (MW2) Hacks
    Replies: 19
    Last Post: 01-30-2010, 10:05 AM
  2. THis may fix the problem with FZHook that u guys have been having
    By falzarex in forum Alliance of Valiant Arms (AVA) Hacks & Cheats
    Replies: 20
    Last Post: 01-05-2010, 12:40 AM
  3. liz read this and u hood about the problem i had
    By kazuya899 in forum WarRock - International Hacks
    Replies: 10
    Last Post: 07-04-2009, 10:32 AM
  4. Help with the chams .. Litel problem ..
    By CoNey in forum Combat Arms Europe Hacks
    Replies: 10
    Last Post: 02-18-2009, 01:53 PM
  5. NEED HELP WITH THE HACK D/C PROBLEM
    By chubi_dc in forum Combat Arms Hacks & Cheats
    Replies: 41
    Last Post: 01-08-2009, 04:04 PM