通达信行情联动实现函数的易语言源码及例程

gskj999

要四个币，再感谢！

gskj999

网上有关通达信行情联动的函数，如双击易语言编写的程序，即可自动打开通达信k线图。如下：
//通达信行情联动实现函数;void PostStock(CString strCode)
{
        //上海，深圳股票判断;
        if (strCode.Left(2)=="60"){ strCode="6"+strCode; }else{ strCode="7"+strCode; }
        static UINT UWM_STOCK = ::RegisterWindowMessage("Stock");  //获得TDX在系统zc过的消息;
        int iCode= _ttoi(strCode);
        ::PostMessage((HWND)HWND_BROADCAST,UWM_STOCK,(WPARAM)iCode,0); //向系统广播消息;
}
===============
原代码为C语言，本人因需要这方面的函数，几天网络搜索，均未找到易语言例程及源码，
经多次测试，终将其用易语言实现，有感于网络共享及易语言的强大，将其分享。


源码如下：


.版本 2

.程序集 窗口程序集_启动窗口

.子程序 _按钮1_被单击
.局部变量 UWM_STOCK, 整数型, , , zc通达信消息编号，
.局部变量 strcode, 文本型, , , 股票代码
.局部变量 icode, 整数型, , , 通达信格式代码数字
.局部变量 HWND_BROADCAST, 整数型, , , 通达信窗口句柄

strcode ＝ 编辑框1.内容
.如果 (取文本左边 (strcode, 1) ＝ “6”)
    strcode ＝ “7” ＋ strcode
.否则
    strcode ＝ “6” ＋ strcode
.如果结束

UWM_STOCK ＝ API_RegisterWindowMessage (“Stock”)
icode ＝ 到整数 (strcode)
' 通达信顶窗口句柄：
HWND_BROADCAST ＝ 到数值 (编辑框2.内容)
API_PostMessage (HWND_BROADCAST, UWM_STOCK, icode, 0)

' 经测试：完美打开通达信的K线！！！
例程：见附件，
测试时请打开通达信，并自己找到窗口句柄！

=============================================================
看见还有人下载，估计不少人有想法，好吧，为了更方便测试，再传一个：
已经加入自动获取 通达信 窗口的代码，可以直接点击测试了
除了自动打开K线图，其他功能代码暂时未找到，有谁知道，也请分享，谢谢！

gskj999

通达信行情联动实现函数的易语言源码感谢你。

gskj999

谢谢楼主的分享，好好学习

w6686

谢谢楼主的分享，好好学习。

BLM9330

都是牛人啊. 到底怎么弄的啊.

缝骨刀e

谢谢分享！！！希望有机会一起探讨易语言在股票方面的应用……

gskj999

是不是回复一贴子就有一币，就可下载。

gskj999

谢谢楼主的分享，好好学习。

lchhome

支持楼主一下！！！！！！！！！！！！！！