中级光能
on error resume next
set ws = createobject("w**.shell")
intmessage = msgbox("欢迎使用崔安昊刷屏器，请按照指示操作！点击“是”以开始刷屏设置，点击“否”以退出",vbyesno,"崔安昊刷屏器")
if intmessage = vbyes then
dim a
dim c
a = inputbox("请输入您要刷屏的次数（非负整数）。请注意调整消息发送方式为“Enter”键发送，否则会无法使用。","崔安昊刷屏器")
c = inputbox("请输入刷屏内容（中文请打开输入法并在拼音后加“1”），请不要什么都不输，否则会导致**崩溃，并在点击确认后迅速将光标点在消息输入框上，否则可能出现未知错误！","崔安昊刷屏器")
a = int(a)
b = 0
w**.sleep 1000
do while b < a
w**.sleep 200
ws.sendkeys (c)
w**.sleep 200
ws.sendkeys "~"
b = b + 1
loop
w**.sleep 200
intmessage = msgbox("已经刷完了"&a&"次，点击“是”以再次刷屏设置，点击“否”以退出",vbYesNo,"崔安昊刷屏器")
if intmessage = vbyes then
dim m
dim o
m = inputbox("请输入您要刷屏的次数（非负整数）。请注意调整消息发送方式为“Enter”键发送，否则会无法使用。","崔安昊刷屏器")
o = inputbox("请输入刷屏内容（中文请打开输入法并在拼音后加“1”），否则会导致**崩溃，并在点击确认后迅速将光标点在消息输入框上，否则可能出现未知错误！","崔安昊刷屏器")
m = int(m)
n = 0
w**.sleep 1000
do while n < m
w**.sleep 200
ws.sendkeys (o)
w**.sleep 200
ws.sendkeys "~"
n = n + 1
loop
w**.sleep 200
intmessage = msgbox("已经刷完了"&m&"次,点击“是”以开始再次刷屏设置，点击“否”以退出",vbYesNo,"崔安昊刷屏器")
if intmessage = vbyes then
dim x
dim z
x = inputbox("请输入您要刷屏的次数（非负整数）。请注意调整消息发送方式为“Enter”键发送，否则会无法使用。","崔安昊刷屏器")
z = inputbox("请输入刷屏内容，（中文请打开输入法并在拼音后加“1”）请不要什么都不输，否则会导致**崩溃，并在点击确认后迅速将光标点在消息输入框上，否则可能出现未知错误！","崔安昊刷屏器")
x = int(x)
y = 0
w**.sleep 1000
do while y < x
w**.sleep 200
ws.sendkeys (z)
w**.sleep 200
ws.sendkeys "~"
y = y + 1
loop
w**.sleep 200
intmessage = msgbox("已经刷完了"&x&"次数,点击“是”以开始再次刷屏设置，点击“否”以退出",vbYesNo,"崔安昊刷屏器")
if intmessage = vbyes then
msgbox"拜拜！"
else
msgbox"拜拜！"
end if
else
msgbox"拜拜！"
end if
else
msgbox"拜拜！"
end if
else
msgbox"拜拜！"
end if
