求一个能批处理测试的程序或解决方案

来源：百度知道 编辑：UC知道 时间：2024/05/13 19:52:39
假如我要注册一个百度用户名，只能用一个字，因为百度注册用户太多，乏是能想到的汉字都被注册了。怎么样才能让我快速把字典里的字(打比方)测试一遍，列出哪些字没有注册过.

如果哪位大侠有空，麻烦设计个程序

在IE地址栏用下面的链接查找没有注册过的汉字太慢了
http://passport.baidu.com/?business&aid=6&un=测#0

::先做个all.txt文件,里面一行写一个中文字,运行下面的东西就可以了.
没有all.txt 就这里下载吧.
http://www.jshongwei.cn/all.txt

@ech off&setlocal enabledelayedexpansion
for /f "delims=" %%i in (all.txt)do (
set all=%%i
call :word1
call :word2
)
start "" "all_ok.txt
:word1
echo On Error Resume next >all.vbs
echo Set oDOM=WScript.GetObject("http://passport.baidu.com/?business^&aid=6^&un=!all!#0")>all.vbs
echo Do Until oDOM.readyState="complete">>all.vbs
echo WScript.sleep 200>>all.vbs
echo Loop>>all.vbs
echo str = Split(oDOM.documentElement.outerText,"注册时间：")>>all.vbs
echo Set oDOM=nothing>>all.vbs
echo txt = Split(str(1),"最后访问时间")>>all.vbs
echo