查看: 2524|回复: 17
如何使INPUTBOX置于窗口顶层
阅读权限30
在线时间 小时
我的EXCEL处于后台，我按热键激活了INPUTBOX，但是这个窗口只在EXCEL里 要激活EXCEL才能看到
请教如何激活INPUTBOX后就让INPUTBOX在窗口的顶层呢？这个而需要使用API
ShowWindow hwnd, 3 或者 SetForegroundWindow hwnd
求教大神如何解决，非常感谢！（主要问题是INPUTBOX后面的置顶窗口语句需要INPUTBOX后返回值才执行，不知道应该如何解决呢？）
阅读权限30
在线时间 小时
jsxjd 发表于
说明是 Excel 的子窗口
就是想将这个子窗口位于放置于窗口顶层 ^^
阅读权限30
在线时间 小时
UPUPUPUPUPUP
阅读权限100
在线时间 小时
说明是 Excel 的子窗口
阅读权限100
在线时间 小时
& & & & & & & &
这么搞，还不如自己设计一个类似的窗体。
感谢帮助!! : )
阅读权限30
在线时间 小时
jsxjd 发表于
这么搞，还不如自己设计一个类似的窗体。
确实是很难哦 EXCEL是单线程的~~
按您的思路
我自制了一个窗体 名字改为：UserFormA
添加了一个commandbutton1 名称改为：确定
添加了一个TextBox1 名称改为：TextBoxA
（改名字是为了区分）
Sub aaaaa()
UserFormA.Show
'请教后面应该怎么写呢？非常感谢！就是点击确定后 能获取文本框里的数据：）
阅读权限100
在线时间 小时
Msgbox Textbox1.Text
阅读权限30
在线时间 小时
jsxjd 发表于
Msgbox Textbox1.Text
求教全一些的代码是什么呢
因为程序需先知道我按了确定
然后程序获取文本框里的字符串
然后程序关闭窗体
求教应该如何写呢，谢谢啦！
阅读权限100
在线时间 小时
veggieg 发表于
求教全一些的代码是什么呢
因为程序需先知道我按了确定
把你做的传上来
阅读权限30
在线时间 小时
jsxjd 发表于
把你做的传上来
(9 KB, 下载次数: 12)
11:53 上传
点击文件名下载附件
麻烦您啦，谢谢！！：）
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师sponsored links
自己以前写的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&
'&& print &not ok&
&&& '设置属性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&)
'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:.+WREGEXPCLASS:#\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&
'oautoit.ControlEnable &关于 Windows&,&&,&Button1&
'十:函数:ControlFocus
'用途:设置输入焦点到指定窗口的某个控件上
'自己写了一个简单的标准窗口来进行测试此函数:
' oautoit.Run &C:\\Documents and Settings\\jason\\桌面\\ForTest.exe&
' oautoit.WinWaitActive &Form1&,&&
' oautoit.ControlFocus &Form1&,&&,&ThunderRT6TextBox1&
'以上例子验证成功.此函数对于自动化输入值的时候,可以手动定义光标的先后顺序
'十一:函数: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
'十七:函数,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&,&&
'oautoit.ControlHide &Form1&,&&,&ThunderRT6CommandButton1&
'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 &用户登录&,&&
''first clear &username& editbox
'oautoit.ControlSetText &用户登录&,&&,&WindowsForms10.EDIT.app.0.&,&&
''type string &zhichao& to username editbox
'oautoit.ControlSend &用户登录&,&&,&WindowsForms10.EDIT.app.0.&,arrLogin(2,1)
''type string &zhichao& to password editbox
'oautoit.ControlSend &用户登录&,&&,&WindowsForms10.EDIT.app.0.&,arrLogin(2,2)
''click &登录& button
'oautoit.ControlClick &用户登录&,&登录&,&WindowsForms10.BUTTON.app.0.&
''&请选择公司及账册&
''wait window sync
'oautoit.WinWaitActive &请选择公司及帐册&,&&
'oautoit.ControlClick &请选择公司及帐册&,&gridControl1&,&WindowsForms10.Window.8.app.0.&,&&,2,17,43
''等待下一个窗口的出现即可[系统首页]出现了.
'oautoit.WinWaitActive &易关通2008标准版 - [首页]&,&&
''点击[报关业务]左侧边栏
'oautoit.ControlClick &易关通2008标准版 - [首页]&,&&,&WindowsForms10.Window.8.app.0.&,&&,1,61,321
''此时空白显示区域显示出此模块下的 业务清单: 有进口报关清单,出口报关清单,进口报关单等等.
''双击其中一个进去做一个单据
'oautoit.ControlClick &易关通2008标准版 - [首页]&,&&,&WindowsForms10.Window.8.app.0.&,&&,2,54,36
''点击[新增]按钮 做一条新数据
'oautoit.ControlClick &易关通2008标准版 - [首页]&,&&,&WindowsForms10.Window.8.app.0.&,&&,1,40,15
''之后点击公司账册信息进入相应的账册平台
''以上是一个简单的根据公司实际的项目 简单功能的测试.
'二十一:函数 DriveMapAdd
'a=oautoit.DriveMapAdd (&Y:&,&\\10.35.2.58\共享文件&,0,&jason&,&jy1314&)
'此函数的用途:添加映射网络驱动器.或者(网络驱动盘)
'如上面的代码的目的是 添加Y 网络驱动盘
'二十二: 函数:DriveMapGet
'用途:获取已映射网络驱动盘的路径.
'a=oautoit.DriveMapGet (&X:&)
'经检验 成功运行
'二十三: 函数:DriveMapDel
'a=oautoit.DriveMapDel (&Y:&)
'二十四: 函数:IniDelete
'从某标准配置文件(*.ini)中删除某个数值.
'这个函数可能用的不是很多
'oautoit.IniDelete &d:\myfile.ini&,&section2&
'二十五:函数: IsAdmin
'用途:检查当前用户是否有管理员权限.
'用法如下:
'If oautoit.IsAdmin() Then
'&msgbox &本程序拥有管理员权限&
''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&
'个人感觉此函数没多少意义
'二十九:函数: MouseGetCursor
'返回当前鼠标指针光标的ID
'a=oautoit.MouseGetCursor()
'Select Case a
'&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的各种函数与参数的运行方式进行调整
'三十七:函数
'生成某区域像素的校验和
'a=oautoit.PixelChecksum(0,0,50,50)
'三十八:函数
'a=oautoit.PixelGetColor(20,20)
'三十九:函数
'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)
'此函数用到极少
'四十:函数:ProcessClose
'用途: 终止某个进程
'注:此函数很有用处的. 可能会在测试中常用
'比如我们做个例子,我们关闭进程 &iexplore.exe&,就是关闭所有的IE窗口,只是IE浏览器,可能360等其他浏览器没有作用
'a=oautoit.ProcessClose (&iexplore.exe&)
'四十一:函数 :ProcessExists
'函数用途:检查指定进程是否存在,如果存在就返回 进程的PID,如果失败返回0
'a=oautoit.ProcessExists(&iexplore.exe&)
'四十二:函数: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
'用途:可以理解为删除注册表项下面的 注册表值(键值对)
'a=oautoit.RegDeleteVal (&HKEY_CURRENT_USER\Software\test&,&test1&)
'四十七:函数:
'用途:读取指定子键的名称
'返回:若成功,返回子键名称.
'For i = 1 To 10 Step 1
'&a=oautoit.RegEnumKey (&HKEY_CURRENT_USER\Software\test&,i)
'四十八:函数:RegEnumVal
'用途:读取指定值项的名称
'For i = 1 To 100 Step 1
'&a=oautoit.RegEnumVal (&HKEY_CURRENT_USER\Software\AutoIt v3\AU3Info&,i)
'四十九:函数:
'用途:读取注册表中指定的值
'a=oautoit.RegRead (&HKEY_CURRENT_USER\Software\AutoIt v3\AU3Info&,&Magnify&)
'五十:函数 RegWrite
'用途:创建一个主键,子键或值项
'a=oautoit.RegWrite (&HKEY_CURRENT_USER\Software\test&,&test8&,&REG_SZ&,12)
'五十一:函数
'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&
'oautoit.WinWaitActive &Form1&,&&
'a=oautoit.StatusbarGetText (&Form1&,&&)
'五十七:属性:
'关于属性的部分,介绍略去
'a=oautoit.SW_HIDE
'a=oautoit.SW_SHOW
'五十八:函数:
'用途:在屏幕的任意位置显示一个工具提示.
'oautoit.ToolTip &这是一个工具提示&,200,200
'五十九:函数:
'msgbox oautoit.version
'六十:函数:
'用途:激活指定的窗口
'oautoit.WinActivate &Form1&
'六十一:函数
'msgbox oautoit.WinActive &Form1&
'六十二:函数
'用途:关闭指定的窗口
'oautoit.WinClose &Form1&
'六十三:函数
'a= oautoit.WinExists (&Form1&)
'六十四:函数:
'用途:返回顶层窗口的插入符的坐标位置
'oautoit.Run &C:\Documents and Settings\jason\桌面\ForTest.exe&
'oautoit.WinWaitActive &Form1&,&&
'a=oautoit.WinGetCaretPosX()
'六十五:函数
'用途:返回顶层窗口的插入符的坐标位置
'oautoit.Run &C:\Documents and Settings\jason\桌面\ForTest.exe&
'oautoit.WinWaitActive &Form1&,&&
'a=oautoit.WinGetCaretPosY()
'六十六:函数
'用途:获取指定窗口的所有控件类的列表.
'oautoit.Run &C:\Documents and Settings\jason\桌面\ForTest.exe&
'a=oautoit.WinGetClassList (&Form1&,&&)
'For each a1 in a
'六十七:函数 WinGetClientSizeHeight
&&&&& '函数 WinGetClientSizewidth
'用途: 获取指定窗口的客户区的大小信息
'oautoit.Run &C:\Documents and Settings\jason\桌面\ForTest.exe&
'oautoit.WinWaitActive &Form1&,&&
'a=oautoit.WinGetClientSizewidth (&Form1&,&&)
'六十八:函数 WinGetHandle
'用途:获取指定窗口的内部句柄:
'oautoit.Run &C:\Documents and Settings\jason\桌面\ForTest.exe&
'oautoit.WinWaitActive &Form1&,&&
'a=oautoit.WinGetHandle (&Form1&,&&)
'六十九:函数:WinGetPosHeight
&&&&& '函数:WinGetPosWidth
&&&&& '函数:WinGetPosX
&&&&& '函数:WinGetPosY
'用途:获取指定窗口的坐标位置和大小等属性.
'oautoit.Run &C:\Documents and Settings\jason\桌面\ForTest.exe&
'oautoit.WinWaitActive &Form1&,&&
'a=oautoit.WinGetPosY (&Form1&,&&)
'七十:函数:
'用途:获取指定窗口关联的进程ID(PID)
'此函数是很有用处的,在我们的测试过程中.
'oautoit.Run &C:\Documents and Settings\jason\桌面\ForTest.exe&
'oautoit.WinWaitActive &Form1&,&&
'a=oautoit.WinGetProcess (&Form1&,&&)
'七十一 函数:
'用途:获取指定窗口的状态
'此函数对于初级者可能用不到的
'oautoit.Run &C:\Documents and Settings\jason\桌面\ForTest.exe&
'oautoit.WinWaitActive &Form1&,&&
'a=oautoit.WinGetState (&Form1&,&&)
'七十二函数:
'用途:获取指定窗口中的文本
'a=oautoit.WinGetText &Form1&,&&
'七十三函数:
'用途:获取指定窗口的完整标题名
'经验证成功!
'oautoit.Run &C:\Documents and Settings\jason\桌面\ForTest.exe&
'oautoit.WinWaitActive &Form1&,&&
'a=oautoit.WinGetTitle (&Form1&,&&)
'七十四:函数:WinKill
'用途:强行关闭指定的窗口
'每次只关闭一个窗口,如果有相同的窗口,包括关闭进程函数也是一样,如果有多个一样的进程,每次运行也是只关闭一个.
'oautoit.WinKill &Form1&,&&
'oautoit.ProcessClose &ForTest.exe&
'七十五:函数
'oautoit.WinList
'获取窗口列表
'返回值: 窗口标题和句柄
'arr=oautoit.WinList (&Form1&,&&)
'For each arr1 in arr
'&print arr1
'七十六:函数
'用途:调用窗口中的某个菜单项目.
'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
'八十一:函数
'用途:显示,隐藏,最小化,最大化或还原一个窗口
'以下的代码 是将窗口隐藏
'其中 &标志&参数 需要的 常数有: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&
'八十五:函数
'用途:暂停脚本的执行直至指定窗口不是激活状态为止.
'oautoit.WinWaitNotActive &无标题 - 记事本&,&&
'msgbox &ok&
'经测试 函数有效
Set oautoit = nothing
原创: 转载 注明出处:jason 熟悉QTP的人 很清楚,QTP11比QTP10做了很大的改进. 在我看来主要有三方面:
1:支持API TEST
2:更加方便的界面(IDE),这些IDE模式都是C#实现的,也让人怀疑,QTP日后会不会支持C#语言的脚本开发?
3:对类的支持更强. 这可是脚本编写者的福音了.我们可以更方便的管理我们的代码,更强的 ...
原创:转载请注明出处:--Jason Lee 放在DLL-VB(动态库工程)中的常用的excel操作的代码: 以下函数对于读取单个的单元格的值比较方便,如果要去很多单元格的值,经测试,此函数效率不高. Function ReadExcelForCell(sFileName, nIndex, nRow, nColumn)
Dim oExcelApp 'as ...
在上一篇&管理QTP测试脚本的对象仓库&中,我们讨论了如何建立一个结构化的,易于维护的对象仓库系统.我们这样做不仅仅是为了维护方便,更重要的一点,当我们有了一套结构清楚的对象仓库以后,我们就可以轻松的手工编写QTP脚本了. 这里可能有人会问,QTP的录制功能不是很强大么,为什么还要自己手写脚本,这样是不是更麻烦.我先说一下我对手写测试脚本的感受, ...
http://blog.sina.com.cn/s/blog_00ly5c.html 最近浏览中突然发现,&运行QTP测试脚本后,将编译结果写入指定文件& 系列中没有附上 Print的脚本,再次补充上.大家可以按一下顺序阅读,希望对大家能有帮助. '*********************************** ...
摘在SVN官方网站
SVN强制写注释的hooks脚本(Windows)
1 @echo off 2 rem 文件名是: pre-commit.bat,放到repository/hooks目录下 3 setlocal 4 set REPOS=%1 5 set TXN=%2 6 rem check that logmessage cont ...JavaScript 是弱类型的动态脚本语言，支持多种编程范式，包括面向对象和函数式编程。关注话题分享阅读全文15K606 条评论分享收藏感谢阅读全文10K1,079 条评论分享收藏感谢阅读全文10K407 条评论分享收藏感谢阅读全文7.1K403 条评论分享收藏感谢阅读全文6.5K322 条评论分享收藏感谢94,867