Make your mouse move with cmd button [quick help]

right
i knew how to do this
but i forgot declarations etc.

right i want to know all stuff how to make a cmd button move mouse to chosen destiny
i would like it to involve a command button and text box.
i would like it so i type first number,commar,second number the underneath the wait time.
Example:

^^ i would like to have to type code like this then it moves mouse to numbers and waits them times ^^
Please get back with what i want fast!

Thanks!!

 

Code:

Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Type POINTAPI
    X As Long
    Y As Long
End Type

Code:

SetCursorPos 462,443

from http://sf.greyfyre.info/jazz/files/tutorials.html#MMSE

 

Someone..please read it carefully what super said is what i did not want. please gimme good answer. thanks

 

OH LAWD, the leechers of today are really bad at asking for help.
Cant describe properly, nor think for themselves

Jazz.CNET > Sources > VB6 > MouseMove Listbox

And stop making multiple topics, this place gets spammed enough already

 

You a idiot?
That bloody download gives me a file and don't tell me what to open with. it does'nt let me open in vb6

 

Your the idoit from the looks of your post it looks like the Jazz listbox is a control

you need to move the ocx into system 32 and register it with command prompt

 

Sorry, im just pissed off lol. i dunno nothing about this stuff. and i need sum1 tlel me how.

 

what? it is a default listbox, there should be nothing that you have to do if you have VB6 on your computer.

1. Just download the zip
2. extract it into a folder
3. run the VBP file (Visual Basic Project FYI)
4. Click play
5. Have fun
6. ????
7. Proffit

 

So your saying this guy couldn't figure out how to unzip something and he called you an idoit rofl omg what a dumbass.

Try using instr its very helpful with instr and if you can program anything

If you still cant figure out how to unzip use the code below

Jazz's mega spam code

Credits:
Jazz
whoever the fuck invented copy and paste

Code:

Rem->  Coded by Jazz00006
Rem->  Please remember to give credit if you use this in your project
Rem->  Visit http://jazz.cruels.net/ for more source or
Rem->  http://cruels.net to learn more about coding, we have a great forum
Rem->  and friendly staff, it is a good place to learn.

Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, _
                                                    ByVal Y As Long) As Long
Private Declare Function timeGetTime Lib "winmm.dll" () As Long

Private Sub Form_Load()
    MsgBox "Jazz Owns"
End Sub

Private Sub Command1_Click()
    Rem-> Declare our variables
    Dim SplitOut() As String
    Dim i          As Integer
    Rem-> First some error checking
    If InStr(1, Text1.Text, ",", vbTextCompare) = 0 Then MsgBox "Make sure you " & _
                                              "have entered in two co-ordinates seperated " & _
                                              "by a comma!", _
                                              vbCritical = vbOKOnly, "Error": Exit Sub
    SplitOut = Split(Text1.Text, ",")
    
    For i = 0 To 1
        If Not IsNumeric(SplitOut(i)) Then MsgBox "You have not entered in a valid number for" & _
                                                  " value number " & i + 1, vbCritical = vbOKOnly, _
                                                  "Error": Exit Sub
    Next i
    
    If Not IsNumeric(Text2.Text) Then MsgBox "Make sure you have entered in a " & _
                                              "number for the wait time!", _
                                              vbCritical = vbOKOnly, "Error": Exit Sub
    
    Rem-> Now we add the data into a listbox
    List1.AddItem CInt(SplitOut(0)) & "|" & CInt(SplitOut(1))
    Rem-> And we hide the wait time.... why? Because I want to _
          confuse you!
    List1.ItemData(List1.ListCount - 1) = CLng(Text2.Text)
End Sub

Private Sub Command2_Click()
    Rem-> I wonder what this does >_<
    List1.Clear
End Sub

Private Sub Command3_Click()
    Rem-> Lets declare the value i
    Dim i As Long
    Rem-> For each value we have entered into the listbox
    For i = 0 To List1.ListCount - 1
        Rem-> select each value
        List1.ListIndex = i
        Rem-> Grab the X and Y co-ordinates, and move the mouse there
        SetCursorPos CLng(Split(List1.Text, "|")(0)), CLng(Split(List1.Text, "|")(0))
        Rem-> Wait for the specified time
        Wait List1.ItemData(List1.ListCount - 1)
    Next i
End Sub


Public Sub Wait(TimeOut As Long)
    Rem-> Declare the variable TimeNow
    Dim TimeNow As Long
    Rem-> Get the starting time
    TimeNow = timeGetTime()
    Rem-> Loop
    Do
        Rem-> Make the program go so it doesn't freeze
        DoEvents
    Rem-> Check to see if we have gone over the wait time _
          if we have, then end the loop and let the program _
          get on with what it is doing.
    Loop While TimeNow + TimeOut > timeGetTime()
End Sub

Items to add:

Command Buttons

Command1
Command2
Command3

Textboxes

Text1
Text2

Listbox

List1

Note: I have not tested it but I assume it works