[原創(chuàng)]一個(gè)可以在金字塔中使用的VBA股票下單接口　[金字塔]

一個(gè)可以在金字塔中使用的VBA股票下單接口

1、股票委托下單僅支持申銀萬(wàn)國(guó)

2、使用VBA宏

3、使用AUTOIT3.X執(zhí)行下單指令

4、全部源碼開(kāi)放。

具體可以到 http://www.weistock.com/download/StockKey.zip  下載

 也可以聯(lián)系QQ：503840188 索取

以下僅為VBA部份

VBA=====================================================================

dim Reuslt
dim iniFile

Sub UserForm1_cmdStart_Click()
strStockCode=UserForm1_txtStockCode.Text
strStockVolume=UserForm1_txtStockVol.text
strStockPrice=UserForm1_txtStockPrice.text
if UserForm1_optBuy.value=true then strTradeDirection="1"
if UserForm1_optSell.value=true then strTradeDirection="2"

UserForm1_TextBox1.text=UserForm1_TextBox1.text&vbCrLf&"UserForm1_optBuy.value="& UserForm1_optBuy.value

UserForm1_TextBox1.text=UserForm1_TextBox1.text&vbCrLf&"UserForm1_optSell.value="& UserForm1_optSell.value

Reuslt = Document.GetPrivateProfileString ("指令", "交易狀態(tài)",  "未知", iniFile)
  'msgbox ("Reuslt " & Reuslt）
'While Reuslt<>"End"
UserForm1_TextBox1.text=UserForm1_TextBox1.text&vbCrLf& reuslt

'Reuslt = Document.GetPrivateProfileString ("指令", "交易狀態(tài)",  "未知", iniFile)

'Wend

msgbox("strStockCode"&strStockCode&"strStockVolume"&strStockVolume&"strStockPrice"&strStockPrice&"strTradeDirection"&strTradeDirection)

Reuslt = Document.WritePrivateProfileString ("指令", "證券代碼", strStockCode, iniFile)
Reuslt = Document.WritePrivateProfileString ("指令", "委托價(jià)格", strStockPrice, iniFile)
Reuslt = Document.WritePrivateProfileString ("指令", "委托數(shù)量", strStockVolume, iniFile)
Reuslt = Document.WritePrivateProfileString ("指令", "交易方向",  strTradeDirection, iniFile)
Reuslt = Document.WritePrivateProfileString ("指令", "交易狀態(tài)",  "New", iniFile)
  
End Sub

Sub UserForm1_Load()
set Ws=createobject("wscript.shell")
iniFile="D:\Weisoft Stock\wt\交易設(shè)置.ini"
End Sub
============================================================================================

謝謝 分享

做好事 必有好報(bào)！

聽(tīng)說(shuō)金字塔開(kāi)年就會(huì)推出股票自動(dòng)交易功能了。