欢迎来到老马的领地~ 这是“压风式散热底座”发明者的个人网站:) 本人QQ:80524554,用户群1:562279766

NND,国外机器人也很猖狂啊,果断再改代码!

[ 2013-07-31 15:54:27 | by 嗷嗷叫的老马 ]
之前把日志评论那边的代码改了,于是评论的垃圾信息就几乎没有了.

但是留言本那边可就翻了天了,拼了命的在填啊填,真当我是没办法防了么biggrin.gif

看了一下垃圾信息,全是广告,那现在先按关键字来过滤,因为非常有规律,全是包含://,<a href=之类的,那就先用这两...
这位WS的大神这次弄出来了这个终级版本了,以下是PctGL博客中的部分原文:

[quote]
本来不打算再写新的 iSubClass , 之前的版本有关 无崩溃 的问题一直没有完美解决

这两天 [b][color=Blue][size=...
刚开始是"error PRJ0002 : 错误的结果 128",执行CL.EXE时的返回值.

在网上查了很久,都说是要把mspdbsrv.exe,mspdbcore.dll,mspdb80.dll,msobj80.dll这四个文件复制到CL.EXE所在目录下.

结果放过去又说fatal error C1902,我那个晕.

最后试了试把它们放...

DiscuzX2.5里面禁止修改某用户的密码

[ 2013-05-14 00:33:27 | by 嗷嗷叫的老马 ]
前两天小胡在群里抱怨说老有人改论坛里everyone账号的密码,导致很多不想注册又想下载东西的朋友登录不了.

真不知道这些人是个什么心理......我打开方便之门,他们就来搞破坏,这真是老鼠屎啊,是不是非要逼得大家都不敢开放(或没办法开放)游客账号才过瘾?啊,你技术好高超...

仿C语言中的联合体union高效取高低字方法(VB6.0)

[ 2013-03-23 05:13:09 | by 嗷嗷叫的老马 ]
在CSDN的一个帖子( 求高效的取高字节VB6的函数 )里见到问题,说是想要高效的方式取得一个Long的高低字.

原帖子里用计算的方式来得到高字值,但还想要再快.

于是我就想到了C里面的联合体union,要是VB6里有这玩意该多...

原来Chrome内核调用了timeBeginPeriod函数来提高定时器精度

[ 2012-11-07 23:38:38 | by 嗷嗷叫的老马 ]
把上一篇"猎豹浏览器居然能提高Sleep函数的精度??测试为证,有图有真相"发到群里后,大家研究了好一阵,都觉得挺有意思

不过在我们还在研究为什么Chrome内核会对Sleep函数的精度进行影响时,凄...
有点意思,是之前写一个绘图程序,为了让图像的生成过程有个视觉效果,所以每绘一条线后就Sleep 1,这样就能有个绘出来的效果,而不是"啪"地一下子绘出来.

但是发现有时绘制速度快了一倍不止,有时又慢了点,就觉得怪,代码没动过啊.

结果才注意到与打开了猎豹浏...

解决WIN7下PPS挂起无响应的方案(附单核补丁程序)

[ 2012-06-06 21:57:25 | by 嗷嗷叫的老马 ]
关键字:PPS,WIN7,卡死,无响应,挂起,解决办法,补丁

这几天在陪老婆看乱马1/2,前段时间PPS未升级时还OK,但是升级到最新版后,啊呀呀,就完蛋蛋了.

一打开PPS,运气好能速度点开视频然后全屏,运气不好的话,就是PPS主界面没反应了,只能用任务管理器结束进程再开.

PPS官...
代码很简单,就不用作为附件上传了,直接贴在这里吧.

调用当然也更简单,ReadText("嗷嗷叫的老马")即可~~~cool.gif

当然,需要机器装了TTS引擎,同时最好再装个真人发音引擎,因为SAM大叔的声音实在实在实在是....

[code]Option Explicit
'ModTTS.bas
...

编程关闭显示器(VB6.0)(2012-06-29更新,上传代码,支持WIN7)

[ 2012-05-10 13:42:11 | by 嗷嗷叫的老马 ]
刚刚开着门窗,电视也开着,结果巨多的小虫子飞进来,扑在本本屏幕和电视机屏幕上.

电视机是42寸的液晶,原理与本本的LCD相同,也是用的高频灯管提供光源.

老婆和丈母娘受不了了,出去买灭害灵了,我关了电视和灯,然后等电脑的屏幕关闭.

但是没等关闭,十几只虫子就扑在...

放一个读EXCEL文件的封装,方便以后找(VB6.0)

[ 2012-04-14 20:00:43 | by 嗷嗷叫的老马 ]
不需要引用EXCEL,因为是后期绑定.当然会有性能损失,但是一般来说影响不大....

读出的内容放在了tmpVal()数组中,最小下标为1.
[code]
Public Function ReadExcel(ByVal sFileName As String) As Boolean
    '读EXCEL表格内容
    '
    'sFileName - EXCEL文件名...