软件测试论坛 › [QuickTest Professional] › 基础代码交流贴

我要做SQAD 发表于 2006-3-22 17:06:32

***********************************
randomize'更新反回的数据
function rand(k,n)
n=int((k-1)*rnd+1)
rand=n
end function
***********************************
rand多了一个n参数。哈哈

我要做SQAD 发表于 2006-3-22 17:52:45

On error goto handle？有这句语句吗？

我要做SQAD 发表于 2006-3-22 18:14:54

总得来说还不错，收下了。哈哈

alexchen 发表于 2006-3-24 15:27:35

谢谢分享

jennie98 发表于 2006-3-30 15:10:40

收藏，建议加精

winder238 发表于 2006-3-30 22:14:09

一般
这些自己都能做

51it 发表于 2006-3-31 15:34:21

真历害啊。

haven6 发表于 2006-4-6 11:21:28

斑竹的VBS学得8错啊

angelwamy 发表于 2006-5-12 16:15:13

辛苦了，收藏。谢谢啊

walker1020 发表于 2006-6-22 11:44:29

不错！不错！很有帮助！ 就是少了第6条

rickcui 发表于 2006-7-19 15:45:01

都是牛人啊！！！

lbzhong 发表于 2006-8-15 16:41:07

对于这种好帖一定要 顶

walker1020 发表于 2006-8-30 20:16:14

补充几点

29插入同步等待某个对象出现
   
   Dim continue
      continue = False

    While not continue
          wait(1)
          continue = Window("航班预订").Exist
    Wend

30异常控制
   
    IfWindow("航班预订").Dialog("航班预订").Exist Then
      Set myStatic = Description. Create()
      myStatic("nativeclass").Value="Static"
      Set myObject=Window("航班预订").Dialog("航班预订").ChildObjects(myStatic)
      ErroInfo = myObject(0).GetRoProperty("text")
      Reporter.ReportEvent micFail,"时间输入", ErroInfo
      Window("航班预订").Dialog("航班预订").WinButton("确定").Click
      ExitActionIteration

End If

[ 本帖最后由 walker1020 于 2006-8-30 20:43 编辑 ]

walker1020 发表于 2006-8-30 20:34:06

原帖由 我要做SQAD 于 2006-3-22 17:06 发表
***********************************
randomize'更新反回的数据
function rand(k,n)
n=int((k-1)*rnd+1)
rand=n
end function
***********************************
rand多了一个n参数。哈哈

楼主的帖子中的错误已修改。谢谢 我要做SQAD！

liuliu022004 发表于 2006-8-31 10:15:42

谢谢，收下慢慢学习，不会VB：（

walker1020 发表于 2006-8-31 14:31:38

原帖由 liuliu022004 于 2006-8-31 10:15 发表
谢谢，收下慢慢学习，不会VB：（

下面的链接有 VBscript教程的下载：http://bbs.51testing.com/thread-11556-1-1.html
你下载下来后 可以慢慢研究。

joetree 发表于 2006-9-21 11:27:46

原帖由 我要做SQAD 于 2006-3-22 17:52 发表
On error goto handle？有这句语句吗？


有呀
是说遇到系统捕获的错误跳转到handle

leisss 发表于 2006-10-30 16:28:56

绝对好贴，谢谢楼主了

nxlyl 发表于 2006-11-6 15:34:50

确实对新手来说非常有用，对我帮助很大。

zjsjx 发表于 2006-11-10 17:27:18

真的很好，谢谢！楼主，你辛苦了！！！

查看完整版本: 基础代码交流贴