超级菜鸟求助，请帮忙做一个股软联动的程序

紫色风林

我想做一个两个股软联动的插件，当我在飞狐界面上点击股票代码获取器上的股票名时，通达信就显示这个股票的界面，请高手帮忙
   
    这是我在网上找的一个源码，自已改了一下，请高手帮我实现这个功能，顺便帮我优化一下源码
  
     用窗口信息提取工具提取的通达信的一些信息不知有没有用，不知是否要用到这些

   标题：东莞证券财富通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

紫色风林

请帮我实现这个功能:

当我在飞狐界面点击股票代码获取器上股票名时，东莞证券财富通V6.25软件就显示这个股票的界面

紫色风林

还没人出手啊

紫色风林

终于做好了，感谢txxdhnt，浪费了他这么长的时间。请版主给他加点分吧

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[0])
        Else
        ToolTip("飞狐交易师不正确")
   EndIf       
        Sleep(500)
       
WEnd

Func Button1Click()
If WinExists("[CLASS:TdxW_MainFrame_Class]") Then
   ; MsgBox(0, "", "财富通打开")
        WinActivate("[CLASS:TdxW_MainFrame_Class]")
   ;  Send("600500")
        Send($sss[0])
        Sleep(1000)
        Send("{ENTER}")       
        MsgBox(0, "", "发送结束")
Else       
         MsgBox(0, "", "财富通没有打开")
EndIf

EndFunc
Func Form1Close()
        exit
EndFunc

紫色风林

浪费了这第朋权不少时间,请版主大人们加点分吧

bob

我没评分权限，一直郁闷的事...