29-08-13, 08:27 PM
السلام عليكم و رحمة الله
لقد قمت بإنشاء تطبيق على أساس أنه يعمل في background و هو عبارة عن قيام الفأرة بالضغط أو كليك عند أمر معين
أنا محتاج أين أضع مثلا هذا الكود
if e.keycode = keys.F3 then
btn.PerformClick()
end if
لقد قمت بحذف الفورم من التطبيق ثم أضفت موديل و أصبح على الشكل التالي مع بعض الأكواد بطبيعة الحال:
Module Module1
Declare Sub mouse_event Lib "user64" Alias "mouse_event" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Sub Main()
Application.Run()
End Sub
Friend WithEvents btn As New Button()
Private Sub MyMethod()
Windows.Forms.Cursor.Position = New System.Drawing.Point(Windows.Forms.Cursor.Position)
mouse_event(&H2, 0, 0, 0, 1)
mouse_event(&H4, 0, 0, 0, 1)
End Sub
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
MyMethod()
End Sub
End Module
لقد قمت بإنشاء تطبيق على أساس أنه يعمل في background و هو عبارة عن قيام الفأرة بالضغط أو كليك عند أمر معين
أنا محتاج أين أضع مثلا هذا الكود
if e.keycode = keys.F3 then
btn.PerformClick()
end if
لقد قمت بحذف الفورم من التطبيق ثم أضفت موديل و أصبح على الشكل التالي مع بعض الأكواد بطبيعة الحال:
Module Module1
Declare Sub mouse_event Lib "user64" Alias "mouse_event" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Sub Main()
Application.Run()
End Sub
Friend WithEvents btn As New Button()
Private Sub MyMethod()
Windows.Forms.Cursor.Position = New System.Drawing.Point(Windows.Forms.Cursor.Position)
mouse_event(&H2, 0, 0, 0, 1)
mouse_event(&H4, 0, 0, 0, 1)
End Sub
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
MyMethod()
End Sub
End Module