内嵌IE不弹出新窗口.au3

速度有点慢，有待改进。

#include <IE.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
Opt("GUIOnEventMode", 1)

_IEErrorHandlerRegister()
$oIE = _IECreateEmbedded()
$url = "https://www.ampc8.com"
GUICreate("AM电脑吧", 700, 600, -1, -1, BitOR($GUI_SS_DEFAULT_GUI, $WS_MAXIMIZEBOX, $WS_MAXIMIZE, $WS_SIZEBOX))
GUISetOnEvent($GUI_EVENT_CLOSE, "_DeleteWin")
$AX = GUICtrlCreateObj($oIE, 0, 0, @DesktopWidth, @DesktopHeight - 35)
_IENavigate($oIE, $url)
_self()
GUISetState()

While 1
        If $oIE.readyState <> 4 Then _self()
WEnd

Func _self()
        GUICtrlSetState($AX, $GUI_HIDE)
        _IELoadWait($oIE)
        $As = _IETagNameGetCollection($oIE, "a")
        For $A In $As
                $A.target = "_self"
        Next
       
        $Forms = _IEFormGetCollection($oIE)
        For $Form In $Forms
                $Form.target = "_self"
        Next
       
        $Frames = _IEFrameGetCollection($oIE)
        If $Frames <> 0 Then
                For $Frame In $Frames
                        $As = _IETagNameGetCollection($Frame, "a")
                        For $A In $As
                                $A.target = "_self"
                        Next
                Next
        EndIf
        GUICtrlSetState($AX, $GUI_SHOW)
EndFunc   ;==>_self

Func _DeleteWin()
        Exit
EndFunc   ;==>_DeleteWin

回复 3# dmqhcx88


    改的不错！不过这样改仍然会弹出新窗口。

楼上的是有改进，不错 。

带地址栏输入的例子，可作为简单浏览器使用，

1. #include <ButtonConstants.au3>
   
2. #include "GUIConstantsEx.au3"
   
3. #include <WindowsConstants.au3>
   
4. #include <WinAPI.au3>
   
5. #include <IE.au3>
   
6. #include <Misc.au3>
   
7. Opt("GUIOnEventMode", 1)
   
8. Local $r = 1,$i = 0 ,$t = 0, $n = 0,$b = 0,$Text,$Text2="",$URL = "http://www.2055.com/"
   
9. Local $Form80,$Form[5],$Form2,$Button2,$Button3,$Button4,$Button5
   
10. $dll = DllOpen("user32.dll")   
    
11. $WebBrowser2=ObjCreate("Shell.Explorer.2")
    
12. $Form0 = GUICreate("AM电脑吧 test", 623, 449, -1, -1, BitOR($GUI_SS_DEFAULT_GUI, $WS_MAXIMIZEBOX, $WS_MAXIMIZE, $WS_SIZEBOX))  ;主窗体
    
13. GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")            
    
14. $Graphic1 = GUICtrlCreateGraphic(0, 0, @DesktopWidth, 0)   
    
15. GUICtrlSetGraphic(-1, $GUI_GR_MOVE, 0, 30)              
    
16. GUICtrlSetGraphic(-1, $GUI_GR_LINE, @DesktopWidth, 30)  
    
17. 
    
18. $Button1 = GUICtrlCreateButton("首页", 0, 36, 110, 25)   
    
19. GUICtrlSetResizing (-1, $GUI_DOCKALL)
    
20. $Button75 = GUICtrlCreateButton("停止", 0, 0, 40, 30)        
    
21. GUICtrlSetResizing (-1, $GUI_DOCKALL)                        
    
22. $Button76 = GUICtrlCreateButton("前进", 45, 0, 40, 30)
    
23. GUICtrlSetResizing (-1, $GUI_DOCKALL)
    
24. $Button77 = GUICtrlCreateButton("后退", 90, 0, 40, 30)
    
25. GUICtrlSetResizing (-1, $GUI_DOCKALL)
    
26. $Button78 = GUICtrlCreateButton("刷新", 135, 0, 40, 30)
    
27. GUICtrlSetResizing (-1, $GUI_DOCKALL)
    
28. $Button79 = GUICtrlCreateButton("主页", 180, 0, 40, 30)
    
29. GUICtrlSetResizing (-1, $GUI_DOCKALL)
    
30. $Button81 = GUICtrlCreateButton("退出", 225, 0, 40, 30)
    
31. GUICtrlSetResizing (-1, $GUI_DOCKALL)
    
