您現(xiàn)在的位置:程序化交易>> 期貨公式>> 金字塔等>> 其他期貨軟件知識(shí)>>正文內(nèi)容

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

  • 咨詢(xún)內(nèi)容:

    一個(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)!

     

     

  • 用戶(hù)回復(fù): 高人高人啊!圖片點(diǎn)擊可在新窗口打開(kāi)查看

     

  • 網(wǎng)友回復(fù):

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

     


【字體: 】【打印文章】【查看評(píng)論

相關(guān)文章

    沒(méi)有相關(guān)內(nèi)容
主站蜘蛛池模板: 久久精品国产亚洲av麻豆色欲| 啊灬啊灬啊灬快灬深用力| 97久久天天综合色天天综合色hd| 成年女人免费视频| 久久精品亚洲精品国产色婷| 欧美多人野外伦交| 亲胸揉胸膜下刺激网站| 综合91在线精品| 国产不卡在线观看| 91成人免费版| 国产精品久久国产精品99| 97av免费视频| 大色皇大久久大久久| 国产又色又爽又刺激在线观看| 99久久亚洲综合精品成人网| 女女同性一区二区三区四区| 中国帅男同chinese69| 日本h片无遮挡在线观看| 久久精品亚洲精品国产欧美| 最新亚洲精品国自产在线观看| 亚洲国产精品成人久久久| 欧美色欧美亚洲高清在线观看| 人妻无码一区二区三区免费| 精品伊人久久大香线蕉网站| 啊灬啊灬啊灬快灬别进去| 色噜噜狠狠成人中文综合| 国产乱人伦app精品久久| 韩国伦理电影年轻的妈妈| 国产大屁股视频免费区| 97国产在线视频公开免费| 国产欧美综合在线| 亚洲五月综合网色九月色| 国产精品兄妹在线观看麻豆| 182在线播放| 国产精品无码不卡一区二区三区| 91传媒蜜桃香蕉在线观看| 在线日韩av永久免费观看| 99在线免费观看| 在线永久免费观看黄网站| 99久久免费只有精品国产| 在线美女免费观看网站h|