Ⅰ 如何用VB做股票數據接收系的源代碼
報價方，在開盤時共同商定價位，再實時的價位是因市場交易，自動變化的
Ⅱ 用VB如何直接獲取股票實時數據
可以通過調用ChinaStockWebService的服務來實現獲取股票的實時數據，代碼如下：
publicstring[]getStockInfo(stringstockcode)
{
//stringurl="http://hq.sinajs.cn/list="+stockcode;
//stockcode某隻股票的代碼
stringurl="http://hq.sinajs.cn/list=sh600683";
WebClientclient=newWebClient();
client.Headers.Add("Content-Type","text/html;charset=gb2312");
Streamdata=client.OpenRead(url);
StreamReaderreader=newStreamReader(data,Encoding.GetEncoding("gb2312"));
strings=reader.ReadToEnd();
reader.Close();
data.Close();
returns.Split(',');
}
Ⅲ 求vb高手 做一個軟體實現股票自動買賣 我會通過另一個軟體計算買賣時間和價格，用vb實現買賣過程
這個說復雜也容易，說容易也復雜。
容易就在於演算法大家都知道，只要能實現查詢，然後根據設計需要進行交易就是了。
復雜就在於凡屬於金融領域的，不管是殺毒軟體還是防火牆，都是重點監控種類。尤其是證券公司和銀行，對於客戶沒有使用它們的終端而發生資金變動的話，那豈不是銀行或證券公司的漏洞了？
要獲得銀行的訪問許可權，你看現在的銀行主頁，一輸入密碼就需要載入什麼控制項，那就是保護措施啊。然後證券公司的訪問許可權。當然，如果你的錢全部轉到了證券公司，那隻要證券公司的許可權就可以了。
所以現在能夠實現自動買賣的軟體，都是證券公司自己寫的程序。你現在應該知道其原因了。證券公司可不會隨便讓你查詢它的檔案的。
Ⅳ VB如何讀取股票大盤數據，20秒更新一次，並動態的顯示到文本框中，請高手幫忙
這個要連接資料庫的。。
Ⅳ 我想用VB做個教客戶如何使用股票交易軟體查詢功能的程序,要求界面和真正的股票交易軟體一樣
去參考下 大智慧 嘛 那軟體很多人用 而且也不錯``
Ⅵ 如何編程從免費股票軟體中提取實時數據
自己寫程序的話，一種方法是從已提供的信息源，例如webservice獲取數據。還有種辦法就是去連接提供即時信息的網頁硬解析。
代碼舉例如下：
Created on Thu Jul 23 09:17:27 2015
@author: jet
"""
DAY_PRICE_COLS = ['date', 'open', 'high', 'close', 'low', 'volume',
'chg', '%chg', 'ma5', 'ma10', 'ma20',
'vma5', 'vma10', 'vma20', 'turnover']
DAY_PRICE_URL = '%sapi.finance.%s/%s/?code=%s&type=last'
INDEX_KEY = ['SH', 'SZ', 'HS300', 'SZ50', 'GEB', 'SMEB']
INDEX_LIST = {'SH': 'sh000001', 'SZ': 'sz399001', 'HS300': 'sz399300',
'SZ50': 'sh000016', 'GEB': 'sz399006', 'SMEB': 'sz399005'}
INDEX_DAY_PRICE_COLS= ['date', 'open', 'high', 'close', 'low', 'volume',
'chg', '%chg', 'ma5', 'ma10', 'ma20',
'vma5', 'vma10', 'vma20']
K_TYPE_KEY = ['D', 'W', 'M']
K_TYPE_MIN_KEY = ['5', '15', '30', '60']
K_TYPE = {'D': 'akdaily', 'W': 'akweekly', 'M': 'akmonthly'}
MIN_PRICE_URL = '%sapi.finance.%s/akmin?scode=%s&type=%s'
PAGE_TYPE = {'http': 'http://', 'ftp': 'ftp://'}
PAGE_DOMAIN = {'sina': 'sina.com.cn', 'ifeng': 'ifeng.com'}
URL_ERROR_MSG = '獲取失敗，請檢查網路狀態，或者API埠URL已經不匹配！'
get_hist_data.py
# -*- coding: utf-8 -*-
"""
Created on Thu Jul 23 09:15:40 2015
@author: jet
"""
import const as ct
import pandas as pd
import json
from urllib2 import urlopen,Request
def get_hist_data(code = None, start = None, end = None, ktype = 'D'):
"""
功能:
獲取個股歷史交易數據
--------
輸入:
--------
code:string
股票代碼 比如:601989
start:string
開始日期 格式:YYYY-MM-DD 為空時取到API所提供的最早日期數據
end:string
結束日期 格式:YYYY-MM-DD 為空時取到最近一個交易日數據
ktype:string(default=D, 函數內部自動統一為大寫)
數據類型 D=日K線，W=周K線，M=月K線，5=5分鍾，15=15分鍾
30=30分鍾，60=60分鍾
輸出:
--------
DataFrame
date 日期
open 開盤價
high 最高價
close 收盤價
low 最低價
chg 漲跌額
p_chg 漲跌幅
ma5 5日均價
ma10 10日均價
ma20 20日均價
vma5 5日均量
vma10 10日均量
vma20 20日均量
turnover換手率(指數無此項)
"""
code = code_to_APIcode(code.upper())
ktype = ktype.upper()
url = ''
url = get_url(ktype, code)
print(url)
js = json.loads(ping_API(url))
cols = []
if len(js['record'][0]) == 14:
cols = ct.INDEX_DAY_PRICE_COLS
else:
cols = ct.DAY_PRICE_COLS
df = pd.DataFrame(js['record'], columns=cols)
if ktype in ct.K_TYPE_KEY:
df = df.applymap(lambda x:x.replace(u',', u''))
for col in cols[1:]:
df[col]=df[col].astype(float)
if start is not None:
df = df [df.date >= start]
if end is not None:
df = df[df.date <= end]
df = df.set_index('date')
return df
def code_to_APIcode(code):
"""
功能：
驗證輸入的股票代碼是否正確，若正確則返回API對應使用的股票代碼
"""
print(code)
if code in ct.INDEX_KEY:
return ct.INDEX_LIST[code]
else:
if len(code) != 6:
raise IOError('code input error!')
else:
return 'sh%s'%code if code[:1] in ['5', '6'] else 'sz%s'%code
def get_url(ktype, code):
"""
功能：
驗證輸入的K線類型是否正確，若正確則返回url
"""
if ktype in ct.K_TYPE_KEY:
url = ct.DAY_PRICE_URL % (ct.PAGE_TYPE['http'], ct.PAGE_DOMAIN['ifeng'],
ct.K_TYPE[ktype], code)
return url
elif ktype in ct.K_TYPE_MIN_KEY:
url = ct.MIN_PRICE_URL % (ct.PAGE_TYPE['http'], ct.PAGE_DOMAIN['ifeng'],
code, ktype)
return url
else:
raise IOError('ktype input error!')
def ping_API(url):
"""
功能：
向API發送數據請求，若鏈接正常返回數據
"""
text = ''
try:
req = Request(url)
text = urlopen(req,timeout=10).read()
if len(text) < 15:
raise IOError('no data!')
except Exception as e:
print(e)
else:
return text
#測試入口
print(get_hist_data('601989','2015-07-11','2015-07-22'))
Ⅶ 想要開發一個股票交易軟體 需要怎樣獲取實時數據 數據介面
惠德贏策 大家記住了啊，這個垃圾公司老闆叫：祝清。公司內部垃圾就算了，公司出的產品都是騙人的，還有他們開發的一個模擬炒股的網站要交錢才能炒股，都是騙人的，大家千萬別上當受騙，這家公司老闆超級卑鄙，合夥別人把他原來的公司給搞垮自己開公司，不過心在自己公司也快倒閉了，員工工資都發布出來了，哈哈，真雞-巴爽呀，那個B兒子真沒話說了。
我就是受害者呀，噴血相告，切記呀
Ⅷ 用VB 讀取通達信實時股票數據(現價，漲幅)
關鍵是介面
我估計現在沒有免費的介面了！！！
所以你想自己編程獲取實時數據，幾乎不可能了！！！
總之，沒有有效的網路實時數據支持，這是開源股軟的最致命的地方！！！
Ⅸ 怎麼利用vba獲取財經網上股票股價的實時數據
1 這種軟體一般都是花錢的，主要是涉及到xml文件的解析。
2 如果想自己研究那就網上搜集一些資料學習。
以下提供一些網路的資料供參考。具體自己的需求還要自己編寫程序。
https://..com/question/1834142973359770260.html
https://www.hu.com/question/49538066/answer/129694646