32. $Button80 = GUICtrlCreateButton("帮助", 270, 0, 40, 30)
    
33. GUICtrlSetResizing (-1, $GUI_DOCKALL)
    
34. $Button82 = GUICtrlCreateButton("确定", 800, 5, 40, 20)      
    
35. GUICtrlSetResizing (-1, $GUI_DOCKALL)
    
36. $address_bar_label = GUICtrlCreateLabel("地址: ", 335, 8, 40, 20)  
    
37. GUICtrlSetResizing (-1, $GUI_DOCKALL)
    
38. Global $ini = "autoit.ini"
    
39. $iniread = IniRead($ini, "URL", "LAST URL", " ")
    
40. Global $read_homepage = IniRead($ini, "Settings", "Homepage", "")
    
41. Global $read_starthomepage = IniRead($ini, "Settings", "StartHomepage", "")
    
42. If $read_starthomepage = "0" Then $read_homepage = $iniread
    
43. $address_bar_input = GUICtrlCreateInput($read_homepage, 390, 5, 400, -1)      
    
44. GUICtrlSetResizing (-1, $GUI_DOCKALL)
    
45. GUICtrlSetOnEvent($Button1, "Activate1")                           
    
46. GUICtrlSetOnEvent($Button75, "Activate75")
    
47. GUICtrlSetOnEvent($Button76, "Activate76")
    
48. GUICtrlSetOnEvent($Button77, "Activate77")
    
49. GUICtrlSetOnEvent($Button78, "Activate78")
    
50. GUICtrlSetOnEvent($Button79, "Activate79")
    
51. GUICtrlSetOnEvent($Button80, "Activate80")
    
52. GUICtrlSetOnEvent($Button81, "Activate81")                 
    
53. GUICtrlSetOnEvent($Button82, "address_bar_input")
    
54. $status_bar = GUICtrlCreateLabel("载入: " & $read_homepage & "...", 0, 584, "", "", BitOR(11, 0x1000))
    
55. GUISetState(@SW_SHOW)
    
56. ;------------------------------------------------
    
57. $Form1 = GUICreate("首窗", 1024, 650, 0, 60,$WS_POPUP)                     
    
58. DllCall("user32.dll","hwnd","SetParent","hwnd",$Form1,"hwnd",$Form0)     
    
59. $WebBrowser1=ObjCreate("Shell.Explorer.2")                                 
    
60. GUICtrlCreateObj($WebBrowser1,0, 0, 1024, 750)                            ;设置IE对象大小
    
61. $EventObject=ObjEvent($WebBrowser1,"IEEvent_","DWebBrowserEvents")      
    
62. if @error then exit Msgbox(0,"错误!","不可使用COM接口 'DWebBrowserEvents'. 错误代码: " & hex(@error,8))
    
63. $Timer = DllCallbackRegister("Timer", "int", "hwnd;uint;uint;dword")   
    
64. $TimerDLL = DllCall($dll, "uint", "SetTimer", "hwnd", 0, "uint", 0, "int", 10, "ptr", DllCallbackGetPtr($Timer))
    
65. 
    
66. $WebBrowser1.Navigate( $URL)           
    
67. GUISetState(@SW_SHOW)
    
68. GUISwitch ($Form0)                     
    
69. ;-------------------------------------------------------------
    
70. While 1
    
71.                 Sleep (1)
    
72.                 $cursor = _WinAPI_GetCursorInfo()                           
    
73.            If $cursor[2]=65581 And _IsPressed("1", $dll) Then
    
74.                                 WinSetOnTop($Form1,"",1)
    
75.                  MsgBox(0,"IE内嵌不新建IE窗口", "0",1,WinGetHandle("Program Manager"))
    
76.                         WinSetOnTop($Form1,"",0)
    
77.                 If $Text2<>"" Then
    
78.                 WebBrowser1_Navigate()                          
    
79.                 EndIf                                
    
80.                    EndIf
    
81.                 $msg = GUIGetMsg()
    
82. Wend
    
83. ;-------------------------------------------------------------
    
84. Func WebBrowser1_Navigate()
    
85.             GUISwitch($Form0)  
    
86.                 $r = $r + 1
    
87.             $Form[$r] = GUICreate($Text2, 1024, 650, 0, 60,$WS_POPUP)  ;设置$Form[$r]作为装载IE新页面的窗体
    
88.                 _WinAPI_SetParent($Form[$r],$Form0)                       
    
89.                
    
90.                 $WebBrowser2=ObjCreate("Shell.Explorer.2")
    
