飞狐软件交易小脚本代码（供参考）无病毒

软件简介

飞狐软件交易小脚本代码（供参考）

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

?

C/C++ Code复制内容到剪贴板

1. #Region? ??
2. #EndRegion? ??
3. #include? ??
4. ?#include? ??
5. ?#include? ??
6. ?#include? ??
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 ??

?

说明