摘要：
Dim picPathpicPath="d:\pictrue\"Set fso=CreateObject("scripting.filesystemobject")Set files=fso.GetFolder(picpath).FilesFor Each file In files If I... 阅读全文
|
摘要：
Dim picPathpicPath="d:\pictrue\"Set fso=CreateObject("scripting.filesystemobject")Set files=fso.GetFolder(picpath).FilesFor Each file In files If I... 阅读全文
摘要：
Dim Z()ReDim Z(15)For i=0 To UBound(Z) Z(i)=GetRndNum(i-1,UBound(Z)) WScript.Echo Z(i)NextFunction GetRndNum(n,length) Randomize x=CInt(le... 阅读全文
摘要：
Dim Url,SavePath,FilenameUrl="http://www.kumi.cn/photo/43/7e/63/437e636e413071e3.jpg"SavePath = "C:\Users\Administrator\Desktop\"Filename ="a.png"down... 阅读全文
|