[已解决]窗体关闭按钮为何不管用了？
本帖最后由 acbs 于 2014-3-31 10:19 编辑#include <IE.au3>
$hGUI = GUICreate(@YEAR&"年"&@MON&"月"&@MDAY&"日"& "白银即时走势图-wayy制作", 490, 350)
For $i = 1 To 9^99
$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"
GUICtrlCreateObj($oIE, 5, 5, 490, 350)
GUISetState()
$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"
If GUIGetMsg() = -3 Then Exit
Sleep (2000)
Next
以上代码是自己做了个小东东，但是窗体的关闭按钮为何关不了呢？请大家指点一下。谢谢。
还有个小问题就是，2秒刷新一次，闪屏可以去掉吗？ 本帖最后由 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
因为你sleep的时间太长了，所以点击按钮的时间不可能正好被响应。而且不停地创建控件会导致内存占用越来越大~~~ 回复 3# haijie1223
谢谢老兄，测试成功{:face (356):}。 谢谢分享 收藏 虽然我这简单的回复属于灌水，但也是对楼主莫大的支持
页:
[1]