我写的一个简单自动化测试框架

基本函数

==============================================================================================
'基础函数，打开应用程序，输入应用程序的可真行程序地址
Function OpenApp (APPadd)
  systemUtil.Run APPadd
End Function
'==============================================================================================
'==============================================================================================
'基础函数，打开浏览器，输入URL打开地址
Function BrowserTo (IEAdd,URL)
systemUtil.Run IEAdd
Browser("Browser").Navigate URL
End Function
'==============================================================================================
'==============================================================================================
'基础函数，用户登录界面基础操作
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'==============================================================================================
'用户登录界面基本操作函数，通过相对坐标选择具体的操作
Function Select_login_Action(x,y)
   Window("用户登录界面").WinObject("login").Click x,y'用户登录界面上选择操作
End Function
'==============================================================================================
'==============================================================================================
'基础函数，在全时SME客户端界面上的操作
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Function Select_Action(x,y)
 Window("全时SME客户端").WinObject("Internet Explorer_Server").Click x,y'全时会议界面选择操作
End Function
'==============================================================================================
'==============================================================================================
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'基础函数，在全时SME客户端界面上的鼠标移动操作
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Function Move_Action(x,y)
 Window("全时SME客户端").WinObject("Internet Explorer_Server").MouseMove x,y'全时会议界面选择操作
End Function
'================================================================================================
'================================================================================================
'基础函数，全时SME界面右键操作
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Function Select_RAction(x,y)
Window("全时SME客户端").WinObject("Internet Explorer_Server").Click x, y, micRightBtn
End Function
'=================================================================================================
'=================================================================================================
'基础函数，在全时SME客户端界面的子窗口上的操作',时会议子窗口上选择操作
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Function Select_WAction (x,y)
   Window("全时SME客户端").Window("Window").WinObject("Internet Explorer_Server").Click x,y
End Function
'===================================================================================================
'===================================================================================================
'基础函数,全时会议子子窗口上选择操作
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Function Select_WWAction (x,y)
  Window("全时SME客户端").Window("Window").Window("Window").WinObject("Internet Explorer_Server").Click x,y'
End Function
'====================================================================================================
'====================================================================================================
'基础函数，选择Windows对象的相关操作
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Function Select_Object(x,y)
   Window("全时SME客户端").WinObject("WindObject").Click x,y'全时对象操作
End Function
'=====================================================================================================
'=====================================================================================================
'基础函数，在全市百应界面输入信息
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Function InputBBInfo(Str)
  Window("全时SME客户端").WinObject("Internet Explorer_Server").Type Str
End Function
'=======================================================================================================
'=======================================================================================================
'基础函数，在全市百应界面输入信息
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Function InputInfo(Str)
  Window("全时SME客户端").Window("Window").WinObject("Internet Explorer_Server").Type Str
End Function
'=========================================================================================================
'=========================================================================================================
'基础函数，在用户登录界面输入信息
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Function InputLoginInfo(LoginStr)
'Login界面输入信息
Window("用户登录界面").WinObject("login").Type LoginStr
End Function
'========================================================================================================
'=============================================================================================================
'基础函数，白板上基本操作，封装操作
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Function Action
Window("全时SME客户端").RunAnalog "Track3"'
 wait 2
Window("全时SME客户端").RunAnalog "Track4"
End Function
'==============================================================================================================
'===============================================================================================================
'橡皮坐标650,181
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'基础函数，删除痕迹
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Function Delete_Trace
 Select_Action 650,181'删除
Action
End Function
'===============================================================================================================
'===============================================================================================================
'基础函数，关闭白板
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Function Close_BB(WaitTime)
'Select_Action 920,174'关闭画笔
 wait WaitTime
Select_Action 460,96'关闭白板
 wait WaitTime
Select_WAction 338,138'不保存
End Function
'===============================================================================================================
'==============================================================================================================
'立即召开会议按钮坐标：474,68
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'基本函数，完成立即召开会议功能
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Function  MeetSoon
select_login_Action 474,68
End Function
'===============================================================================================================

 

