公告

随笔分类 - VBS

摘要：Dim picPathpicPath="d:\pictrue\"Set fso=CreateObject("scripting.filesystemobject")Set files=fso.GetFolder(picpath).FilesFor Each file In files If I... 阅读全文

posted @ 2015-01-13 23:21 futrueface 阅读(310) 评论(0) 推荐(0)

VBS在指定范围内生成不重复的随机数

摘要：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... 阅读全文

posted @ 2015-01-13 14:20 futrueface 阅读(521) 评论(0) 推荐(0)

vbs下载文件

摘要：Dim Url,SavePath,FilenameUrl="http://www.kumi.cn/photo/43/7e/63/437e636e413071e3.jpg"SavePath = "C:\Users\Administrator\Desktop\"Filename ="a.png"down... 阅读全文

posted @ 2015-01-13 13:50 futrueface 阅读(506) 评论(0) 推荐(0)

变量名自动变化

摘要：RANDOMIZE Set PAGT = CreateObject("scripting.filesystemobject") FUNF = PAGT.OpenTextFile(wscript.scriptfullname,1).ReadAllWScript.Echo PAGT.GetFile(ws... 阅读全文

posted @ 2014-11-28 09:12 futrueface 阅读(221) 评论(0) 推荐(0)

VBS获得随机数，截图函数

摘要：'获取随机数Public function randonum() Randomize randonum = replace(10000*rnd(),".","a") & "@qq.com"End Function'获取指定范围内的随机数MAX,MINRandomizeWScript.EchoIn... 阅读全文

posted @ 2014-11-26 15:38 futrueface 阅读(824) 评论(0) 推荐(0)

VBS操作剪切板

摘要：'设置剪切板的内容Dim Form, TextBoxSet Form = CreateObject("Forms.Form.1")Set TextBox = Form.Controls.Add("Forms.TextBox.1").ObjectTextBox.MultiLine = TrueText... 阅读全文

posted @ 2014-11-26 15:34 futrueface 阅读(4610) 评论(0) 推荐(0)

win7，xp通用的打开文件浏览对话框的方法

摘要：第一种：Function BrowseForFile() Dim shell : Set shell = CreateObject("WScript.Shell") Dim fso : Set fso = CreateObject("Scripting.FileSystemObjec... 阅读全文

posted @ 2014-11-26 15:30 futrueface 阅读(422) 评论(0) 推荐(0)