自己以前写的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","ThunderRT6CommandButton1")
'print sHandle

'十三:函数:ControlGetPosHeight
'用途:获取指定控件相对其窗口的坐标位置和大小等信息

'声明一个数组用来存放控件的位置参数信息
'Dim arrPos(3)
'
'
'oautoit.Run "C:\\Documents and Settings\\jason\\桌面\\ForTest.exe"
'oautoit.WinWaitActive "Form1",""
'
' 'arrPos(0)=oautoit.ControlGetPosHeight ("Form1","OK","ThunderRT6CommandButton1")
'  arrPos(0)=oautoit.ControlGetPosHeight ("Form1","OK","ThunderRT6CommandButton1")
'  arrPos(1)=oautoit.ControlGetPosWidth ("Form1","OK","ThunderRT6CommandButton1")
'  arrPos(2)=oautoit.ControlGetPosX ("Form1","OK","ThunderRT6CommandButton1")
'  arrPos(3)=oautoit.ControlGetPosY ("Form1","OK","ThunderRT6CommandButton1")
'
'print arrPos(0)
'
'print arrPos(1)
'
'print arrPos(2)
'
'print arrPos(3)

'十四:函数,ControlGetText
'用途,用于获取指定控件上的文本信息
'oautoit.Run "C:\\Documents and Settings\\jason\\桌面\\ForTest.exe"
'oautoit.WinWaitActive "Form1",""
'sText=oautoit.ControlGetText ("Form1","","ThunderRT6CommandButton1")
'print sText

'十四:函数,ControlHide
'用途:用于隐藏指定控件
'oautoit.Run "C:\\Documents and Settings\\jason\\桌面\\ForTest.exe"
'oautoit.WinWaitActive "Form1",""
'oautoit.ControlHide "Form1","","ThunderRT6CommandButton1"

'经验证,成功应用.

'十五:函数,ControlListView
'用途:向指定的ListView32控件发送命令
'用的不多 省略过了.

'十六;函数,ControlMove
'用途,在窗口内移动控件
'oautoit.Run "C:\\Documents and Settings\\jason\\桌面\\ForTest.exe"
'oautoit.WinWaitActive "Form1",""
'oautoit.ControlMove "Form1","","ThunderRT6CommandButton1",200,100
'
'wait 3

'十七:函数,ControlSend
'用途:向指定的控件发送字符串
'oautoit.Run "C:\\Documents and Settings\\jason\\桌面\\ForTest.exe"
'oautoit.WinWaitActive "Form1",""
'
''向控件中输入字符串"lijing"
'oautoit.ControlSend "Form1","","ThunderRT6TextBox2","lijing"

'十八:函数,ControlSetText
'用途:修改指定控件的文本
'oautoit.Run "C:\\Documents and Settings\\jason\\桌面\\ForTest.exe"
'oautoit.WinWaitActive "Form1",""
'oautoit.ControlSetText "Form1","","ThunderRT6TextBox2","Edit1"
'函数经验证OK

'十九:函数,ControlShow
'用途:显示已经隐藏的控件
'oautoit.Run "C:\\Documents and Settings\\jason\\桌面\\ForTest.exe"
'oautoit.WinWaitActive "Form1",""
'wait 3
'oautoit.ControlHide "Form1","","ThunderRT6CommandButton1"
'wait 3
'oautoit.ControlShow "Form1","","ThunderRT6CommandButton1"

'二十:函数ControlTreeView
'测试框架时,可能会用到
'用途:发送一个命令道TreeView32控件.
'oautoit.ControlTreeView

 

 

'根据公司自己的桌面系统来系统的用autoitx3技术来做一把

