新增文字檔 321.vbs, 將下面文字貼上然後執行

----321.vbs---
Set fso = CreateObject("Scripting.FileSystemObject") '敬愛的windows我要文字檔
Set ts = fso.OpenTextFile("c:\123.txt", 2, True) '檔名叫做, 資料覆寫
for i = 1 to 99
tmpstr = tmpstr & _
"[img]http://freeddom/" & _
String(2-len(i),"0") & i & _
".jpg[/ixg]" & vbcrlf
next
ts.WriteLine(tmpstr)
'第6行補0用(1->01), 若是 1~999 , 把2改成3