汶海洳

QQ自动登录自动发信息.vbs
自动登录QQdim program1 program1="C:\Program Files\Tencen...
扫描右侧二维码阅读全文
26
2007/08

QQ自动登录自动发信息.vbs

自动登录QQ

dim program1
program1="C:\Program Files\Tencent\QQ\QQ.exe"
set wshshell=CreateObject("wscript.shell")
set oexec=wshshell.exec(program1)
wscript.sleep 3000
wshshell.appactivate "腾讯QQ"
wshshell.sendkeys "{TAB}"
wshshell.sendkeys "QQ号"
wscript.sleep 2000
wshshell.sendkeys "{TAB}"
wshshell.sendkeys "QQ密码"
wscript.sleep 2000
wshshell.sendkeys "{ENTER}"
Wscript.quit

自动发信息

Set WshShell= WScript.Createobject("WScript.Shell")
for i=1 to 100     
WScript.Sleep 1000
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
next
Last modification:March 4th, 2019 at 02:42 pm
If you think my article is useful to you, please feel free to appreciate

Leave a Comment