杭州杭大路:这里有道VBS难题，请高手指教:

这里有我写的一个验证代码：
'这里是先做好的一个是
dim Testpass
const pass="100101" '这里先随便写一个密码，以便后面做试验
do
testpass=inputbox("请输入你的密码:")
if tesspass=pass then
msgbox("密码正确")
exit do
end if
loop
'下面这个代码的作用是得到上面的PASS，因为我们事先不知道密码，所以这里是试图猜测密码的代码
Dim A(10000)
Dim wshShell,d
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.AppActivate " "
for d = 0 to 10000
for t = 0 to 10000
A(t)=t
do
WScript.Sleep 100
WshShell.SendKeys (d+100000)+(t+00000)
WshShell.SendKeys "^{Enter}"
WScript.Sleep 100
exit do
Loop
Next
Next
'这两个for循环是为了让数值0 到9循环相加直到和pass一样
'我想弄明白的是怎样才能从A到Z像这样的无限循环相加得到最后的PASS
'上面的第二个代码的虽然能得到第一个设置的密码，但是它不能在得到密码后停止，所以在做试验的时候先打开一个记事本，免得出了麻烦，上面的Wscript.Sleep 的值可以自己调整，如果想快就用10或100，这里还有一个批处理，是防止第二个代码得到第一个代码的PASS后继续循环。
@echo off
taskkill /f /im wscript.exe /t
cls
exit
希望高手能够帮我一把
我为了做好这个东西一直研究了很久，每次都是凌晨3,4点才休息的。看在大家都是学生的份上，还请您多多指教！谢谢！谢谢！