Pillars新装了Win10 X64企业版 系统,并且下载了最新的Free Pascal 3.0.2,但却发现一个问题:FPC界面乱码,这对于使用FPC很多年的老手来说已经不是什么问题了。解决方法就是右击快捷方式选择属性——选项——默认代码页,选择"437 OEM(美国)"。界面就应该恢复正常了。但是,为什么我那片显示默认代码页的地方是空的!? 右击快捷方式,将快捷方式——目标 改为 %windir%\system32\cmd.exe /c chcp 437 & <free pascal路径>…

2017年06月05日 3条评论 8111点热度 38人点赞 阅读全文

在一场夏雨之后,我们大山(划掉)里的学校凭借他超自然的自然环境,给10号楼的寝室带来了一批批马陆访客(俗称千足虫)。在连续几天被这些细长的家伙逼疯后,玩性战胜了懒性,上演了这一幕一幕...... B站地址:http://www.bilibili.com/video/av10902450

2017年05月29日 0条评论 3709点热度 1人点赞 阅读全文

PiZYDS Isomorphic Calculators Beta1 同分异构计算器(Unsucceed) 这是Pillars在看完化学试卷答案后的感慨,写了这个Pascal程序。 很遗憾,这是一个尝试的版本,基本上就是搜索枚举,但会产生很多重复,浪费大量时间资源。该思路已经放弃。 https://github.com/PillarsZhang/PiZYDS-Isomorphic-Calculators-Beta1 http://git.oschina.net/PillarsZhang/PiZYDS-Isomor…

2017年04月30日 0条评论 3307点热度 0人点赞 阅读全文

PiZYDS-极杀-BestKiller V3.1.0 这是一款用来在信息课脱离教师端控制的神器。已经完美适配极域电子教室(默认进程名studentmain.exe)。如果要干掉其他电子教室软件请自行改动进程名。 1.强力杀进程:调用无坚不摧(少数除外)的NTSD(程序已自带),同时兼容多同名进程的情况。 2.抢钩(Hook)功能:循环挂钩,防止键盘被极域的WH_KEYBOARD_LL钩子屏蔽。 3.热键(HotKey):可以在后台(屏幕被广播的情况下)触发杀进程模块。 4.双向开关:可以自动获取极域的安装路径来打…

2017年04月07日 0条评论 4204点热度 11人点赞 阅读全文

个人理解在: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。这两个…

2017年03月26日 1条评论 3321点热度 0人点赞 阅读全文

参考: 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…

2017年03月25日 1条评论 4320点热度 0人点赞 阅读全文

PiZYDS-BestKiller-极杀 V3.0.9 这是一款用来在信息课脱离老师控制的神器。专为极域电子教室开发,打开就可以用了。其他电子教室需要自行改动进程名。 请低调使用,当然也可以推荐给同学(前提是你不会被连带遭殃)。 软件基于NTSD,采用VB6.0编写。 软件作者:章鱼DS 官方网站:https://www.pizyds.com/   (源码整理中,等待开源) https://www.pizyds.com/category/work/pizyds-bestkiller/

2017年03月23日 0条评论 3220点热度 2人点赞 阅读全文

QQ的惯例,每年除夕夜推出的刷一刷抢红包。简单分析,这就是一个机械的拼手速过程:下滑,松开,下滑,松开…… 这就很容易用脚本代码来实现,本例中使用了按键精灵的MQ语言(VB语法),来达到自动刷一刷的目的。 (温馨提示:这个脚本是用来装逼的,不是真的来抢红包的) 2017.4.29更新:真不好意思拖了那么久,原文真的是那个除夕创建的... 最开始是考虑使用swipe()命令 很轻松的(绕了几个弯)写出第一代脚本: Dim x,y,t1,t2,tt t1=35 t2=0 X=GetScreenX() Y=GetScre…

2017年02月03日 2条评论 6918点热度 5人点赞 阅读全文

在按键精灵中,录制的脚本中使用了带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…

2017年01月28日 5条评论 17181点热度 27人点赞 阅读全文

相信有很多站长都在用企业邮箱,特别是在阿里云邮提供免费邮箱后,Pillars也去申请了一个。开始的时候还能通过自己的二级域名绑定登录页面,但好景不长(;`O´)o......G20峰会,把所以没备-案的域名都干掉了...... 没办法,那就跳转吧,试过Dnspod和Dnsla的域名转发,都不理想,既然有了虚拟主机,为什么不直接让这个二级域名指向跳转的html页面呢? 这里在云主机的后台面板中添加一个子域名,并且设置好DNS,在子域名根目录下建一个index.html,写上: <!DOCTYPE html>…

2017年01月01日 0条评论 5083点热度 5人点赞 阅读全文