网站已升级!
VB编程

内存加载DLL并调用函数--VB

 

从内存中加载并调用DLL的代码,很邪恶,VBGOOD的仙剑魔同学从C翻译成VB的。

直接在内存中调用DLL中的函数,根据这个代码会产生很邪恶的想法,进而编出很邪恶的程序。。。。我啥也没说。。。

...

More...

blackfeather 2011/7/9 0评论

VB编程

SYSTEM进程建立普通权限的进程--VB

 

一些功能比如sendmessage、截屏等等在SYSTEM权限下会不工作,以前没有碰到过这个情况所以一直没去处理,前两天做模拟点击的时候必须处理这个情况,于是有了个这个传说中的降权的代码。SYSTEM权限的进程建立普通权限的进程第一反应就是CreateProcessAsUser函数。于是有了下面的代码:

 

Option Explicit

...

More...

blackfeather 2011/7/4 0评论

VB编程

IOCP模型搭建的服务器-VB

 

话说前不久开发某个系统的时候,为了提高服务器的性能使用了IOCP模型,这份代码是在网上查资料的时候从VBGOOD淘到的,基本框架算是写出来了,是一份难得的极品代码。

不过最后我没用用这个代码。。。因为时间和精力有限,直接使用了别人的IOCP服务器组件。。。

但是这份代码还是很有价值的,有时间了重新整理下,加上异常情况捕捉和错误处理等等等等。。。

代码如下:

IOCP模型_VB服务器代码

...

More...

blackfeather 2011/6/30 0评论

VB编程

WEBBROWSER中模拟鼠标点击(SendMessage/PostMessage)

 

好久没有写文章,发一篇顶顶博客访问量。别人建议转一些比较好的代码也贴过来,但是我打算这里主要发自己原创的代码,所以么。。流量该多少就多少吧。。。

回到主题,在webbrowser中点击某链接网上几乎都是用document对象模拟点击,这个方法基本能应对一般的情况,但是例如广告联盟的点击XXX就有检测机制(不多解释,你们懂的)。所以完全模拟鼠标的点击事件就比较完美。于是我用了最常见的SendMessage。

接下来就要解决一个问题,webbrowser的句柄问题。从控件本身得到的句柄不是真正的浏览窗口的句柄,用SPY++看一下就能看出来,这里不贴图了。按照这个窗体的结构,用以下代码可以获取到网页的窗口的句柄。
...

More...

blackfeather 2011/3/7 0评论

其他代码

PowerBasic的HTTP服务器源代码

 

最近最的项目用到了socket,开始使用VB的winscok控件,但是这个控件的效率太低了而且没法设置超时,要建立一个Timer来完成,很不方便。于是决定用功能强大的PowerBasic来做。PB本身自带了好多有关TCP的函数使用起来非常方便,Google小搜索了下找到了这个很不错的代码,是一个Http服务器,使用多线程来完成socket,代码比较长,但是分析下就能看到socket部分的代码。希望对PBer有用。

 

点击下载:PowerBasci的HTTP服务器源代码

...

More...

blackfeather 2010/7/25 0评论

VB编程

基于数据包过滤的网址过滤软件--(VB+PB)

 

 

这一段时间做了几个程序,今天贴出来一个,不过不开源啦,需要代码的直接加我QQ

开源啦:http://www.fenlog.com/post/74.html

 

原来写过一个程序:绿盾上网助手(绿坝二代) 贴在是这个http://www.fenlog.com/post/51.html ,用了BHO技术所以只能用于IE浏览器(是只能用于微软的IE浏览器,其他IE内核的浏览器也不能用),不能用于别的浏览器,虽然还用但是局限性相当大。但是现在是个网络科技公司就出自己的浏览器,什么搜狗、360、TT、XXXX,数不尽数,还有GOOGLE浏览器和Opera等国外的,就搞不定了。后来有人需要这个,就想了一个方法实现了过滤所有浏览器网址的功能。

...

More...

blackfeather 2010/5/12 3评论

VB编程

Webbrowser中屏蔽对话框 -- VB & PB

 

很多人都头疼过一个问题就是:在webbrowser中的对话框怎么屏蔽? 比如<script>alert('test')</script>这种弹出来一个对话框,内容为test(HTML里面的Javascript,懂网页的人应该都明白)。对于这种的屏蔽网上有两种方式:

1、在BeforeNavixxxx的事件中执行 webbrowser.Document.parentWindow.execScript "function alert(){return;}","Javascript"  。大概意思就是执行在webbrowser中执行一句JavaScript,把alert这个弹窗的函数重写了,执行的时候直接return。优点是杀人于无形,主动过滤,缺点是貌似不能屏蔽script在frame中的弹窗。。。

...

More...

blackfeather 2010/2/28 1评论

VB编程

PDU编码器-VB(发送中文短信)

 

最近做基于GSM的无线报警系统,用到了TC35I模块。但是这个玩意发送中文短信的时候必须使用PDU的方式来发送,所以很多信息都要先经过编码。网上有很详细的编码格式等等,但是每次都手动来一次太麻烦了,花了一晚上的时间写了这个东西并且调试通过了。

首先我大致说一下PDU编码格式。PDU模式收发短信可以使用3种编码:7-bit、8-bit和UCS2编码。7-bit编码用于发送普通的ASCII字符,8-bit编码通常用于发送数据消息,UCS2编码用于发送Unicode字符。一般的PDU编码由A B C D E F G H I J K L M十三项组成。

...

More...

blackfeather 2010/1/25 1评论

其他代码

51单片机模拟串口发送与接收

 

最近做的一个项目里需要用到两个串口来完成通信,但是熟悉的51只有一个串口,后来问老师给我的回答竟然是用两个单片机。。。

无语了,于是想尝试使用普通I/O端口模拟串口来通信(微机原理不能白学呀),于是百度了一些资料,有了以下代码。

此代码不是我写的,但是感觉这个代码比较适合新手,有很高的参考价值并且可以直接编译,使用的是传说中的中断法。各位使用的时候注意修改晶振。

 

打包下载: 单片机模拟串口发送与接收代码

...

More...

blackfeather 2010/1/16 0评论