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

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

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

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

     

  • TB技術人員: 開盤時間和鎖定系統,關閉TB功能注釋掉了

    1. #Include <date.au3>
    2. Dim $result,$list[5][5],$pid1,$tmp1,$path,$TBloginname,$TBloginpassword,$WorkNum,$WorkTabID,$ParamsCount
    3. ;參數傳遞
    4. $paramscount = $CmdLine[0] ;取參數個數
    5. If $ParamsCount>1 Then
    6.   $TBloginname=$CmdLine[1]
    7.   $TBloginpassword=$CmdLine[2]
    8. Else
    9.   MsgBox(1,"提醒","請附加參數")
    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. ;循環開始
    26. While 1
    27. If ProcessExists("TradeBlazer.exe") And WinExists("交易開拓者(超強版") = 0 Then
    28.   Sleep(3000)
    29. EndIf
    30. If WinExists("交易開拓者(超強版") = 0 Then; And ((@HOUR=8 And @MIN>=56) Or @HOUR>=9) And @HOUR <=22 Then
    31. ;TB自動登陸設置*****開始*****,這部分實行TB自動登陸功能,如果TB有自動登陸功能的話,就簡單多了(目前TB不能自動登陸)
    32.   ;關閉系統中不正常的tb進程----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("交易開拓者(超強版") = 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.   ;關閉系統中不正常的tb進程----END----

    48.   ;第一次運行TB,先關閉再重新運行,解決有些電腦第一次登錄不能聚焦到登陸控件導致無法自動登錄的問題--START---
    49.   Run($path&"TradeBlazer.exe",$path)
    50.   WinWaitActive("歡迎登錄交易開拓者(超強版)","",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.   ;第一次運行TB,先關閉再重新運行,解決有些電腦第一次登錄不能聚焦到登陸控件導致無法自動登錄的問題--END----
    64.   
    65.   Run($path&"TradeBlazer.exe",$path)
    66.   WinWaitActive("歡迎登錄交易開拓者(超強版)","",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("歡迎登錄交易開拓者(超強版)","",10)
    85.   WEnd
    86.   WinActivate("歡迎登錄交易開拓者(超強版)")
    87.   ControlFocus("歡迎登錄交易開拓者(超強版)","","Edit1")
    88.   ControlSetText("歡迎登錄交易開拓者(超強版)","","Edit1",$TBloginname)
    89.   ControlFocus("歡迎登錄交易開拓者(超強版)","","Edit2")
    90.   ControlSetText("歡迎登錄交易開拓者(超強版)","","Edit2",$TBloginpassword)
    91.   ControlFocus("歡迎登錄交易開拓者(超強版)","","Button2")
    92.   ControlClick("歡迎登錄交易開拓者(超強版)","","Button2")
    93.   WinWaitActive("交易開拓者(超強版) - ","",10)
    94.   Sleep(5000)
    95.   WinActivate("交易開拓者(超強版) - ")
    96.   If WinExists("系統消息") Then
    97.    WinActivate("系統消息")
    98.    WinClose("系統消息")
    99.    Sleep(1000)
    100.    EndIf
    101.   ;TB自動登陸設置*****結束*****
    102.    
    103.   For $i=1 To $WorkNum
    104.    $tmp1 = 15 + 60 * ($i - 1)
    105.    WinActivate("交易開拓者(超強版) - ")
    106.    ControlClick("交易開拓者(超強版) - ","",$WorkTabID,"left",1,$tmp1,6)
    107.    Sleep(3000)
    108.    WinMenuSelectItem("交易開拓者(超強版) - ","","文件(&F)", "啟動所有自動交易");啟動工作區內所有自動交易
    109.    Sleep(1000)
    110.   Next
    111.   Sleep(5000)
    112. ; $result=DllCall("user32.dll","int","LockWorkStation");開啟TB自動交易后,鎖定電腦系統
    113. ;ElseIf $result<1 Then
    114. ; $result=DllCall("user32.dll","int","LockWorkStation");非交易時間啟動電腦后,立即鎖定電腦系統
    115. EndIf
    116. ;If WinExists("交易開拓者") And @HOUR>22 Then ;非交易時間關閉TB
    117. ; WinActivate("交易開拓者")
    118. ; Sleep(1000)
    119. ; WinClose("交易開拓者")
    120. ;EndIf
    121. Sleep(1000*30)
    122. WEnd
    123. ;循環結束
    復制代碼
    [ 本帖最后由 女兒是期神 于 2009-11-20 08:56 編輯 ]

     

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

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

     

  • 網友回復: 不錯,有創意

     

  • 網友回復: 完全的無人值守我還是不放心

 

如果以上指標公式不適用于您常用的行情軟件

或者您想改編成選股公式,以便快速選出某種形態個股的話,

可以聯系我們相關技術人員 QQ: 262069696  點擊在線交流進行 有償 改編!

 


【字體: 】【打印文章】【查看評論

相關文章

    沒有相關內容
主站蜘蛛池模板: 亚洲精品网站在线观看不卡无广告 | 国产日韩欧美久久久 | 永久网站www774777视频 | 欧美人成一本免费观看视频 | 日本久久精品免视看国产成人 | 在线国产播放 | 欧美片第一页 | 日韩18视频在线观看 | 国产黄在线播放免费观看 | aa级黄色大片 | 色黄三大片免费 | 国产一级做a爰片在线看 | 一区福利视频 | 在线精品视频成人网 | 波多野结衣在线视频播放 | 夫妻毛片| 好男人午夜影院 | 天天干天天澡 | 夜夜弄 | 国产香蕉精品视频在 | 欧美在线观看日韩欧美在线观看 | 国产日韩视频一区 | 成人在线免费观看视频 | 人人爽视频 | 欧美亚洲综合网 | 国产激情久久久久影 | 国产免费a视频 | 成人免费视频观看无遮挡 | 狠狠色噜噜狠狠色综合久 | 福利成人 | 欧美一区亚洲二区 | 波多野结衣一区二区 | 国产不卡一区 | 欧美日本一本线在线观看 | xxxx性日本 | 久草视频新 | 精精国产www视频在线观看免费 | 亚洲另类在线视频 | 日韩不卡高清 | 丝袜脚在线 | 精品国产拍拍拍无遮挡 |