نیاز داشتن به کدهای استفاده از Ctrl+V و Enter

[ir-security]

سلام خسته نباشید


سوال اول: چطور میتونم توی تایمرم کد پست کردن رو جای بدم؟ مثلا تایمر هر 5ثانیه کد پست کردن رو اجرا کنه درواقع Ctrl فشرده بشه و V نیز فشرده بشه و اتمام عمل.

سوال دوم: کد اینتر کردن چیه؟ بازم مثل بالایی توی تایمر بزاریمش هر 5ثانیه اینتر رو بزنه؟

[isaac23]

در مورد سوال اول به این صورت هستش
If KeyCode = vbKeyV And Shift = 2 Then
Form7.Show
End If






سوال دومت هم

Public Sub Sendkeys(text As Variant, Optional wait As Boolean = False)
Dim WshShell As Object
Set WshShell = CreateObject("wscript.shell")
WshShell.Sendkeys CStr(text), wait
Set WshShell = Nothing
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then MsgBox "تست"

End Sub

Private Sub Timer1_Timer()
Set WshShell = CreateObject("WScript.Shell")
WshShell.Sendkeys "{ENTER}"

End Sub



واسه ویندوز 7 به بالا