脚本重放部分代码

Public Class CScriptClass CScript
    Public Event ScriptEvent(ByVal Name As String)

    '省略部分....
    '主要功能部分
Public Sub Replay()Sub Replay(ByVal sScript As String())
    For Each sKeyValue As String In sScript
        Dim sKey As String = ""
        Dim sValue As String = ""
       
        sKey = getKey(sKeyValue)
        sValue = GetSValue(sKeyValue)
        If VB.Left(sKey, 1) <> "'" Or VB.Left(sKey, 1) = "-" Then ' "'-"表示注解行跳行
            Select Case UCase(sKey)
                Case "WAIT"
                   
                    If IsNumeric(sValue) Then
                        mySleep(CLng(sValue))
                    End If
                   
                Case "SENDKEY"
                    MySendKey(sValue)
                   
                Case ""
                    '跳过此行
                Case "CHECK"
                    CheckCheckBox(sValue)
                Case "UNCHECK"
                    UnCheckCheckBox(sValue)
                Case "FINDWINDOW"
                    myFindWindow(sValue)
                Case "DCLICK"
                    myMouseDClick()
                Case "DATENUMBER"
                    DateNumber(sValue)
                Case "DELFILE"
                    If sValue <> "" Then
                        If My.Computer.FileSystem.FileExists(sValue) Then
                            My.Computer.FileSystem.DeleteFile(sValue)
                        End If
                    End If
                Case "EVENT"
                    RaiseEvent ScriptEvent(sValue)
                Case Else
                    MyMouseMoveAndClick(sValue)
            End Select
        End If
    Next
End Sub

End Class