超级菜鸟求助，请帮忙做一个股软联动的程序
本帖最后由 紫色风林 于 2011-6-23 09:01 编辑我想做一个两个股软联动的插件，当我在飞狐界面上点击股票代码获取器上的股票名时，通达信就显示这个股票的界面，请高手帮忙
这是我在网上找的一个源码，自已改了一下，请高手帮我实现这个功能，顺便帮我优化一下源码
用窗口信息提取工具提取的通达信的一些信息不知有没有用，不知是否要用到这些
标题：东莞证券财富通V6.25
ID： 59648
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_icon=D:\000888\styyp易语言下单源码\128.ico
#AutoIt3Wrapper_outfile=预警信号获取器.exe
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("股票代码获取器", 210, 22, 592, 524, -1, BitOR($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST, $WS_EX_WINDOWEDGE))
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "Form1Minimize")
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "Form1Maximize")
GUISetOnEvent($GUI_EVENT_RESTORE, "Form1Restore")
$Input1 = GUICtrlCreateInput("", 8, 2, 150, 17)
GUICtrlSetColor(-1, 0xFFFFF)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetOnEvent(-1, "Input1Change")
$Button1 = GUICtrlCreateButton("退出", 165, 2, 41, 17, $WS_GROUP)
GUICtrlSetOnEvent(-1, "Button1Click")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$BT=WinGetTitle ( "飞狐交易师 - 专业版 - " , "") ;取窗口全标题
$YY10=iniread("获取信号.ini","设置","保存","")
If $BT<>$YY10 Then
$sss=StringTrimLeft ($BT,13)
ControlSetText ( "股票代码获取器", "","Edit1", $sss);输入现价
Sleep(200)
EndIf
WEnd
Func Button1Click()
Exit
EndFunc
Func Form1Close()
EndFunc
Func Form1Maximize()
EndFunc
Func Form1Minimize()
EndFunc
Func Form1Restore()
EndFunc
Func Input1Change()
EndFunc
本帖最后由 紫色风林 于 2011-6-22 19:51 编辑
请帮我实现这个功能:
当我在飞狐界面点击股票代码获取器上股票名时，东莞证券财富通V6.25软件就显示这个股票的界面 还没人出手啊 终于做好了，感谢txxdhnt，浪费了他这么长的时间。请版主给他加点分吧 #Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_icon=D:\000888\styyp易语言下单源码\128.ico
#AutoIt3Wrapper_outfile=预警信号获取器.exe
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("股票代码获取器", 210, 22, 592, 524, -1, BitOR($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST, $WS_EX_WINDOWEDGE))
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
$Input1 = GUICtrlCreateInput("", 8, 2, 150, 17)
GUICtrlSetColor(-1, 0xFFFFF)
GUICtrlSetBkColor(-1, 0x000000)
$Button1 = GUICtrlCreateButton("同步", 165, 2, 41, 17, $WS_GROUP)
GUICtrlSetOnEvent(-1, "Button1Click")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ##
Global $sss
While 1
$BT=WinGetTitle ( "飞狐交易师" , "") ;取窗口全标题飞狐交易师 - 专业版 - [东方电子 SZ000682]
;$BT="飞狐交易师 - 专业版 - [东方电子 SZ000682] "
$sss=StringRegExp($BT,'\d{6}',1)
If @error=0 Then
ControlSetText ( "股票代码获取器", "","Edit1", "当前代码：" & $sss)
Else
ToolTip("飞狐交易师不正确")
EndIf
Sleep(500)
WEnd
Func Button1Click()
If WinExists("") Then
; MsgBox(0, "", "财富通打开")
WinActivate("")
;Send("600500")
Send($sss)
Sleep(1000)
Send("{ENTER}")
MsgBox(0, "", "发送结束")
Else
MsgBox(0, "", "财富通没有打开")
EndIf
EndFunc
Func Form1Close()
exit
EndFunc 浪费了这第朋权不少时间,请版主大人们加点分吧 我没评分权限，一直郁闷的事...
页:
[1]