'打开要测试的程序(AUT)
'定义测试程序的执行文件的路径
'Dim arrLogin '存储登录相关的数据
'Dim prog_path  '存储程序所在的路径
'
'Set lijing1=createobject("Lijing.operator")
'arrLogin=lijing1.QTP_ReadExcel("C:\Documents and Settings\jason\桌面\易关通自动化配置.xlsx","login")
'
'prog_path=lijing1.QTP_ReadExcel("C:\Documents and Settings\jason\桌面\易关通自动化配置.xlsx","prog_path")
'
''由于识别的问题,将路径转换一下(如下)
'prog_path_true=prog_path(2,1)
'
''print prog_path
''run start
'oautoit.Run prog_path_true
'' wait for the window sync
'oautoit.WinWaitActive "用户登录",""
'wait 1
''first clear "username" editbox
'oautoit.ControlSetText "用户登录","","WindowsForms10.EDIT.app.0.378734a2",""
''type string "zhichao" to username editbox
'oautoit.ControlSend "用户登录","","WindowsForms10.EDIT.app.0.378734a2",arrLogin(2,1)
'wait 1
''type string "zhichao" to password editbox
'oautoit.ControlSend "用户登录","","WindowsForms10.EDIT.app.0.378734a1",arrLogin(2,2)
'wait 1
''click "登录" button
'oautoit.ControlClick "用户登录","登录","WindowsForms10.BUTTON.app.0.378734a3"
'
'
''"请选择公司及账册"
''wait window sync
'oautoit.WinWaitActive "请选择公司及帐册",""
'wait 1
'oautoit.ControlClick "请选择公司及帐册","gridControl1","WindowsForms10.Window.8.app.0.378734a2","",2,17,43
''等待下一个窗口的出现即可[系统首页]出现了.
'
'oautoit.WinWaitActive "易关通2008标准版 - [首页]",""
'
''点击[报关业务]左侧边栏
'oautoit.ControlClick "易关通2008标准版 - [首页]","","WindowsForms10.Window.8.app.0.378734a6","",1,61,321
'
''此时空白显示区域显示出此模块下的 业务清单: 有进口报关清单,出口报关清单,进口报关单等等.
''双击其中一个进去做一个单据
'oautoit.ControlClick "易关通2008标准版 - [首页]","","WindowsForms10.Window.8.app.0.378734a6","",2,54,36
'
''点击[新增]按钮 做一条新数据
'oautoit.ControlClick "易关通2008标准版 - [首页]","","WindowsForms10.Window.8.app.0.378734a16","",1,40,15
'
' 
''之后点击公司账册信息进入相应的账册平台
'
'
''以上是一个简单的根据公司实际的项目 简单功能的测试.

'二十一:函数 DriveMapAdd
'Dim a

'a=oautoit.DriveMapAdd ("Y:","\\10.35.2.58\共享文件",0,"jason","jy1314")
'
'print a
'此函数的用途:添加映射网络驱动器.或者(网络驱动盘)
'如上面的代码的目的是 添加Y 网络驱动盘

'二十二: 函数:DriveMapGet
'用途:获取已映射网络驱动盘的路径.

'a=oautoit.DriveMapGet ("X:")

'经检验 成功运行
'二十三: 函数:DriveMapDel
'用途:
'a=oautoit.DriveMapDel ("Y:")
'print a

'二十四: 函数:IniDelete
'从某标准配置文件(*.ini)中删除某个数值.
'这个函数可能用的不是很多

'oautoit.IniDelete "d:\myfile.ini","section2"

'二十五:函数: IsAdmin
'用途:检查当前用户是否有管理员权限.
'用法如下:

'If oautoit.IsAdmin() Then
' msgbox "本程序拥有管理员权限"
'End If
''oautoit.IsAdmin

'二十六: 函数:MouseClickDrag
'用途:进行鼠标拖拽操作
'oautoit.MouseClickDrag "right",0,200,600,700

'oautoit.MouseClickDrag
'主要是鼠标的拖拽操作,测试成功

'二十七:函数:MouseClick
'Dim b :dim c
'b=oautoit.MouseGetPosX
'c=oautoit.MouseGetPosY
'oautoit.Run "C:\Documents and Settings\jason\桌面\ForTest.exe"
'oautoit.WinWaitActive "Form1",""
'oautoit.MouseClick "left",b,c,1
'注:用这种方法来进行精确的鼠标操作还是不靠谱的 因为他对于控件的操作是基于绝对坐标系来进行识别(底层识别的)
'最好还是用我们的controlclick方法 (*^__^*) 嘻嘻……

