自己用vb2008写一个就行了。

免得有病毒--- Option Strict Off Option Explicit On Friend Class Form1 Inherits System.Windows.Forms.Form Dim a As String Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long) Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles ***.Click Timer1.Enabled = True End Sub Private Sub Command2_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles ***.Click Timer1.Enabled = False End Sub Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load Timer1.Enabled = False TextBox1.Text = " " End Sub Private Sub Combo1_KeyDown(ByRef KeyCode As Short, ByRef Shift As Short) On Error GoTo a If KeyCode = CDbl("F10") Then Me.Visible = False Timer1.Enabled = True End If If KeyCode = CDbl("F4") Then Me.Visible = True Me.Visible = True Me.Visible = True Me.Visible = True Timer1.Enabled = False a: End If End Sub Private Sub Timer1_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Timer1.Tick Me.Visible = False a = TextBox1.Text SendKeys.Send(a) SendKeys.Send("{ENTER}") End Sub End Class 至于关掉它。

只好用任务管理器强关了。