程序设计『Programing』

键盘过滤驱动勘误《寒江独钓》

没有评论 
Keydata=Irp->AssociatedIrp.SystemBuffer;
numKeys=Irp->IoStatus.Information / Sizeof(KEYBOARD_INPUT_DATA);
for ( i=0;i<numKeys;i++)
{
    DbgPrint(("numKeys : %d ",numKeys));
    DbgPrint(("Scan code : %x ",KeyData->MakeCode));
    DbgPrint(("%s\n",KeyData->Flags? "up":"down"));
    MyPrintKeyStroke((UCHAR)KeyData->MakeCode);

    if (KeyData->MakeCode==CAPS_LOCK)
    {
        KeyData->MakeCode=LCONTROL;
    }
}

以上是书上的源代码，整个循环体只遍历了第一个结构体，后面的并没有进行操作，虽然有个循环但是并没有什么实质的作用，正确的遍历代码应该是下面的样子。程序代码所在页面Page-73 smile

Keydata=Irp->AssociatedIrp.SystemBuffer;
numKeys=Irp->IoStatus.Information / Sizeof(KEYBOARD_INPUT_DATA);
for ( i=0;i<numKeys;i++,numKeys++)
{
    DbgPrint(("numKeys : %d ",numKeys));
    DbgPrint(("Scan code : %x ",KeyData->MakeCode));
    DbgPrint(("%s\n",KeyData->Flags? "up":"down"));
    MyPrintKeyStroke((UCHAR)KeyData->MakeCode);

    if (KeyData->MakeCode==CAPS_LOCK)
    {
        KeyData->MakeCode=LCONTROL;
    }
}

程序设计『Programing』, 系统相关『OS』

IP发送者(IP sender)

没有评论

ipsender

说明：这个小程序说白了也没什么意思。就是获取主机的ip，然后发送到制定的FTP，或者Email。现在远程控制多是反向连接的。也没必要用这个东西， smile 但是如果对于adsl用户来说，如果用dameware，或者3389终端之类的管理这个小工具或许还有点用处吧。这个东西就是根据前面那篇ftpmyip的代码进一步修改的。程序不会判断内网或者外网ip，感觉没必要，只会获取本机ip。判断感觉不是很有必要。就没做。

另外程序如果加壳了，请加壳后再配置服务端，否则将不能正常发送。并且夹加壳后要在文件末尾留出300字节的空白区域，这个直接用c32asm添加就行了。程序获取ip发送ip时间间隔为一小时，这个时间不能手工设置，如果需要的话再说吧。本来是不想写这个东西的，但是受人之托忠人之事，虽然功能不多，但是写起来还是费了一番周折 laugh 。好了，就到这里，猛击此处下载程序！

ps：如果想把ip文件传到默认目录下请将目标路径保持为fuck。否则将不能上传。源程序由于加密解密算法问题，不能正常发送ip，现在已经修正，如果下载了请重新下载文件。 :oups: :oups:

程序设计『Programing』, 系统相关『OS』

Delphi 7 优化精简全功能版 v7.3

没有评论

delphi7【序】
Borland是一家令人尊敬的公司,听说过有这样一句话“Borland的Delphi才是真正的Delphi”,不知正确与否,也许如此吧.谨以此纪念已经仙逝的Borland,纪念逝去的经典Delphi中的经典Delphi7.本品仅供学习交流之用,未与任何盈利为目的,请勿用于任何非法商业用途,否则后果自负. :p

【特别声明】
1:本人制作的所有软件都来自网络,版权归作者和开发商所有.本软件只供试用和学习交流,请勿用于非法途径,严禁用于任何商业用途,试用后请在24小时内删除,否则产生的一切后果将由您自己承担,与本人无关.试用后如果你喜欢此软件,请向作者或开发商购买正式软件以支持正版.
2:本人制作绿软只是出于兴趣爱好,由于水平有限,难免有不足之处,诸多问题学习积累中.
3:本人制作的绿软不集成任何第三方控件,所集成的控件和官方原版保持一致.仅集成增强IDE的第三方专家,并且均为免费或自由软件.如果您是某个第三方专家的作者并且您认为集成后会损害您的权益,请告知本人,将会给予删除.
4:此安装及绿化版经本人在 Win XP2 下测试使用正常,但不保证在您系统上或其它Windows系列版本下同样没有问题,也不保证由本绿化版引起您的计算机系统上其他问题.您若对此没有把握,请勿使用,否则对于使用后造成的任何损失本人将不负责任.
5:如果你喜欢本绿软并需要转载,请注明出处.

Delphi 7 Lite Full Edition v7.3 [SP1.1 Integrated] [Optional D2007 RTL/VCL] [Green Edition Integrated]
Delphi 7 优化精简全功能版 v7.3 [集成目前所有补丁及修正] [可选D2007 RTL/VCL] [安装版/绿色版二合一][含备份/恢复已安装控件信息专家CnWizards]
最后编译日期:2009-10-25

Continue Reading
Close Menu