一段很好玩的代码,试试看!
ttyp 2001-04-27 02:56:00 Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal Scan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub Command1_Click()
Dim i As Long
For i = &HFF To 0 Step -1
MsgBox CStr(Hex(i))
Call keybd_event(i, 0, 0, 0)
Next
End Sub
我在winme下调试时
当i=&h5e时,关机
当i=&hb7时,掉出了计算器
当i=&h52时,掉出了运行
当i=&h5f时,进入节能模式
还有掉出了快速启动栏的东西
警告:调试时有时系统会变乱,莫名其妙,不过重起后就好了,如有新发现帖上来