求内嵌IE浏览器的一个简单脚本 ？

d12990

想实现的效果：如图 ：：





第一个是有边框的，比较简单，但如果要实现第二种效果，不知道源码怎么改：麻烦大家帮帮俺，谢谢了

下面是源码 ：

$Form1 = GUICreate("内嵌IE",300, 200);建立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, 300, 200) ;对上面的对象设置大小

$oIE.navigate("http://www.baidu.com");打开

GUISetState(@SW_SHOW);显示gui

#EndRegion ### END Koda GUI section ### ;koda结束，一种制作gui的东西，方便新手

While 1 ;循环

     Sleep(1)  ;这个可以不要，是让cpu无法上升的语句      

     If GUIGetMsg() = -3 Then Exit ;如果按右上角的X就退出
GUISetState(@SW_SHOW)

Sleep ("2000")

MouseClick("left", 484, 365, 2, 150)

WEnd;

exit

ajian55

#include <WindowsConstants.au3>

$Form1 = GUICreate("内嵌IE",300, 200,400,400,$WS_POPUP, $WS_EX_TOOLWINDOW); *****注意窗口扩展样式*****   ;建立gui(1000X750);创建用户图形界面接口(GUI) 

$oIE = ObjCreate("Shell.Explorer.2");[url]http://msdn.microsoft.com/en-us/library/bb774094[/url](VS.85).aspx;[url]http://msdn.microsoft.com/en-us/library/bb774073[/url](VS.85).aspx

GUICtrlCreateObj($oIE, -12, -17, 300, 200) ;对上面的对象设置大小

$oIE.navigate("http://www.baidu.com");打开

GUIRegisterMsg($WM_NCHITTEST, "WM_NCHITTEST") ;*****使窗口能移动*****

GUISetState(@SW_SHOW);显示gui

#EndRegion ### END Koda GUI section ### ;koda结束，一种制作gui的东西，方便新手

While 1 ;循环

     Sleep(20)  ;这个可以不要，是让cpu无法上升的语句      

     If GUIGetMsg() = -3 Then Exit ;*****此时不能判断这个来退出程序了，用别的方法吧~*****如果按右上角的X就退出
 ;GUISetState(@SW_SHOW) 

;Sleep ("2000")

;MouseClick("left", 484, 365, 2, 150)

WEnd;

;exit

;*****
Func WM_NCHITTEST($hGui, $iMsg, $iwParam, $ilParam) 
        If ($hGui = $hGui) And ($iMsg = $WM_NCHITTEST) Then Return $HTCAPTION
EndFunc ;=>使窗口能移动函数
;*****

d12990

楼上的大哥 ：
你的源码我怎么编译不了呢  提示出错

不知哪里的问题，帮看下，谢谢了

ajian55

把头文件改为：
#include <WindowsConstantsEx.au3>

lxz

论坛早有吧....

d12990

大哥 ：我比较笨，试了几十遍都不行
能不能传个可以编译的源码，我看看是哪里不对

多谢大哥

karlpopper

帮助里都有啊 这个玩意不是很有意义的说。。。。。