人人爽天天爽夜夜爽qc-人人爽天天爽夜夜爽曰-人人天天爱天天做天天摸-人人天天夜夜-色网站在线-色网站在线看

您現(xiàn)在的位置:程序化交易>> 期貨公式>> 交易開拓者(TB)>> 開拓者知識(shí)>>正文內(nèi)容

Windows自動(dòng)登錄+TB自動(dòng)登陸無需安裝AutoIT+源碼來自樂丁 [開拓者 TB]

  • 咨詢內(nèi)容: 點(diǎn)擊"開始"中的"運(yùn)行" 或 Win+R, 輸入 control userpasswords2 命令
    2009-11-20 8-21-24.jpg (17.71 KB, 下載次數(shù): 22) 2009-11-20 08:26:30 上傳

     

  • TB技術(shù)人員: 開盤時(shí)間和鎖定系統(tǒng),關(guān)閉TB功能注釋掉了

    1. #Include <date.au3>
    2. Dim $result,$list[5][5],$pid1,$tmp1,$path,$TBloginname,$TBloginpassword,$WorkNum,$WorkTabID,$ParamsCount
    3. ;參數(shù)傳遞
    4. $paramscount = $CmdLine[0] ;取參數(shù)個(gè)數(shù)
    5. If $ParamsCount>1 Then
    6.   $TBloginname=$CmdLine[1]
    7.   $TBloginpassword=$CmdLine[2]
    8. Else
    9.   MsgBox(1,"提醒","請(qǐng)附加參數(shù)")
    10.   Exit
    11. EndIf
    12. If $ParamsCount>2 Then
    13.   $path=$CmdLine[3]
    14. Else
    15.   $path="d:\Program Files\TradeBlazer\"
    16. EndIf
    17. If $ParamsCount>3 Then
    18.   $WorkTabID=$CmdLine[4]
    19. EndIf
    20. If $ParamsCount>4 Then
    21.   $WorkNum=$CmdLine[5]
    22. Else
    23.   $WorkNum=5
    24. EndIf

    25. ;循環(huán)開始
    26. While 1
    27. If ProcessExists("TradeBlazer.exe") And WinExists("交易開拓者(超強(qiáng)版") = 0 Then
    28.   Sleep(3000)
    29. EndIf
    30. If WinExists("交易開拓者(超強(qiáng)版") = 0 Then; And ((@HOUR=8 And @MIN>=56) Or @HOUR>=9) And @HOUR <=22 Then
    31. ;TB自動(dòng)登陸設(shè)置*****開始*****,這部分實(shí)行TB自動(dòng)登陸功能,如果TB有自動(dòng)登陸功能的話,就簡(jiǎn)單多了(目前TB不能自動(dòng)登陸)
    32.   ;關(guān)閉系統(tǒng)中不正常的tb進(jìn)程----START---
    33.   $list=ProcessList("TradeBlazer.exe")
    34.   If $list[0][0]<>0 Then
    35.    $pid1=$list[1][1]
    36.    If ProcessExists("TradeBlazer.exe") And WinExists("交易開拓者(超強(qiáng)版") = 0 Then
    37.     If $list[0][0]>1 Then
    38.      for $i = 2 to $list[0][0]
    39.       If $pid1<>$list[$i][1] Then
    40.        ProcessClose($list[$i][1])
    41.       EndIf
    42.       Sleep(1000)
    43.      next
    44.     EndIf
    45.    EndIf
    46.   EndIf
    47.   ;關(guān)閉系統(tǒng)中不正常的tb進(jìn)程----END----

    48.   ;第一次運(yùn)行TB,先關(guān)閉再重新運(yùn)行,解決有些電腦第一次登錄不能聚焦到登陸控件導(dǎo)致無法自動(dòng)登錄的問題--START---
    49.   Run($path&"TradeBlazer.exe",$path)
    50.   WinWaitActive("歡迎登錄交易開拓者(超強(qiáng)版)","",10)
    51.   $list=ProcessList("TradeBlazer.exe")
    52.   If $list[0][0]>1 Then
    53.    for $i = 1 to $list[0][0]
    54.     If $pid1<>$list[$i][1] Then
    55.      ProcessClose($list[$i][1])
    56.     EndIf
    57.     Sleep(1000)
    58.    next
    59.   ElseIf $list[0][0]=1 Then
    60.    ProcessClose($list[1][1])
    61.    Sleep(1000)
    62.   EndIf
    63.   ;第一次運(yùn)行TB,先關(guān)閉再重新運(yùn)行,解決有些電腦第一次登錄不能聚焦到登陸控件導(dǎo)致無法自動(dòng)登錄的問題--END----
    64.   
    65.   Run($path&"TradeBlazer.exe",$path)
    66.   WinWaitActive("歡迎登錄交易開拓者(超強(qiáng)版)","",10)
    67.   While WinExists("TradeBlazer","初始化失敗")
    68.    WinActivate("TradeBlazer","初始化失敗")
    69.    WinClose("TradeBlazer","初始化失敗")
    70.    Sleep(1000)
    71.    $list=ProcessList("TradeBlazer.exe")
    72.    If $list[0][0]=1 Then
    73.     ProcessClose($list[1][1])
    74.     Sleep(1000)
    75.    ElseIf $list[0][0]>1 Then
    76.     for $i = 1 to $list[0][0]
    77.      If $pid1<>$list[$i][1] Then
    78.       ProcessClose($list[$i][1])
    79.      EndIf
    80.      Sleep(1000)
    81.     next
    82.    EndIf
    83.    Run($path&"TradeBlazer.exe",$path)
    84.    WinWaitActive("歡迎登錄交易開拓者(超強(qiáng)版)","",10)
    85.   WEnd
    86.   WinActivate("歡迎登錄交易開拓者(超強(qiáng)版)")
    87.   ControlFocus("歡迎登錄交易開拓者(超強(qiáng)版)","","Edit1")
    88.   ControlSetText("歡迎登錄交易開拓者(超強(qiáng)版)","","Edit1",$TBloginname)
    89.   ControlFocus("歡迎登錄交易開拓者(超強(qiáng)版)","","Edit2")
    90.   ControlSetText("歡迎登錄交易開拓者(超強(qiáng)版)","","Edit2",$TBloginpassword)
    91.   ControlFocus("歡迎登錄交易開拓者(超強(qiáng)版)","","Button2")
    92.   ControlClick("歡迎登錄交易開拓者(超強(qiáng)版)","","Button2")
    93.   WinWaitActive("交易開拓者(超強(qiáng)版) - ","",10)
    94.   Sleep(5000)
    95.   WinActivate("交易開拓者(超強(qiáng)版) - ")
    96.   If WinExists("系統(tǒng)消息") Then
    97.    WinActivate("系統(tǒng)消息")
    98.    WinClose("系統(tǒng)消息")
    99.    Sleep(1000)
    100.    EndIf
    101.   ;TB自動(dòng)登陸設(shè)置*****結(jié)束*****
    102.    
    103.   For $i=1 To $WorkNum
    104.    $tmp1 = 15 + 60 * ($i - 1)
    105.    WinActivate("交易開拓者(超強(qiáng)版) - ")
    106.    ControlClick("交易開拓者(超強(qiáng)版) - ","",$WorkTabID,"left",1,$tmp1,6)
    107.    Sleep(3000)
    108.    WinMenuSelectItem("交易開拓者(超強(qiáng)版) - ","","文件(&F)", "啟動(dòng)所有自動(dòng)交易");啟動(dòng)工作區(qū)內(nèi)所有自動(dòng)交易
    109.    Sleep(1000)
    110.   Next
    111.   Sleep(5000)
    112. ; $result=DllCall("user32.dll","int","LockWorkStation");開啟TB自動(dòng)交易后,鎖定電腦系統(tǒng)
    113. ;ElseIf $result<1 Then
    114. ; $result=DllCall("user32.dll","int","LockWorkStation");非交易時(shí)間啟動(dòng)電腦后,立即鎖定電腦系統(tǒng)
    115. EndIf
    116. ;If WinExists("交易開拓者") And @HOUR>22 Then ;非交易時(shí)間關(guān)閉TB
    117. ; WinActivate("交易開拓者")
    118. ; Sleep(1000)
    119. ; WinClose("交易開拓者")
    120. ;EndIf
    121. Sleep(1000*30)
    122. WEnd
    123. ;循環(huán)結(jié)束
    復(fù)制代碼
    [ 本帖最后由 女兒是期神 于 2009-11-20 08:56 編輯 ]

     

  • TB客服: 根據(jù)樂丁的代碼寫的參數(shù)傳遞的TB登陸程序
    2009-11-20 8-31-53.jpg (54.65 KB, 下載次數(shù): 3) 2009-11-20 08:33:40 上傳 下載次數(shù): 3
    源碼 autoTB源碼.rar (1.39 KB, 下載次數(shù): 77) 2009-11-20 08:33:40 上傳 下載次數(shù): 77
    程序 autoTB.part1.rar (195.31 KB, 下載次數(shù): 151) 2009-11-20 08:39:34 上傳 下載次數(shù): 151 autoTB.part2.rar (139.85 KB, 下載次數(shù): 130) 2009-11-20 08:39:34 上傳 下載次數(shù): 130
    Au3Info Au3Info.rar (121.12 KB, 下載次數(shù): 104) 2009-11-20 08:39:34 上傳 下載次數(shù): 104 有了這個(gè)就可以不裝AutoIt了
    有朋友問怎么用,于是寫個(gè)更詳細(xì)的說明
    下載AutoTB.rar和Au3Info.rar,如果這個(gè)能滿足要求就不用下源碼修改了.
    解壓后
    2009-11-20 13-47-25.png (59.18 KB, 下載次數(shù): 4) 2009-11-20 14:16:47 上傳 下載次數(shù): 4
    在桌面上建個(gè)文本文件
    2009-11-20 13-48-52.png (4.66 KB, 下載次數(shù): 4) 2009-11-20 14:16:47 上傳 下載次數(shù): 4
    填寫收帳號(hào)和密碼
    2009-11-20 13-51-26.png (8.89 KB, 下載次數(shù): 4) 2009-11-20 14:16:47 上傳 下載次數(shù): 4
    開拓者快捷方式里復(fù)制安裝文件夾
    2009-11-20 13-55-33.png (53.79 KB, 下載次數(shù): 5) 2009-11-20 14:16:47 上傳 下載次數(shù): 5
    粘貼至文本文件窗口中
    2009-11-20 13-59-44.png (8.23 KB, 下載次數(shù): 3) 2009-11-20 14:16:47 上傳 下載次數(shù): 3
    運(yùn)行Au3Info找到控件名,并復(fù)制粘貼到文本文件中
    2009-11-20 14-07-58.png (31.13 KB, 下載次數(shù): 5) 2009-11-20 14:16:47 上傳 下載次數(shù): 5
    最終結(jié)果
    2009-11-20 14-13-32.png (22.03 KB, 下載次數(shù): 3) 2009-11-20 14:16:47 上傳 下載次數(shù): 3
    全選復(fù)制
    創(chuàng)建AutoTB.exe的快捷方式,并在其屬性里粘貼剛才的文本即可
    2009-11-20 14-18-09.png (79.81 KB, 下載次數(shù): 1) 2009-11-20 14:16:47 上傳 下載次數(shù): 1
    以后運(yùn)行這個(gè)快捷方式就行了,想自動(dòng)啟動(dòng),就把它移到"開始"菜單的"啟動(dòng)"里吧

    [ 本帖最后由 女兒是期神 于 2009-11-20 14:16 編輯 ]

     

  • 網(wǎng)友回復(fù): 不錯(cuò),有創(chuàng)意

     

  • 網(wǎng)友回復(fù): 完全的無人值守我還是不放心

 

