看下下面VBS代码
来源:百度知道 编辑:UC知道 时间:2024/08/20 18:42:06
on error goto 0
dim ws,str,title,val,time
set ws=wscript.createobject("wscript.shell")
title=inputbox("请输入要攻击的好友昵称:","QQ攻击器")
if title="" then
wscript.Quit
end if
If ws.appactivate("与 " & title & " 交谈中")<>True Then
MsgBox "请确认目标窗口已经打开然后再运行本脚本"
WScript.Quit
end if
str=inputbox("请输入要发送的内容:","QQ攻击器","hello")
if str="" then
wscript.quit
end if
time=int(inputbox("请输入发送的间隔时间(单位秒):","QQ攻击器","1"))*1000
val=msgbox("确定是否要发送?(关闭目标窗口自己关闭该脚本)",4)
select case val
case 6
do
result=ws.appactivate("与 " & title & " 交谈中") or ws.appactivate(title & " - 正在输入")
If result<>True Then
WScript.Quit
end if
wscript.sleep time
ws.sendkeys str & "{ENTER}"
l
dim ws,str,title,val,time
set ws=wscript.createobject("wscript.shell")
title=inputbox("请输入要攻击的好友昵称:","QQ攻击器")
if title="" then
wscript.Quit
end if
If ws.appactivate("与 " & title & " 交谈中")<>True Then
MsgBox "请确认目标窗口已经打开然后再运行本脚本"
WScript.Quit
end if
str=inputbox("请输入要发送的内容:","QQ攻击器","hello")
if str="" then
wscript.quit
end if
time=int(inputbox("请输入发送的间隔时间(单位秒):","QQ攻击器","1"))*1000
val=msgbox("确定是否要发送?(关闭目标窗口自己关闭该脚本)",4)
select case val
case 6
do
result=ws.appactivate("与 " & title & " 交谈中") or ws.appactivate(title & " - 正在输入")
If result<>True Then
WScript.Quit
end if
wscript.sleep time
ws.sendkeys str & "{ENTER}"
l
MsgBox(prompt[, buttons] [, title] [, helpfile, context])
MsgBox函数中第二个参数Buttons: VbYesNo 4 显示“是”和“否”按钮.
msgbox("确定是否要发送?(关闭目标窗口自己关闭该脚本)",4) :
显示一个内容是:"确定是否要发送?(关闭目标窗口自己关闭该脚本)",
并且具有“是”和“否”按钮的 弹出窗口.
它的返回值:
如果选择"是",返回值是 6
如果选择"否",返回值是 7
哈,这个代码好像是我写的。呵呵。
http://hi.baidu.com/breakan/blog/item/734264094268b584d1581bbc.html
defaultred 说的对。
建议你看看msgbox函数的帮助。
可以在这里下载〈windows脚本技术〉
http://www.gougou.com/search?search=windows%E8%84%9A%E6%9C%AC%E6%8A%80%E6%9C%AF&id=1