'二十八:函数 :MouseDown
'用途: 在当前位置产生一个鼠标向下(按键)的事件

'oautoit.MouseDown "right"
'wait 2
'个人感觉此函数没多少意义

'二十九:函数: MouseGetCursor
'返回当前鼠标指针光标的ID
'Dim a
'a=oautoit.MouseGetCursor()
'Select Case a
' Case 5
' print "选定文本"
' Case else
' print "非选定文本"
'End Select
'Set oautoit = nothing

'三十:函数:MouseGetPosX
'返回当前鼠标的X坐标
'Dim a:dim b
'
'a=oautoit.MouseGetPosX()
'b=oautoit.MouseGetPosY()
'print a:print b
'

'三十一:函数
'oautoit.Init()
'

'三十二:函数
'用途:往.ini配置文件中写入内容
'oautoit.IniWrite "d:\myfile.ini", "设置", "坏人人数", "12345"

'三十三:函数 MouseMove
'移动鼠标指针
'oautoit.MouseMove 200,200

'三十四:函数:
'用途:在当前位置产生一个鼠标释放(按键)事件.

 'oautoit.MouseUp()

'三十五:函数:
'产生向上或向下滚动鼠标滚轮的事件,仅支持NT/2000/XP等更高

'oautoit.MouseWheel "up"

'三十六:函数:
'oautoit.Opt
'用途:对于autoit的各种函数与参数的运行方式进行调整

'三十七:函数
'生成某区域像素的校验和
'Dim a
'a=oautoit.PixelChecksum(0,0,50,50)
'print a

'三十八:函数
'Dim a
'a=oautoit.PixelGetColor(20,20)
'print a

'三十九:函数
'Dim a
'a=oautoit.PixelSearch(0,0,200,300,0xFF0000)
'print a(0) :print "||" :print a(1)

'Dim coord
'coord=oautoit.PixelSearch 0,0,20,300,0xFF00
'If NOT ERR <> 0  Then
' MSGBOX "X AND Y are:" & coord(0) & "||" & coord(1)
'End If
'此函数用到极少

'四十:函数:ProcessClose
'用途: 终止某个进程
'注:此函数很有用处的. 可能会在测试中常用
'比如我们做个例子,我们关闭进程 "iexplore.exe",就是关闭所有的IE窗口,只是IE浏览器,可能360等其他浏览器没有作用

'a=oautoit.ProcessClose ("iexplore.exe")
'print a

'四十一:函数 :ProcessExists
'函数用途:检查指定进程是否存在,如果存在就返回 进程的PID,如果失败返回0
'Dim a
'a=oautoit.ProcessExists("iexplore.exe")
'print a

'四十二:函数:ProcessSetPriority
'设置进程的优先级

'oautoit.ProcessSetPriority "iexplore.exe",3

'四十三 :函数:
'用途:此函数有点意思,七意思是: 暂停脚本的执行直至给定进程的出现为止

'oautoit.ProcessWait "notepad.exe",10

'四十四:函数:ProcessWaitClose
'用途:和上面函数相反:暂停脚本的执行直到进程不再存在为止

'oautoit.ProcessWaitClose "notepad.exe",10

'四十五:函数
'用途:删除指定的注册表键值(其实是删除注册表项)

'oautoit.RegDeleteKey "HKEY_CURRENT_USER\Software\test"

'四十六:函数RegDeleteVal
'用途:可以理解为删除注册表项下面的 注册表值(键值对)
'Dim a
'a=oautoit.RegDeleteVal ("HKEY_CURRENT_USER\Software\test","test1")
'print a

'四十七:函数:
'用途:读取指定子键的名称
'返回:若成功,返回子键名称.
'Dim a
'For i = 1 To 10 Step 1
' a=oautoit.RegEnumKey ("HKEY_CURRENT_USER\Software\test",i)
' print a
'Next
'

'四十八:函数:RegEnumVal
'用途:读取指定值项的名称
'Dim a
'For i = 1 To 100 Step 1
' a=oautoit.RegEnumVal ("HKEY_CURRENT_USER\Software\AutoIt v3\AU3Info",i)
' print a
'Next

