//前提是光标在输帐号框里面闪动 GG=InputBox("请输入您的帐号!!!"&Vbcrlf&"无内容输入时直接按[确定]或[取消]退出!!!") If StrComp("",GG)=0 Then Goto 结束 End If MM=InputBox("请输入您的密码!!!"&Vbcrlf&"无内容输入时直接按[确定]或[取消]退出!!!") If StrComp("",MM)=0 Then Goto 结束 End If KEY=InputBox("请输入启动按键码! 如:F1~F12键为112~123码;a~z键为65~90码;"&Vbcrlf&"无内容输入时直接按[确定]或[取消]退出!!!") If StrComp("",KEY)=0 Then Goto 结束 End If //转换按键码 KEY=CInt(KEY) Rem ID Delay 100 K=WaitKey() //122为F11键(只要在你的脚本加入按F11键就可以) If K=KEY Then //GG为帐号 SayString GG Delay 500 KeyPress 9 ,1 Delay 200 //MM为密码 SayString MM Delay 500 KeyPress 13, 1 End If Goto ID Rem 结束 EndScript