加密码是很容易的事，一段比较简单的密码检查段就能搞定
(密码是18883.com)：
$kcps="a32198aaacczz18883.comzqqrfdqwernuhugy199523luckey311pzqqr840333fdqwernuhugy199523luckey403" ;设置密码，加了简单混乱法，防工作时源代码被旁观时看到密码，哈哈，再仔细些可以将这行与下行分开些放，让旁观者不能一眼猜到用处
$kcps = StringMid($kcps, 14, 9) ;对上一行混乱代码中提取要的密码段，如你感觉不必要，可以将这两行改成一行：$kcps = 18883.com
$input=InputBox("立正！稍息！", "请回答口令：", "", "*",200,120,-1,-1,10)
if @error=0 Then
If $kcps <> $input Then
MsgBox (32,"真遗憾!!!","想不起来了？",9)
Exit
EndIf
EndIf
if @error=1 Then Exit
if @error=2 Then
MsgBox (32,"真遗憾!!!","回答个口令有这么慢么？",9)
Exit
EndIf
if @error=3 Then
MsgBox (16,"意外错误!!!","口令输入框显示失败！请重试！",9)
Exit
EndIf
觉得还是简单的才是好用的，重新写个：
$kcps = "18883.com"
$input=InputBox("立正！稍息！", "请回答口令：", "", "*",200,120,-1,-1)
if @error=0 Then
If $kcps <> $input Then
MsgBox (32,"真遗憾!!!","想不起来了？",9)
Exit
EndIf
EndIf
再简化一下，重新写个：
$kcps = "18883.com"
$input=InputBox("立正！", "报口令：", "", "*",200,120,-1,-1)
If $kcps <> $input Then Exit