'四十九:函数:
'用途:读取注册表中指定的值
'Dim a
'a=oautoit.RegRead ("HKEY_CURRENT_USER\Software\AutoIt v3\AU3Info","Magnify")
'print a

'五十:函数 RegWrite
'用途:创建一个主键,子键或值项
'Dim a
'a=oautoit.RegWrite ("HKEY_CURRENT_USER\Software\test","test8","REG_SZ",12)
'print a

'五十一:函数
'oautoit.RunAsSet

'五十二:函数
'用途:运行一个外部程序并暂停脚本的执行直到该程序执行完毕
'也即是 如果程序不退出进程 脚本就不往下执行

'oautoit.RunWait "C:\Documents and Settings\jason\桌面\ForTest.exe"

'五十三:函数
'用途:向指定窗口发送模拟键击操作
'oautoit.Run "notepad.exe"
'oautoit.WinWait "无标题 - 记事本",""
'
'oautoit.Send "notepad.exe !!"
'

'五十四:函数
'用途:此函数是对计算机进行的一些操作,
'比如 参数: 0表示注销,1表示关机 2表示重启 等等
'oautoit.Shutdown

'五十五:函数
'oautoit.Sleep "5000"
'msgbox "lijng"

'五十六 :函数 StatusbarGetText
'用途:获取标准状态栏控件的文本

'oautoit.Run "C:\Documents and Settings\jason\桌面\ForTest.exe"
'Dim a
'oautoit.WinWaitActive "Form1",""
'a=oautoit.StatusbarGetText ("Form1","")
'print a

'五十七:属性:
'关于属性的部分,介绍略去

'Dim a

'a=oautoit.SW_HIDE
'print a
'
'a=oautoit.SW_SHOW
'print a

 

'五十八:函数:
'用途:在屏幕的任意位置显示一个工具提示.

'oautoit.ToolTip "这是一个工具提示",200,200

'五十九:函数:

'msgbox oautoit.version

'六十:函数:
'用途:激活指定的窗口
'oautoit.WinActivate "Form1"

'六十一:函数
'
'msgbox oautoit.WinActive "Form1"

'六十二:函数
'用途:关闭指定的窗口
'oautoit.WinClose "Form1"

'六十三:函数
'Dim a
'a= oautoit.WinExists ("Form1")
'print a

'六十四:函数:
'用途:返回顶层窗口的插入符的坐标位置
'Dim a
'oautoit.Run "C:\Documents and Settings\jason\桌面\ForTest.exe"
'oautoit.WinWaitActive "Form1",""
'a=oautoit.WinGetCaretPosX()
'print a

'六十五:函数
'用途:返回顶层窗口的插入符的坐标位置
'Dim a
'oautoit.Run "C:\Documents and Settings\jason\桌面\ForTest.exe"
'oautoit.WinWaitActive "Form1",""
'a=oautoit.WinGetCaretPosY()
'print a

'六十六:函数
'用途:获取指定窗口的所有控件类的列表.
'oautoit.Run "C:\Documents and Settings\jason\桌面\ForTest.exe"
'Dim a
'a=oautoit.WinGetClassList ("Form1","")
'For each a1 in a
'print a1
' 
'Next

'六十七:函数 WinGetClientSizeHeight
      '函数 WinGetClientSizewidth
'用途: 获取指定窗口的客户区的大小信息
'oautoit.Run "C:\Documents and Settings\jason\桌面\ForTest.exe"
'oautoit.WinWaitActive "Form1",""
'Dim a
'a=oautoit.WinGetClientSizewidth ("Form1","")
'print a

'六十八:函数 WinGetHandle
'用途:获取指定窗口的内部句柄:

'oautoit.Run "C:\Documents and Settings\jason\桌面\ForTest.exe"
'oautoit.WinWaitActive "Form1",""
'Dim a
'a=oautoit.WinGetHandle ("Form1","")
'print a

'六十九:函数:WinGetPosHeight
      '函数:WinGetPosWidth
      '函数:WinGetPosX
      '函数:WinGetPosY
