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

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

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

谢谢分享

收藏，建议加精

一般
这些自己都能做

真历害啊。

斑竹的VBS学得8错啊

辛苦了，收藏。谢谢啊

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

都是牛人啊！！！

对于这种好帖一定要 顶

29  插入同步等待某个对象出现

复制内容到剪贴板

代码:

Dim continue
      continue = False

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

30  异常控制

复制内容到剪贴板

代码:

If  Window("航班预订").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 编辑 ]

引用:

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

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

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

引用:

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

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

引用:

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

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

Many tks! that's do me a great help!
in my suggestion ,this  article  should be the top ,and we can maintain for make this article perfect.
tks all again.

[ 本帖最后由 Ancen 于 2006-10-17 10:24 编辑 ]

绝对好贴，谢谢楼主了

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