1. 足球比赛 (football.pas/c/cpp) 时限1秒 【问题描述】 在2009的中国城市足球比赛中，在2^N支队中，有一些队在开赛前宣布了退出比赛。比赛采取的是淘汰赛。比如有4支队伍参加，那么1队和2队比赛，3队和4队赛，然后1队和2队的胜者与3队和4队的胜者争夺冠军。但是由于某些队伍退出，那么如果某个原本存在的比赛只有一个支队，那么这一支队自动晋级，如果没有队伍出现，那么就跟本没有比赛。比如，1队和2队退出比赛，那么就只有3队和4队的比赛，然后其胜者在原本和1队和2队的胜者的决赛中自动晋级，成为冠军…
Pillars新装了Win10 X64企业版 系统，并且下载了最新的Free Pascal 3.0.2，但却发现一个问题：FPC界面乱码，这对于使用FPC很多年的老手来说已经不是什么问题了。解决方法就是右击快捷方式选择属性——选项——默认代码页，选择"437 OEM（美国）"。界面就应该恢复正常了。但是，为什么我那片显示默认代码页的地方是空的！？ 右击快捷方式，将快捷方式——目标 改为 %windir%\system32\cmd.exe /c chcp 437 & <free pascal路径>…
在一场夏雨之后，我们大山（划掉）里的学校凭借他超自然的自然环境，给10号楼的寝室带来了一批批马陆访客（俗称千足虫）。在连续几天被这些细长的家伙逼疯后，玩性战胜了懒性，上演了这一幕一幕...... B站地址:http://www.bilibili.com/video/av10902450
PiZYDS Isomorphic Calculators Beta1 同分异构计算器（Unsucceed） 这是Pillars在看完化学试卷答案后的感慨，写了这个Pascal程序。 很遗憾，这是一个尝试的版本，基本上就是搜索枚举，但会产生很多重复，浪费大量时间资源。该思路已经放弃。 https://github.com/PillarsZhang/PiZYDS-Isomorphic-Calculators-Beta1 http://git.oschina.net/PillarsZhang/PiZYDS-Isomor…
PiZYDS-极杀-BestKiller V3.1.0 这是一款用来在信息课脱离教师端控制的神器。已经完美适配极域电子教室（默认进程名studentmain.exe）。如果要干掉其他电子教室软件请自行改动进程名。 1.强力杀进程：调用无坚不摧（少数除外）的NTSD（程序已自带），同时兼容多同名进程的情况。 2.抢钩（Hook）功能：循环挂钩，防止键盘被极域的WH_KEYBOARD_LL钩子屏蔽。 3.热键（HotKey）：可以在后台（屏幕被广播的情况下）触发杀进程模块。 4.双向开关：可以自动获取极域的安装路径来打…
个人理解在：https://www.pizyds.com/c-or-vb-net/ Choose Your Technology（选择你的技术：C#/VB.NET还是C++）英文原版来自MSDN-Windows Dev Center： https://msdn.microsoft.com/en-us/library/windows/desktop/dn614993.aspx 以下为谷歌翻译...... 选择您的技术 当您要创建一个新的桌面应用程序时，您所做的第一个决定是使用Win32和COM API或.NET。这两个…
参考： MSDN-Choose Your Technology（英文原版）：https://msdn.microsoft.com/en-us/library/windows/desktop/dn614993.aspx 谷歌翻译版本：https://www.pizyds.com/msdn-c-or-vb-net/ （CnBlogs-凝静志远）高级语言虚拟机的一点理解，对比.NET和Java平台：http://www.cnblogs.com/tsiangleo/p/5021589.html (知乎-回答-寂静岭）：htt…
PiZYDS-BestKiller-极杀 V3.0.9 这是一款用来在信息课脱离老师控制的神器。专为极域电子教室开发，打开就可以用了。其他电子教室需要自行改动进程名。 请低调使用，当然也可以推荐给同学（前提是你不会被连带遭殃）。 软件基于NTSD，采用VB6.0编写。 软件作者：章鱼DS 官方网站：https://www.pizyds.com/ （源码整理中，等待开源） https://www.pizyds.com/category/work/pizyds-bestkiller/
QQ的惯例，每年除夕夜推出的刷一刷抢红包。简单分析，这就是一个机械的拼手速过程：下滑，松开，下滑，松开…… 这就很容易用脚本代码来实现，本例中使用了按键精灵的MQ语言（VB语法），来达到自动刷一刷的目的。 （温馨提示：这个脚本是用来装逼的，不是真的来抢红包的） 2017.4.29更新：真不好意思拖了那么久，原文真的是那个除夕创建的... 最开始是考虑使用swipe()命令 很轻松的（绕了几个弯）写出第一代脚本： Dim x,y,t1,t2,tt t1=35 t2=0 X=GetScreenX() Y=GetScre…
在按键精灵中，录制的脚本中使用了带Event的函数（TouchDownEvent,TouchMoveEvent,TouchUpEvent），而提供的指南中，却只有不带Event的（TouchDown,TouchMove,TouchUp）。而当把这两种函数进行比较，却能发现明显不同：运行效率Event明显快很多 Dim t1 t1=TickCount() TouchDown 1,1,0 TouchMove 5,1,0 TouchUp 0 ShowMessage "无Event："&TickCount()-t1…