'用途:获取指定窗口的坐标位置和大小等属性.
'oautoit.Run "C:\Documents and Settings\jason\桌面\ForTest.exe"
'oautoit.WinWaitActive "Form1",""
'Dim a
'a=oautoit.WinGetPosY ("Form1","")
'print a

'七十:函数:
'用途:获取指定窗口关联的进程ID(PID)
'此函数是很有用处的,在我们的测试过程中.
'oautoit.Run "C:\Documents and Settings\jason\桌面\ForTest.exe"
'oautoit.WinWaitActive "Form1",""
'Dim a
'a=oautoit.WinGetProcess ("Form1","")
'print a

'七十一 函数:
'用途:获取指定窗口的状态
'此函数对于初级者可能用不到的
'oautoit.Run "C:\Documents and Settings\jason\桌面\ForTest.exe"
'oautoit.WinWaitActive "Form1",""
'Dim a
'a=oautoit.WinGetState ("Form1","")
'print a

'七十二函数:
'用途:获取指定窗口中的文本
'Dim a
'a=oautoit.WinGetText "Form1",""
'print a

'七十三函数:
'用途:获取指定窗口的完整标题名
'经验证成功!
'oautoit.Run "C:\Documents and Settings\jason\桌面\ForTest.exe"
'oautoit.WinWaitActive "Form1",""
'Dim a
'a=oautoit.WinGetTitle ("Form1","")
'print a

'七十四:函数:WinKill
'用途:强行关闭指定的窗口
'每次只关闭一个窗口,如果有相同的窗口,包括关闭进程函数也是一样,如果有多个一样的进程,每次运行也是只关闭一个.

'oautoit.WinKill "Form1",""
'oautoit.ProcessClose "ForTest.exe"

'七十五:函数
'oautoit.WinList
'获取窗口列表
'返回值: 窗口标题和句柄

'Dim arr
'arr=oautoit.WinList ("Form1","")
'For each arr1 in arr
' print arr1
'Next

'七十六:函数
'用途:调用窗口中的某个菜单项目.
'oautoit.Run "notepad.exe"
'oautoit.WinWaitActive "[CLASS:Notepad]"
'
'oautoit.WinMenuSelectItem "[CLASS:Notepad]", "", "文件(&F)", "页面设置(&U)..."
'

'七十七:函数
'用途:最小化全部窗口

'oautoit.WinMinimizeAll()

 

'七十八:函数 WinMinimizeAllUndo
'用途: 撤销之前的全部的最小化的操作
'oautoit.WinMinimizeAll()
'oautoit.WinMinimizeAllUndo

'七十九:函数
'用途:移动指定的窗口或调整窗口的大小
'oautoit.WinActive "无标题 - 记事本",""
'oautoit.WinMove "无标题 - 记事本","",0,0
'经验证 函数OK.

'八十:函数
'用途:设置指定的窗口"总是在顶层"
'oautoit.WinActive "无标题 - 记事本",""
'oautoit.WinSetOnTop "无标题 - 记事本","",1

'经验证OK

'八十一:函数
'用途:显示,隐藏,最小化,最大化或还原一个窗口
'以下的代码 是将窗口隐藏
'其中 "标志"参数 需要的 常数有:SW_MINIMIZE,SW_SHOW,SW_HIDE,SW_RESTORE,SW_DISABLE,SW_ENABLE
'oautoit.WinSetState "无标题 - 记事本","",oautoit.SW_MAXIMIZE

'八十二:函数
'用途:修改指定窗口的标题
'
'oautoit.WinActive "无标题 - 记事本",""
'oautoit.WinSetTitle "无标题 - 记事本","","lijing"

'八十三:函数
'oautoit.WinActive "lijing",""
'oautoit.WinSetTrans "lijing","",9

'八十四:函数
'用途: 暂停脚本的执行直至所指定窗口不再存在为止.

'oautoit.WinWaitClose "无标题 - 记事本",""
'msgbox "ok"

'八十五:函数
'用途:暂停脚本的执行直至指定窗口不是激活状态为止.
'wait 3
'
'oautoit.WinWaitNotActive "无标题 - 记事本",""
'msgbox "ok"

'经测试 函数有效

Set oautoit = nothing