另类方法读取通达信的权息资料

luckeeylee

另类方法读取通达信的权息资料

来自：MACD论坛(bbs.shudaoyoufang.com) 作者：luckeeylee 浏览：126382 回复：13

看了网上有很多人求读取通达信权息资为的方法，每个人都知道权息资料是存在GBBQ QBBQ.MAP的两个文件中,但是文件加了密,没有办法读出资料,无奈!经过思考,根本不用考虑如何解密也能读出资料
本人用的是VFP读取,程式在后面给出
1:先打开通达信软件进入通达信系统的K线图页面(见KK.JPG)
2:进入权息资料页面（QX.JPG)
3:运行程式

取资料原理:采有模拟手工的输入方法先调出所需要的资料,然后再全选 复制,这样所选股标的权息资料就已存在系统的变量 _cliptext 中，然后再对 _cliptext 处理即可

***以下是VFP程式


CLEAR
CREATE CURSOR tt(tt m)
APPEND BLANK
Declare Sleep IN kernel32 INTEGER dwMilliseconds&&延时时间用的
**********鼠标用的开始
DECLARE INTEGER SetCursorPos IN WIN32API INTEGER dx,INTEGER dy
DECLARE INTEGER mouse_event IN WIN32API INTEGER dwFlags,INTEGER dx,INTEGER dy,INTEGER cButtons,INTEGER dwExtraInfo
#DEFINE MOUSEEVENTF_MOVE 0x0001
#DEFINE MOUSEEVENTF_LEFTDOWN 0x0002
#DEFINE MOUSEEVENTF_LEFTUP 0x0004
#DEFINE MOUSEEVENTF_RIGHTDOWN 0x0008
#DEFINE MOUSEEVENTF_RIGHTUP 0x0010
#DEFINE MOUSEEVENTF_MIDDLEDOWN 0x0020
#DEFINE MOUSEEVENTF_MIDDLEUP 0x0040
#DEFINE MOUSEEVENTF_ABSOLUTE 0x8000
************鼠标用的结束
**********键盘用的开始
DECLARE keybd_event IN WIN32API INTEGER bVk,INTEGER bScan,LONG dwFlags,LONG dwExtraInfo
DECLARE INTEGER MapVirtualKey IN WIN32API INTEGER wCode,INTEGER wMapType
#DEFINE VK_Control 0x11
#DEFINE KEYEVENTF_KEYUP 0x0002
**********键盘用的结束
********单击左键一次开始
SetCursorPos(50,500)&&在坐标（12，500）处点击左键一次
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0)
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0)
********单击左键一次结束
*输入股标代码000001
keybd_event(48, 0, 0, 0)
keybd_event(48,0,0x2,0)
Sleep(1)
keybd_event(48, 0, 0, 0)
keybd_event(48,0,0x2,0)
Sleep(1)
keybd_event(48, 0, 0, 0)
keybd_event(48,0,0x2,0)
Sleep(1)
keybd_event(48, 0, 0, 0)
keybd_event(48,0,0x2,0)
Sleep(1)
keybd_event(48, 0, 0, 0)
keybd_event(48,0,0x2,0)
Sleep(1)
keybd_event(50, 0, 0, 0)
keybd_event(50,0,0x2,0)
Sleep(1)
**按下ENTER 键  
keybd_event(0xD, 0, 0, 0)
keybd_event(0xD,0,0x2,0)
Sleep(1)

**CTRL+A  键按下并放开
keybd_event(0x11,0,0,0)
keybd_event(65, 0, 0, 0)
keybd_event(0x11,0,0x2,0)
keybd_event(65,0,0x2,0)
= Sleep(1)
**CTRL+C 键按下并放开
keybd_event(0x11,0,0,0)
keybd_event(67, 0, 0, 0)
keybd_event(0x11,0,0x2,0)
keybd_event(67,0,0x2,0)
= Sleep(1)

REPLACE tt.tt WITH _cliptext

senly

#*d1*# 1

小小刘方

看这个有什么用？我不明白哦

股市奇兵

#*29*#

luckeeylee

这是帮助想写自己股票软件但又无法读出权息资料的朋友，论坛里已有人可以直接对通达信的权息资料进行解密，但我无权限可以查看，未能领教。

犀利哥

111111111111111111

sowans

原帖由 luckeeylee 于 2010-10-16 22:33 发表
这是帮助想写自己股票软件但又无法读出权息资料的朋友，论坛里已有人可以直接对通达信的权息资料进行解密，但我无权限可以查看，未能领教。

原来是这样子啊。呵呵

BGZ518

#*27*# #*27*#

[ 本帖最后由 送人听闻 于 2011-11-17 12:15 编辑 ]