#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#Region ### START Koda GUI section ### Form=
Dim $dll
$Form1 = GUICreate("近日天气情况", 300, 270)
$Label1 = GUICtrlCreateLabel("“AutoIt论坛”提醒你时刻注意天气变化", 15, 15, 270, 30, 0)
GUICtrlSetColor($Label1, 0xFF00FF)
$Group1 = GUICtrlCreateGroup("", 9, 28, 280, 223)
$oIE = _IECreateEmbedded()
$GUIActiveX = GUICtrlCreateObj($oIE, 18, 44, 264, 200)
GUISetState(@SW_SHOW)
$oIE.navigate("http://www.soso.com/tb.q")
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd |