看到标题你一定会不屑一顾，枚举质数谁不会？
For i = 1 To 100 For j = 2 To i If i Mod j = 0 Then Exit For Next If j = i Then WScript.Echo i Next
几行代码就能搞定，如此简单。那就看看下面这个程序吧！
Set regex = New RegExp regex.Pattern = "^1?$|^(11+?)\1+$" For i = 1 To 100 If Not regex.Test(String(i,"1")) Then WScript.Echo i End If Next
用正则表达式判断质数，神一样的人物。
参考链接：
今天有人发邮件问我一个问题：
想请教一下VBS中INPUTBOX函数能否超时关闭?
如果可以的话,应该如何超时关闭输入框? 万分感谢
乍一看这是不可能实现的，因为InputBox函数本身没有超时关闭的参数，而且程序会一直等待InputBox返回才继续运行，后面的语句不可能在InputBox返回之前执行。
如果VBS能实现高级语言的多线程的话……只可惜VBS不可能实现多线程，但是可以用setTimeout方法模拟“多线程”。
Dim IE
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate "about:blank"
Set window = IE.Document.parentWindow
id = window.setTimeout(GetRef("on_timeout"),3000,"VBScript")
name = InputBox("Please enter your name","InputBox Timeout")
window.clearTimeout id
If name <> "" Then MsgBox "Hello," & name
IE.Quit
'By Demon
'https://demon.tw
Sub on_timeout()
Dim WshShell
set WshShell = CreateObject("wscript.Shell")
WshShell.SendKeys "{ESC}"
End Sub
用setTimeout方法设定3秒超时，3秒后用SendKeys方法发送ESC键结束InputBox。当然，用SendKeys是很不靠谱的，我一般很少用SendKeys方法，因为它做了太多的假设，万一InputBox不是激活窗口呢？这里只是为了程序简单而用了SendKeys，可以换成结束脚本本身。
同理，想在VBS中实现VB中的Timer事件的话可以用setInterval方法，我就不写例子了，自己看文档。
其实这个问题在以前写《VBS实现PHP的urlencode函数》的时候就碰到了，但是当时没有记下来，造成写前面一篇文章《VBS实现Unicode转UTF-8》的时候重蹈覆辙。还是记录下来吧，免得以后又忘记。
MSDN文档对AscW的说明是：AscW是为使用Unicode字符的32位平台提供的。它返回Unicode（宽型）字符代码，因此可以避免从ANSI到Unicode的代码转换。
按照参考手册的定义，AscW函数应该返回一个字符的Unicode字符编码，但是直接拿返回的结果来用的话会有潜在的BUG，正如我碰到的。
“魔”字的Unicode编码是39764，测试如下代码
c = AscW("魔")
If c > 127 Then
WScript.Echo "Not ASCII"
Else
WScript.Echo "ASCII"
End If
你认为返回的结果是什么？"Not ASCII"？错！返回的结果是"ASCII"。
这就是潜在的BUG，对某些中文（当然还有其他字符）AscW函数返回的值是负数！如果你的代码拿这个值与一个正数比较大小，逻辑值将是False！
为什么呢？因为AscW的返回值的子类型是Integer，而VBS中Integer的取值范围是从-32768到32767。39764 > 32767，造成了溢出，所以返回负数。
怎样才能得到正确的结果呢？答案把子类型是转化成Long，Long的取值范围是-2,147,483,648到2,147,483,647，不会造成溢出。
WScript.Echo CLng("&H" & Hex(AscW("魔")))
先用Hex函数把AscW的返回值转化成十六进制的字符串，加上VBS中十六进制前缀&H，最后用CLng函数把子类型转化成Long。这样就能得到39764这个正确的Unicode编码值了。
有UTF-8转Unicode当然就有Unicode转UTF-8。
'Author: Demon 'Website: https://demon.tw 'Date: 2010/9/28 Function UnicodeToUtf8(str) Dim i, c, length out = "" length = Len(str) For i = 1 To length c = CLng("&H" & Hex(AscW(Mid(str,i,1)))) If (c >= &H0001) And (c <= &H007F) Then out = out & ChrB(c) ElseIf c > &H07FF Then out = out & ChrB(&HE0 Or (c\(2^12) And &H0F)) out = out & ChrB(&H80 Or (c\(2^ 6) And &H3F)) out = out & ChrB(&H80 Or (c\(2^ 0) And &H3F)) Else out = out & ChrB(&HC0 Or (c\(2^ 6) And &H1F)) out = out & ChrB(&H80 Or (c\(2^ 0) And &H3F)) End If Next UnicodeToUtf8 = out End Function
参考链接：UTF-8 – 维基百科，自由的百科全书
本文源于一个VBS群里的一个看起来很牛逼的人给别人的一个UTF-8转Unicode的函数Utf8ToUnicode。代码有60多行，放在了文章后面，以免喧宾夺主~
代码太长了，不知道是他自己写的还是复制粘贴的。我没有仔细看，但是简单测试了一下，貌似是正确的。
当时回了一句“Utf8ToUnicode函数哪需要这么复杂”，谁知他来了句“如果用api的话，当然一个了。”
算了，看在他的代码功能是正确的份上，我就不多说什么了。下面给出我写的自以为比他的简单的Utf8ToUnicode函数。 （更多…）