[原創]一個可以在金字塔中使用的VBA股票下單接口　[金字塔]

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

1、股票委托下單僅支持申銀萬國

2、使用VBA宏

3、使用AUTOIT3.X執行下單指令

4、全部源碼開放。

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

 也可以聯系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 ("指令", "交易狀態",  "未知", iniFile)
  'msgbox ("Reuslt " & Reuslt）
'While Reuslt<>"End"
UserForm1_TextBox1.text=UserForm1_TextBox1.text&vbCrLf& reuslt

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

'Wend

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

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

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

謝謝 分享

做好事 必有好報！

聽說金字塔開年就會推出股票自動交易功能了。