『楼 主』:
[原创]VBS 登陆QQ。
使用 LLM 解释/回答一下
On Error Resume Next
QQLogin = "C:\Progra~1\QQ2009\Bin\QQ.exe"
Set WshShell = Wscript.CreateObject("Wscript.Shell")
Dim QQNumber,QQPW
QQNumber = Inputbox("请输入QQ号码:","登陆QQ")
QQPW = Inputbox("请输入QQ密码", "登陆QQ")
If QQNumber = "" Or QQPW = "" Then
Msgbox "搞什么?QQ号码或密码不能为空啊,快检查下吧。", "16","通知"
Wscript.Quit
End If
MsgBox "你要登陆的QQ是:" &QQNumber,"32","通知"
Wscript.Sleep 2000
WshShell.Run QQLogin
Wscript.Sleep 2000
WshShell.Sendkeys "+{Tab}"
Wscript.Sleep 1000
WshShell.Sendkeys QQNumber
WshShell.Sendkeys "{Tab}"
Wscript.Sleep 1000
WshShell.Sendkeys QQPW
Wscript.Sleep 1000
Status = Inputbox ("请选择状态:1.我在线上,2.Q我吧,3.离开,4.忙碌,5.请勿打扰,6,隐身","状态选择")
Select Case Status
Case "1"
WshShell.Sendkeys "{Tab}"
WshShell.Sendkeys "{Enter}"
Wscript.Sleep 1000
WshShell.Sendkeys "{DOWN}"
WshShell.Sendkeys "{Enter}"
WshShell.Sendkeys "{Tab}"
WshShell.Sendkeys "{Enter}"
Case "2"
WshShell.Sendkeys "{Tab}"
WshShell.Sendkeys "{Enter}"
WshShell.Sendkeys "{DOWN}"
Wscript.Sleep 1000
WshShell.Sendkeys "{DOWN}"
Wscript.Sleep 1000
WshShell.Sendkeys "{Enter}"
WshShell.Sendkeys "{Tab}"
WshShell.Sendkeys "{Enter}"
Case "3"
WshShell.Sendkeys "{Tab}"
WshShell.Sendkeys "{Enter}"
WshShell.Sendkeys "{DOWN}"
Wscript.Sleep 1000
WshShell.Sendkeys "{DOWN}"
Wscript.Sleep 1000
WshShell.Sendkeys "{DOWN}"
Wscript.Sleep 1000
WshShell.Sendkeys "{Enter}"
WshShell.Sendkeys "{Tab}"
WshShell.Sendkeys "{Enter}"
Case "4"
WshShell.Sendkeys "{Tab}"
WshShell.Sendkeys "{Enter}"
WshShell.Sendkeys "{UP}"
Wscript.Sleep 1000
WshShell.Sendkeys "{UP}"
Wscript.Sleep 1000
WshShell.Sendkeys "{UP}"
Wscript.Sleep 1000
WshShell.Sendkeys "{Enter}"
WshShell.Sendkeys "{Tab}"
WshShell.Sendkeys "{Enter}"
Case "5"
WshShell.Sendkeys "{Tab}"
WshShell.Sendkeys "{Enter}"
WshShell.Sendkeys "{UP}"
Wscript.Sleep 1000
WshShell.Sendkeys "{UP}"
Wscript.Sleep 1000
WshShell.Sendkeys "{Enter}"
WshShell.Sendkeys "{Tab}"
WshShell.Sendkeys "{Enter}"
Case "6"
WshShell.Sendkeys "{Tab}"
WshShell.Sendkeys "{Enter}"
WshShell.Sendkeys "{UP}"
Wscript.Sleep 1000
WshShell.Sendkeys "{Enter}"
WshShell.Sendkeys "{Tab}"
WshShell.Sendkeys "{Enter}"
Case Else
Msgbox "笨蛋,出错啦!你忘了选择状态。重新来过吧。。","16","请选择状态。"
WshShell.Run "cmd.exe /c taskkill /f /im qq.exe /t",VBhide
End Select
PS: 闭来没事,学习学习VBS脚本,呵呵。。可以完美的地方高手请不吝赐教。谢谢。。
运行时请把QQLogin路径改成自己的。
|