实验下。。。。

xusw444 · 发表于 2008-8-14 20:20

看下是否能刷钱

xusw444 · 发表于 2008-8-14 20:51

引用第18楼四十四次日落于2008-08-14 20:46发表的“”:
什么东西?

就是那个流氓的东东

四十四次日落 · 发表于 2008-8-14 20:46

什么东西?

xusw444 · 发表于 2008-8-14 20:45

Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "与 AAAA 聊天中"
for i=1 to 35
WScript.Sleep 700
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "与 AAAA 聊天中"
for i=1 to 35
WScript.Sleep 700
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next
5
4

xusw444 · 发表于 2008-8-14 20:45

Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "与 AAAA 聊天中"
for i=1 to 35
WScript.Sleep 700
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s" Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "与 AAAA 聊天中"
for i=1 to 35
WScript.Sleep 700
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next
3
Next
2

xusw444 · 发表于 2008-8-14 20:45

西西，。。。Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "与 AAAA 聊天中"
for i=1 to 35
WScript.Sleep 700
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next
1

xusw444 · 发表于 2008-8-14 20:44

再试下

xusw444 · 发表于 2008-8-14 20:40

引用第10楼goofy于2008-08-14 20:33发表的“”:
完全可以的

实验过了？

荒凉的河岸 · 发表于 2008-8-14 20:35

抓狂中

实验下。。。。

浏览过的版块