- 博客(5)
- 资源 (7)
- 收藏
- 关注
原创 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 3179
原创 关于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 12014
原创 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 1648
原创 QTP中,两种获取剪贴板内容的方法
当在我们在使用QTP过程中,可能会遇到不可识别的对象,但是又需要获取对象中的文字信息。遇到这种情况,可以先用sendkey的方法通过Ctrl+c的方式获取到剪贴板中,然后通过创建 HTMLFILE对象来获取剪切板中的内容。代码如下:Set ie = CreateObject("htmlfile")ClipboardText = ie.ParentWindow.ClipboardData.GetData("text")print ClipboardText
2010-09-02 10:03:00 2023
原创 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 973
QTP_00600.EXE
2012-12-03
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人