VBS自动填随机用户名

zinet

我用vbs命令打开一个www.xxxx.com网页，并自动按TAB键到了填用户名的文本框，如图
请问能用vbs命令随机生成10位英文+数字的用户名，并自动填入
密码为固定的密码：12345678     ，
我初写的代码如下：
set ws=createobject("wscript.shell")
ws.run "www.xxxxx.com"  
Set WshShell=createobject("wscript.shell")
wscript.sleep 1000
WshShell.SendKeys"{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}"
..............................................................................................
自动填随机用户名请高人帮忙
..............................................................................................
WshShell.SendKeys"{TAB}"
WshShell.sendkeys "12345678"


请有心人把以上的代码加予完善，谢谢!!!!!!!

rat

不会是要恶意注册吧，呵呵~

1. set ws=createobject("wscript.shell")
   
2. ws.run "www.xxxxx.com"  
   
3. Set WshShell=createobject("wscript.shell")
   
4. wscript.sleep 1000
   
5. WshShell.SendKeys"{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}"
   
6. 
   
7. WshShell.SendKeys GetRandomStr()
   
8. 
   
9. WshShell.SendKeys"{TAB}"
   
10. WshShell.sendkeys "12345678"
    
11. 
    
12. 
    
13. 
    
14. 
    
15. Function GetRandomStr()
    
16.         Dim sList, iHigh, i, sResult
    
17.         sList = "0123456789abcdefghijklmnopqrstuvwxyz"
    
18.         Randomize
    
19.         iHigh = 10
    
20.         For i = 1 To iHigh
    
21.                 sResult = sResult & Mid(sList, Int(36 * Rnd() + 1) , 1)
    
22.         Next
    
23.         GetRandomStr = sResult
    
24. End Function

复制代码

[ 本帖最后由 rat 于 2008-10-20 16:46 编辑 ]