VBS发送窗口信息代码

来源：百度知道 编辑：UC知道 时间：2024/06/06 23:29:41
谁能给我写个泡泡堂刷屏的代码,,在安键精灵能运行的
记得阿是泡泡堂........或者用其他方式写都行,
问题补充：只要能自动发送指定文字就行没其他的要求.
1楼阿.能不能修改成不要提示什么多少秒什么的还有要刷的什么内容.内容在脚本里面去改就行了?麻烦你修改下行吗.

如果你觉得改代码更方便，当然可以了
a=你要刷的内容
j=每次刷多少行
t=没隔多久刷一次

======================================================================
a="我要刷屏!"
j=20
t=10

set ws=createobject("Wscript.shell")
set ie=createobject("internetexplorer.application")
ie.visible=false

wscript.sleep 200

for i=1 to j
b=b&i&"."&a&vbcrlf
next

ie.navigate "about:blank"

msgbox "按确定开始发送"

do
c=k&b
ie.document.parentwindow.clipboarddata.setdata "text", c
ws.sendkeys "^v"+"{enter}"
k=k+1
wscript.sleep t*1000
loop
======================================================================

经过实际测试，满足要求
代码如下

======================================================================
set ws=createobject("Wscript.shell")
set ie=createobj