领取每日经验包.rar (8.46 KB)

Public ct As New Collection

程序代码：

Private Enum KeyEvent
    EXTENDEDKEY = &H1
    KeyUp = &H2
    KeyDown = 0
End Enum

 
'
' 函数功能：该函数合成一次击键事件。系统可使用这种合成的击键事件来产生WM_KEYUP或WM_KEYDOWN消息，
' 键盘驱动程序的中断处理程序调用keybd_event函数。在Windows NT中该函数己被使用Sendlhput来替代它。
'
'
'参数:
'
'    bVk：定义一个虚据拟键码。键码值必须在1～254之间。
'
'bScan:    定义该键的硬件扫描码?
'
'dwFlags:    定义函数操作的名个方面的一个标志位集?应用程序可使用如下一些预定义常数的组合设置标志位?
'
'  KEYEVENTF_EXETENDEDKEY：若指定该值，则扫描码前一个值为OXEO（224）的前缀字节。DEYEVENTF_KEYUP：
'  若指定该值，该键将被释放；若未指定该值，该键交被接下。dwExtralnfo：定义与击键相关的附加的32位值。
'
'返回值:     该函数无返回值?
'
'    备注：尽管keybd_event传递一个与OEM相关的硬件扫描码给系统，但应用程序不能用此扫描码。
'系统在内部将扫描码转换成虚拟键码，并且在传送给应用程序前清除键码的UP/down位。应用程序可以摸拟
'PRINTSCREEN键的按下来获得一个屏幕快照，并把它存放到剪切板中。若要做到这一点，
'则要将keybd_event的bVk参数置为VK_SNAPSHOT,bScan参数置为0（用以获得全屏快照）或hScan置为1
'（仅获得活动窗口的快照）。Windows CE：WindowsCE支持dwFlags参数附加的标志位。
'即使用KEYEVENTF_SILENT标志模拟击键，而不产生敲击的声音。Windows CE不支持KEYEVENTF_EXTENDEDKEY标志。
'
Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, _
                                                    ByVal bScan As Byte, _
                                                    ByVal dwFlags As Long, _
                                                    ByVal dwExtraInfo As Long)
'函数功能：延时
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

'函数功能：该函数检取指定虚拟键的状态。该状态指定此键是UP状态，DOWN状态，
'还是被触发的（开关每次按下此键时进行切换）。
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

Private Const VK_F1 = &H70

Dim stopRun As Boolean

程序代码：

Private Sub Key_Event(ByVal bVk As Byte, _
                       ByVal bScan As Byte, _
                       ByVal dwFlags As KeyEvent, _
                       ByVal dwExtraInfo As Long)
    Call keybd_event(bVk, bscn, dwFlags, dwExtraInfo)
End Sub

程序代码：

Private Sub Form_Activate()
    Call Key_Event(VK_F1, 0, KeyDown, 0)
    Call Key_Event(VK_F1, 0, KeyUp, 0)
    Call Runs
End Sub

程序代码：

Private Sub Form_Load()
    stopRun = False
     'a-z
    For i = 65 To 90
        ct.Add i, Chr$(i + 32)
        
    Next

    '0-9
    For i = 48 To 57
        ct.Add i, Chr$(i)
    Next
    
End Sub

程序代码：

Private Sub Runs()
    Sleep (100)
    Dim i As Integer
    i = 1
    While i < Len(Text1.Text) And stopRun = False
    
        While Asc(Mid(Text1.Text, i, 1)) <> 13 And stopRun = False
            Call Key_Event(CInt(ct(Mid(Text1.Text, i, 1))), 0, KeyDown, 0)
            Sleep (10)
            Call Key_Event(CInt(ct(Mid(Text1.Text, i, 1))), 0, KeyUp, 0)
            i = i + 1
            Sleep (10)
            DoEvents
        Wend
        If Check1.Value = 1 Then
            PressTab (4)
        Else
            PressTab (2)
        End If
        PressEnter
        Sleep (5000)
        PressEnter
        Sleep (3000)
        i = i + 2
        PressTab (28)
        DoEvents
    Wend
    DoEvents
    Call Runs
End Sub

程序代码：

'模拟按Tab键
Private Sub PressTab(ByVal i As Integer)
    For j = 1 To i
        Call Key_Event(vbKeyTab, 0, KeyDown, 0)
        Call Key_Event(vbKeyTab, 0, KeyUp, 0)
        Sleep (10)
    Next
End Sub

程序代码：

'模拟按Enter键
Private Sub PressEnter()
    Call Key_Event(vbKeyReturn, 0, KeyDown, 0)
    Call Key_Event(vbKeyReturn, 0, KeyUp, 0)
End Sub

程序代码：

'检测是否按下了F1键
Private Sub Timer1_Timer()
    If GetKeyState(VK_F1) = 1 Then
        stopRun = False
    Else
        stopRun = True
    End If
End Sub