求内嵌IE浏览器的一个简单脚本 ？
想实现的效果：如图 ：：第一个是有边框的，比较简单，但如果要实现第二种效果，不知道源码怎么改：麻烦大家帮帮俺，谢谢了
下面是源码 ：
$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 #include <WindowsConstants.au3>
$Form1 = GUICreate("内嵌IE",300, 200,400,400,$WS_POPUP, $WS_EX_TOOLWINDOW); *****注意窗口扩展样式***** ;建立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");打开
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 ;=>使窗口能移动函数
;***** 楼上的大哥 ：
你的源码我怎么编译不了呢提示出错
不知哪里的问题，帮看下，谢谢了
把头文件改为：
#include <WindowsConstantsEx.au3> 论坛早有吧.... 大哥 ：我比较笨，试了几十遍都不行
能不能传个可以编译的源码，我看看是哪里不对
多谢大哥 帮助里都有啊 这个玩意不是很有意义的说。。。。。
页:
[1]