本帖最后由 haijie1223 于 2014-3-28 17:03 编辑
#include <IE.au3>
Dim $hGUI, $obj,$oIE,$web
$hGUI = GUICreate(@YEAR & "年" & @MON & "月" & @MDAY & "日" & "白银即时走势图-wayy制作", 490, 350)
$oIE = _IECreateEmbedded()
$web = "http://hq.sdb.com.cn/DFPIC/DFPic.dll?MinuteX&zqdm=AG0001.HJ&width=450&height=300&title=0&volume=0&percent=0"
$obj = GUICtrlCreateObj($oIE, 5, 5, 490, 350)
GUISetState()
DataUpdate()
AdlibRegister("DataUpdate", 2000)
While 1
If GUIGetMsg() = -3 Then Exit (AdlibUnRegister("DataUpdate"))
WEnd
Func DataUpdate()
$oIE.navigate("about:blank")
$oIE.document.body.style.border = "0"
$oIE.document.write("<body style='border:0;margin:0px'><iframe scrolling=no frameborder=0 src =" & $web & " width=100% height=100%></iframe></body>")
$oIE.refresh
$oIE.document.body.scroll = "no"
EndFunc ;==>DataUpdate
|