找回密码
 加入
搜索
查看: 3774|回复: 6

[系统综合] 超级菜鸟求助,请帮忙做一个股软联动的程序

[复制链接]
发表于 2011-6-22 19:44:54 | 显示全部楼层 |阅读模式
本帖最后由 紫色风林 于 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:49:33 | 显示全部楼层
本帖最后由 紫色风林 于 2011-6-22 19:51 编辑

请帮我实现这个功能:

当我在飞狐界面点击股票代码获取器上股票名时,东莞证券财富通V6.25软件就显示这个股票的界面
 楼主| 发表于 2011-6-22 20:54:51 | 显示全部楼层
还没人出手啊
 楼主| 发表于 2011-6-23 17:13:50 | 显示全部楼层
终于做好了,感谢txxdhnt,浪费了他这么长的时间。请版主给他加点分吧
发表于 2011-6-23 17:16:01 | 显示全部楼层
#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

评分

参与人数 1金钱 +10 收起 理由
紫色风林 + 10 谢谢朋友,浪费你这么长的时间,真不好意思

查看全部评分

 楼主| 发表于 2011-6-23 17:29:17 | 显示全部楼层
浪费了这第朋权不少时间,请版主大人们加点分吧
发表于 2011-6-23 18:57:29 | 显示全部楼层
我没评分权限,一直郁闷的事...
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-9-21 04:30 , Processed in 0.088718 second(s), 26 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表