如果以上指標(biāo)公式不適用于您常用的行情軟件

或者您想改編成選股公式,以便快速選出某種形態(tài)個(gè)股的話,

可以聯(lián)系我們相關(guān)技術(shù)人員 QQ: 262069696  點(diǎn)擊在線交流進(jìn)行 有償 改編!

 


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

相關(guān)文章

    沒有相關(guān)內(nèi)容
主站蜘蛛池模板: 成人在线精品 | 黄网站视频观看免费 | 国产成人精品免费大全 | 久久久久久综合成人精品 | 在线久色 | 国产一卡2卡3卡四卡精品网站 | 日本深夜福利视频 | 亚洲码和乱人伦中文一区 | 日韩在线黄色 | 青青草国产精品欧美成人 | 青草综合| 福利网在线 | 一区免费在线观看 | www伊人网 | 亚洲日本中文字幕区 | 成 人 亚洲 综合天堂 | 成人免费在线视频网站 | 狠狠躁天天躁夜夜躁夜天战 | 在线中文字幕第一页 | 欧美高大肥妇hdxxxx | 黄色影视大全 | 日韩在线视频观看 | 亚洲视频在线观看 | 日本一区二区三区在线 观看网站 | 综合激情文学 | 国产在线视频网站 | 精品女同一区二区三区在线观看 | 免费观看成人羞羞视频网站观看 | 成人免费看视频 | 国产精品高清一区二区三区不卡 | 一级乱理中文字幕韩国 | 国产成人精品一区二三区 | 亚洲高清一区二区三区四区 | 色片在线免费观看 | 国产在线欧美日韩一区二区 | 日本午色www高清视频 | 在线一区免费播放 | 欧美亚洲另类一区中文字幕 | 欧美日韩专区国产精品 | 欧美一级高清免费播放 | 久久免费国产 |