一个可以在金字塔中使用的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
============================================================================================

谢谢 分享

做好事 必有好报！

听说金字塔开年就会推出股票自动交易功能了。