batman

代码修改如下：

function randomchar(tlen)
        dim tmp,i,j
        for j=1 to tlen                step 1
                'i=randomnumber.value(1,3)        'QTP的用法，不适用于vbs
                Randomize
                i=int((3*rnd) +1)
                '1-大写字母，2-数字，3-小写字母
                
                select case i
                        Case 1
                                Randomize
                                tmp=int(26*rnd)
                                tmp=tmp+97
                        case 2
                                Randomize
                                tmp=int(10*rnd)
                                tmp=tmp+48
                        case 3
                                Randomize
                                tmp=int(26*rnd)
                                tmp=tmp+65
                        case else
                                msgbox("function:randomchar(tlen) is wrong!")
                end select
                vbstr=vbstr&chr(tmp)
        Next
end Function

Dim fso,myfile,i
Set fso=CreateObject("scripting.filesystemobject")
Set myfile=fso.CreateTextFile("C:\Documents and Settings\Administrator\Desktop\123.txt",True,True)
i=0
Do
vbstr = ""
randomchar(14)
myfile.WriteLine(vbstr)
i=i+1
If i>1200 Then Exit Do 
Loop Until i>1000
复制代码

batman

要不然就在dim tmp,i,j下面加上randomchar = ""来清空变量