问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

帮忙看一段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当前打开的第一个(按字母、拼音顺序)网页的源代码,将其存入一个变量中。
应该是这样。
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
为什么word换行的时候不对齐? 老人各类心脏病的急救方法有哪些呢? 老人心脏病突然发作怎么办 老人突发心脏病该如何急救呢? TAO黄子韬 tao什么学校毕业? 红楼梦第14回特色句92句精选 今天出院又入院医保 FPM看这一篇就够了 “更何入他不二门”的出处是哪里 求助! 控制面版中的"添加/删除程序"无效 适合送长辈的高奢酒有哪些? 夏新N821刷机到4.1.1,不能root。我先用线刷了移动叔叔的rec,然后再... GT-5830i手机通过甜椒刷机后开不了机 青华郎m-10的激活码忘记了怎么办? 有egf的化妆品会致癌吗? EGF产品有什么不良影响吗 egf有依赖性吗 为什么家长给老师送礼? 教师节给班主任老师发红包合适吗? 如何给老师发红包 吉弗尼冻干粉是否有激素 《木兰花·池塘水绿风微暖》赏析 ...现在在外实习,想办一张信用卡,那个银行的比较好?额度高?_百度... W7系统 如何实现定时启动程序,自动操作程序 oppor7plus可以换oppor7plusm的主板吗? 如图,用4张长为a,宽为b的长方形纸片拼成一个大正方形后,中间还缺一个... 如图所示,有一个长为a,宽为b的长方形,在四个角上各剪去一个边为c的小... 冻干粉对皮肤的副作用 阴阳师放大镜怎么使用 依圣美冻干粉中年人可以使用吗 shellappsfolder没有注册类 依圣美平皱嫩肤冻干粉有限制年龄使用嘛 给鱼儿们换灯散文随笔 依圣美效果如何 依圣美EGF(冻干粉)真的有他说的那么好吗 QQ相册支持您上传gif、jpg、png格式的图片什么意思 我上传不了啊 蒸面糕快熟是为什么在火里加盐 给我几个“borrowed”的特殊解释,即非常理解释!谢谢! 男性治肾虚最好的方法 梵贞的产品用户评价如何? 梵贞是正规牌子吗 梵贞这个牌子怎么样 推拉门用单层玻璃好还是双层玻璃好 ...borrow介词短语和句型详细说一下,顺便给几个例句,谢谢了~ 肾虚头晕的治疗方法有哪些 推拉门选单层8mm玻璃还是双层10mm he has never borrowed money for me 有气质的女人应该具备哪些条件呢? “鸿飞九天上”的出处是哪里 想当导演或演员或编剧。