Visual Studio .NET (Mausklicksimulation)

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:

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
 

Bencher

Mitglied
Hier hast du mal ein kleines Programm das dir ein bisschen was über den Mausstatus und welche Maustaste gedrückt wurde anzeigt.
Vielleicht kannst die dir was rausnehmen für dein Problem.
 

Anhänge

  • mausstatus.zip
    24,6 KB · Aufrufe: 246