Declare Function TimedDlgFunc(id As String, Action As Integer, SuppValue As Long) As Integer
Declare Function SQAMsgBox(sMsgText as String, Optional vMsgCaption as Variant, Optional vTimeOut as Variant) as Integer
Function TimedDlgFunc(id As String, Action As Integer, SuppValue As Long) As Integer
Static StartTime
Dim EndTime
Dim vTimeoutValue as Variant
Select Case Action
Case 1 'Dialog box Initialization
StartTime = Timer
If StartTime + iTime >= 86400 Then
StartTime = 86400 - StartTime - iTime
End If
TimedDlgFunc = 1
Case 2 'Button pushed or any control changed (except typing in text or combo box)
Select Case SuppValue
Case 1
DlgEnd -1
Case 2
DlgEnd 0
Case Else
TimedDlgFunc = 0
End Select
Case 3 'Change in text or combo box contents
TimedDlgFunc = 1
Case 4 'Change of control focus
TimedDlgFunc = 1
Case 5 'Idle state (return 0 to prevent this being continually called)
EndTime = Timer
If (EndTime - StartTime) >= iTime Then
DlgEnd -1
End If
vTimeoutValue = Format(iTime - (EndTime - StartTime), "#.#")
DlgText DlgControlID("txtTimeValue"), CStr(vTimeoutValue)
TimedDlgFunc = 1
End Select
End Function
Function SQAMsgBox(sMsgText as String, Optional vMsgCaption as Variant, Optional vTimeOut as Variant) as Integer
Dim Result as Integer
Dim TotalTime As Integer
Dim sCmdText as String
Dim sTimeoutText as String
Dim vValue as Variant
If IsMissing(vMsgCaption) Then
vMsgCaption = "SQAMsgBox"
End If
If IsMissing(vTimeOut) Then
vTimeOut = 20 'seconds
End If
Dim TimedDlg As dlgMsgBox
iTime = CInt(vTimeOut)
Result = Dialog(TimedDlg)
If Result = 2 Then
SQAMsgBox = sqaFail
Else
SQAMsgBox = sqaPass
End If
End Function
大家踊跃参加阿，这样我们就会有一大堆实用函数了。使用的朋友请回贴帮顶，谢谢。
[ Last edited by guirongb on 2004-12-9 at 13:28 ]作者: guirongb 时间: 2004-12-9 13:08
晕，怎么出现表情符号了？？作者: guirongb 时间: 2004-12-9 13:31
没人么？我再来
WIN32 API函数声明下载。直接可以在Robot里面调用。
[ Last edited by guirongb on 2004-12-9 at 13:33 ]作者: duancj_1982 时间: 2004-12-9 15:17 标题: 顶！！！ 作者: guirongb 时间: 2004-12-9 16:00 标题: 再贴一个,这是我自己写的..... Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
'向目标计算机发送消息
'例如：sendmsg "rsgui","test complete!"
Declare Function SendMsg(computer as string,txt as string)
Function SendMsg(computer as string,txt as string)
dim operate as string
operate="/c net send " & computer & " " & txt
shellexecute 0,"open","cmd.exe",operate,"c:\",0
End Function作者: alfra 时间: 2004-12-10 12:14
最好加上功能说明，以及注释。
这样看起来比较容易懂~建议建议
继续看各位大虾发实用的功能函数，加油加油，非常有用啊~~~~作者: yuanlj 时间: 2004-12-10 12:53
我还不太会用，麻烦各位加上注释哦！作者: guirongb 时间: 2004-12-10 14:49 标题: 没劲,就我一个人在发,好吧,再来一个拉 '得到控件的属性，并保留到文件中
function SaveAllPropertyValues (ObjectRec As String, Filename As String)
Dim Result As Integer
Dim Properties() As String
Dim Value As Variant
Dim n As Integer
Open Filename For Output As #1
Result = SQAGetPropertyNames(ObjectRec, Properties)
If Result <> sqaSuccess Then
SQALogMessage sqaWarning, "Unable to capture """ + ObjectRec + """ properties", "Error" + Str$(Result) + ": " + Error$(Result)
Exit function
End If
For n = 0 to UBound(Properties)
Result = SQAGetPropertyAsString(ObjectRec, Properties(n), Value)
If Result = sqaSuccess Then
Write #1, Properties(n), Value
End If
Next n
Close #1
SQALogMessage sqaNone, "Properties of " + ObjectRec + " saved in " + Filename, ""
End function作者: guirongb 时间: 2004-12-10 14:50 标题: 还有的继续调试好了再发.这几个是用了很多次,也比较有用的,怎么没人呢 作者: z517testing 时间: 2004-12-10 15:18
先看一看作者: 高山来客 时间: 2004-12-10 22:31
不错，还没使用过，最好加点注释？作者: jwzvic 时间: 2004-12-14 09:45
老大有 抓 控间 属性 值 的代码吗?谢谢作者: viviana_wdy 时间: 2004-12-14 10:37 标题: 谢谢阿，这样的帖子实用性很高呢 作者: Aaron 时间: 2004-12-21 21:17
顶一个。不过能给出调用说明就好了。SaveAllPropertyValues 我就调不成功作者: BlueDream811027 时间: 2004-12-21 23:09
我才刚接触Robot，
guirongb你能不能给我点指点？作者: Aaron 时间: 2004-12-22 09:44
那个函数SaveAllPropertyValues调成功了，不错。可惜我得到一个控件的属性Value,它的值 为文本（比方说，pls select an item)，但在我的函数中用Getproperty时得到的却为数值1作者: jyxuan 时间: 2005-1-19 17:00
我来顶啦作者: archonwang 时间: 2005-2-16 08:53
东西很好啊，建议版主考虑下加精吧？作者: baitest 时间: 2005-2-16 09:07 标题: 好东西，顶一下！ 作者: zhuyw01 时间: 2006-2-7 14:08
好东西啊，可怎么没有几个人呢？可惜偶还不会，要不一定也发几个上来！作者: fazi1223 时间: 2006-2-8 12:23
俺是新手，刚装上ROBOT，我想在录入内容时加入一点时间信息，应该怎么写呢？如下所示我想在倒数第二行末加上录当前数据时的时间？
EditBox Left_Drag, "Name=InputSum", "Coords=8,8,-9,9"
InputKeys "80"
EditBox Click, "Name=Summary", "Coords=27,15"
InputKeys "robot"
HTMLImage Click, "Index=3", "Coords=30,16"作者: caesarqth 时间: 2006-2-11 11:34 标题: 很好用，多谢楼主了 还有比较使用的函数吗，希望多发点 谢谢楼住作者: wonderswan 时间: 2006-2-13 10:23
那么好的东西！·~~支持你！~~作者: testman 时间: 2006-2-23 09:19
学习学习作者: dliwenzi 时间: 2006-3-2 17:30
实用，好东西作者: weiping2000 时间: 2006-3-27 19:40
支持,好东西,学习中作者: xiao* 时间: 2006-4-5 16:44 标题: 谢谢！继续 非常好作者: 閒逛 时间: 2006-4-20 22:26
先学着点！作者: joyruan@126.com 时间: 2006-4-28 18:01
好，支持。继续作者: a995147 时间: 2006-5-7 15:46
thanks作者: ax2004 时间: 2006-6-5 20:59
我不觉得,楼主 所写的 获得控件属性值 ,并写入文件 有什么太大用处,就我个人使用而言, 我觉得,大家 多用用
SQAgetPropertyValue 和 SQAWaitforPropertyValue ,SQAlogMessage以及 Msgbox这几个常用函数就构了, 第一个函数,我们常用来获取一些对象 某个属性值,用它进行判断,或者于预期值进行比较.