关注
分享
10年前写的代码，没再维护了，归档吧。
杨正同学
开发12年，产品5年，转管理6年。
总觉根基不牢，毅然决定从基础打磨产品架构这块最擅长的领域。
展开
-
VB的内存释放（鄙视那些说内存泄露的人，适用VB6，.NET）
很多人都发现过，VB使用webbrowser等网络控件或其他一些大型控件时，占用的内存资源会不停的上涨，直到机器支持不了，运行崩溃。很多自以为是的高手要么说VB内存管理的问题，要么IE内核存在泄露。其实不然，只是了解的不够而已。在VB中，一个对象（包括控件）使用以后，可以用set s=nothing来销毁（销毁后不立即释放内存的，要等待windows的内存机制来释放）。但我们可以用Empt原创 2013-01-19 11:49:40 · 10469 阅读 · 7 评论 -
VB使用manifest以支持xp风格和获得管理员权限
一、在win6以上系统里获得管理员权限 processorArchitecture="X86"name="IsUserAdmin"type="win32"/> Description of your application level="requireAdministrator"uiAccess="false"/> 二原创 2013-02-28 13:50:18 · 1347 阅读 · 2 评论 -
*取得系统变量的最简单方法（Environ 函数）
Environ 函数返回 String，它关连于一个操作系统环境变量。 在 Macintosh 中不可用语法 Environ({envstring | number})Environ 函数的语法含有以下这些命名参数：部分 描述 envstring 可选参数。包含一个环境变量名的字符串表达式。 number 可选参数。数值表达式，用来表示环境字符串在环境字符串表格中的转载 2013-03-20 13:43:08 · 2051 阅读 · 0 评论 -
*、vb6用api实现comdialog对话框
'从哪里找来的资料已经忘了，老外发布的Option ExplicitPrivate Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As LongPrivate Type OPENFILENAME lStru转载 2013-01-17 16:39:12 · 832 阅读 · 0 评论 -
6、用vb6写一个仿照SPY++的东西，供大家参考学习用
用以学习EnumWindowsProc、SendMessage、WindowFromPoint、WindowFromPoint、ShowWindow、EnableWindow、FindWindow等等API的用法共有3个窗体，分别为form1,form2,form3,和一个模块Module1form1代码：form1有label(0~5)标签，text1、text2.。。。text5等5个原创 2013-01-17 17:00:24 · 2488 阅读 · 0 评论 -
*继承IObjectSafety接口，实现vb activeX控件安全性（IE不提示安全问题）
原文http://support.microsoft.com/kb/182598/zh-cn从 Visual Basic 6.0 CD-ROM（安装目录） 中获取 OLE 自动化类型库生成器。若要执行此操作将所有四个文件从 /Common/Tools/VB/Unsupprt/Typlib/ 文件夹复制到您的项目文件夹中。将以下文本复制到记事本，，将文件保存为 Objsafe.odl 项目文转载 2013-04-16 08:32:30 · 1245 阅读 · 0 评论 -
4、P2P开发历程之——vb6之P2P简单实现(解决丢包问题)
udp协议相对TCP协议最明显的优点是什么？效率呗；udp协议最显著的一个缺点是什么？额。。。丢包率太高。 其实解决丢包问题说起来很简单——收包后答复。当然同时要做的有：收不到就要求重发，收重复了丢弃，如果是文件还要排序。但是，在现实中，不可能只有两个人在通讯，也不可能发一条消息就等着。解决这个问题的方案：队列（也可称之为缓冲）声明一个typetype Spoo原创 2012-12-15 14:32:46 · 1273 阅读 · 0 评论 -
1、P2P开发历程之——P2P原理(后面是个人归纳)
一、先转述一些基本概念： NAT(Network Address Translators)，网络地址转换：网络地址转换是在IP地址日益缺乏的情况下产生的，它的主要目的就是为了能够地址重用。NAT分为两大类，基本的NAT和NAPT(Network Address/Port Translator)。 最开始NAT是运行在路由器上的一个功能模块。 最先提出的原创 2012-12-15 08:58:39 · 1316 阅读 · 0 评论 -
3、P2P开发历程之——vb6之P2P简单实现(客户端)
这次发的是客户端控件为包括5个textbox：text1 text2 text3 text4 text53个timer控件：timer1 timer2 timer3，两个command按钮：command1 cmmand2，两个winsock控件：WsktoServer WsktoClient代码如下： Dim temp As IntegerPrivate Sub原创 2012-12-15 14:14:39 · 1313 阅读 · 1 评论 -
2、P2P开发历程之——vb6之P2P简单实现(服务端)
1、服务端一个FORM，4个textbox：text1,text2.text3.text4，一个richtextbox：rText1，两个winsock控件：WskMsgRcv，WskMsgSend为测试方便，服务端限定了两个客户端的登录名为："aaaa"和"bbbb" Private Sub Form_Load() WskMsgRcv.Protocol = sckUDPP原创 2012-12-15 09:08:25 · 1996 阅读 · 0 评论