内嵌IE浏览器窗口(自问自答,方便搜索)

五猫橙

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3> ;这个别忘了
#Region ### START Koda GUI section ### 
$Form1 = GUICreate("窗体1",1000, 750)
;下面是关键
$oIE = ObjCreate("Shell.Explorer.2")
GUICtrlCreateObj($oIE, -12, -17, 1000, 750)
$oIE.navigate("http://www.autoitx.com/")
;上面是关键
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit

        EndSwitch
WEnd

今天研究这个问题..搜索了半天在这里得到了答案,在这儿留个脚印方便自己和大家查询.欢迎大家指出错误哈..

hnzzlzj

楼主可真有创意啊

水木子

很不错，留名学习！

kn007

给楼主做点小修改

#NoTrayIcon;无系统托盘图标
#Region ### START Koda GUI section ###  ;koda开始，一种制作gui的东西，方便新手
$Form1 = GUICreate("窗体1",1000, 750);建立gui(1000X750);创建用户图形界面接口(GUI) 
$oIE = ObjCreate("Shell.Explorer.2");http://msdn.microsoft.com/en-us/library/bb774094(VS.85).aspx;http://msdn.microsoft.com/en-us/library/bb774073(VS.85).aspx
GUICtrlCreateObj($oIE, -12, -17, 1000, 750) ;对上面的对象设置大小
$oIE.navigate("http://www.autoitx.com/");打开http://www.autoitx.com/
GUISetState(@SW_SHOW);显示gui
#EndRegion ### END Koda GUI section ### ;koda结束，一种制作gui的东西，方便新手
While 1 ;循环
     Sleep(1)  ;这个可以不要，是让cpu无法上升的语句      
     If GUIGetMsg() = -3 Then Exit ;如果按右上角的X就退出
WEnd;循环结束

建议复制到SciTE查看

sunafter

很好，学习一下

水木子

4# kn007
这个更简单明了，如果加上注释就更好了。

kn007

加了，不对的请指示

水木子

加了，不对的请指示
kn007 发表于 2009-9-12 22:20

有心人，代表我们新人谢谢你！也谢谢楼主。

clshuai

很好，学习了

fox_hazard

呵呵，楼主有心了，加油

ollydbg

楼主真是个有心人，学习了~

喜马拉雅河

为什么我复制上面代码,执行后显示网页打不开呢?显示"Internet Explorer 不能链接到您请求的网页。此页可能暂时不可用",

我把网址换成百度网址,仍打不开,是怎么回事哪?

dajun

关注一下啦

tryhi

可惜啊，碰到跳转链接，就会弹出IE窗口

smokewu

有心人，代表我们新人谢谢你！