91.         GUICtrlCreateObj($WebBrowser2, -12, 0, 1024, 750)   
    
92.                 $EventObject=ObjEvent($WebBrowser2,"IEEvent_","DWebBrowserEvents")
    
93.                 if @error then exit Msgbox(0,"错误!","不可使用COM接口 'DWebBrowserEvents'. 错误代码: " & hex(@error,8))
    
94.         $Timer = DllCallbackRegister("Timer", "int", "hwnd;uint;uint;dword")
    
95.         $TimerDLL = DllCall($dll, "uint", "SetTimer", "hwnd", 0, "uint", 0, "int", 10, "ptr", DllCallbackGetPtr($Timer))
    
96.                
    
97.         $WebBrowser2.Navigate( $Text2 )
    
98.                 GUISetState(@SW_SHOW)
    
99. EndFunc
    
100. ;--------------------------------------------
     
101. Func IEEvent_TitleChange($URL)               
     
102. $WR = IniRead ("web.ini","Button","Refresh","1")
     
103. $WF = IniRead ("web.ini","Button","Forward","1")
     
104. $WG = IniRead ("web.ini","Button","GoBack","1")
     
105. If $WR =1  And StringCompare ($URL,$WebBrowser2.LocationName) <> 0 And StringInStr($URL, "_") ="_" And StringLeft($URL,4)<>"http" Then         
     
106. $i = $i + 1
     
107. IniWrite("title.ini", "www","title"&$i, $URL)   ; 将所获得的URL标题写入配置ini文件
     
108. EndIf
     
109. wwwTab()
     
110. IniDelete ("web.ini","Button", "Refresh")
     
111. IniDelete ("web.ini","Button", "Forward")
     
112. IniDelete ("web.ini","Button", "GoBack")
     
113. EndFunc
     
114. ;----------------------------------------
     
115. Func IEEvent_StatusTextChange ($Text)   
     
116. If $Text<>'' And StringLeft($Text,4)="http" Then $Text2=$Text
     
117. EndFunc
     
118. ;====================================================================================
     
119. Func wwwTab()
     
120.         GUISwitch ($Form0)        
     
121.         $var2 = IniRead("title.ini", "www", "title2", "no")
     
122.         $var3 = IniRead("title.ini", "www", "title3", "no")
     
123.         $var4 = IniRead("title.ini", "www", "title4", "no")
     
124.         $var5 = IniRead("title.ini", "www", "title5", "no")
     
125. $Button2 = GUICtrlCreateButton($var2, 110, 36, 110, 25)
     
126. GUICtrlSetResizing (-1, $GUI_DOCKALL)
     
127. $contextmenu2 = GUICtrlCreateContextMenu ($Button2)         
     
128. $FormCLOSE2 = GUICtrlCreateMenuitem ("关闭",$contextmenu2)
     
129. GUICtrlSetOnEvent($FormCLOSE2, "FormCLOSE2")
     
130. 
     
131. $Button3 = GUICtrlCreateButton($var3, 220, 36, 110, 25)
     
132. GUICtrlSetResizing (-1, $GUI_DOCKALL)
     
133. $contextmenu3 = GUICtrlCreateContextMenu ($Button3)        
     
134. $FormCLOSE3 = GUICtrlCreateMenuitem ("关闭",$contextmenu3)
     
135. GUICtrlSetOnEvent($FormCLOSE3, "FormCLOSE3")
     
136. $Button4 = GUICtrlCreateButton($var4, 330, 36, 110, 25)
     
137. GUICtrlSetResizing (-1, $GUI_DOCKALL)
     
138. $contextmenu4 = GUICtrlCreateContextMenu ($Button4)         
     
139. $FormCLOSE4 = GUICtrlCreateMenuitem ("关闭",$contextmenu4)
     
140. GUICtrlSetOnEvent($FormCLOSE4, "FormCLOSE4")
     
141. $Button5 = GUICtrlCreateButton($var5, 440, 36, 110, 25)
     
142. GUICtrlSetResizing (-1, $GUI_DOCKALL)
     
143. $contextmenu5 = GUICtrlCreateContextMenu ($Button5)        
     
144. $FormCLOSE5 = GUICtrlCreateMenuitem ("关闭",$contextmenu5)
     
145. GUICtrlSetOnEvent($FormCLOSE5, "FormCLOSE5")
     
146. GUICtrlSetOnEvent($Button2, "Activate2")
     
147. GUICtrlSetOnEvent($Button3, "Activate3")
     
