用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 底部有完整工程打包下载。
Dim w As New clsWindow If w.GetWindowByTitle("打开课堂", 1).Hwnd <> 0 Then w.Focus SendKeys "100140792" & vbTab & vbCrLf End If
809
社区成员
8,274
社区内容
加载中
试试用AI创作助手写篇文章吧