QTP调用脚本的问题

htot05

大家都知道QTP可以调用VBScript执行脚本,但是QTP帮助里也有不少关于JavaScript的函数和方法,请问QTP中可不可以调用写好的JavaScript帮助脚本的执行呢?sdlkfj2

xiaonan

呵呵,你可以自己去研究一下,然后把结果和大家一起分享一下啊.那么你得到了提高,也能受益给别人了

htot05

嗯,我上次尝试了一下,由于时间比较紧,没有什么成果,就是一顿报错,回头再试试吧,呵呵,问题提出来了,大家都可以来探讨一下自己的研究成果嘛~~!

htot05

研究以后发现,还是不行,现在正在试着用VC写的dll文件代替脚本,仍在测试中......

风过无息

最简单就是用QC调用。

htot05

我们公司没有QC,只能自己写脚本实验......sdlkfj7

htot05

昨天研究的那些VB-API的函数,已经可以使用一些方法了,但是还是不是完全理解调用过程,以及传递参数,希望有此类经验的战友们能够进来参与讨论一下~~!
谢谢~!

kevin_swpi

LZ能分享一下你的代码这些资源不
学习一下 呵呵

htot05

我自己写的dll无非就是做个加法,减法输出一下,呵呵,主要是我对VC++不熟悉,拿不出手~sdlkfj5
所以昨天实验了一些VB的API函数,用的都是系统中的DLL文件,比如:Kernel32.dll,user32.dll,GDI32.dll等等,然后调用里面的一些函数实现一些功能,函数我没有多少,现在发一些我有的给大家分享一下吧~!

FindFirstFile

Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
说明:
根据文件名查找文件
返回值:
Long，如执行成功，返回一个搜索句柄。如果出错，返回一个INVALID_HANDLE_VALUE常数，一旦不再需要，应该用FindClose函数关闭这个句柄
参数 类型及说明:
lpFileName String，欲搜索的文件名。可包含通配符，并可包含一个路径或相对路径名
lpFindFileData WIN32_FIND_DATA，这个结构用于装载与找到的文件有关的信息。该结构可用于后续的搜索
注解
由这个函数返回的句柄可以作为一个参数用于FindNextFile函数。这样一来，就可以方便的枚举出与lpFileName参数指定的文件名相符的所有文件

htot05

FindWindow

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
说明:
寻找窗口列表中第一个符合指定条件的顶级窗口（在vb里使用：FindWindow最常见的一个用途是获得ThunderRTMain类的隐藏窗口的句柄；该类是所有运行中vb执行程序的一部分。获得句柄后，可用api函数GetWindowText取得这个窗口的名称；该名也是应用程序的标题）
返回值:
Long，找到窗口的句柄。如未找到相符窗口，则返回零。会设置GetLastError
参数 类型及说明:
lpClassName String，指向包含了窗口类名的空中止（C语言）字串的指针；或设为零，表示接收任何类
lpWindowName String，指向包含了窗口文本（或标签）的空中止（C语言）字串的指针；或设为零，表示接收任何窗口标题
注解
很少要求同时按类与窗口名搜索。为向自己不准备参数传递一个零，最简便的办法是传递vbNullString常数

htot05

SetActiveWindow

Declare Function SetActiveWindow Lib "user32" Alias "SetActiveWindow" (ByVal hwnd As Long) As Long
说明:
激活指定的窗口
返回值:
Long，前一个活动窗口的句柄
参数 类型及说明:
hwnd Long，待激活窗口的句柄
注解
在vb里使用这个函数要小心，它不会改变输入焦点，所以焦点可能设向一个不活动窗口，最好换用SetFocusAPI函数来激活窗口。如指定的窗口不从属于当前输入线程，则没有任何效果

htot05

SetWindowText

Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
说明:
设置窗口的标题文字或控件的内容（在vb里使用：针对vb窗体，应使用caption或text属性）
返回值:
Long，非零表示成功，零表示失败。会设置GetLastError
参数 类型及说明:
hwnd Long，要设置文字的窗口的句柄
lpString String，要设到hwnd窗口中的文字

htot05

ExitProcess

Declare Sub ExitProcess Lib "kernel32" Alias "ExitProcess" (ByVal uExitCode As Long)
说明:
中止一个进程
参数 类型及说明:
uExitCode Long，指定想中断的那个进程的一个退出代码

htot05

GetProcessTimes

Declare Function GetProcessTimes Lib "kernel32" Alias "GetProcessTimes" (ByVal hProcess As Long, lpCreationTime As FILETIME, lpExitTime As FILETIME, lpKernelTime As FILETIME, lpUserTime As FILETIME) As Long

说明:
  获取与一个进程的经过时间有关的信息
返回值:
Long，非零表示成功，零表示失败。会设置GetLastError
参数 类型及说明:
hProcess Long，一个进程句柄
lpCreationTime FILETIME，指定一个FILETIME结构，在其中装载进程的创建时间
lpExitTime FILETIME，指定一个FILETIME结构，在其中装载进程的中止时间
lpKernelTime FILETIME，指定一个FILETIME结构，在其中装载进程花在内核模式上的总时间
lpUserTime FILETIME，指定一个FILETIME结构，在其中装载进程花在用户模式上的总时间
适用平台
Windows NT

htot05

LoadModule

Declare Function LoadModule Lib "kernel32" Alias "LoadModule" (ByVal lpModuleName As String, lpParameterBlock As Any) As Long
说明:
  载入一个windows应用程序，并在指定的环境中运行
返回值:
Long，大于32表示成功，请参考FindExecutable函数的返回值
参数 类型及说明:
lpModuleName Sring，要装载的可执行程序的文件名
lpParameterBlock Any，指定一个结构，用它定义装载新应用程序时使用的参数

htot05

资料不全,正在研究中,希望越来越多的人参与进来,发表自己问题和经验,谢谢~~~!
sdlkfj6

walker1020

非常感谢  htot05 提供了这些有用的资料！辛苦了， htot05 ！

suifengpiao

不懂vb，谢谢楼主提供这么多资料，好好研究一下

Coffey111111

htot05 提供了这些有用的资料，为什么我在VB脚本的教程中没有呢？这些具体是能在什么地方会用到的啊？  能否给个提示，我自己也好好研究sdlkfj5

wssgily

VB的API,在用QTP的extern declare......这个命令时会用到!