脚本录制源代码

  Private Sub FrmRecord_KeyDown()Sub FrmRecord_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        Dim sKey As String = ""
        Dim sPoint As String = GetPointInCursor()
        Me.TopMost = False

        Select Case e.KeyCode
            Case Keys.F
                ProcssF(sPoint)
            Case Keys.W
                txtScript.AppendText("FINDWINDOW=" & GetWindowsNameInCursor() & vbCrLf)
            Case Keys.C
                txtScript.AppendText("CHECK=" & sPoint & vbCrLf)
            Case Keys.U
                txtScript.AppendText("UNCHECK=" & sPoint & vbCrLf)
            Case Keys.S
                Dim s As String = ""
                s = InputBox("请输入要发送的字符串", "SendKeys")
                If s <> "" Then
                    txtScript.AppendText("SENDKEY=" & s & vbCrLf)
                End If
            Case Keys.P
                txtColor.Text = GetColorInCursor.ToString
        End Select
        Me.TopMost = True
    End Sub
    Private Sub ProcssF()Sub ProcssF(ByVal sPoint As String)
        Dim frm As New frmRecodPointNameAndWaitTime
        If frm.ShowDialog = Windows.Forms.DialogResult.OK Then
            txtScript.AppendText(frm.txtPoinName.Text & "=" & sPoint & vbCrLf)
            txtScript.AppendText("WAIT=" & frm.txtWaitTime.Text & vbCrLf)
        End If
    End Sub