vb制作网站自动留言

来源：百度知道 编辑：UC知道 时间：2024/06/14 16:05:13
vb制作网站自动留言 留言地址:http://www.1disk.cn/ly_input.aspx?username=czwwzc
vb制作网站自动留言代码 留言地址:http://www.1disk.cn/ly_input.aspx?username=czwwzc

这个用VBS脚本语言写的跟方便，代码如下，将其复制到记事本，另存为***.vbs就可以了，我用的是世界之窗浏览器，你的不是需要改一下，点击右键编辑就可以，打开要留言的网页，将任务栏的名称输到引号里就行，运行时先打开要留言的网页，不要最大化，再双击运行
Set objShell = CreateObject("Wscript.Shell")
set WshShell = CreateObject("WScript.Shell")
WshShell.AppActivate "输入留言 - 世界之窗"
WshShell.SendKeys "{TAB}" '模拟按下 tab 键切换焦点
WScript.Sleep 100 '延时0.3秒
WshShell.SendKeys "{TAB}" '模拟按下tab 键切换焦点
WScript.Sleep 100
WshShell.SendKeys "d" '模拟按下d
WScript.Sleep 100
WshShell.SendKeys "e" '模拟按下e
WScript.Sleep 100
WshShell.SendKeys "a" '模拟按a
WScript.Sleep 100
WshShell.SendKeys "r" '模拟按r
WScript.Sleep 100
WshShell.SendKeys "{TAB}" '模拟按下tab 键切换焦点
WScript.Sleep 100
WshShell.SendKeys "h" '模拟按下h
WScript.Sleep 100
WshShell.SendKeys &quo