VBS自动填随机用户名

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 GetRandomStr()

WshShell.SendKeys"{TAB}"
WshShell.sendkeys "12345678"




Function GetRandomStr()
        Dim sList, iHigh, i, sResult
        sList = "0123456789abcdefghijklmnopqrstuvwxyz"
        Randomize
        iHigh = 10
        For i = 1 To iHigh
                sResult = sResult & Mid(sList, Int(36 * Rnd() + 1) , 1)
        Next
        GetRandomStr = sResult
End Function
复制代码