[已解决]窗体关闭按钮为何不管用了？

acbs · 发表于 2014-3-28 16:31:34

本帖最后由 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 16:42:14

本帖最后由 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

haijie1223 · 发表于 2014-3-28 17:01:43

因为你sleep的时间太长了，所以点击按钮的时间不可能正好被响应。而且不停地创建控件会导致内存占用越来越大~~~

acbs · 发表于 2014-3-31 10:19:14

回复 3# haijie1223

谢谢老兄，测试成功

。

liuxingghost · 发表于 2015-3-22 05:08:37

谢谢分享收藏

gwgelin · 发表于 2015-4-13 07:44:02

虽然我这简单的回复属于灌水，但也是对楼主莫大的支持

		自动登录	找回密码
密码			加入

[GUI管理] [已解决]窗体关闭按钮为何不管用了？

相关帖子