vb.net整人程序，无限弹窗对话框，附VBSscript函数用法

无限对话框

do
msgbox"error"
loop

无限弹窗

do
start cmd
loop

QQ及微信的刷屏，详见 史上最牛逼、最方便的刷屏程序（QQ和其它）

On Error Resume Next
Dim xda,ye
set xda=createobject("wscript.shell")
for i =1 to 100
wscript.sleep 100
xda.AppActivate
xda.sendKeys "^v"
xda.sendKeys "^{enter}"
next
wscript.quit

无限报数

Set s = CreateObject("sapi.spvoice") 
i=0 
do 
s.speak i i=i+1 
loop

VBSscript函数

Date/Time函数

CDate 把有效的日期和时间表达式转换为日期（Date）类型。
Date 返回当前的系统日期。
DateAdd 返回已添加指定时间间隔的日期。
DateDiff 返回两个日期之间的时间间隔数。
DatePart 返回给定日期的指定部分。
DateSerial 返回指定年、月、日的日期。
DateValue 返回日期。
Day 返回代表一月中的一天的数字（介于并包括 1 到 31 之间）。
FormatDateTime 返回格式化为日期或时间的表达式。
Hour 返回代表一天中的小时的数字（介于并包括 0 到 23 之间）。
IsDate 返回指示计算表达式能否转换为日期的布尔值。
Minute 返回一个数字，代表小时的分钟（介于并包括 0 到 59 之间）。
Month 返回一个数字，代表年的月份（介于并包括 1 到 12 之间）。
MonthName 返回指定月份的名称。
Now 返回当前的系统日期和时间。
Second 返回一个数字，代表分钟的秒（介于并包括 0 到 59 之间）。
Time 返回当前的系统时间。
Timer 返回自 12:00 AM 以来的秒数。
TimeSerial 返回特定小时、分钟和秒的时间。
TimeValue 返回时间。
Weekday 返回一个数字，代表一周的天数（介于并包括 1 到 7 之间）。
WeekdayName 返回一周中指定的一天的星期名。
Year 返回一个数字，代表年份。

Conversion函数

Asc 把字符串中的首字母转换为 ANSI 字符代码。
CBool 把表达式转换为布尔（Boolean）类型。
CByte 把表达式转换为字节（Byte）类型。
CCur 把表达式转换为货币（Currency）类型。
CDate 把有效的日期和时间表达式转换为日期（Date）类型。
CDbl 把表达式转换为双精度（Double）类型。
Chr 把指定的 ANSI 字符代码转换为字符。
CInt 把表达式转换为整数（Integer）类型。
CLng 把表达式转换为长整型（Long）类型。
CSng 把表达式转换为单精度（Single）类型。
CStr 把表达式转换为字符串（String）类型。
Hex 返回指定数字的十六进制值。
Oct 返回指定数字的八进制值。

Format函数

FormatCurrency 返回作为货币值进行格式化的表达式。
FormatDateTime 返回作为日期或时间进行格式化的表达式。
FormatNumber 返回作为数字进行格式化的表达式。
FormatPercent 返回作为百分数进行格式化的表达式。

Math函数

Abs 返回指定数字的绝对值。
Atn 返回指定数字的反正切。
Cos 返回指定数字（角度）的余弦。
Exp 返回e（自然对数的底）的幂次方。
Hex 返回指定数字的十六进制值。
Int 返回指定数字的整数部分。
Fix 返回指定数字的整数部分。
Log 返回指定数字的自然对数。
Oct 返回指定数字的八进制值。
Rnd 返回小于1但大于或等于0的一个随机数。
Sgn 返回可指示指定数字的符号的一个整数。
Sin 返回指定数字（角度）的正弦。
Sqr 返回指定数字的平方根。
Tan 返回指定数字（角度）的正切。

Array函数

Array 返回一个包含数组的变量。
Filter 返回下标从零开始的数组，其中包含基于特定过滤条件的字符串数组的子集。
IsArray 返回一个指示指定的变量是否为数组的布尔值。
Join 返回一个由数组中若干子字符串组成的字符串。
LBound 返回指示数组维数的最小下标。
Split 返回下标从零开始的一维数组，包含指定数量的子字符串。
UBound 返回指示数组维数的最大下标。

String函数

InStr 返回字符串在另一字符串中首次出现的位置。搜索从字符串的第一个字符开始。
InStrRev 返回字符串在另一字符串中首次出现的位置。搜索从字符串的最末字符开始。
LCase 把指定字符串转换为小写。
Left 从字符串的左侧返回指定数量的字符。
Len 返回字符串中的字符数量。
LTrim 删除字符串左侧的空格。
RTrim 删除字符串右侧的空格。
Trim 删除字符串左侧和右侧的空格。
Mid 从字符串中返回指定数量的字符。
Replace 使用另一个字符串替换字符串的指定部分指定的次数。
Right 从字符串的右侧返回指定数量的字符。
Space 返回由指定数量的空格组成的字符串。
StrComp 比较两个字符串，返回代表比较结果的一个值。
String 返回包含指定长度的重复字符的字符串。
StrReverse 反转字符串。
UCase 把指定的字符串转换为大写。

其他函数

CreateObject 创建指定类型的对象。
Eval 计算表达式，并返回结果。
GetLocale 返回当前的 locale ID。
GetObject 返回对文件中 automation 对象的引用。
GetRef 允许您把 VBScript 子程序连接到页面上的一个 DHTML 事件。
InputBox 显示对话框，用户可在其中输入文本，并/或点击按钮，然后返回内容。
IsEmpty 返回一个布尔值，指示指定的变量是否已被初始化。
IsNull 返回一个布尔值，指示指定的表达式是否包含无效数据（Null）。
IsNumeric 返回一个布尔值，指示指定的表达式是否可作为数字来计算。
IsObject 返回一个布尔值，指示指定的表达式是否是一个 automation 对象。
LoadPicture 返回一个图片对象。仅用于 32 位平台。
MsgBox 显示消息框，等待用户点击按钮，并返回指示用户点击了哪个按钮的值。
RGB 返回一个表示 RGB 颜色值的数字。
Round 对数字进行四舍五入。
ScriptEngine 返回使用中的脚本语言。
ScriptEngineBuildVersion 返回使用中的脚本引擎的内部版本号。
ScriptEngineMajorVersion 返回使用中的脚本引擎的主版本号。
ScriptEngineMinorVersion 返回使用中的脚本引擎的次版本号。
SetLocale 设置 locale ID，并返回之前的 locale ID。
TypeName 返回指定变量的子类型。
VarType 返回指示变量子类型的值。