关闭

这是 qq整人代码 VB

1168人阅读 评论(0) 收藏 举报
On Error Resume Next
 Dim wsh,ye 
 set wsh=createobject("wscript.shell")
 for i=1 to 10 wscript.sleep 700 
 wsh.AppActivate("与 xx 聊天中")
wsh.sendKeys "^v"
 wsh.sendKeys i wsh.sendKeys "%s"
 next 

wscript.quit


写入记事本,

改文件后缀.vbs

“与 xx 聊天中”改为qq好友昵称

愉快再见!!!!

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:20324次
    • 积分:923
    • 等级:
    • 排名:千里之外
    • 原创:74篇
    • 转载:12篇
    • 译文:0篇
    • 评论:5条
    最新评论