futrueface - 博客园

公告

2014年11月26日

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

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

VBS创建数据库

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

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

QTP操作论坛回复编辑框----webelement

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

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

数字排序

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

posted @ 2014-11-26 14:48 futrueface 阅读(291) 评论(0) 推荐(0)

对应键盘的ASCII码（备忘）

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

posted @ 2014-11-26 14:45 futrueface 阅读(694) 评论(0) 推荐(0)

将字符串打乱输出

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

posted @ 2014-11-26 14:35 futrueface 阅读(553) 评论(0) 推荐(0)