تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تعديل هذا الكود
#1
ما الخطاء فى هذا الكود
كود :
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
الرد }}}}
تم الشكر بواسطة:
#2
كود :
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
الرد }}}}
تم الشكر بواسطة:
#3
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
شكرآ اخى اسامه كيف اجعله يضغط المفاتيح عندما يفتح تطبيق معين ولا يضغط فى كل مكان ؟
الرد }}}}
تم الشكر بواسطة:
#4
كود :
#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
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Exclamation [VB.NET] تعديل على الكود mervandzz 2 24 منذ 4 ساعة مضت
آخر رد: mervandzz
Thumbs Up كيفية تشغيل وإغلاق الادوات الذكية لويندوز 7 عن طريق الكود رمضان محمد 7 914 منذ 6 ساعة مضت
آخر رد: رمضان محمد
  تعديل كود عدم اضافة اكترمن 0 فى التكست بوكس نبيل فتحى 5 121 18-10-17, 09:49 PM
آخر رد: سعود
  اريد تعديل ع المشروع فقط + تحميل المشروع بالكامل e-coder 4 117 17-10-17, 12:09 AM
آخر رد: e-coder
  [VB.NET] اخر تعديل بالكلاس محمد اسماعيل 1 43 14-10-17, 09:41 PM
آخر رد: محمد اسماعيل
  [VB.NET] اريد تعديل ع هذا الكود الرجاء مساعدتـي e-coder 0 40 13-10-17, 06:39 PM
آخر رد: e-coder
  [VB.NET] مطلوب التعديل علي الكود التالي محمد اسماعيل 2 65 11-10-17, 01:08 PM
آخر رد: محمد اسماعيل
  [VB.NET] التعديل على الكود - رقم التسلسلي dubai.eig 4 132 08-10-17, 11:30 PM
آخر رد: dubai.eig
  استشارة في الكود hikmat 1 58 28-09-17, 01:33 AM
آخر رد: wale90
  مساعدة في الكود hikmat 0 42 27-09-17, 10:08 AM
آخر رد: hikmat

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم