自己以前写的QTP的脚本（autoitx技术-third party)

自己写的一些代码（练习各组件，控件，or 第三方技术的）

 

一：autoitx技术：

       （没有深入研究，只是对其control类有个从头到尾的 方法 &属性的用法 写了自己的想法例子）

'***********************************************************************
'autoItx的各种函数与属性的用法

'***********************************************************************
'一.函数AutoItSetOption的用法4
'此函数主要是对参数进行设置的
   '设置属性1: CaretCoordMode
     '设置caret函数用到的坐标类型有0,1,2三个值,具体参考autoitx的帮助文档
     '关联内容:函数caret
    
  
  
' if oAutoIt.AutoItSetOption("CaretCoordMode",2) then
'   print "ok"
' else
'   print "not ok"
' End if
    '设置属性2:ExpandEnvStrings
'   oAutoIt.AutoItSetOption "ExpandEnvStrings",1
'   print "the temp directory is : %temp%"
'  

'二:函数,BlockInput用法,主要是对如果需要在某个过程中阻止用户输入的话,这个函数是很不错的 选择

'oAutoIt.BlockInput(1)
'oAutoIt.Run("notepad.exe")
'oAutoIt.WinWaitActive("[CLASS:Notepad]")
''以下操作是往记事本中添加当前时间
'
'oAutoIt.Send("{F5}")
'OautoIt.Send(vbcrlf &"LIJING")
'wait 5
'oAutoIt.BlockInput(0)

 
 '分析第二个函数很实用,经验证是可以的用
 
'三:函数: CDTray
'此函数的目的是 弹出或者关闭光驱
'用法如下:[将J光驱盘弹出,open状态表示弹出,closed状态表示关闭

 'oautoit.CDTray "J:","open"
 

'如果在测试中需要对光驱盘的状态进行操作,这个函数 是非常好的选择.

'四:函数,ClipGet
'从字面上也能看的出来,是获取我们的剪切板内容,此函数就是返回剪切板内容.
' a=oautoit.ClipGet
'  print a
' 
 '很不错的一个函数
 
 '五:函数,ClipPUt,从字面上也能看出此函数是写内容到剪切板上
 'oautoit.ClipPut("jason,加油!")
 
 '经验证很不错的函数之一
 
 '六:函数,ControlClick,这个是我们经常要用到的函数.
 '用途就是,向指定控件发送鼠标点击命令
' 函数的参数如下:
' ControlClick("标题","文本",控件ID[,按钮[,点击次数[,X坐标,[,Y坐标]]]])
'函数的参数有很多也都很实用,其中"点击次数"参数是默认为1次 即单击,我们也可以手动更改到2次 那就是双击了.

'试一下官方给出的例子的写法:

'打开windows产品版本界面
'oautoit.Run "winver.exe"
''等到版本界面加载出现,获取窗口句柄
'HWND=oautoit.WinWaitActive("[REGEXPTITLE:.+Windows;REGEXPCLASS:#\d+]","")
'MSGBOX 32,HWND,"系统关于窗口出现了..."
'oautoit.ControlClick "关于 Windows","确定","Button1"
'
' 'oautoit.ControlClick

'七:函数,ControlCommand
'用途向指定控件发送命令
'实例来说明用法:
'oautoit.Run "notepad.exe"
'oautoit.WinWaitActive "[CLASS:Notepad]",""
'oautoit.ControlCommand "[CLASS:Notepad]","","Edit1",_
'"EditPaste","放点文本进去"
'

'八:函数,ControlDisable
'用途:禁用或使某控件变成灰色不可用状态
'controlDisable("窗口标题","窗口文本",控件ID)
'oautoit.Run "winver.exe"
'oautoit.WinWaitActive "关于 Windows",""
'oautoit.ControlDisable "关于 Windows","","Button1"

'以上的函数对于排除某些控件的干扰很有用处.

'九:函数:ControlEnable
'用途:激活某控件很有用处(从字面意思)
'oautoit.Run "winver.exe"
'oautoit.WinWaitActive "关于 Windows",""
'oautoit.ControlDisable "关于 Windows","","Button1"
'wait 5
'oautoit.ControlEnable "关于 Windows","","Button1"

'十:函数:ControlFocus
'用途:设置输入焦点到指定窗口的某个控件上
'自己写了一个简单的标准窗口来进行测试此函数:
'如下:
' oautoit.Run "C:\\Documents and Settings\\jason\\桌面\\ForTest.exe"
' oautoit.WinWaitActive "Form1",""
' oautoit.ControlFocus "Form1","","ThunderRT6TextBox1"
'
'wait 3
'
'以上例子验证成功.此函数对于自动化输入值的时候,可以手动定义光标的先后顺序

'十一:函数:ControlGetFocus
'用途:返回指定窗口上键盘焦点所在的控件的类别名
'oautoit.Run "notepad.exe"
'oautoit.WinWait("[CLASS:Notepad]")
'sControl=oautoit.ControlGetFocus ("[CLASS:Notepad]")
'
'print sControl

'十二:函数:ControlGetHandle
'用途:获取指定控件的内部句柄

'oautoit.Run "C:\\Documents and Settings\\jason\\桌面\\ForTest.exe"
'oautoit.WinWaitActive "Form1",""
'
'sHandle=oautoit.ControlGetHandle ("Form1","OK","T