㈠ VB 修改一個股票行情監測腳本 到了預定的股價就啟動程序a.exe
Dim file1, file2 As String
Private Sub Command1_Click()
If Val(Text1.Text) > Val(Text2.Text) Then Shell (file1)
'text2.text為大於這個值時 執行
If Val(Text1.Text) < Val(Text3.Text) Then Shell (file2)
'text3.text為小於這個值時 執行
End Sub
Private Sub Command2_Click()
WebBrowser1.Navigate "http://.hexun.com/stock/q.php?code=" & Text4.Text
End Sub
Private Sub Command3_Click()
CommonDialog1.DialogTitle = "選擇路徑"
CommonDialog1.ShowOpen
file1 = CommonDialog1.FileName
End Sub
Private Sub Command4_Click()
CommonDialog1.DialogTitle = "選擇路徑"
CommonDialog1.ShowOpen
file2 = CommonDialog1.FileName
End Sub
Private Sub Form_Load()
Timer1.Interval = 6000
End Sub
Private Sub Timer1_Timer()
WebBrowser1.Refresh
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If Not (pDisp Is WebBrowser1.object) Then Exit Sub
Dim wenben As String
Dim a() As String
wenben = Me.WebBrowser1.Document.Body.innerText
a = Split(wenben, vbCrLf)
Text1.Text = wenben
For i = 0 To UBound(a)
If InStr(a(i), "代碼:") > 0 And InStr(a(i), ".s") > 0 Then
Text1.Text = Right(a(i), (Len(a(i)) - InStr(a(i), ".s")) - 2)
Text5.Text = Mid(a(i), InStr(a(i), ".s") + 1, 2)
Exit For
End If
Next i
End Sub
㈡ 用VB 讀取通達信實時股票數據(現價，漲幅)
關鍵是介面
我估計現在沒有免費的介面了！！！
所以你想自己編程獲取實時數據，幾乎不可能了！！！
總之，沒有有效的網路實時數據支持，這是開源股軟的最致命的地方！！！
㈢ 求VB代碼自動計算好，每個excel文件內漲幅，漲幅是等於（收盤-開盤）/開盤
一、數據准備階段
1
先打開同花順股票軟體電腦版，點擊進入任意一隻你打算分析的股票。
2
點擊左上角的「分析」選擇「歷史成交」。
3
這時我們就可以看到這只股票從發行到今天的所有歷史基本交易數據。
4
在任意一行數據上點擊滑鼠右鍵，點擊「導出數據」，選擇「導出所有數據」。
5
如圖，
1）點擊瀏覽，選擇好文件保存的位置。
2）修改文件名為股票名稱和股票代碼，方便日後查看，以免出現分析完不知道數據屬於哪只股票的情況。
3）連續點擊下一步，直到完成。
END
二、數據處理階段
1
用excel電子表格打開剛才導出保存的表格。我這里使用的是WPS，用Excel軟體界面略有不同，但是方法一樣，所以這里不贅述。
先把表格右邊的滾動條拖到最底下，我們看到這表格代碼有3483行。扣除頂部的一行標題，說明這只股票已經上市交易了3482個交易日。3482這個數據等下我們要使用。
2
在表格L1處輸入「漲幅超過5%」。具體操作如圖所示。
3
在L2處輸入代碼「=IF((E2-B2)/B2>=0.05,1,"")」代碼的意思是：
=如果（（收盤價-開盤價）/開盤價>或=5%，那麼輸入1，否則不輸入）
「（收盤價-開盤價）/開盤價」 的意思就是「首日漲幅」。
其實也可以寫成 =IF(F2>=5%,1,"") 但是表格中有時候會顯示一些錯誤的代碼，這個時候計算結果還是會大於5%，造成統計不精確。而且有的股票軟體導出的表格具體的漲幅的位置和同花順的不一定一樣，所以解釋給大家看。
使用同花順的用戶直接復制我的代碼就可以了。
常見錯誤：1）括弧，引號，逗號沒有用英文半形。
2）計算公式錯誤比如把(E2-B2)/B2寫成E2-B2/B2。
3）等號沒寫。
寫這個公式的目的就是在漲幅超過5%的交易日後面都計數1，這樣等下我們可以直接用求和公式算出漲幅超過5%的交易日總數，方便計算這只股票歷史大漲的概率。
4
這時我們看到，第一個交易日，後面已經顯示1了。絕大多數股票首日漲幅都是超過5%的。所以第一個數據可以驗證我們公式和表格設置是否有錯。
如果沒有顯示1，而是顯示公式的話，請修改一下excel設置。
5
然後點擊L3, 輸入公式：「=IF((E3-E2)/E2>=0.05,1,"")」
代碼的意思是：
=如果（（收盤價-昨天的收盤價）/昨天的收盤價>或=5%，那麼輸入1，否則不輸入）
「（收盤價-昨天的收盤價）/昨天的收盤價」 的意思就是「漲幅」。
6
然後單擊L3，然後滑鼠移動到L3框框右下角的小方塊上，使滑鼠變成一個十字。然後按住滑鼠左鍵，向下拖動到最後一行。
如果行數很多，覺得拖動很累，也可以 單擊L3，然後 :
1)"Shift+Ctrl+方向下按鈕"
2) 「Ctrl + D」
可以快速填充公式。
7
隨機檢查一下數據，發現沒有錯，然後進入下一步。
8
選擇整列，可以像剛才一樣手動拖動，也可以"Shift+Ctrl+方向下按鈕" （推薦）
然後如圖依次點擊，「公式」，「自動求和」
於是我們就看到右下方出現一個數字，這個數字就是這只股票歷史上漲超過5%的次數了。
9
接下來，我們只要把這個數字，除以總交易日的數目3482，就可以知道這只股票歷史上大漲超過5%的概率是：4.77%
10
依同樣方法，我們來隨機計算另一隻股票上漲超5%的概率
得到結果：5.86%
11
再用同樣方法，我們來計算一下深圳指數上漲超過3%的概率，因為大盤指數波動沒有那麼大，所以我們設置為3%。
所以之前的公式變成：「=IF((E3-E2)/E2>=0.03,1,"")」
得到的概率是：7.59%
END
三、數據分析階段
1
我們橫向比較數據，根據歷史數據發現第二隻股票上漲>5%大概率更大，所以這只股票更好。超過大盤上漲概率的股票可以跑贏大盤。
2
為了精確，我們可以把2015年以前的數據全選刪除，再比較一下哪個概率大。
3
數據相比大盤指數上漲偏離過高，超過20%的股票，一般最好不要選，因為說明一年內漲幅已經非常大。建議選擇略高於大盤漲幅概率股票。
4
漲幅超過5%的天數比例大的股票，說明股票漲幅多，但是不能確定跌幅，所以以後的課程還會介紹分析漲幅和跌幅的比例，分析股票的波動性。
㈣ 如何查詢股票實時價格啊.
我用過不少股票軟體,大智慧,指南針,分析家等等.都不錯,還是看個人用的習慣,
給你個股票軟體下載地址.我說的股票軟體都有了.
http://www.guminjia.com
㈤ EXCEL如何用VBA自動獲取每個股票近幾天的漲幅
一般網頁上的數據都可以通過VBA進行抓取，應用得好，可以實現對很很多資料的動態監測。
漲幅就是指目前這只股票的上漲幅度。
漲幅的計算公式：漲幅=(現價-上一個交易日收盤價）/上一個交易日收盤價*100%
例如：某隻股票價格上一個交易日收盤價100，次日現價為110.01，就是股價漲幅為（110.01-100 ）/100*100%=10.01%.一般對於股票來說 就是漲停了!如果漲幅為0則表示今天沒漲沒跌，價格和前一個交易日持平。如果漲幅為負則稱為跌幅。
比如:一支股票的漲幅是：10%、-5%等 。
㈥ 我如何在網上查詢目前某個股票的價格,謝謝
有很多軟體可以在網上下載，不下載軟體想在網上看到一隻股票的行情也不難。找到一個網站比如和訊，點擊後出現首頁，再點股票代碼，會找到這只股票行情的。
㈦ VB如何讀取股票大盤數據，20秒更新一次，並動態的顯示到文本框中，請高手幫忙
這個要連接資料庫的。。
㈧ 求vb高手 做一個軟體實現股票自動買賣 我會通過另一個軟體計算買賣時間和價格，用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(',');
}