futrueface

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

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

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

摘要： '类似msgbox'定时停留弹出框函数Sub Print(text,timeout,title) Dim WshShell Set WshShell = CreateObject("WScript.Shell") WshShell.Popup text,timeout,title Set W... 阅读全文

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

摘要： 1. 关闭端口的方法netsh firewall set portopening TCP 端口号 DISABLE2 .查询端口 netstat -a 查询全部端口3. 查找是什么程序占用了端口的方法在windows命令行窗口下执行：运行--cmdC:\>netstat -aon|findstr "8... 阅读全文

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

摘要： Set glht= Browser("管理后台").Page("管理后台")Set Mydescription = description.Create()Mydescription("html tag").Value = "INPUT"Mydescription("type").Value = "... 阅读全文

摘要： '为已经创建好的数据表添加字段'参数：strDBPath 字符串型 数据库路径'参数：strTableName 字符串型 需要创建的数据表的名称'参数：strColumnName 字符串型 需要添加的字段名称'参数：strColumnType 字符串型 需要添加的字段数据类型Sub AddColum... 阅读全文