#include <IE.au3>
$Form1 = GUICreate("Form1", 802, 548, 192, 124)
$Group1 = GUICtrlCreateGroup("126邮箱注册", 8, 8, 633, 529)
$oIE = _IECreateEmbedded()
$GUIActiveX = GUICtrlCreateObj($oIE, 15, 30, 615, 500)
_IENavigate($oIE, 'about:blank')
GUICtrlSetFont(-1, 9, 400, 0, "宋体")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("开始", 648, 130, 63, 25)
$Button2 = GUICtrlCreateButton("刷新", 728, 130, 65, 25)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
Case $Button1
_go()
EndSwitch
WEnd
Func _go()
_IEBodyWriteHTML($oIE, '<html><iframe name="I1" width="780" vspace="-150" hspace="-200" align="middle" height="500" scrolling="no" border="0" frameborder="0" src=http://reg.email.163.com/mailregAll/reg0.jsp?from=126mail></iframe></html>')
EndFunc ;==>_go
|