ShadowmanTDC
Grünschnabel
Hallo,
bin frisch von Visual Basic 6 auf VB .NET umgestiegen! Meine alten Programme funktionieren nicht mehr dank .NET! Ich wollte ein Programm für Maussimulation programmieren.
Wer kann helfen?
Hier der QuellCode der in Visual Basic 6 funktioniert aber nicht in .NET:
Gruss,
Cyrill
bin frisch von Visual Basic 6 auf VB .NET umgestiegen! Meine alten Programme funktionieren nicht mehr dank .NET! Ich wollte ein Programm für Maussimulation programmieren.
Wer kann helfen?
Hier der QuellCode der in Visual Basic 6 funktioniert aber nicht in .NET:
Code:
Option Explicit
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_ABSOLUTE = &H8000
Private Type POINTAPI
X As Long
Y As Long
End Type
Dim aX%, aY%, dx%, dy%
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 50
Me.WindowState = 2
Command1.Left = Screen.Width / 2
Command1.Top = Screen.Height / 2
End Sub
Private Sub Command1_Click()
Timer1.Enabled = True
dx = Screen.Width / Screen.TwipsPerPixelX - 10
dy = 5
End Sub
Private Sub Timer1_Timer()
Dim Pt As POINTAPI
Call GetCursorPos(Pt)
aX = Pt.X
aY = Pt.Y
If aY > dy Then aY = aY - 15
If aX < dx Then aX = aX + 20
Call SetCursorPos(aX, aY)
If aY <= dy And aX >= dx Then
SetCursorPos dx, dy
Timer1.Enabled = False
Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
End If
End Sub
Gruss,
Cyrill