用记事本编写脚本程序,按以下步骤操作打开记事本将以下代码输入:on error resume nextset ws = createobject("wscript.shell")intmessage = msgbox("欢迎使用老匹夫刷屏器,请按照指示操作!点击“是”以开始刷屏设置,点击“否”以退出",vbyesno,"老匹夫刷屏器")if intmessage = vbyes then dim a dim c a = inputbox("请输入您要刷屏的次数(非负整数)。请注意调整消息发送方式为“Enter”键发送,否则会无法使用。","老匹夫刷屏器") c = inputbox("请输入刷屏内容(中文请打开输入法并在拼音后加“1”),请不要什么都不输,否则会导致系统崩溃,并在点击确认后迅速将光标点在消息输入框上,否则可能出现未知错误!","老匹夫刷屏器") a = int(a) b = 0 wscript.sleep 1000 do while b < a wscript.sleep 200 ws.sendkeys (c) wscript.sleep 200 ws.sendkeys "~" b = b + 1 loop wscript.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 wscript.sleep 1000 do while n < m wscript.sleep 200 ws.sendkeys (o) wscript.sleep 200 ws.sendkeys "~" n = n + 1 loop wscript.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 wscript.sleep 1000 do while y < x wscript.sleep 200 ws.sendkeys (z) wscript.sleep 200 ws.sendkeys "~" y = y + 1 loop wscript.sleep 200 intmessage = msgbox("已经刷完了"&x&"次数,点击“是”以开始再次刷屏设置,点击“否”以退出",vbYesNo,"老匹夫刷屏器") if intmessage = vbyes then msgbox"你够了,再刷遭雷劈!" else msgbox"感谢使用!" end if else msgbox"感谢使用!" end if else msgbox"感谢使用!" end ifelse msgbox"感谢使用!"end if3.保存为vbs文件4.打开文件,按说明刷屏