操作函数

'==============================================================================================
'操作函数，完成用户登录操作，客户端用户登录操作
Function Login(User,Pwd,WaitTime)
Select_login_Action 82,81
wait WaitTime
InputLoginInfo User
wait WaitTime
Select_login_Action 94,149
wait WaitTime
InputLoginInfo Pwd
wait WaitTime
Select_login_Action 136,228
End Function
'==============================================================================================
'==============================================================================================
'操作函数，创建会议，点击 安排会议按钮，输入会议主题，点击确定按钮到安排会议成功页面
Function  CreateMeeting(Meeting_Name,WaitTime)
Select_login_Action 87,121
 wait WaitTime
Select_login_Action 181,72
 wait WaitTime
InputLoginInfo Meeting_Name
 wait WaitTime
Select_login_Action 410,324
End Function
'==============================================================================================
'==============================================================================================
'选择会议列表
'Select_login_Action 69,64
'进入安排的会议
'Select_login_Action 218,257
'选择VOiP
'Select_WAction 99,136
'等待5分钟让其他人员手动进入会议
'wait 300
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'操作函数，进入会议
Function InMeeting(AdPartTime,WaitTime)
 '选择会议列表
Select_login_Action 69,64
 wait WaitTime
'进入安排的会议
Select_login_Action 218,257
 wait WaitTime
'选择VOiP
Select_WAction 99,136
'等待5分钟让其他人员手动进入会议
wait AdPartTime
End Function
'==============================================================================================
'==============================================================================================
'操作函数，通过邮件邀请参会人
'主持人点击邀请与会者按钮，选择邮件邀请
'主持人输入邮箱，点击发送邀请按钮
Function InviteAttendee(MailAdd,WaitTime)
   Select_Action 217,94
   wait WaitTime
   Select_Action 214,116
  wait WaitTime
   Select_WAction 56,84
    wait WaitTime
   InputInfo MailAdd
    wait WaitTime
   Select_WAction 387,281
    wait WaitTime
   Select_WWAction 204,142
End Function
'=============================================================================================
'操作函数，设置操作
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'点击设置按钮打开设置对话框
'在各tab页签间频繁切换
'勾选 权限 页签的所有选项
'点击确定按钮并保存成功
Function  Seting(Loop_n,WaitTime)
 Select_Action 1172,59
 wait WaitTime
'+++++++++++++++++++++++++++++++++
'完成标签切换操作
For i=1 to Loop_n
  Select_WAction 50,50
  wait WaitTime
  Select_WAction 115,50
  wait WaitTime
  Select_WAction 189,50
  wait WaitTime
  Select_WAction 266,50
Next
'++++++++++++++++++++++++++++++++++++
'权限设置
 wait WaitTime
 Select_WAction 42,182
 wait WaitTime
 Select_WAction 42,226
 wait WaitTime
 Select_WAction 42,335
'设置完成确定
 Select_WAction 302,471

End Function
'===============================================================================================================
'===============================================================================================================
'操作函数，视频操作
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'点击自己的视频图标，在第一路共享自己的视频
'点击第二路视频的视频轮巡按钮，按入会先后顺序开始轮巡
'点击某参与人A的视频图标，视频轮巡停止，在第二路共享A的视频
'再次点击视频轮巡按钮，在第二路从A的下一位开始轮巡
'主持人点击全屏2路视频按钮
'主持人点击全屏某一路视频按钮
'主持人点击退出全屏按钮回到会议首页
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Function  VideoAction(Loop_Number,WaitTime)
For i=1 to Loop_Number
'选择第一路视频
wait WaitTime
Select_Action 230,121
'选择第二路视频
wait WaitTime
Select_Action 230,142
'选择第二路视频轮训
wait WaitTime
Select_Object 111,87
'点击轮训操作
wait WaitTime
Select_WAction 177,9
'选择任意视频A，Y坐标+20
wait WaitTime
Select_Action 230,162 '第三路视频
'选择第二路视频轮训
wait WaitTime
Select_Object 111,87
'点击轮训操作
wait WaitTime
Select_WAction 177,9
'选择第一路视频
wait WaitTime
Select_Object 141,105
'第一路视频全屏
wait WaitTime
Select_WAction 206,13
wait 10
'结束全屏视频
Select_WAction 970,15
Next
End Function
'===============================================================================================================
'===============================================================================================================
'操作函数，静音操作
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'主持人点击全体静音按钮994,51
'主持人点击某参与人的音频按钮取消静音212,143；212,163
'主持人点击取消全体静音按钮994,51
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Function MuteAction(PartNumber,WaitTime,MuteTime)
Select Case PartNumber
Case 1
 Y=143
