【超神看盘】WGestures 交易软件扩展神器:设置快捷涨停买入、通达信to同花顺联动……

[通达信]
设置
64560 28 忆城- Lv.3 发表于 · 2018-5-2 02:49 显示全部楼层 正序浏览 |
跳转到指定楼层


WGestures 鼠标手势开源工具本是Win扩展利器;经过一段时间的折腾,我发现简直是交易软件的扩展神器;
因没什么普及文章,大多数股民朋友并不知道怎么用;为了群策群力发展更多的交易软件扩展功能,我就先在这里写些 WGestures 工具的精通要点与功能实现;


WGestures 官方下载

图A.png

一、WGestures 设快捷停买卖按键序列

鼠标右键+滚轮向下=涨停闪买,按键序列代码:.{sleep 300}{+}.{enter}

鼠标右键+滚轮向上=跌停闪卖,按键序列代码:.{sleep 300}{-}.{enter}

(图1.1)

图11.png



二、复制股名,自动转股码并在通达信、同花顺里模拟键盘敲击;

本功能需要 两个文件「xxxxxx.vbs」和「A股.txt」
先贴「xxxxxx.vbs」 脚本源码,本人原创首发;


Dim ClipText
Dim Shell
Dim objHTML
Dim regEx, SKtext   
Dim dir0, SkALL, StockN, StockX, StockNAME, StockSC, xxxxxx             '股票名称代码变量
dir0 = left(wscript.scriptfullname,instrrev(wscript.scriptfullname,"\")-1) & "\A股.txt"  '当前目录路径
Set Shell = WScript.CreateObject("Wscript.Shell")                                  '调用键盘
Set objHTML = CreateObject("htmlfile")                                                 '取剪贴板内容
On Error Resume Next
ClipText = objHTML.ParentWindow.ClipboardData.GetData("text")     '取剪贴板内容
wscript.sleep 10
Set regEx = CreateObject("VBScript.regexp")                                           '正则表达式
    regEx.Global = True
    regEx.Pattern = "[^a-zA-Z\d\u4e00-\u9fa5]"                                        '匹配非英文数字中文   
     SKtext = Left(regEx.Replace(ClipText, ""),13)                                        '任意长文只截取前13个字符
       regEx.Pattern = "\D+"                                                                          '匹配非数字  
          StockX = Left(regEx.Replace(SKtext, ""),6)                                       '替换非数字,只识别13个字符的前六位数字
   
If Len(StockX) = 6 And isnumeric(StockX) Then                                       '必须判断字符有六位
    xxxxxx = StockX
Else:
    regEx.Pattern = "[^a-zA-Z\u4e00-\u9fa5]"                                           '匹配非中文   
    StockN = Left(regEx.Replace(SKtext, ""),4)                                            '替换非中文后,只识别前4个汉字是否为股名
    set SkALL = createobject("scripting.filesystemobject").opentextfile(dir0)    '取本地A股.txt内容
    SkALL = SkALL.readall                                                                             '取本地A股.txt内容   
    StockNAME = Mid(SkALL, InStr(SkALL, StockN), Len(StockN))            '调用剪贴板的股名
     If StockNAME <> StockN Then StockNAME = Left(StockN,3)            '股名长度               
        xxxxxx = Mid(SkALL, InStr(SkALL, StockNAME)-7,6)                         '股名转代码
End If
     wscript.sleep 10
If Len(xxxxxx) = 6 And isnumeric(xxxxxx) Then                                         '判断股票代码,必须再判断字符有六位
    Shell.SendKeys left(xxxxxx,1)                                                                  '键入第一位股码"
       wscript.sleep 300                                                                                  '暂停300毫秒"
         Shell.SendKeys right(xxxxxx,5)                                                          '键入后五位股码"
            Shell.SendKeys"{Enter}"
End If
Set dir0 = Nothing
Set ClipText = Nothing
Set Shell = Nothing
Set objHTML = Nothing
Set Times = Nothing
Set StockN = Nothing
Set StockNAME = Nothing
Set StockX = Nothing
Set xxxxxx = Nothing
Set regEx = Nothing
Set SKtext = Nothing
Set SkALL = Nothing



请将以上源码用记事本另存为「xxxxxx.vbs」
然后在通达信里可获得所需的另一个全目录股名代码的文本「A股.txt」

打开通达信点击「A股」,按键34打开「数据导出」,选「报表中所有数据」,「Excel 文件」导出;

然后打开 Excel 文件,全选B列进行三步替换:

1、将双字符「A」全替换为单字符「A」
2、将 「空格符」全替换去掉;
3、将「*ST」全替换「ST」

最后将AB两列复制到记事本另存为 A股.txt
(图2.1)
图21.png



两个文件必须放在一起建议路径设为 D:\Program Files\VBS,然后就可以根据下图设置 WGestures测试操作;

(图2.2)
图22A.png
那如何将通达信与同花顺用 WGestures 联动呢?文末再讲这个问题。



先说些 WGestures 的具体概念,究竟什么是鼠标手势操作?你可以想象成用鼠标右键在屏幕上写字,所写横竖撇捺折的每一笔划均可触发你设定的一个指令。比如上图2.2的功能,你写了一横后便触发你设定的功能执行了「xxxxxx.vbs」。

汉字 「米」如果从中心点向外写的话共有八笔对应八个方向,在 WGestures 中就可设置为八种手势指令;

一笔划可以定义为一级手势
二笔组合则定义为二级手势
三笔以上就定义为三级手势

相对于其他软件,在 WGestures 中鼠标按键可组合成特级快捷键,无需手势配合;比如开头我们设定的涨停闪买「鼠标右键+滚轮向下」;
WGestures 中还有个特性就是可选择设定手势为「全局通用」或「仅对某个软件单设」。

一二三级手势可以对应PC操作动作频繁度来区分,比如 WGestures 的原生手势设定:右键向上为「复制」,右键向下为「粘贴」。
除了频繁度还可以用逻辑联想来设定,比如划分屏幕米字中心:
点击右斜下角触发了所有程序最小化到桌面,我们可以对应「右斜下」手势设定快捷键「Win+D」,反方向「左斜上」的手势则可联想设定为程序任务切换「Alt+Tab」。
同理左下角对应开始屏幕,我们就把「左斜下」手势设定为触发「Win」键,反方向「右斜上」设定为 窗口控制 窗口操作 「最大化/复原」;为什么不设定关闭窗口呢?因为一级手势误触率高。
对容错率低的指令一般要设置为三级手势。如果我们用 Clean up (清除) 第一个字母 C的手写过程设为手势然后触发「Delete」键,反写C的手势就可以设定为组合键「Ctrl+Z」来撤消PC误操作。


一些重要设定…
在全局下:请将鼠标「右键+左键」设为触发「Ctrl+C」,「右键+滚轮中键」设为触发「Ctrl+V」;同时也请保留 WGestures 里复制粘贴的原生设定;
在全局下:请将「鼠标右键+滚轮向下」设为向下翻页「PGDN」,及「鼠标右键+滚轮向上」向上翻页设为「PAUP」;请放心并不影响通达信涨停闪买、跌停闪卖的手势设定,因为图1.1里我们仅对通达信单独设定;

一些经历时间很久才有的经验…
对于不同品牌浏览器、或文字阅读窗口、或Win资源管理器虽然组合键命令有所不同,但请尽量用相同手势实现统一的操作结果。浏览器的鼠标手势「傲游浏览器」好像是第一原创首发,建议请以「傲游浏览器」的手势为蓝本统一操作不同品牌浏览器,再柔合其他阅读软件。


三、WGestures任意文本划词搜索/划词翻译,任意位置屏幕取色

(图3.1)
图31.png
WGestures 除了右键可以划手势,也可同时用滚轮中键划手势执行指令;

比如上图3.1中我用滚轮中键手势「右斜下」执行划词搜索,用滚轮中键手势「右斜下+滚轮向下」执行划词划词翻译。

下面讲的屏幕取色功能,我则是用「滚轮中键+滚轮向上」手势执行指令;屏幕取色值是十六进制颜色码,会自动生成拷贝到剪切板;

十六进制颜色码如果用于通达信公式,请将数位12位与56位的数字互换!
以下是屏幕取色 Lua 脚本代码,源码来源于 WGestures 的软件作者



-- 初始化 源码-----------------
luanet.load_assembly('System.Windows.Forms');
luanet.load_assembly('System');
luanet.load_assembly('System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a');
import('System.Drawing');
import('System.Drawing.Imaging');
import('System.Diagnostics');
Screen = luanet.import_type('System.Windows.Forms.Screen');


-- 执行 源码-----------------------
local scrBounds = Screen.PrimaryScreen.Bounds;
local bmp = Bitmap(scrBounds.Width,scrBounds.Height,PixelFormat.Format32bppArgb);
local g = Graphics.FromImage(bmp);
g:CopyFromScreen(scrBounds.X,scrBounds.Y,0,0,scrBounds.Size,CopyPixelOperation.SourceCopy);
-- 拷贝到剪贴板
local color = bmp:GetPixel(Context.StartPoint.X, Context.StartPoint.Y);
local psi = ProcessStartInfo("cmd", "/K echo " .. ColorTranslator.ToHtml(color) .. "| clip && exit");
psi.CreateNoWindow = true;
psi.UseShellExecute = false;
Process.Start(psi):Dispose(); -- hack
-- cleanup
if g then g:Dispose(); end;
if bmp then bmp:Dispose(); end;


(图3.2)

图32A.png
软件作者说:屏幕取色涉及到好几个API的调用,WGestures 使用的是 NLua 脚本 (//nlua.org),几乎可以调用任何 .Net 的方法;


四、通达信 to 同花顺,用 WGestures 联动;

( WGestures 虚拟按键 代码参考表
)

在通达信里有个功能是标记文字(Ctrl+Q),只要标记里面最前的文字有股名或股码,我们便可以设置鼠标「右键+左键」手势执行自动打开关闭标记并复制标记文本。


鼠标右键+鼠标左键=标记复制,按键序列代码:^q{sleep 300}^a^c%{F4}
(图4.1)

图41.png
「标记复制」再配合「xxxxxx.vbs」便可实现简单的个股联动。通达信里的的标记文件是mark.dat,在文件夹T0002里。mark.dat里面的格式有规律,如果你想要标记全部的个股代码,可以用 Excel 生成所需文本。

上图的通达信联动到同花顺功能并不完美,但如果能直接读取通达信行情内存读取个股代码,就不必多个标记复制步骤。如果能读取同花顺行情内存,就能反过来跟通达信互动。非程序员的我只会编写一点点VBA/VBS且不会API的调用,目前实现不了。WGestures作者写了另一个Lua脚本 稍作修改可以判断Win进程打开通达信或同花顺,但网上NLua教程几乎没有,我还是写不了WGestures里Lua脚本的按键调用。

写此文希望能群策群力,如果你开发出更骚的操作请多多留言或分享!



















(有时间再开贴讲讲 「通达信标记 + 印象笔记 + WGesture 手势」 这三者组合是如何变成超级复盘利器。通达信里手势指令可以一步直接呼出印象笔记并搜索打开相关个股笔记。在印象笔记里编排固定格式批量复制生成个股笔记页,再将「板块笔记页」与「个股笔记页」软件内互建超链。然后个股复盘记要点再复制到通达信标记里面,就可以达到图中通达信的标记效果)
42.png



[ 本帖最后由 忆城- 于 2018-5-3 01:15 编辑 ]
查看全部打赏

举报

扔鸡蛋(0) 回复

忆城-
Lv.3
发表于 2020-4-25 02:03 复制 查看全部楼层
及时雨22 发表于 2020-2-28 02:40
兄好.
感谢你发布的实用技术贴,我新号没币打赏不了,惭愧.
有一个使用问题想请教一下.我按照你说的WGestur ...

@及时雨22 附件 xxxxxx.vbs 已上传!

附件

xxxxxx.zip

1.53 KB, 下载次数: 2, 下载积分: 分享值 -2 个

举报

点亮(0) 扔鸡蛋(0) 回复

及时雨22
Lv.1
发表于 2020-2-28 02:40 复制 查看全部楼层
兄好.
感谢你发布的实用技术贴,我新号没币打赏不了,惭愧.
有一个使用问题想请教一下.我按照你说的WGestures设置第二个功能,复制股名自动转码并实现在同花顺模拟键盘敲击,按照你写的流程做好代码文件并存档.我现在复制股票代码,在同花顺上做手势,不能顺利实现模拟键盘敲击,只是自动打开xxxxxx.vbs文件窗口,这是什么原因呢,我是编程小白,简单的我也不太懂.只能照搬照抄你的原版,但是现在运行有问题.忘指教解惑谢谢.
还有很期待你说的新开帖子,复盘配合使用印象笔记,我一直使用WIZ,多层文件夹和标签感觉比印象笔记好用.就是现在感觉打开关联太麻烦太原始,你这个思路太棒了.效率很高,我现在完全手动的. 期待你的新贴.@忆城-

举报

点亮(0) 扔鸡蛋(0) 回复

绅士688
Lv.6
发表于 2020-1-29 14:30 复制 查看全部楼层
分享是美德,交流促进步!

举报

扔鸡蛋(0) 回复

向前走LX
Lv.2
发表于 2019-11-11 11:25 复制 查看全部楼层
好帖,牛逼啊。

举报

扔鸡蛋(0) 回复

葛良军
Lv.3
发表于 2019-11-11 00:30 复制 查看全部楼层
只能一个字形容你,太厉害了

举报

扔鸡蛋(0) 回复

飞翔在云度
Lv.3
发表于 2019-9-20 15:43 复制 查看全部楼层
支持!!!!!!!!

举报

扔鸡蛋(0) 回复

我注册啦
Lv.4
发表于 2019-1-9 16:54 复制 查看全部楼层
多谢老师慷慨分享好资料!
      Oooo
      (___)
  oooO    )_/
  (___)   (_/
   \_(
   \_)

举报

点亮(0) 扔鸡蛋(0) 回复

忆城-
Lv.3
发表于 2019-1-9 05:06 复制 查看全部楼层
@股海修性 如果你的一键撤单快捷键是24的话那代码如下
2{sleep 300}4{enter}

举报

点亮(0) 扔鸡蛋(0) 回复

股海修性
Lv.2
发表于 2019-1-8 22:00 复制 查看全部楼层
@忆城- WGestures 设快捷涨跌停买卖按键序列;
鼠标右键+滚轮向下=涨停闪买,按键序列代码:.{sleep 300}{+}.{enter}

您好,请问一下一键撤单的按键序列代码是什么呢?谢谢!

举报

点亮(0) 扔鸡蛋(0) 回复

理想fe40b2
Lv.2
发表于 2018-7-22 10:59 复制 查看全部楼层
没看懂,怎么操作做?

举报

扔鸡蛋(0) 回复

清爽www
Lv.4
发表于 2018-6-28 20:26 复制 查看全部楼层
@天平15 可以   超你的想象

举报

点亮(0) 扔鸡蛋(0) 回复

大漠苍蝇
Lv.2
发表于 2018-6-28 15:55 复制 查看全部楼层
高亮颜色如何修改

举报

扔鸡蛋(0) 回复

天平15
Lv.3
发表于 2018-6-28 11:15 复制 查看全部楼层
@清爽www 楼主很强大  确实比较复杂  你的意思用自定义宏鼠标能实现两个看盘软件联动吗?

举报

点亮(0) 扔鸡蛋(0) 回复

我wszchong
Lv.2
发表于 2018-5-5 13:53 复制 查看全部楼层
确实厉害,但我没懂。

举报

扔鸡蛋(0) 回复

五毒童子
Lv.4
发表于 2018-5-4 00:16 复制 查看全部楼层
楼主太厉害了。期待「通达信 标记 + 印象笔记 + WGesture 手势」 这三者组合是如何变成超级复盘利器。这个大作。

举报

点亮(0) 扔鸡蛋(0) 回复

秦奋888
Lv.4
发表于 2018-5-3 20:24 复制 查看全部楼层
我还是不用了。。。

举报

扔鸡蛋(0) 回复

清爽www
Lv.4
发表于 2018-5-3 18:57 复制 查看全部楼层
太费劲了,并且延时时间有点长。不如要个可自定义宏命令的鼠标!

举报

点亮(0) 扔鸡蛋(0) 回复

忆城-
Lv.3
发表于 2018-5-3 09:53 复制 查看全部楼层
今天600773开盘十分钟盘口看着好刺激,明天会板吗……

举报

点亮(0) 扔鸡蛋(0) 回复

真人2008
Lv.4
发表于 2018-5-3 05:19 复制 查看全部楼层
不断地学习,,,总有新东西。谢谢!!!

举报

扔鸡蛋(0) 回复

三产木
Lv.5
发表于 2018-5-2 18:38 复制 查看全部楼层
好事。。。。。。

举报

扔鸡蛋(0) 回复

杨萍
Lv.5
发表于 2018-5-2 17:17 复制 查看全部楼层
支持!!!!!!!!

举报

扔鸡蛋(0) 回复

庭院清秋
Lv.4
发表于 2018-5-2 15:58 复制 查看全部楼层
创新,好

举报

扔鸡蛋(0) 回复

袁氏集团
Lv.4
发表于 2018-5-2 12:15 复制 查看全部楼层
好强的技术贴

举报

扔鸡蛋(0) 回复

瀑布线
Lv.4
发表于 2018-5-2 10:39 复制 查看全部楼层

举报

扔鸡蛋(0) 回复

陈氏太极拳
Lv.5
发表于 2018-5-2 10:39 复制 查看全部楼层
多谢老师慷慨分享好资料!
      Oooo
      (___)
  oooO    )_/
  (___)   (_/
   \_(
   \_)

举报

点亮(0) 扔鸡蛋(0) 回复

小新M
Lv.1
发表于 2018-5-2 10:07 复制 查看全部楼层
楼主 太天真了, 你以为你写的这么详细 我就能看懂了?

举报

点亮(0) 扔鸡蛋(0) 回复

三产木
Lv.5
发表于 2018-5-2 08:15 复制 查看全部楼层
好。。。。。。。。。。

举报

扔鸡蛋(0) 回复

您需要登录后才可以回帖 登录

本版积分规则 《理想财富服务协议》《免责声明》

回顶部 到页底
快速回复 返回顶部 返回列表