[mohammed moh]

شكرا أخي أحمد حسين ما شاء الله تطبيقك إشتغل معي جيدا ربي يجازيك و ربي يحفظك إن شاء الله فقط بقية لي مشكلة واحدة الآن و هي الأساس فقط ضغطة الزر للماوس لم تشتغل أو ربما هناك طريقة أخرى لتشغيلها ممكن أي واحد يساعدني في إكمالها ها هو الكود الكامل :

كود :

[CODE][color=#0000FF]Public Class [/color][COLOR="#2B91AF"]Form1
    [/COLOR][color=#0000FF]Public Declare Auto Function [/color][color=#000000]SetCursorPos [/color][color=#0000FF]Lib [/color][color=#A31515]"User64.dll" [/color][color=#000000]([/color][color=#0000FF]ByVal [/color][color=#000000]X [/color][color=#0000FF]As Integer[/color][color=#000000], [/color][color=#0000FF]ByVal [/color][color=#000000]Y [/color][color=#0000FF]As Integer[/color][color=#000000]) [/color][COLOR="#0000FF"]As Long
    Public Declare Auto Function [/COLOR][color=#000000]GetCursorPos [/color][color=#0000FF]Lib [/color][color=#A31515]"User64.dll" [/color][color=#000000]([/color][color=#0000FF]ByRef [/color][color=#000000]lpPoint [/color][color=#0000FF]As [/color][color=#2B91AF]Point[/color][color=#000000]) [/color][COLOR="#0000FF"]As Long
    Public Declare Sub [/COLOR][color=#000000]mouse_event [/color][color=#0000FF]Lib [/color][color=#A31515]"user64" [/color][color=#0000FF]Alias [/color][color=#A31515]"mouse_event" [/color][color=#000000]([/color][color=#0000FF]ByVal [/color][color=#000000]dwFlags [/color][color=#0000FF]As Long[/color][color=#000000], [/color][color=#0000FF]ByVal [/color][color=#000000]dx [/color][color=#0000FF]As Long[/color][color=#000000], [/color][color=#0000FF]ByVal [/color][color=#000000]dy [/color][color=#0000FF]As Long[/color][color=#000000], [/color][color=#0000FF]ByVal [/color][color=#000000]cButtons [/color][color=#0000FF]As Long[/color][color=#000000], [/color][color=#0000FF]ByVal [/color][color=#000000]dwExtraInfo [/color][color=#0000FF]As Long[/color][COLOR="#000000"])
    [/COLOR][color=#0000FF]Public Const [/color][color=#000000]MOUSEEVENTF_LEFTDOWN = &H2 [/color][COLOR="#008000"]' left button down
    [/COLOR][color=#0000FF]Public Const [/color][color=#000000]MOUSEEVENTF_LEFTUP = &H4 [/color][COLOR="#008000"]' left button up
    [/COLOR][color=#0000FF]Public Const [/color][color=#000000]MOUSEEVENTF_MIDDLEDOWN = &H20 [/color][COLOR="#008000"]' middle button down
    [/COLOR][color=#0000FF]Public Const [/color][color=#000000]MOUSEEVENTF_MIDDLEUP = &H40 [/color][COLOR="#008000"]' middle button up
    [/COLOR][color=#0000FF]Public Const [/color][color=#000000]MOUSEEVENTF_RIGHTDOWN = &H8 [/color][COLOR="#008000"]' right button down
    [/COLOR][color=#0000FF]Public Const [/color][color=#000000]MOUSEEVENTF_RIGHTUP = &H10 [/color][COLOR="#008000"]' right button up

    [/COLOR][color=#0000FF]Private Sub [/color][COLOR="#000000"]MS_LEFTCLICK()
        mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
        mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
    [/COLOR][COLOR="#0000FF"]End Sub



    Private WithEvents [/COLOR][color=#000000]KeyHook [/color][color=#0000FF]As New [/color][COLOR="#2B91AF"]KeyboardHook

    [/COLOR][color=#0000FF]Private Sub [/color][color=#000000]Form1_FormClosing(sender [/color][color=#0000FF]As Object[/color][color=#000000], e [/color][color=#0000FF]As [/color][color=#2B91AF]FormClosingEventArgs[/color][color=#000000]) [/color][color=#0000FF]Handles Me[/color][COLOR="#000000"].FormClosing
        KeyHook.Stop()
    [/COLOR][COLOR="#0000FF"]End Sub


    Private Sub [/COLOR][color=#000000]Form1_Load(sender [/color][color=#0000FF]As Object[/color][color=#000000], e [/color][color=#0000FF]As [/color][color=#2B91AF]EventArgs[/color][color=#000000]) [/color][color=#0000FF]Handles MyBase[/color][COLOR="#000000"].Load
        KeyHook.Start()
        Location = [/COLOR][color=#0000FF]New [/color][color=#2B91AF]Point[/color][color=#000000]([/color][color=#2B91AF]Screen[/color][color=#000000].PrimaryScreen.WorkingArea.Width, [/color][color=#2B91AF]Screen[/color][COLOR="#000000"].PrimaryScreen.WorkingArea.Height)
        ShowInTaskbar = [/COLOR][COLOR="#0000FF"]True
        [/COLOR][color=#000000]Visible = [/color][COLOR="#0000FF"]False
    End Sub

    Private Sub [/COLOR][color=#000000]Button1_Click(sender [/color][color=#0000FF]As Object[/color][color=#000000], e [/color][color=#0000FF]As [/color][color=#2B91AF]EventArgs[/color][color=#000000]) [/color][color=#0000FF]Handles [/color][COLOR="#000000"]Button1.Click
        mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
        mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
    [/COLOR][COLOR="#0000FF"]End Sub

    Private Sub [/COLOR][color=#000000]KeyHook_KeyDown(sender [/color][color=#0000FF]As Object[/color][color=#000000], e [/color][color=#0000FF]As [/color][color=#2B91AF]KeyEventArgs[/color][color=#000000]) [/color][color=#0000FF]Handles [/color][COLOR="#000000"]KeyHook.KeyDown
        [/COLOR][color=#0000FF]If [/color][color=#000000]e.KeyCode = [/color][color=#2B91AF]Keys[/color][color=#000000].F3 [/color][COLOR="#0000FF"]Then
            [/COLOR][COLOR="#000000"]Button1.PerformClick()
        [/COLOR][COLOR="#0000FF"]End If
    End Sub
End Class[/COLOR]

[/code]