回复 1# cs453761196
VBS版的- option explicit
- Randomize
- dim str1, str2, str3, count1, count2, aa, bb, class1, class2
- function func1()
- str1 = "34567"
- str2 = "abcdefghijklmnopqrstuvwxyz1234567890"
- count1 = right(rnd, 1) mod 5 + 1
- count2 = right(rnd, 2) mod 36 + 1
- end function
-
- function func2()
- func1
- for aa = 1 to mid(str1, count1, 1) step 1
- str3 = str3&mid(str2, count2, 1)
- func1
- next
- end function
-
- set class1 = createobject("scripting.filesystemobject")
- set class2 = class1.getfolder("E:\123")
- for each bb in class2.files
- func2
- if bb.type = "TheWorldURL" then
- bb.name = str3&".html"
- end if
- str3=""
- next
复制代码
|