2017年01月_liuyukuan

12月 11月 10月 09月 08月 07月 06月 05月 04月 03月 02月 01月

转载 24点为什么一共1820种组合

52张牌选4,共有(52*51*50*49)/(4*3*2*1)=270725种组合,但是这270725种组合中,包括了点数一样但花色不一样的组合,如红桃A234算一种,但黑桃A234也算一种,但实际上它们的算法是一样的,比如(1+2+3)*4=24等,如果除去这种因素的话,又共有多少种组合呢?可以这样计算:4张牌数字都相同的组合共有13种(AAAA,2222,3333.QQQQ,

2017-01-31 20:54:06 6826

原创 [AHK]显示隐藏文件

显示隐藏文件 ;~ 需要的逻辑是： ;~ 1.如果【隐藏文件】是隐藏状态的，那么显示出来 ;~ 2.如果【隐藏文件】是显示出来的，那么隐藏起来 #z:: RegRead, ValorHidden, HKEY_CURRENT_USER, Softwar

2017-01-27 00:23:40 989 1

原创 [AHK]为编辑器开发gist插件,实现一键发布脚本到gist

一键分享代码到gist

2017-01-26 23:43:02 1576 1

翻译 GitHub Gist API with cURL and Ajax

http://techslides.com/github-gist-api-with-curl-and-ajaxI had seen the GitHub API before but never considered that it extends out toGists, which I use for code samples on this site

2017-01-26 22:27:33 988

翻译 [AHK]用Scite运行ahk脚本,脚本中输出Scite的进程编号

获取父进程的pidGetParentPID(){ hScriptProc := DllCall("GetCurrentProcess", "ptr") VarSetCapacity(pbi, sizeof_pbi := 6*A_PtrSize) if DllCall("ntdll\NtQueryInformationProcess", "ptr", hScriptProc,

2017-01-26 16:51:19 1215

原创 [AHK]批量改文件名一法

利用COM实现文件名批处理：删掉---【meimajidi.com 美妈基地网整理】dir=D:\anan\1-52解压密码meimajidi.comobjFolder := ComObjCreate("Shell.Application").NameSpace(dir)for item in objFolder.items if Not item.isFolder {

2017-01-26 11:10:19 2233 1

翻译 [FUNC]管理员权限运行两法

管理员权限运行RunAsAdmin() { Loop, %0% ; For each parameter: { param := %A_Index% ; Fetch the contents of the variable whose name is contained in A_Index. params .= A_Space . param

2017-01-26 10:34:42 788

翻译 [AHK]读取硬件信息

获取硬件信息 runwait cmd /c wmic cpu get processorid >c:\1.inirunwait cmd /c wmic BIOS get BIOSVersion >c:\1.ini runwait cmd /c wmic bios get serialnumber >c:\1.ini runwait cmd /c wmic DiskDrive get

2017-01-26 10:24:27 1428 1

原创 [AHK]进制转换

请教下，如何把 D2DFC(16进制) 这个转成10进制数？MsgBox % ToBase(0xD2DFC,10)ToBase(n,b){ return (n < b ? "" : ToBase(n//b,b)) . ((d:=Mod(n,b)) < 10 ? d : Chr(d+55))}

2017-01-25 22:53:37 2106

翻译 [AHK]批量解压Zip文件

TempDir =D:\ESS支撑oShell := ComObjCreate("Shell.Application")oDir := oShell.NameSpace(TempDir)Loop %TempDir%\*.zip{ oZip := oShell.NameSpace(A_LoopFileFullPath) if !(oZip && oDir) {

2017-01-23 22:02:48 2638

原创 [AHK]获取当前运行脚本的pid

Process Exist my_pid := ErrorLevel

2017-01-23 21:28:28 2351

原创 [AHK]「迭代」和「递归」示例

;迭代：是将输出做为输入,再次进行处理。比如将摄像头对着显示器；比如镜子对着镜子；比如KTV中将麦克对着音箱；比如机关枪扣动扳机发射子弹后，利用后座力继续扣动扳机。iteration(x){ sum:=1 Loop { if (x>=1) { sum*= x x-- } else break } return sum}MsgBox %

2017-01-23 20:12:51 1409

原创 [AHK]StrokesPlus调用AutoHotkey脚本的实践

StrokesPlus配置如下： acRunProgram("D:\\AutoHotkey\\AutoHotkey.exe","E:\\快盘\\AHK\\SP传递参数调用ahk脚本.ahk Hello",0, 1)说明：acRunProgram(fullpath, parameters, seconds, style)fullpath即完整路径，写法C:\\windows\\...

2017-01-19 10:58:11 1611

原创 [AHK]阿尔伯特●爱因斯坦数学题

;~ 题目：;~ 有一个很长的阶梯，如果一步走2个阶梯，最后剩1个阶梯，如果一步走3个阶梯，最后剩2个阶梯，如果一步走5个阶梯，最后还剩4个阶梯，如果一步走7个阶梯，则刚好走完，请问这个阶梯一共有多少阶？i:=1Loop{ i++}until (Mod(i, 2)=1 and Mod(i, 3)=2 and Mod(i, 5)=4 and Mod(i, 7)=0)Msg

2017-01-17 21:41:27 1597

原创 [AHK]将选中字符中的字母全部转换成【大写 / 小写 / 首字母大写】

暗夜如歌 15:20:03求助：AHK能否实现这样的功能？在任意程序的文本框中，选中一段字符，输入定义好的快捷键，就能将选中字符中的字母全部转换成【大写 / 小写 / 首字母大写】/*AutoHotkey 版本: 1.1.24.04操作系统: Windows XP/Vista/7 作者: sunwind 博客: http://blog.csdn

2017-01-17 16:10:43 4300

转载 scite自动检测文件编码

##########################文件开始fileDect.py##############################encoding:utf8# Detect file encoding# Simple method that just chacks that first 1000 lines are valid in each encoding# and

2017-01-16 23:18:37 1217

原创 [AHK]python调用ahk，并读取ahk的执行结果

转自：http://blog.csdn.net/tumin999/article/details/512064932016-04-21 10:53 目前使用ahk脚本(已编译成独立exe)来执行一个动作，而Python主程序负责调用这些不同的ahk程序。以前是通过系统粘贴板来交互数据，即ahk程序启动后清除粘贴板，在结束时将执行情况已文字

2017-01-16 21:27:38 4458

原创 [AHK]创建WScript.Shell对象执行DOS命令行并获取返回值

wShell := ComObjCreate( "WScript.Shell" )exec := wShell.Exec("ipconfig /all") MsgBox % exec.StdOut.ReadAll

2017-01-16 21:03:52 3604

转载利用WScript.Shell对象隐藏cmd命令行运行框

若隐藏cmd命令行窗口，有两种方法。（1）创建WScript.Shell对象，由该对象直接运行testcopy.dat文件，对应的vbs文件：testcopy1.vbs，双击testcopy1.vbs即可看到效果。复制代码代码如下:dim objShell set objShell=wscript.createObject("WScript.Shell") iReturnCod

2017-01-16 20:57:15 6895

原创 [FUNC]REPT函数

Sword问： str := "abc" 怎么打印几个或多个"abc ",类似于EXCEL里的REPT函，不知AHK有没有?回答：rept(str,i){ ret:="" loop,%i% { ret:=ret . str } return ret};testMsgBox % rept("a",3)MsgBox % rept("abc

2017-01-16 13:04:44 824

转载 [AHK]绑定按钮到某窗口

#Persistent;by FonnySetTitleMatchMode,2;~ AHK内置的Gui属性就可以绑定按钮到某窗口;~ 这是GuiGs_tcWinID:=WinExist("SciTE")MsgBox %Gs_tcWinID%Gui, myGui: NewGui, -Caption +HwndGui_winIDGui, Add, Button, gTest, 测试1

2017-01-16 13:02:06 3312 1

原创 [AHK]热键打开某个QQ好友的会话窗口

热键打开某个QQ好友的会话窗口

2017-01-13 15:09:39 2025 1

转载 [AHK]AutoHotKey 常用命令及示例

一、示例（自动打开QQ声音）Loop ;循环体{WinWait, 与 qq009 交谈中,IfWinNotActive, 与 qq009 交谈中, , WinActivate, 与 qq009 交谈中,WinWaitActive, 与 qq009 交谈中,Controlclick, Button36 ;接受请求Sleep, 500Control, Check, tr

2017-01-12 23:02:53 45757 2

原创 [AHK]用热键生成所选文件的副本

TC不允许按ctrl+左键拖动文件在当前文件夹创建副本用AutoHotkey自己解决，实现点选文件按capslock+d 生成一份副本。;作者:Quant;2017年1月11日16:23:04;功能:给文件名加上版本号以备份之;使用说明：;1、在资源管理器或者TC中，点选1个或多个文件;2、按capslock+d生成一份文件副本，生成规则同Explorer资源管理器

2017-01-11 16:24:04 1912 1

翻译 [AHK]在Excel中用热键创建超链接

Hyperlink in Excel 2010 using COM?https://autohotkey.com/board/topic/72914-hyperlink-in-excel-2010-using-com/F1:: ; example 1:设置Excel的热链接oExcel := ComObjActive("Excel.Application")f

2017-01-10 23:18:12 1532 1

原创 [AHK]一键给当前选中文件名加上日期(V1.6版本)

批量自动给文件名加日期，支持TC以及资源管理器。

2017-01-08 14:35:21 3320 2

原创 [AHK]解析CSV文件示例，每一列存到一个数组中

/*;作者：QQ1576157;时间：2017年1月7日21:25:23; 功能：解析CSV文件示例，每一列存到一个数组中。;原理：遍历每一行，将每行分成多个列*/data = (join`r`ntype,make,model,specs,urlcar,GM,Impala,4 door,go to www.chevy.com for selectionstruck,Nissa

2017-01-07 21:28:15 2886 1

原创 [AHK]从注册表获取特殊路径

/*;作者：QQ1576157;时间：2017年1月7日21:10:39; 功能：从注册表获取特殊路径,此方法以支持以下特殊路径，AutoHotkey虽然支持一些特殊路径但还是不全。;原理：遍历HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders;可获得路径包括以下

2017-01-07 21:23:00 988

转载 [WIN32][AHK]sapi.spvoice的调用

COM方式调用系统TTS功能，win7测试可用spovice:=ComObjCreate("sapi.spvoice");速度稍慢请等待几秒钟spovice.Speak("世界你好")spovice.Speak("You can read simple text.")应用案例:;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

2017-01-07 10:05:28 4530

转载 [AHK]GoldenDict 划译插件(鼠标拖选、双击选词翻译)

;GoldenDict 划译插件[AHK];version 0.9;allor@sian.cn;2016-01-08;GUI及其他功能完善有待日后空闲;========使用说明========;pause键启用/停用脚本;鼠标拖选、双击选词翻译;~ http://weibo.com/1928931362/Dcdvnphx7?type=comment;~ https://0pa

2017-01-06 23:31:22 5228 1

转载 [AHK]左键拖选复制

/*http://blog.felixc.at/2011/03/left-key-copy-middle-key-paste-or-scroll-ahk-script/猫在Linux里用习惯了配置后很好使的中键滚动(TP的小红点+中键来滚动神马的), 以及左键拖选/中键粘贴功能, 现在在Win下也想把他们找回来…此脚本的效果是:左键拖选文字: 复制短按中键(<0.15s): 粘贴长按中

2017-01-06 23:13:20 2207

翻译 [AHK]调用计划任务组件（Schedule.Service）

;~ Create a scheduled task natively [AHK_L];~ http://www.autohotkey.com/forum/topic65768.html;~ Examples of creating a scheduled task using the Schedule.Service COM class. ;~ Requires: Windows Vis

2017-01-06 23:06:56 1403

转载「修改注册表，禁用（Win+L）快捷键」解决AutoHotkey不能用Win+L

不用重启，立刻生效，感谢群友DF指点禁用win_L.regWindows Registry Editor Version 5.00[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System]"DisableLockWorkstation"=dword:00000001

2017-01-06 22:44:19 5977 1

原创 [AHK]双击托盘区某可见程序图标以激活之(为读取微信新消息定义热键)

转自：http://leetschau.github.io/blog/2011/02/21/162416/点击打开链接修改了一些错误，并使之支持64位系统。;~ 激活托盘区程序的ahk脚本;2017年1月6日21:27:48 Quant已经修改为之处64位系统;~ http://leetschau.github.io/blog/2011/02/21/162416/;~

2017-01-06 21:40:48 4521 8

转载 [AHK]右键单击托盘中的QQ图标退出QQ

最近再搜集整理手上的一些AutoHotkey脚本，希望能帮到ahker，;函数见http://www.autohotkey.com/forum/topic17314.html&highlight=tray。稍有改编;作用：以一种“正常的方式群关QQ”，不是强制关闭qq进程。;Quant整理;时间：2017年1月6日20:01:49;右键单击托盘中的QQ图标退出QQ;http://

2017-01-06 19:59:13 2120 1

原创 [AHK]快捷键取得浏览器当前的地址，分享网址链接和网页标题

用法选中标题，按ctrl+F1,剪贴板内容即为链接+内容主题。 ;Quant整理;2017年1月6日11:39:31^f1::Send ^cContent:=ClipboardFileAppend, %ClipboardAll%, temp.clipLoop { FileReadLine, line, temp.clip, %A_Index% if ErrorL...

2017-01-06 11:39:51 3025

翻译 [AHK]获取文件属性

;~ COM Object: Shell.Application;~ Purpose: Retrieves file properties.;~ System Requirements: General;~ Documentation Link: GetDetailsOf, ParseName;~ Other Links: Retrieving Extended File Properti

2017-01-05 22:30:36 1385

原创 [AHK]圆生成算法

在画图板中选好，笔、颜色，鼠标移到圆心，按热键win+z开始画圆#z::半径:=100pi:= 4 * ATan(1)MouseGetPos,x0,y0Loop,360{ x:=x0+Round(半径*Cos(A_Index*pi/180),0) y:=y0+Round(半径*Sin(A_Index*pi/180),0) MouseClick,L,x,y,1}ret

2017-01-05 14:31:52 908

原创 [AHK]按键模式切换

;两个模式切换Flag:=falseCapsLock & r::if(Flag:=!Flag ){ ToolTip 命令模式,400,0}else{ ToolTip 编辑模式,400,0 ;按键功能不变}return;命令模式#if Flagr::send ^rt::send ^tu::send ^ud::send ^ds::send ^s#if

2017-01-05 12:45:07 2964 1

获取同花顺闪电下单界面的价格，AutoHotkey源代码

闪电下单界面有价格的上限和下限，红色的数值是买入上限，绿色的数值是卖出下限。用AutoHotkey可以获取之。

2023-02-03

OfficeidMsoViewer.rar

用于查询微软Office软件菜单项的idMSO标识，可以查询 Access、Excel、Powerpoint、Word的各种 idMso标识

2021-07-25

目标用户群：习惯用通达信看盘，或习惯用大智慧看盘，但又喜欢用同花顺单独交易程序（xiadan.exe）来交易。配置方式：打开压缩包中的配置文件，配置 "下单程序"的路径属性，即将path后面的路径改成你本机xiadan.exe的真实路径。（务必保持配置文件和本脚本名字一致）使用步骤： 1、配置好上面说的路径 2、启动看盘软件，如通达信 3、启动本工具 4、本工具会根据上面所配置路径启动xiadan.exe 5、手动登录xiadan.exe 6、程序会发送F1、F2检查下单功能 7、无误后会在屏幕上方看到下单助手工具条。（点住左侧的矩形可以移动工具条的位置） 8、在通达信（大智慧）上浏览某股票，会同步更新到工具条上。 9、点击买或卖单选框可以切换到买模式或卖模式。（展示相应按钮，屏蔽无关按钮，避免操作出错。核买按钮就是涨停买，核卖就是跌停卖。） 10、选择仓位或者输入手数 11、选择价格或输入价格 12、点击下单按钮 13、本程序会将：股票代码、下单数量、下单价格、自动填写到 xiadan.exe 中。（并会核算下单数量是否符合可下单额度） 14、如选择了闪电复选框，那么在上面第13步下单确认窗口会自动被点击确认。（初期测试不建议选择闪电，另请务必在模拟账户上进行测试，本脚本只做为学习交流，不建议实盘应用，稳定性尚需打磨，欢迎交流探讨。）

2021-06-27

每5分钟输出一次MA值.zip

1、运行“开盘时间每5分钟自动执行.exe”会常驻内存并在开盘时间每间隔5分钟去调用“执行一次.exe”。 2、“执行一次.exe”程序会扫描目录下6位数字命名的可执行文件并执行。 3、每个股票的监控须复制 “000001.exe” 并以想要监控的股票代码命名，扩展名必须是.exe。 4、“xxxxxx.exe”运行时更新对应的“xxxxxx.txt”内容。首次会自动创建“xxxxxx.txt”。

2021-02-18

计算最新的MA_前复权_V3.14159.zip

通过新浪和网易获取股票数据，并计算前复权的MA5/MA10

2021-02-16

2021年历（带农历）

2020-12-30

AccViewer 查看ACC信息的工具

2020-12-19

office2010图标库

office图标不能正常显示时，可能是图标库文件被误删除了，这时就不必重装而可以手动添加图标库修复了，这里是offic2010的图标库。在目录：C:\Windows\Installer文件夹下的Office图标库文件，将压缩包解压后重命名为你电脑中offic图标所需的文件夹名。该文件名的获取方式，可以用注册表方式找到：打开注册表：Win+r 输入 regedit 找到目标：HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Word.Document.12\DefaultIcon (office2010为微软的office版本12) 我的机器，其默认的注册表值如下，注意细微差别： C:\Windows\Installer\{90140000-0011-0000-0000-0000000FF1CE}\wordicon.exe,13 同样可以找到该"{90140000-0011-0000-0000-0000000FF1CE}"文件夹名；修复方法就是把下载的该附件解压后，重命名"{90140000-0011-0000-0000-0000000FF1CE}"为您电脑上查到是offic2010图标库所在文件夹名，然后拷贝到C:\Windows\Installer\目录下，貌似不用重启即可，关键是目录名称要和注册表查到的一样。

2017-09-05

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

AHK微信表情快捷输入

AHK实现批量自动预埋同花顺条件单

获取同花顺闪电下单界面的价格，AutoHotkey源代码

将通达信浏览的可转债对应正股联动到同花顺副屏1.wmv

OfficeidMsoViewer.rar

浮动下单助手通达信或大智慧联动到同花顺xiadan.zip