回复 5# jjf #include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt('GUIOnEventMode', 1)
Main()
Func Main()
Local $oIE = ObjCreate('Shell.Explorer.2')
Local $hGui = GUICreate('', 600, 400)
GUICtrlCreateObj($oIE, 0, 0, 600, 400)
GUISetOnEvent(-3, 'GuiEvent')
$oIE.navigate('about:blank')
GUISetState()
$oIE.navigate('http://www.autoitx.com/', 2, '', '', StringFormat('Referer:http://www.baidu.com/\r\nUser-Agent:MyAgent'));
While 1
Sleep(100)
WEnd
EndFunc ;==>Main
Func GuiEvent()
Switch @GUI_CtrlId
Case -3
GUIDelete()
Exit
EndSwitch
EndFunc ;==>GuiEvent
|