1、打开文件 使用opentextfile方法 set fs =createobject(“scripting.filesystemobject”) set ts=fs.opentextfile(“c:\1.txt”,1,true) 注意这里需要填入文件的完整路径,后面一个参数为访...
双击即可根据您设置的语速及音量读出“Hello,开源中国”。 Set objVoice = CreateObject("SAPI.SpVoice") 'Set objVoice.Voice = objVoice.GetVoices("Name=Microsoft Simplified Chinese...
QTP中的检查点类型 QTP支持在测试步骤中添加如下类型的检查点: 1。标准检查点(Standard Checkpoint):用于检查测试对象的属性 2。图像检查点(Image Checkpoint):用于检查被测应用程序的...
11年自己用QTP做自动化测试时使用过的,分享给大家。给还在使用QTP做自动化的同学做个参考。这个实例用于统计操作步骤的耗时。
11年使用UFT做自动化时开发的一些实例代码。本想一个一个讲解,但发现代码贴出来后很乱。索性就一次性挑了一些比较完整的实例分享给大家做参考,代码中已经有了备注。
几年前出于兴趣写的。将以下vbs代码另存为文件,双击后即可听到语音报时。 Dim a,b,c,d,e,f,g Function FormateTime(sendTime,Para) '格式化时间 select case Para case "1" sen...
连接数据库代码: Set Conn = CreateObject("ADODB.Connection" ) str="DRIVER=SQL Server;SERVER=192.168.1.109;UID=wangshaoping;PWD=wsp;APP=Microsoft Office 2003;WSID=wangshaopi...
大家一定要在机器空闲时测试哦。不然真会关掉你的机器的。 '**************************************** '*by mengfeiyang '*关机 '**************************************** Set colOperati...
1、vbs源码 '中文姓名笔画计算(VBS脚本版) dim word,key word=inputbox("请输入你要计算的文字") if word="" then msgbox "小样 不是叫你不要输入文字吗" Wscript.Quit end if key=char_wo...
2011年开发的一个小例子,那个时候还没有selenium,QTP还叫UFT。那时我也用UFT做过保险系统,国航系统,PICC,国寿系统的自动化测试项目,期间积累了不少很好的尝试案例。现在估计还有很多公...
没有更多内容
加载失败,请刷新页面
文章删除后无法恢复,确定删除此文章吗?
动弹删除后,数据将无法恢复
评论删除后,数据将无法恢复