当前位置:→ 股海网飞狐软件 → 正文
  • 飞狐软件交易小脚本代码(供参考)

  • 相关简介:飞狐软件交易小脚本代码(供参考) 初学脚本技术,资源来自网络,请老师们别拍砖,谢谢! 不合适的,请各位老师帮俺改改,先谢过了! C/C++ Code 复制内容到剪贴板 #Region #EndRegion #includeButtonConstants.au3 #includeEditConstants.au3 #includeGUIConstantsEx.au3 #includeWindowsConstants.au3

  • 文章来源:股海网作者:股海网发布时间:2013-03-02浏览次数:下载次数:25收藏:

飞狐软件交易小脚本代码(供参考)

初学脚本技术,资源来自网络,请老师们别拍砖,谢谢!
 不合适的,请各位老师帮俺改改,先谢过了!
 

 飞狐软件交易小脚本代码(供参考)

C/C++ Code复制内容到剪贴板
  1. #Region    
  2. #EndRegion    
  3. #include <ButtonConstants.au3>   
  4.  #include <EditConstants.au3>   
  5.  #include <GUIConstantsEx.au3>   
  6.  #include <WindowsConstants.au3>   
  7.  Opt("GUIOnEventMode", 1)   
  8.  #Region ### START Koda GUI section ### Form=   
  9.  $Form1 = GUICreate("联", 40, 80, 292, 224, -1, BitOR($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST, $WS_EX_WINDOWEDGE))   
  10.  GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")   
  11.     
  12. $Button1 = GUICtrlCreateButton("联动", 2, 2, 36, 18, $WS_GROUP)   
  13.  GUICtrlSetOnEvent(-1, "Button1Click")   
  14.  GUICtrlSetColor(-1, 0xFFFFF)   
  15.  GUICtrlSetBkColor(-1, 0x000000)   
  16.     
  17. $Button2 = GUICtrlCreateButton("闪买", 2,22, 36, 18, $WS_GROUP)   
  18.  GUICtrlSetOnEvent(-1, "Button2Click")   
  19.  GUICtrlSetColor(-1, 0xFFFFF)   
  20.  GUICtrlSetBkColor(-1, 0xFF0000)   
  21.     
  22. $Button3 = GUICtrlCreateButton("闪卖", 2,42, 36, 18, $WS_GROUP)   
  23.  GUICtrlSetOnEvent(-1, "Button3Click")   
  24.  GUICtrlSetColor(-1, 0xF00FF)   
  25.  GUICtrlSetBkColor(-1, 0x00FF00)   
  26.     
  27. $Button4 = GUICtrlCreateButton("撤单", 2,62, 36, 18, $WS_GROUP)   
  28.  GUICtrlSetOnEvent(-1, "Button4Click")   
  29.  GUICtrlSetColor(-1, 0xFFFFF)   
  30.  GUICtrlSetBkColor(-1, 0x0000FF)   
  31.     
  32. GUISetState(@SW_SHOW)   
  33.  #EndRegion ### END Koda GUI section ##   
  34.  Global $sss   
  35.  While 1   
  36.           $BT=ControlGetText ("阳光股道 - """, 65281 )   
  37.           $sss=StringRegExp($BT,'\d{6}',1)           
  38.           Sleep(50)   
  39.              
  40.  WEnd   
  41.     
  42. Func Button1Click()   
  43.  If WinExists("[CLASS:TdxW_MainFrame_Class]") Then   
  44.           WinActivate("[CLASS:TdxW_MainFrame_Class]")   
  45.           Send($sss[0])   
  46.           Sleep(100)   
  47.           Send("{ENTER}")           
  48.  Else           
  49.            MsgBox(0, """通达信没打开")   
  50.  EndIf   
  51.  EndFunc   
  52.     
  53. Func Button2Click()   
  54.  If WinExists("[CLASS:TdxW_MainFrame_Class]") Then   
  55.           WinActivate("[CLASS:TdxW_MainFrame_Class]")   
  56.           Send($sss[0])   
  57.           Sleep(100)   
  58.           Send("{ENTER}")           
  59.           Send("21")   
  60.           Sleep(100)   
  61.           Send("{ENTER}")    
  62. Else           
  63.            MsgBox(0, """通达信没打开")   
  64.  EndIf   
  65.  EndFunc   
  66.     
  67. Func Button3Click()   
  68.  If WinExists("[CLASS:TdxW_MainFrame_Class]") Then   
  69.           WinActivate("[CLASS:TdxW_MainFrame_Class]")   
  70.           Send($sss[0])   
  71.           Sleep(100)   
  72.           Send("{ENTER}")           
  73.           Send("23")   
  74.           Sleep(100)   
  75.           Send("{ENTER}")    
  76. Else           
  77.            MsgBox(0, """通达信没打开")   
  78.  EndIf   
  79.  EndFunc   
  80.     
  81. Func Button4Click()   
  82.  If WinExists("[CLASS:TdxW_MainFrame_Class]") Then   
  83.           WinActivate("[CLASS:TdxW_MainFrame_Class]")   
  84.           Send($sss[0])   
  85.           Sleep(100)   
  86.           Send("{ENTER}")           
  87.           Send("22")   
  88.           Sleep(100)   
  89.           Send("{ENTER}")    
  90. Else           
  91.            MsgBox(0, """通达信没打开")   
  92.  EndIf   
  93.  EndFunc   
  94.     
  95. Func Form1Close()   
  96.           exit   
  97.  EndFunc   

 

下载资源链接:( 说明:股海资源如需解压密码的请输入本站域名:www.guhai.com.cn 请仔细输入!)
本地下载 (免费下载)
公式解密、改选股联系 点击查看详情(有偿服务,非诚勿扰)...
问题反馈

飞狐软件交易小脚本代码(供参考)

  • 下载资源所需积分

    0

  • 当前拥有积分

    0

上传会员: 
股海网
文件大小: 
Bytes
上传时间: 
2013-03-02
下载积分: 
-
免责声明: 
请仔细阅读并同意后才能下载
本附件为用户分享上传,股海网没有对文件进行验证,不能保证下载资源的准确性、安全性和完整性,也不保证下载资源能正常安装和使用,且下载后扣除的积分无法退还,除非您充分理解并完全接受本声明,否则您无权下载。
本站对提供下载的软件、指标、资料等不拥有任何权利,其版权归该下载资源的合法拥有者所有。本附件仅供学习和研究使用,不得用于商业或者非法用途,如有侵犯您的版权, 请参看 《股海网侵权处理流程》《股海网免责声明条款》
点击下载无反应时,更换主流浏览器重新登录操作,如360浏览器、Edge浏览器、谷歌浏览器,个别浏览器有不兼容现象。
勾选以下表示您已经阅读并同意以上声明才能下载本文件,扣除积分无法退还!
我已阅读所有条款规定, 请点我同意 所有条款内容!我自愿下载!
提示:如下载失败,请点关闭刷新此页面或提交问题反馈给管理员→
关闭

关于我们 - 联系我们 - 隐私政策 - 免责声明 - 下载帮助 - 广告合作 - SiteMap - TOP
增值电信业务经营ICP许可证:湘B2-20210269 湘ICP备09016573号-10 湘公网安备43108102000040号
Copyright © 2021 铭网科技,All Rights Reserved.