空间互访网站源码分享(空间互访小房子怎么弄)

大家好,感谢邀请,今天来为大家分享一下空间互访网站源码分享的问题,以及和空间互访小房子怎么弄的一些困惑,大家要是还不太明白的话,也没有关系,因为接下来将为大家分享,希望可以帮助到大家,解决大家的问题,下面就开始吧!

WebService是一种新的Web应用程序分支,其可以执行从简单的请求到复杂商务处理的任何功能。WebService技术使得运行在不同机器上的不同应用进行数据交互或集成。

1、WebService简介

WebService也叫XMLWebServiceWebService是一种可以接收从Internet或者Intranet上的其它系统中传递过来的请求,轻量级的独立的通讯技术。WebService的主要目标是跨平台的可互操作性。为了实现这一目标,WebService完全基于XML(可扩展标记语言)、XSD(XMLSchema)等独立于平台、独立于软件供应商的标准,是创建可互操作的、分布式应用程序的新平台。

API(ApplicationProgrammingInterface,应用程序编程接口)是一些预先定义的函数,目的是提供应用程序与开发人员基于某软件或硬件得以访问一组例程的能力,而又无需访问源码,或理解内部工作机制的细节。

应用程序接口(API:applicationprogramminginterface)是一组定义、程序及协议的集合,通过API接口实现计算机软件之间的相互通信。API的一个主要功能是提供通用功能集。程序员通过使用API函数开发应用程序,从而可以避免编写无用程序,以减轻编程任务。

2、腾讯股票实时数据

腾讯提供相对稳定、免费的股票即时数据WebServiceAPI接口,分为股票实时数据详细信息和简要信息。

I、股票实时数据详细信息

接口:http://qt.gtimg.cn/q=sh601006

返回值:

v_sh601006=&34;;7.40~-3.77~4.15~22.45~18.52~216.11~128.55~-3.24~1.50~-14.46~3881525907~3881608005~-30.63~-1.94~3881525907~~~-12.97~-0.15~~CNY~0~___D__F__N&34;1~大秦铁路~601006~7.48~0.05~0.67~260548~19408~~1132.80~GP-A&39;WebBrowser1控件加载上证指数分时线图形\nWebBrowser1.Navigate&34;\n&34;分时线&34;日K线&34;周K线&34;月K线&39;计算要抓取的股票和指数数量和\nTextBox1.Value=Sheet1.UsedRange.Rows.Count+Sheet3.UsedRange.Rows.Count-4\nEndSub

点击【数据抓取】代码:

PrivateSubCommandButton1_Click()\nDimi,kAsInteger\nDimIDAsString\nDimstrAsString\nDimURLAsString\nDimapp,wb,wc\n&34;Excel.Application&34;代码&34;名称&34;实时价格&34;涨跌&34;涨跌(%)&39;设置股票代码\nURL=&34;&ID&39;由当前工作簿打开数据接口\nSetwc=wb.Sheets.Item(1)\n&34;~&34;~&34;~&34;~&34;代码&34;名称&34;实时价格&34;涨跌&34;涨跌(%)&34;http://qt.gtimg.cn/q=s_&34;~&34;~&34;~&34;~&39;获得单元格所在行\nr=Target.Row\n&39;调用子过程setChart(r,c,1),第3个参数为常数1,表示点击的是sheet1\nsetChartr,c,1\nEndSub

点击sheet3第一列股指数票代码显示图形代码:

PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)\nDimr,c\nr=Target.Row\nc=Target.Column\nsetChartr,c,3\nEndSub

模块1中用子过程setChart代码:

SubsetChart(r,c,p)\nDimsAsInteger\nDimIDAsString\nIfc=1Andr>1Then\nIfp=1Then\nID=Sheet1.Cells(r,1)\nElse\nID=Sheet3.Cells(r,1)\nEndIf\nEndIf\ns=UserForm1.ComboBox1.ListIndex\nIfs=0ThenUserForm1.WebBrowser1.Navigate&34;&ID&&34;\nIfs=1ThenUserForm1.WebBrowser1.Navigate&34;&ID&&34;\nIfs=2ThenUserForm1.WebBrowser1.Navigate&34;&ID&&34;\nIfs=3ThenUserForm1.WebBrowser1.Navigate&34;&ID&&34;\nEndSub

代码中,&34;为新浪股票图形接口地址,

新浪股票分时线:http://image.sinajs.cn/newchart/min/n/sh000001.gif&34;新浪股票月K线:http://image.sinajs.cn/newchart/monthly/n/sh000001.gif&39;当前单元格所在行\nr=ActiveCell.Row\n&39;当前表格序号\np=ActiveWindow.ActiveSheet.Index\nsetChartr,c,p

打开窗体,鼠标选择sheet1中茅台酒股票代码”sh600519“,如图:

下拉框选择日K线:

下拉框选择周K线:

下拉框选择月K线:

用户可根据自己的判断选择感兴趣的股票进行实时监控,数据抓取刷新后可在其它表格(如sheet5、sheet6等)通过跨表格数据引用进行进一步处理、分析,对个别感兴趣的股票也可以通过不同类图形观察其历史变化趋势。

通过VBAApplication对象抓取股票实时数据的效率不是特别理想,优点是不需要解析网页文档,对于不熟悉网页编程的用户不失为一种好的解决方案。

如果你还想了解更多这方面的信息,记得收藏关注本站。

Published by

风君子

独自遨游何稽首 揭天掀地慰生平