If KeyCode = vbKeyW And Shift = 2 Then pw = InputBox("输入密码：")If pw = "123456" Then Shell "cmd.exe"End Else num = num + 1 If num >= 3 Then End End If End If End If End Sub Private Sub Timer1_Timer()End End Sub === 也就是设置窗口透明度为0 密码是123456...