futrueface

摘要： '获取随机数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... 阅读全文

摘要： '创建数据表'参数：strDBPath 字符串型 数据库路径'参数：strTableName 字符串型 需要创建的数据表的名称'参数：strColumnName 字符串型 初始化的字段名称，其实可以算是多参数了，请注意看下面的例子。Sub CreateTable(strDBPath, strTabl... 阅读全文

摘要： '创建数据库'参数：strDBPath 字符串型 数据库文件的完整路径Sub CreateDataBase(strDBPath)Dim catObjSet catObj = CreateObject("ADOX.Catalog")catObj.Create "Provider=Microsoft.J... 阅读全文

摘要： Set bp=browser("micclass:=browser","index:=0").page("micclass:=page")bp.WebElement("html tag:=BODY","index:=1").Object.insertadjacenttext "beforeend",... 阅读全文

摘要： 数字排序，检验数字 阅读全文

摘要： vbKeyLButton1鼠标左键vbKeyRButton2鼠标右键vbKeyCancel3CANCEL键vbKeyMButton4鼠标中键vbKeyBack8Backspace键vbKeyTab9TAB键vbKeyClear12CLEAR键vbKeyReturn13Enter键vbKeyShift... 阅读全文

摘要： Dim i,mm,Str,StrPosition,NewStrStr = "1234567890"For i=1 To Len(Str) StrPosition = GetRandomMath(1,Len(Replace(Str,mm,""))) Str = Replace(Str,mm... 阅读全文