148. GUICtrlSetOnEvent($Button4, "Activate4")
     
149. GUICtrlSetOnEvent($Button5, "Activate5")
     
150. If $var2 = "no" Then
     
151.         GUICtrlSetState ( $Button2, $GUI_HIDE)
     
152.   Else                                       
     
153.         GUICtrlSetState ( $Button2, $GUI_SHOW)  
     
154. EndIf
     
155. If $var3 = "no" Then
     
156.         GUICtrlSetState ( $Button3, $GUI_HIDE)
     
157. Else
     
158.         GUICtrlSetState ( $Button3, $GUI_SHOW)
     
159. EndIf
     
160. If $var4 = "no" Then
     
161.         GUICtrlSetState ( $Button4, $GUI_HIDE)
     
162. Else
     
163.         GUICtrlSetState ( $Button4, $GUI_SHOW)
     
164. EndIf
     
165. If $var5 = "no" Then
     
166.         GUICtrlSetState ( $Button5, $GUI_HIDE)
     
167. Else
     
168.         GUICtrlSetState ( $Button5, $GUI_SHOW)
     
169. EndIf
     
170. EndFunc   ;==>wwwTab()  自定义的窗体按钮标签事件
     
171. ;=================================================================
     
172. Func Activate1()
     
173.         _WinAPI_SetParent($Form1,$Form0)              
     
174. EndFunc   ;==>Activate1
     
175. Func Activate2()
     
176.                  _WinAPI_SetParent($Form[2],$Form0)
     
177. EndFunc   ;==>Activate2
     
178. Func Activate3()
     
179.          _WinAPI_SetParent($Form[3],$Form0)        
     
180. EndFunc   ;==>Activate3
     
181. Func Activate4()
     
182.              _WinAPI_SetParent($Form[4],$Form0)
     
183. EndFunc   ;==>Activate4
     
184. Func Activate5()
     
185.              _WinAPI_SetParent($Form[5],$Form0)
     
186. EndFunc   ;==>Activate5
     
187.         
     
188. ;----------------------------------------------------------------
     
189. Func Activate75()
     
190.         _IEErrorHandlerRegister ("MyErrFunc_Stop")
     
191.         $WebBrowser2.Stop
     
192. EndFunc   ;==>Activate75
     
193. Func Activate76()
     
194.         _IEErrorHandlerRegister ("MyErrFunc_Forward")     
     
195.         $WebBrowser2.GoForward
     
196.     IniWrite ("web.ini", "Button", "Forward", "et" )        
     
197. EndFunc   ;==>Activate76
     
198. Func Activate77()
     
199.    _IEErrorHandlerRegister ("MyErrFunc_GoBack")
     
200.         $WebBrowser2.GoBack
     
201.     IniWrite ("web.ini", "Button", "GoBack", "et" )        
     
202. EndFunc   ;==>Activate77
     
203. Func Activate78()
     
204.         _IEErrorHandlerRegister ("MyErrFunc_Refresh")
     
205.         $WebBrowser2.Refresh  
     
206.         IniWrite ("web.ini", "Button", "Refresh", "et" )
     
207. EndFunc   ;==>Activate78
     
208. Func Activate79()
     
209.         _IEErrorHandlerRegister ("MyErrFunc_Navigate")
     
210.         $WebBrowser2.Navigate
     
211. EndFunc   ;==>Activate79
     
212. Func Activate80()
     
213.          GUISwitch ($Form0)
     
214.      $Form80 = GUICreate("帮助", 400, 300, 250, 214)
     
215.          $Button801 = GUICtrlCreateButton("关闭", 88, 180, 150, 30)
     
216.          GUICtrlSetOnEvent($Button801, "CLOSEActivate80")
     
217.      GUISetState(@SW_SHOW)
     
218. EndFunc   ;==>Activate80
     
219. Func CLOSEActivate80()
     
220.         _WinAPI_SetParent($Form80,$Form0)
     
221.         _WinAPI_MoveWindow($Form80, 0, 0, 0, 0, True)
     
222. EndFunc   ;==>Activate81
     
223. Func FormCLOSE2()
     
224.   _WinAPI_MoveWindow($Form[2], 0, 0, 0, 0, True)
     
225.   GUICtrlSetState ($Button2, $GUI_HIDE)
     
226.   IniDelete ("title.ini", "www", "title2")
     
227. EndFunc
     
228. Func FormCLOSE3()
     
229.   _WinAPI_MoveWindow($Form[3], 0, 0, 0, 0, True)
     
