找 课 堂

[case 1]

学校安排了网课 但我不想上本班的老师的课 但我知道学校老师课堂ID的范围 可我如何将随机的数 自觉输入电脑里 让他帮我找 我只需要确定是否是我想上的课 每次输入完毕 此窗口都会消失 进入输入ID的课堂

[无·法]

用clswindow框架的话几行代码就可以。

Dim w As New clsWindow
If w.GetWindowByTitle("打开课堂", 1).Hwnd <> 0 Then
    w.Focus
    SendKeys "100140792" & vbTab & vbCrLf
End If

完整代码参考：https://www.kancloud.cn/sysdzw/clswindow/1525000 底部有完整工程打包下载。

[case 1]

在他自动填入之前 我在代码里不是还得反复输入随机数？

[case 1]

引用 1 楼 版祖的回复:

用clswindow框架的话几行代码就可以。

Dim w As New clsWindow
If w.GetWindowByTitle("打开课堂", 1).Hwnd <> 0 Then
    w.Focus
    SendKeys "100140792" & vbTab & vbCrLf
End If

完整代码参考：https://www.kancloud.cn/sysdzw/clswindow/1525000 底部有完整工程打包下载。

在他自动填入之前 我在代码里不是还得反复输入随机数？

[无·法]

你知道的范围是多少？比如从1000到2000，那么就循环1000次测试好了。 不过如果数字太大那么测试时间是不是太长了。