企业🤖AI Agent构建引擎,智能编排和调试,一键部署,支持私有化部署方案 广告
## 说明: 本案例是使用clsWindow2.2框架自动化操作腾讯课堂,根据指定课堂ID进入直播。 ## 测试环境: >[info]win7x64 + clsWindow2.2 + 腾讯课堂客户端V1.5.4.35 **说明:** 如果不能用可能是您的版本太旧,或者操作系统版本不一样,请仔细检查并修改相应代码。以下代码2020-02-28测试通过,本代码不保证更新。 ## 声明: >[warning]本代码免费,可用于任何商业用途,但请勿做非法用途,所引起的一切后果由使用者本人承担。 ## 代码: 请向窗口添加按钮Command1,复制下面代码后,打开腾讯课堂并登录,然后运行。 ``` '点击相应菜单打开窗口“打开课堂” Private Sub Command1_Click() Dim w As New clsWindow If w.GetWindowByTitleEx("腾讯课堂", 1).Hwnd <> 0 Then w.Focus w.ClickPoint 30, 30, , , 100, 500 '点击左上角坐标拉出菜单,也就是图中1处 w.ClickPoint 30, 150, , , 100, 500 '点击菜单“更多”坐标,也就是图中2处 w.ClickPoint 230, 150, , , 100, 500 '点击菜单“上课ID进入课堂”坐标,也就是图中3处 End If End Sub '输入ID进入课堂 Private Sub Command2_Click() Dim w As New clsWindow If w.GetWindowByTitle("打开课堂", 1).Hwnd <> 0 Then w.Focus SendKeys "100140792" & vbTab & vbCrLf '制表符表示切换到按钮,然后发送回车表示点击确定 End If End Sub ``` 第一个按钮是找到腾讯课堂窗口然后点击一些列菜单打开课堂窗口,第二个按钮是自动输入id然后进入的。 ![](https://img.kancloud.cn/91/e4/91e4ce9e074ec7603edebaa48a539f7d_518x168.png) &nbsp; **按钮1操作如下图所示:** ![](https://img.kancloud.cn/3e/f8/3ef840617c9487d6e44033ee4fde235f_369x323.png) &nbsp; **按钮2操作如下图所示:** ![](https://img.kancloud.cn/32/a8/32a83f4899ed6c89c70746e42b5efbf2_312x180.png) &nbsp; **工程打包下载地址:** https://pan.baidu.com/s/1p6e8drFmSriuyHS_uZw4HA 提取码: pjyf