ZEGMAN on DeviantArthttps://www.deviantart.com/zegman/art/Mouse-tracking-and-Set-FIXED-123324891ZEGMAN

Deviation Actions

ZEGMAN's avatar

Mouse tracking and Set -FIXED

By
Published:
989 Views

Description

:star::bulletgreen:CLICK DOWNLOAD!!:bulletgreen::star:

Here it is, finally fixed I hope! prank your friends and make poeple laugh with this awesome program!! :D

Enjoy!
Here's the code, it wasn't too difficult.
______________________________
Private newx As Single
Private newy As Single
Private timei As Double
Private timeend As Long
Private formhide As Byte
Private answer As Byte
Private Sub Command1_Click()
Call Set_Cursor_Pos
End Sub
Private Sub Command2_Click()
On Error GoTo errormessage
newx = InputBox("Enter the new position of x.", "NEW X")
newy = InputBox("Enter the new position of y.", "NEW Y")
Text3.Text = newx
Text4.Text = newy
timeend = InputBox("How many seconds do you want it to work for?", "Length")
Timer3.Interval = timeend * 1000
timei = InputBox("how many seconds until this activates?", "Interval")
Timer2.Interval = timei * 1000
Timer2.Enabled = True
answer = MsgBox("hide this?", vbYesNo, "HIDE")
If answer = 6 Then
Project1.Form1.WindowState = 1
Else
End If
Exit Sub
errormessage:
MsgBox "Error.", vbCritical, "ERROR"
End Sub
Private Sub Command3_Click()
Form2.Show
Timer4.Enabled = True
Timer5.Enabled = True
End Sub
Private Sub Command4_Click()
End
End Sub
Private Sub Form_Load()
timerslide.Enabled = True
End Sub
Private Sub Timer1_Timer()
Call Get_Cursor_Pos
End Sub
Private Sub Timer2_Timer()
Timer2.Interval = 25
Call Set_Cursor_Pos
Timer3.Enabled = True
End Sub
Private Sub Timer3_Timer()
Timer2.Enabled = False
Form3.Show
Unload Form1
End Sub
Private Sub Timer4_Timer()
Form1.WindowState = 1
Dim ran1 As Long
Dim ran2 As Long
ran1 = Int((1000 - 1 + 1) * Rnd + 1)
Text3.Text = ran1
ran2 = Int((1000 - 1 + 1) * Rnd + 1)
Text4.Text = ran2
Call Set_Cursor_Pos
End Sub
Private Sub Timer5_Timer()
Timer4.Enabled = False
End Sub
Private Sub Timer6_Timer()
Text7.ForeColor = &HFF&
Timer7.Enabled = True
End Sub
Private Sub Timer7_Timer()
Text7.ForeColor = &HFF00&
Timer9.Enabled = True
End Sub
Private Sub Timer8_Timer()
Text7.ForeColor = &HFFFF&
Timer6.Enabled = True
End Sub
Private Sub Timer9_Timer()
Text7.ForeColor = &HFFFF00
End Sub
Private y As Integer
Private Sub Form_Load()
y = 60
End Sub
Private Sub Timer1_Timer()
y = y - 1
If y = -1 Then
Unload Form2
Form1.WindowState = 0
MsgBox "Got You", vbExclamation, "LOL"
End If
Label1.Caption = y
End Sub
Private Sub Timer1_Timer()
Form3.Hide
Form1.Show
End Sub
Declare Function GetCursorPos Lib "user32" _
(lpPoint As POINTAPI) As Long
Declare Function SetCursorPos Lib "user32" _
(ByVal x As Long, ByVal y As Long) As Long
Type POINTAPI
X_Pos As Long
Y_Pos As Long
End Type
Sub Get_Cursor_Pos()
Dim Hold As POINTAPI
GetCursorPos Hold
[link] = Hold.X_Pos
[link] = Hold.Y_Pos
End Sub
Sub Set_Cursor_Pos()
On Error GoTo errormessage
x = [link]
y = [link]
SetCursorPos x, y
Exit Sub
errormessage:
MsgBox "Error.", vbCritical, "ERROR"
End Sub

:iconteheplz:
© 2009 - 2024 ZEGMAN
Comments39
Join the community to add your comment. Already a deviant? Log In
edster9's avatar
lol awesome courage button! >=D