刷屏图片

用记事本编写脚本程序，按以下步骤操作
打开记事本
将以下代码输入：
onerrorresumenext
setws=createobject("wscript.shell")
intmessage=msgbox("欢迎使用老匹夫刷屏器，请按照指示操作！点击“是”以开始刷屏设置，点击“否”以退出",vbyesno,"老匹夫刷屏器")
ifintmessage=vbyesthen
dima
dimc
a=inputbox("请输入您要刷屏的次数（非负整数）。请注意调整消息发送方式为“Enter”键发送，否则会无法使用。","老匹夫刷屏器")
c=inputbox("请输入刷屏内容（中文请打开输入法并在拼音后加“1”），请不要什么都不输，否则会导致系统崩溃，并在点击确认后迅速将光标点在消息输入框上，否则可能出现未知错误！","老匹夫刷屏器")
a=int(a)
b=0
wscript.sleep1000
dowhilebwscript.sleep200
ws.sendkeys(c)
wscript.sleep200
ws.sendkeys"~"
b=b+1
loop
wscript.sleep200
intmessage=msgbox("已经刷完了"&a&"次，点击“是”以再次刷屏设置，点击“否”以退出",vbYesNo,"老匹夫刷屏器")
ifintmessage=vbyesthen
dimm
dimo
m=inputbox("请输入您要刷屏的次数（非负整数）。请注意调整消息发送方式为“Enter”键发送，否则会无法使用。","老匹夫刷屏器")
o=inputbox("请输入刷屏内容（中文请打开输入法并在拼音后加“1”），否则会导致系统崩溃，并在点击确认后迅速将光标点在消息输入框上，否则可能出现未知错误！","老匹夫刷屏器")
m=int(m)
n=0
wscript.sleep1000
dowhilenwscript.sleep200
ws.sendkeys(o)
wscript.sleep200
ws.sendkeys"~"
n=n+1
loop
wscript.sleep200
intmessage=msgbox("已经刷完了"&m&"次,点击“是”以开始再次刷屏设置，点击“否”以退出",vbYesNo,"老匹夫刷屏器")
ifintmessage=vbyesthen
dimx
dimz
x=inputbox("请输入您要刷屏的次数（非负整数）。请注意调整消息发送方式为“Enter”键发送，否则会无法使用。","老匹夫刷屏器")
z=inputbox("请输入刷屏内容，（中文请打开输入法并在拼音后加“1”）请不要什么都不输，否则会导致系统崩溃，并在点击确认后迅速将光标点在消息输入框上，否则可能出现未知错误！","老匹夫刷屏器")
x=int(x)
y=0
wscript.sleep1000
dowhileywscript.sleep200
ws.sendkeys(z)
wscript.sleep200
ws.sendkeys"~"
y=y+1
loop
wscript.sleep200
intmessage=msgbox("已经刷完了"&x&"次数,点击“是”以开始再次刷屏设置，点击“否”以退出",vbYesNo,"老匹夫刷屏器")
ifintmessage=vbyesthen
msgbox"你够了，再刷遭雷劈！"
else
msgbox"感谢使用！"
endif
else
msgbox"感谢使用！"
endif
else
msgbox"感谢使用！"
endif
else
msgbox"感谢使用！"
endif
3.保存为vbs文件

4.打开文件，按说明刷屏