基础代码交流贴

我要做SQAD

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

我要做SQAD

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

我要做SQAD

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

alexchen

谢谢分享

jennie98

收藏，建议加精

winder238

一般
这些自己都能做

51it

真历害啊。

haven6

斑竹的VBS学得8错啊

angelwamy

辛苦了，收藏。谢谢啊

walker1020

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

rickcui

都是牛人啊！！！

lbzhong

对于这种好帖一定要 顶

walker1020

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

1. Dim continue
   
2.       continue = False
   
3. 
   
4.     While not continue
   
5.           wait(1)
   
6.           continue = Window("航班预订").Exist
   
7.     Wend

复制代码

30  异常控制
   
  

1. If  Window("航班预订").Dialog("航班预订").Exist Then
   
2.         Set myStatic = Description. Create()
   
3.         myStatic("nativeclass").Value="Static"
   
4.         Set myObject=Window("航班预订").Dialog("航班预订").ChildObjects(myStatic)
   
5.         ErroInfo = myObject(0).GetRoProperty("text")
   
6.         Reporter.ReportEvent micFail,"时间输入", ErroInfo
   
7.         Window("航班预订").Dialog("航班预订").WinButton("确定").Click
   
8.         ExitActionIteration
   
9. 
   
10.   End If

复制代码

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

walker1020

原帖由 我要做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

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

walker1020

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

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

joetree

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

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

leisss

绝对好贴，谢谢楼主了

nxlyl

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

zjsjx

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