Case 2
 Y=163
Case 3
 Y=183
Case 4
 Y=203
Case 5
 Y=223
Case 6
 Y=243
Case 7
 Y=263
Case 8
 Y=283
Case 9
 Y=303
Case 10
 Y=323
End Select
   '全体静音
   wait WaitTime
   Select_Action 994,51
   '取消其中一个静音
   wait WaitTime
        Select_Action 212,Y
 '取消全体静音
 wait MuteTime
 Select_Action 994,51
End Function
'===============================================================================================================
'===============================================================================================================
'操作函数，录音操作
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'主持人点击会议录音按钮 1119,64
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Function RecordAction(RecordTime)
'开始录音
Select_Action 1119,64
wait (RecordTime)
'结束录音
Select_Action 1119,64
End Function
'===============================================================================================================
'===============================================================================================================
'操作函数，电话外呼操作
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'持人点击邀请与会者按钮，选择电话外呼218,90；208,138
'主持人输入电话号码，点击呼叫按钮188,85；383,279
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Function PhoneInvite(PhoneNumber,WaitTime)
   '邀请与会者
   wait WaitTime
   Select_Action 218,90
   '电话邀请
   wait WaitTime
   Select_Action 208,138
   '电话号码输入框
   wait WaitTime
   Select_WAction 188,85
   '输入电话号码
   wait WaitTime
    InputInfo PhoneNumber
 '点击邀请按钮
 wait WaitTime
 Select_WAction 383,279
End Function
'===============================================================================================================
'===============================================================================================================
'主持人点击共享文档按钮，上传一个5MB带动画的ppt文档（本地打印
'主持人点击共享文档按钮，上传一个5MB带动画的word文档
'主持人点击共享文档按钮，上传一个5MB带动画的jpg图片
'主持人点击共享文档按钮，上传一个5MB的带动画的pdf文档
'主持人点击共享文档按钮，上传一个5MB的txt文档
'主持人点击某个文档的注释按钮打开绘图工具
'逐一使用各绘图工具
'主持人点击向左旋转按钮
'主持人点击向右旋转按钮
'主持人点击文档显示比例下拉菜单，选择放大或放小文档
'主持人点击翻页按钮
'主持人点击同步与会者视图按钮
'主持人点击左边的展开按钮打开与会者列表和视频
'主持人点击保存文档按钮，保存所有文档
'主持人点击打印文档按钮
'主持人点击全屏按钮
'主持人点击文档选择下拉列表，选择另外一个文档
'主持人点击退出全屏按钮
'主持人点击全屏按钮
'===============================================================================================================
'===============================================================================================================
'白板共享 
'主持人点击新建白板按钮全屏共享一个白板
'主持人点击注释按钮打开绘图工具
'逐一使用各绘图工具
'主持人点击操作按钮弹出操作下拉菜单
'主持人点击白板显示比例下拉菜单，选择放大或放小白板
'主持人点击同步视图按钮
'主持人点击保存按钮，保存白板
'主持人点击打印按钮，打印白板
'主持人点击退出全屏按钮
'主持人点击左边的展开按钮打开与会者列表和视频
'主持人频繁在4个文档和白板之间进行切换操作
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'操作函数，白板共享相关操作
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'画笔坐标：421,179；
'荧光笔坐标：476,180；
'激光笔坐标：450,181,
'直线坐标：539,178；
'矩形坐标：576,176
'提示坐标：623,176，
'橡皮坐标：650,179
'操作子过程，共享白板操作
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Function BBGX(WaitTime)'
Select_Action 952,410' 共享白板
 wait WaitTime
