oo2010 发表于 2015-9-18 23:39:06

如何显示黄金交易网站的行情

这是一个黄金贵金属的交易网站，http://www.kitco.cn/
想创建一个窗口，在窗口嵌入一个IE的对象，且只显示网站上面的一部份，如图片所示

heroxianf 发表于 2015-9-20 20:38:15

看上去也是我想学习的，顶一下。。

ap112 发表于 2015-9-21 16:12:43

看在楼主头像的份上，给个源码。#include <IE.au3>
#include <Array.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
$Form1 = GUICreate("Form1", 620, 360)
local $a = _GetData()
$ListView1 = GUICtrlCreateListView($a, 10, 10, 600, 340)
For $i = 1 To 8
        GUICtrlCreateListViewItem($a[$i],$ListView1)
Next

GUISetState(@SW_SHOW)


While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit

        EndSwitch
WEnd

Func _GetData()
        Local $oIE = _IECreate("http://www.kitco.cn/",0,0)
        Local $oTable = _IETableGetCollection ($oIE, 49)
        Local $aTableData = _IETableWriteToArray ($oTable, True)
        _IEQuit($oIE)
        Local $str,$listviewitem
        For $i = 0 To 8
                $str = ""
                For $j = 0 To 8
                        $str &= $aTableData[$i][$j]&"|"
                Next
                $listviewitem[$i] = StringTrimRight($str,1)
        Next
        Return $listviewitem
endfunc




heroxianf 发表于 2015-9-22 22:13:57

回复 3# ap112

楼主头像我沾光了

heroxianf 发表于 2015-9-22 22:17:12

看在楼主头像的份上，给个源码。
ap112 发表于 2015-9-21 16:12 http://www.autoitx.com/images/common/back.gif


运行后没界面啊求指点。

ap112 发表于 2015-9-23 08:50:01

回复 5# heroxianf


   第八行代码是从网站上取数据，取数据越快，显示越快。

运行后等两分钟就看到了，楼主可以优化一下呀！先显示界面，在加载数据。

需要说一声有空帮你改改。。。。。不过等两分钟看看情况

heroxianf 发表于 2015-9-24 00:58:33

回复 6# ap112


    我是WIN7 64位   运行后确实连界面都没有   等了两分钟也没有。

ap112 发表于 2015-9-24 08:54:36

回复 7# heroxianf

代码运行图如下：


实在不行你运行下面代码看看#include <IE.au3>
#include <Array.au3>
$oIE = _IECreate("http://www.kitco.cn/")
$oTable = _IETableGetCollection ($oIE, 49)
$aTableData = _IETableWriteToArray ($oTable, True)
_ArrayDisplay($aTableData)
这是我的运行的图片：

ap112 发表于 2015-9-24 08:55:33

楼主电脑或者RP有故障呀，哈哈

heroxianf 发表于 2015-9-24 20:07:59

回复 9# ap112

可能是我系统问题第二个代码还是没有界面，运行过程没有提示错误。{:face (394):}

ap112 发表于 2015-9-25 09:08:21

{:face (303):}

ap112 发表于 2015-9-25 16:39:23

#include <IE.au3>
#include <Array.au3>
$oIE = _IECreate("http://www.kitco.cn/")
$oTable = _IETableGetCollection ($oIE, 49)
$aTableData = _IETableWriteToArray ($oTable, True)
_ArrayDisplay($aTableData)
MsgBox(0,"提示","已完成")等待程序运行完，也就是不弹出Msgbox就没运行完，你的网速不行，不过这个网站确实加载会很慢很慢。不行就点击运行，出去吃顿饭洗个澡再回来看看还是没结果吗？期间电脑一点都不要动。

wangms 发表于 2015-9-26 02:19:33

本帖最后由 wangms 于 2015-9-26 02:21 编辑

回复 3# ap112

请教，表索引号49是通过什么好办法对网页源码分析得出的？

heroxianf 发表于 2015-9-26 08:59:13

回复 12# ap112

成功了，谢谢，再问一个问题：我听别人说要通过正规则表达式挖出来 你这个不像正规则挖出来的。如何做到挖出指定窗口。

ap112 发表于 2015-9-28 08:57:55

回复 14# heroxianf


    _IETableGetCollection 你看看这个函数就明白了。因为你的网站一眼看过去就有很多Table，我是枚举出来的，才知道49.
页: [1] 2
查看完整版本: 如何显示黄金交易网站的行情