微微一笑很倾城 发表于 2020-7-23 21:37

微信还钱神器vbs

你是不是有欠钱不还的朋友，今天我分享一个然朋友秒还钱的vbs代码。代码如下：
On Error Resume Next
Dim wsh,ye
set wsh=createobject("wscript.shell")
for i=1 to 10
wscript.sleep 700
wsh.AppActivate("与某某聊天中")
wsh.sendKeys "^v"
wsh.sendKeys i
wsh.sendKeys "%s"
next
wscript.quit
把上面的10和某某改一下，再把文件后缀改成vbs即可（10代表发的消息数，某某代表你要发给谁）。{:7_150:}

大牛12138 发表于 2020-7-23 21:59

谢谢大佬

q52448219 发表于 2020-7-23 22:06

谢谢分享

小百年 发表于 2020-7-23 22:19

感谢楼主分享

wcao0927 发表于 2020-7-23 22:29

谢谢大牛

夜空中最亮的星 发表于 2020-7-23 22:35

6666666666

lj98 发表于 2020-7-23 22:37

好的，非常感谢

taoism 发表于 2020-7-23 23:34

6666

KidultSama 发表于 2020-7-24 03:34

发送过去是代码啊 咋回事 我没改10 就改了名称 拿 文件传输助手 试了试 确实发了 但是发过去全是上面代码 而且点一下 发一次

中先生 发表于 2020-7-24 09:05

谢谢分享
页: [1]
查看完整版本: 微信还钱神器vbs