منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

ما الخطاء فى هذا الكود

كود :

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        If TextBox1.Text = Text Then

            My.Computer.Keyboard.SendKeys("a")

            My.Computer.Keyboard.SendKeys("f")

            My.Computer.Keyboard.SendKeys("d")

            My.Computer.Keyboard.SendKeys("s")

        End If

    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

        Timer1.Enabled = True

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

        Interaction.AppActivate(TextBox1.Text)

    End Sub

كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        TextBox1.Text = Text

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        If TextBox1.Text = Text Then

            SendKeys.Send("afds")

        End If

    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

        Timer1.Enabled = CheckBox1.Checked

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

        Interaction.AppActivate(TextBox1.Text)

     End Sub

Osama_Ghareeb كتب :

كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load TextBox1.Text = Text End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If TextBox1.Text = Text Then SendKeys.Send("afds") End If End Sub Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged Timer1.Enabled = CheckBox1.Checked End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged Interaction.AppActivate(TextBox1.Text) End Sub

شكرآ اخى اسامه كيف اجعله يضغط المفاتيح عندما يفتح تطبيق معين ولا يضغط فى كل مكان ؟

كود :

#Region "GetWindowText"

Public Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Integer) As Integer

Public Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hwnd As Int32, ByVal lpString As System.Text.StringBuilder, ByVal cch As Int32) As Int32

Public Declare Function GetForegroundWindow Lib "user32.dll" () As Int32

Public Function GetText(ByVal hWnd As IntPtr) As String

Dim length As Integer

If hWnd.ToInt32 <= 0 Then

Return Nothing

End If

length = GetWindowTextLength(hWnd)

If length = 0 Then

Return Nothing

End If

Dim sb As New System.Text.StringBuilder("", length + 1)

GetWindowText(hWnd, sb, sb.Capacity)

Return sb.ToString()

End Function

#End Region

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Dim Window As String = GetText(GetForegroundWindow)

If Window.ToLower.Contains("notepad") Then

SendKeys.Send("afds")

End If

End Sub

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

Timer1.Enabled = CheckBox1.Checked

End Sub

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

محمد

Osama_Ghareeb

محمد

Osama_Ghareeb