您現(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)容
主站蜘蛛池模板: 欧美日本高清在线不卡区| 高h视频免费观看| 女仆的胸好大揉出奶水| 久久久久免费看成人影片| 机巴太粗太硬弄死你| 亚洲熟女综合色一区二区三区| 精品人妻VA出轨中文字幕| 国产v在线播放| 韩国精品一区视频在线播放| 国产精品久久国产精麻豆99网站| AV无码久久久久不卡网站下载| 性久久久久久久| 中文字幕羽月希黑人侵犯| 日本高清免费不卡在线播放| 亚洲av人无码综合在线观看| 欧美性生交xxxxx丝袜| 亚洲狠狠ady亚洲精品大秀| 男人的j进女人视频| 午夜精品久久久久蜜桃| 老子影院在线观看| 国产亚洲欧美bt在线电影| 黄色毛片免费看| 国产日本在线观看| 欧美bbbbbxxxxx| 国产精品99久久久精品无码| 1000部拍拍拍18免费网站| 国产综合久久久久鬼色| 97久久精品无码一区二区 | 色婷婷在线视频| 国产剧情精品在线| 高清一区二区在线观看| 国产成人亚洲精品无码av大片 | 无码人妻精品一区二区三区蜜桃 | 精品国产一区二区三区香蕉事| 国产ts人妖视频| 色视频色露露永久免费观看| 国产亚洲欧美日韩俺去了| 视频二区在线观看| 国产三级片在线观看| 色综合久久中文字幕无码| 国产一级高清免费观看|