新手问题,请别见笑.怎么实现一直按"~"这个键

Question

同上就是1旁边的那个键 能控制开始结束

Answer 1

Private Sub Command1_Click()
    Dim i As Long
    While 0 = 0
        SendKeys "~"
        DoEvents
        i = i + 1
        If i = 10000 Then Unload Me: End
    Wend
End Sub

Answer 2

Dim ii As Boolean
Private Sub Command1_Click()
    While 0 = 0
        If ii Then
            SendKeys "~"
        End If
        DoEvents
    Wend
End SubPrivate Sub Command2_Click()
    ii = Not ii
End Sub

Answer 3

两位大哥CPU 全是100% 没法用啊

Answer 4

Option Explicit
Dim ii As Boolean
Private Sub Command1_Click()
    ii = Not ii
End SubPrivate Sub Form_Load()
    Timer1.Interval = 10
End SubPrivate Sub Timer1_Timer()
    If ii Then Exit Sub
    SendKeys "~"
End Sub

Answer 5

dongge2000(※秋日私语※：非[版务].灌！) 大哥太不好意思了我没注意对于你的批评我虚心接受,但是我还是没成功.

Answer 6

呵呵，我也很菜，只能抄点API的说明给你了。
--------------
keybd_event VB声明 
Declare Sub keybd_event Lib "user32" Alias "keybd_event" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) 
说明 
这个函数模拟了键盘行动 
参数表 
参数 类型及说明 
bVk Byte，欲模拟的虚拟键码 
bScan Byte，键的OEM扫描码 
dwFlags Long，零；或设为下述两个标志之一 
KEYEVENTF_EXTENDEDKEY 指出是一个扩展键，而且在前面冠以0xE0代码 
KEYEVENTF_KEYUP 模拟松开一个键 
dwExtraInfo Long，通常不用的一个值。api函数GetMessageExtraInfo可取得这个值。允许使用的值取决于特定的驱动程序 
注解 
这个函数支持屏幕捕获（截图）。在win95和nt4.0下这个函数的行为不同 

Answer 7

Private Sub Command1_Click()           '结束
Timer1.Enabled = False
End SubPrivate Sub Command2_Click()           '开始
Timer1.Enabled = True
End SubPrivate Sub Form_Load()
Timer1.Interval = 10
Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
        SendKeys "~"
End Sub
其中：timer1为Timer控件