نوشتن متن مورد نظر مثل فشار دادن کلید کی بورد

[vahid_d_0101]

سلام
میخواستم یه متن را با وی بی بنویسم جوری که مثلا وقتی برنامه Word بازه توی اون متن مورد نظر منو بنویسه
مهم نیست چه برنامه ایی بازه فقط میخوام مثلا هر بار که دوبار کلیک شد ( حالا هر جا که بود و داخل هر برنامه ایی ) متن مورد نظر من نوشته بشه

[Fery666]

سلام دوست عزیز .
نمیدونم این کد بدرد می خوره یا نه ، با این کد هرجایی که قابل تایپ کردن باشه با زدن دکمه وسط موس متن مورد نظرتون تایپ میشه .




Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Timer1_Timer()
If GetAsyncKeyState(4) <> 0 Then
SendKeys "Helo", 1
End If
End Sub