230.   GUICtrlSetState ($Button3, $GUI_HIDE)
     
231.   IniDelete ("title.ini", "www", "title3")
     
232. EndFunc
     
233. Func FormCLOSE4()
     
234.   _WinAPI_MoveWindow($Form[4], 0, 0, 0, 0, True)
     
235.   GUICtrlSetState ($Button4, $GUI_HIDE)
     
236.   IniDelete ("title.ini", "www", "title4")
     
237. EndFunc
     
238. Func FormCLOSE5()
     
239.   _WinAPI_MoveWindow($Form[5], 0, 0, 0, 0, True)
     
240.   GUICtrlSetState ($Button5, $GUI_HIDE)
     
241.   IniDelete ("title.ini", "www", "title5")
     
242. EndFunc
     
243. ;----------------------------------------------------------------
     
244. Func Timer($hWnd, $uiMsg, $idEvent, $dwTime)
     
245.         If WinExists("IE内嵌不新建IE窗口") Then
     
246.                 WinMove("IE内嵌不新建IE窗口","",@DesktopWidth,@DesktopHeight,0,0,1)
     
247.                 Send("{Enter}")
     
248.         EndIf
     
249. EndFunc
     
250. ;-----------------------------------------------------------------
     
251. Func MyErrFunc_Stop()
     
252.     $ErrorOutput = ""
     
253.     $ErrorOutput &= "停止打开!"
     
254.     MsgBox(0,"COM Error", $ErrorOutput)
     
255.     SetError(1)
     
256.     Return
     
257. EndFunc  ;==>MyErrFunc_Stop
     
258. Func MyErrFunc_Forward()
     
259.     $ErrorOutput = ""
     
260.     $ErrorOutput &= "无法前进!"
     
261.     MsgBox(0,"COM Error", $ErrorOutput)
     
262.     SetError(1)
     
263.     Return
     
264. EndFunc  ;==>MyErrFunc_Forward
     
265. Func MyErrFunc_GoBack()
     
266.     $ErrorOutput = ""
     
267.     $ErrorOutput &= "无法后退!"
     
268.     MsgBox(0,"COM Error", $ErrorOutput)
     
269.     SetError(1)
     
270.     Return
     
271. EndFunc  ;==>MyErrFunc_GoBack
     
272. Func MyErrFunc_Refresh()
     
273.     $ErrorOutput = ""
     
274.     $ErrorOutput &= "无法刷新!"
     
275.     MsgBox(0,"COM Error", $ErrorOutput)
     
276.     SetError(1)
     
277.     Return
     
278. EndFunc  ;==>MyErrFunc_Refresh
     
279. Func MyErrFunc_Navigate()
     
280.     $ErrorOutput = ""
     
281.     $ErrorOutput &= "没有主页!"
     
282.     MsgBox(0,"COM Error", $ErrorOutput)
     
283.     SetError(1)
     
284.     Return
     
285. EndFunc  ;==>MyErrFunc_Navigate
     
286. ;----------------------------------------------------------------
     
287. Func address_bar_input()
     
288.         $addy = GUICtrlRead($address_bar_input)
     
289.                 _StatusChange("Loading: " & $addy & "...")
     
290.                  WebBrowser1_Navigate()
     
291.          $WebBrowser2.Navigate( $addy)
     
292.             _StatusChange("Done.")
     
293. EndFunc
     
294. Func _StatusChange($message)
     
295.     GUICtrlSetData($status_bar, $message)
     
296. EndFunc   ;==>_StatusChange
     
297. ;----------------------------------------------------------------
     
298. Func CLOSE()
     
299.                                 $EventObject.Stop  
     
300.                 $EventObject=0     
     
301.                 $WebBrowser1=0              ; 清除内存
     
302.                 GUIDelete ()  
     
303.                 DllCall($dll, "int", "KillTimer", "hwnd", 0, "uint", $TimerDLL)
     
304.                 DllCallbackFree($Timer)
     
305.                 DllClose($dll)
     
306.                                 FileDelete("ini.ini")   ;直接删除
     
307.                     FileDelete("title.ini")
     
308.                     FileDelete("url.ini")
     
309.                   
     
310.                                 Exit
     
311. EndFunc
     
312. Func Activate81()
     
313.         CLOSE()  
     
314. EndFunc   ;==>Activate81
     
315. Func CLOSEClicked()
     
316.         CLOSE()                        
     
317. EndFunc

复制代码

如果有人能添加 地址栏那些 就好了 。