- 博客(5)
- 资源 (7)
- 收藏
- 关注
RSS订阅原创 QTP创建WScript.Shell对象执行DOS命令行并获取返回值
Dim wShell, execSet wShell = CreateObject( "WScript.Shell" )Set exec = wShell.Exec ("ipconfig /all") print exec.StdOut.ReadAll print exec.StdErr.ReadAllwait(5)
2010-09-07 16:57:00
3156
原创 关于Shell.Application对象的一些简单尝试
<br />Set shellapp = CreateObject("Shell.Application")<br /> <br />'获取所有桌面的窗口：<br />Set oWindows = shellapp.Windows<br /> <br />'执行文件：<br />shellapp.ShellExecute("ipconfig.exe","/all") <br />shellapp.ShellExecute("notepad.exe")<br /> <br />'创建子文件夹：<br />
2010-09-07 15:00:00
11834
原创 QTP关闭除了ALM/QC以外的所有IE窗口
1:function Close_IE_Except_ALMSet obj = CreateObject("Shell.Application")Set obj1 = obj.WindowsFor Each objIE in obj1 If objIE.name = "Windows Internet Explorer" Then If Not Instr(Ucas
2010-09-07 13:52:00
1635
原创 QTP中，两种获取剪贴板内容的方法
当在我们在使用QTP过程中，可能会遇到不可识别的对象，但是又需要获取对象中的文字信息。遇到这种情况，可以先用sendkey的方法通过Ctrl+c的方式获取到剪贴板中，然后通过创建 HTMLFILE对象来获取剪切板中的内容。代码如下：Set ie = CreateObject("htmlfile")ClipboardText = ie.ParentWindow.ClipboardData.GetData("text")print ClipboardText
2010-09-02 10:03:00
1997
原创 QTP,以数据库的形式访问Excel
<br />通常，我们与Excel的交互，是通过创建Excel对象的方式：<br />Set ExcelApp = CreateObject("Excel.Application") <br /> <br />但是在需要处理格式规范、数据量大的数据表的时候，不妨采取数据库的操作方式，使得操作更高效、灵活。<br />把Excel表格的第一行作为字段名，其余行作为数据项。<br /> <br />范例代码：<br />'创建连接字符串<br />Function ConnetString(FilePath)<
2010-09-01 10:25:00
937
QTP_00600.EXE
2012-12-03
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人