帮忙看一段vb代码是什么意思。

发布网友发布时间：2024-10-08 22:38

共2个回答

热心网友时间：2024-12-14 05:36

Dim oShellApp: Set oShellApp = CreateObject("Shell.Application")
定义一个Shell对象变量，并初始化为Shell对象的引用
Dim oShellAppWindows: Set oShellAppWindows = oShellApp.Windows
定义一个窗口对象集合，并初始化窗口对象集合的引用
Dim owin
定义一个窗口对象变量
'获取弹出的IE窗口
For Each owin In oShellAppWindows '获取弹出的IE窗口
在oShellAppWindows 窗口对象集合中遍历，遍历的每一个窗口对象赋给owin变量
If LCase(TypeName(owin.Document)) = "htmldocument" And _
InStr(1, owin.LocationName, IeTitle, vbTextCompare) > 0 Then '如果找到符合条件的IE窗口
判断如果窗口类型名为htmldocument ，并且窗口标题名包含变量IeTitle的文本，则找到符合条件的窗口
GetIeHtml = owin.Document.activeElement.Document.documentElement.innerHTML '此句可获得完整html代码
GoTo Mend '退出
End If
Next

Mend:
后三句都是释放对象变量的引用
Set oShellAppWindows = Nothing
Set oShellApp = Nothing
Set owin = Nothing

这样解释够详细了吧。

热心网友时间：2024-12-14 05:36

获取IE当前打开的第一个（按字母、拼音顺序）网页的源代码，将其存入一个变量中。
应该是这样。