五猫橙 发表于 2009-9-12 13:57:29

内嵌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 发表于 2009-9-12 18:32:51

楼主可真有创意啊

水木子 发表于 2009-9-12 21:40:04

很不错，留名学习！

kn007 发表于 2009-9-12 21:42:45

给楼主做点小修改#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 发表于 2009-9-12 21:46:38

很好，学习一下

水木子 发表于 2009-9-12 21:50:33

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

kn007 发表于 2009-9-12 22:20:36

加了，不对的请指示

水木子 发表于 2009-9-12 22:24:10

加了，不对的请指示
kn007 发表于 2009-9-12 22:20 http://www.autoitx.com/images/common/back.gif
有心人，代表我们新人谢谢你！也谢谢楼主。

clshuai 发表于 2009-9-14 12:51:32

很好，学习了

fox_hazard 发表于 2009-9-17 15:05:52

呵呵，楼主有心了，加油

ollydbg 发表于 2009-12-20 18:59:55

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

喜马拉雅河 发表于 2009-12-21 07:35:29

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

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

dajun 发表于 2010-4-27 06:46:37

关注一下啦

tryhi 发表于 2010-6-23 18:08:31

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

smokewu 发表于 2011-3-28 10:10:43

有心人，代表我们新人谢谢你！
页: [1] 2
查看完整版本: 内嵌IE浏览器窗口(自问自答,方便搜索)