Select_Action 1117,122 '全屏共享白板
 wait WaitTime
Select_Action 729,21'绘图工具
 wait WaitTime
Select_Action 421,181'选择画笔
 wait WaitTime
Action
 wait WaitTime
Delete_Trace
 wait WaitTime
 Select_Action 476,181'选择荧光笔
 wait WaitTime
 Action
 wait WaitTime
 Delete_Trace
  wait WaitTime
Select_Action 539,181'直线
 wait WaitTime
Action
 wait WaitTime
Delete_Trace
 wait WaitTime
 Select_Action 576,181'矩形
 wait WaitTime
Action
 wait WaitTime
Delete_Trace
 wait WaitTime
  Select_Action 623,181'提示
 wait WaitTime
Action
 wait WaitTime
Delete_Trace
 wait WaitTime
Select_Action 387,181
 wait WaitTime
Select_Action  920,172
 wait WaitTime
Select_Action 665,20
 wait WaitTime
Move_Action  647,96
 wait WaitTime
Move_Action  746,160
 wait WaitTime
Select_Action 746,160 '25%
 wait WaitTime
Select_Action 665,20
 wait WaitTime
Move_Action  647,96
 wait WaitTime
Move_Action  756,184
 wait WaitTime
Select_Action 756,184 '50%
 wait WaitTime
Select_Action 665,20
 wait WaitTime
Move_Action  647,96
 wait WaitTime
Move_Action  746,209
 wait WaitTime
Select_Action 746,209 '75%
 wait WaitTime
 Select_Action 665,20
 wait WaitTime
Move_Action  647,96
 wait WaitTime
Move_Action  747,231
 wait WaitTime
Select_Action 747,231 '100%
 wait WaitTime
 Select_Action 665,20
 wait WaitTime
Move_Action  647,96
 wait WaitTime
Move_Action  752,257
 wait WaitTime
Select_Action 752,257 '200%
 wait WaitTime
 Select_Action 665,20
 wait WaitTime
Move_Action  647,96
 wait WaitTime
Move_Action  753,276
 wait WaitTime
Select_Action 753,276 '500%
 wait WaitTime
Select_Action 665,20
 wait WaitTime
 Select_Action 644,116 '同步
 'wait WaitTime
  'Select_WAction 172,145

'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Select_Action 665,20
 wait WaitTime
  Select_Action 645,53 '保存
 wait WaitTime
 Select_WAction 152,135
 wait WaitTime
Window("全时SME客户端").Dialog("另存为").WinButton("保存(S)").Click
 wait WaitTime
