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

二指缠

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


源码如下：


.版本 2

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

.子程序 _按钮1_被单击
.局部变量 UWM_STOCK, 整数型, , , 注册通达信消息编号，
.局部变量 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线图，其他功能代码暂时未找到，有谁知道，也请分享，谢谢！

有后面有下载，请下载这个新的，不知如何获取窗口句柄的，也可能参照。

etec

下载了试试看效果

前行易语言

楼主可以写一个易语言读取通达信历史总股本的例程吗..谢谢..

year1970

感谢分享

playboy201

能用不，高手！

yhbytb

谢谢楼主的分享

wh1234567

如何用易语言读取通达信盘口现价、买一、买二、卖一、卖二等数据？求例子

liangshenda

感谢楼主分享！

尐潴

这个可以取日数据吗?

尐潴

感谢楼主分享

teilyoo

谢谢楼主的分享