If Window("全时SME客户端").Dialog("另存为").Dialog("另存为").Exist  Then
Window("全时SME客户端").Dialog("另存为").Dialog("另存为").WinButton("是(Y)").Click
End If
 wait WaitTime
 Select_WAction 172,145
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Select_Action 807,29 '退出白板全屏
If Window("全时SME客户端").Window("脚本错误").Exist  Then
Window("全时SME客户端").Window("脚本错误").WinObject("Internet Explorer_Server").Click 239,253
End If
Close_BB 2
End Function
'===============================================================================================================
'===============================================================================================================
'屏幕共享 
'主持人点击屏幕共享按钮 601,411
'主持人点击文档共享按钮 110,20
'主持人点击屏幕共享按钮 601,411
'主持人点击白板共享按钮 146,18
'主持人点击白板全屏按钮 1116,120
'主持人点击屏幕共享按钮  424,21
'主持人点击退出屏幕共享按钮回到白板全屏按钮 273,21
'主持人退出白板全屏 273,21
'===============================================================================================================
'操作函数，屏幕共享操作
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'屏幕共享相关操作，结束后停留在白板共享页面
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Function PMGX(WaitTime)
Select_Action 601,411'屏幕共享
Wait WaitTime
Select_WAction 110,20'共享文档
Wait WaitTime
Window("全时SME客户端").Dialog("打开").WinButton("取消").Click
Wait WaitTime
Select_Action 601,411'屏幕共享
Wait WaitTime
Select_WAction 146,18 '共享白板
Wait WaitTime
Select_Action 1116,120 '全屏白板
Wait WaitTime
Select_Action 424,21 '共享屏幕
Wait WaitTime
Select_WAction 273,21'退出全屏共享
Wait WaitTime
Select_WAction 273,21'退出白板全屏
End Function
'===============================================================================================================
'===============================================================================================================
'操作函数，聊天操作
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'聊天 
'主持人、参与人A、B、C、D在群聊窗口进行聊天
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Function LTS(St,LoopN,WaitTime)
   Select_Action 66,758
   For i=1 to LoopN
 Wait WaitTime
 Select_WAction 63,257
 Wait WaitTime
 InputInfo St
 Wait WaitTime
 Select_WAction 215,256
 Next
 Wait WaitTime
 Select_WAction 49,230
 Wait WaitTime
 Window("全时SME客户端").Window("Window").Dialog("另存为").WinButton("保存(S)").Click
    Wait WaitTime
 Select_WWAction 179,150
 Select_WAction 241,18
End Function
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'操作函数，私人聊天操作
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'主持人和某参与人进行私聊
'操作函数,私人聊天操作
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Function SRLT(St,LoopN,WaitTime)
 Select_Action 185,140
 For j=1 to LoopN
 Wait WaitTime
 Select_WAction 74,254
 Wait WaitTime
 InputInfo St
 Wait WaitTime
   Select_WAction 214,251
 Next
 Wait WaitTime
 Select_WAction 44,224
 Wait WaitTime
 Window("全时SME客户端").Window("Window").Dialog("另存为").WinButton("保存(S)").Click
 Wait WaitTime
 Select_WWAction 179,150
 Wait WaitTime
 Select_WAction 239,19
End Function
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'主持人进行屏幕共享
'参与人A退出全屏，并向主持人发送聊天消息，主持人收到聊天提示信息
'主持人退出屏幕共享
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'操作函数，共享屏幕
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Function  GXZM(WaitTime)
   Select_Action 581,420
 wait  WaitTime 'RandomNumber(50, 300)
 Select_WAction 276,23
End Function
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'主持人进行白板共享
'主持人全屏白板共享
'参与人A退出全屏白板，并向主持人发送聊天消息，主持人收到聊天提示信息
'主持人点击保存聊天记录链接
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'操作函数,共享白板
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Function GXBB(WaitTime)
Select_Action  955,418
Select_Action  1106,128
Wait WaitTime
Select_Action 795,21
End Function
'===============================================================================================================
'===============================================================================================================
'操作函数，权限切换 
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'主持人将主讲人权限授予给参与人C
'参与人C将主讲人权限授予给参与人D
'主持人收回主讲人权限
'主持人点击锁定会议按钮
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'权限切换（QXQH）
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Function QXQH(WaitTime)
'将第二个参会者设置为主讲人
Select_RAction  62, 143
wait WaitTime
Select_Action 113,176
wait WaitTime
Select_RAction 62,163
wait WaitTime
Select_Action 113,188
'回收权限
wait WaitTime
Select_RAction 62, 123
wait WaitTime
Select_Action 113,172
Wait WaitTime
End Function
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'操作函数，锁定会议或者取消锁定会议
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Function SDHY(WaitTime)
   Select_Action 1064,53
   Wait WaitTime
End Function
'===============================================================================================================
'===============================================================================================================
'结束会议 
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'主持人点击关闭按钮，弹出退会提示框，选择确定，会议结束
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'操作函数，关闭会议
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Function  CloseMeeting(WaitTime)
Select_Action 1261,17
wait WaitTime
Select_WAction 258,147
wait WaitTime
Select_WAction 255,146
wait WaitTime
Select_WAction 212,145
End Function
'===============================================================================================================