>> VB6
关注
分享
扫一扫
唐古拉山
开发主要面向证券金融，证券交易，网关软件，网络安全，网络通讯，物理隔离，系统安全，数据加解密，界面组件设计等。
展开
-
怎样得到光驱的盘符?
Option ExplicitPrivate Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" _ (ByVal nDrive As String) As LongGetLogicalDriveStrings-->获取一个字串,其中包含了当前所有逻辑驱动器的根驱动器路径Private Declare Fun原创 2001-12-26 08:32:00 · 1925 阅读 · 0 评论 -
在VB中实现向函数传递不定个数参数
在VB中实现向函数传递不定个数参数其实很容易，下面我写出代码，今天在开发的工程中正好用得上．十分实用．^_^ 新建一个EXE工程，加入一个Listbox1和Command1，代码如下： Option Explicit Public Sub TransferPA(LST As ListBox, ParamArray Items()) Dim i With LST .Cle原创 2004-07-12 14:02:00 · 5538 阅读 · 1 评论 -
动态建立弹出式菜单技术及其应用示例
建立一个标准EXE新工程，在窗体上添加一个Listbox和一个Text控件。 然后在窗体中粘贴下面代码：（窗体代码） Option Explicit Private Sub Form_Load() List1.AddItem "使用鼠标右键单击这里"End Sub Private Sub List1_MouseUp(Button As Integer, Shift As Integer, x原创 2004-07-09 10:11:00 · 2844 阅读 · 0 评论 -
VB中使用文本框技巧两则
VB中的文本框在开发中用得十分频繁，下面是两则小技巧，与大家分享： 1．如何限制文本框只能输入数字键？ 代码： Private Sub Text1_KeyPress(KeyAscii As Integer) If Not (IsNumeric(Chr(KeyAscii)) Or KeyAscii = 8) Then KeyAscii = 0 End Sub 2．如何控制文本原创 2004-07-13 11:11:00 · 3007 阅读 · 0 评论 -
锁定光驱在Win2000上的实现
最近看到很多朋友在讨论如何锁住光驱的问题,但是没有一个结果。 趁着周末闲，写出代码和大家一起分享。 新建一个工程，在窗体上加入两个按钮，粘贴以下程序，看看效果怎么样？^_^ Option ExplicitPrivate Const GENERIC_READ As Long = &H80000000Private Const FILE_SHARE_READ As Long = &H1Private原创 2004-07-03 15:48:00 · 3742 阅读 · 0 评论 -
为光驱右键菜单添加“关闭”功能菜单
在微软的系统中，光驱的弹出菜单只有“弹出”命令，没有“关闭”命令。这让我们这些“懒惰”的人不爽，下面就和我一起动手解决这个不“爽”的问题。 第一步： 打开记事本，粘贴如下代码，看不懂，不要紧，这只是个脚本而已，无它。 Set Obj=CreateObject("WMPlayer.OCX.7")Set CD=Obj.CDROMCollectionIf CD.Count>=1 then For i原创 2004-07-03 16:43:00 · 4653 阅读 · 2 评论 -
SetCapture的基本应用示例
怎么样可以捕获到鼠标进入和离开窗体呢？ 这里要用到两个Api，即SetCapture和ReleaseCapture． 新建一个工程，将下面代码贴入代码区．按F5运行即可． Option Explicit Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As LongPrivate Declare Funct原创 2004-07-28 09:20:00 · 3075 阅读 · 3 评论 -
如何在应用程序中调用帮助文件?
在软件中帮助文件是非常重要的，它是用户认识软件的窗口．下面给出怎么样在VB中调用帮助文件的代码． 新建一个工程，在窗体上加入控件CommonDialog1，然后在代码窗口添加下面代码（最好放在模块内） Option Explicit 调用帮助文件，参数：IndexIDPublic Sub ShowMeHelp(Optional IndexID As Integer) On Error Go原创 2004-07-29 09:22:00 · 1924 阅读 · 0 评论 -
如何获取Windows应用程序列表
Windows任务管理器的应用程序栏包含任务窗口的列表。要获取此列表，窗口必须满足以下几个条件：(1) 必须可见(2) 包含一个标题(3) 不能被其他窗口包含下面我给出源程序和调用示例：VC++源代码(使用VC6)：//获取任务列表且添加到列表框中．BOOL GetAppList(CListBox &LstBox){ CString strCaption; LstBox.Res原创 2004-08-11 10:27:00 · 6229 阅读 · 0 评论 -
写了个下载组件，采用异步模式
今天上午写了这个东西，功能全面，用在工程中，效果十分好．下面是示例图(Demo界面)：原创 2004-08-12 12:13:00 · 1602 阅读 · 1 评论 -
写了个 Ping 模块 很实用！
今天周末，看见同事为写一个Ping程序着急，我就写了个Ping函数，呵呵，在这里贴出来，想要的同志可以“剪”去，算是我送给大家的一个小礼物！图：Ping通的情况图：Ping失败的情况下面是源代码(VB6)：(完善的出错控制，所以是个好函数）Option ExplicitPrivate Const IP_SUCCESS As Long = 0Private Const原创 2004-08-14 11:45:00 · 3723 阅读 · 3 评论 -
ASP如何获取客户端真实IP地址
在ASP中使用 Request.ServerVariables("REMOTE_ADDR") 来取得客户端的IP地址，但如果客户端是使用代理服务器来访问，那取到的就是代理服务器的IP地址，而不是真正的客户端IP地址。要想透过代理服务器取得客户端的真实IP地址，就要使用 Request.ServerVariables("HTTP_X_FORWARDED_FOR") 来读取。不过要注意的事，并不是每个原创 2004-08-17 10:22:00 · 2191 阅读 · 0 评论 -
取得本机IP地址的方法两则
方法1：(控件法）新建工程，在工程中加入Winsock控件和一个按钮控件代码：Option ExplicitPrivate Sub Command1_Click() MsgBox "当前计算机网卡IP：" & Winsock1.LocalIPEnd Sub方法2：（API法）新建工程，在工程中加入一个按钮控件代码：Option ExplicitPrivate原创 2004-08-17 10:46:00 · 3646 阅读 · 0 评论 -
使程序在Windows任务管理器隐藏
呵呵，要实现这个功能简单得厉害：Private Sub Form_Load() App.TaskVisible = FalseEnd Sub微软有时候做软件就是这样破烂，为什么不把这个功能加到工程属性里面设置呢？偏偏要搞个APP对象，好让你不知道．．．------------------------------------------- 转载请注明出处 作者：唐细刚 邮箱原创 2004-09-09 17:42:00 · 3181 阅读 · 0 评论 -
如何获取exe,dll中的图标以及源程序
今天网上有人问到这个，随便给解释了下，具体请看：http://community.youkuaiyun.com/Expert/topic/3417/3417578.xml?temp=.30534我出的源程序：新建一个工程，在窗体上加上两个Label: Label1和Label2;以及一个VScroll1和Picture1示例源代码如下：Option ExplicitPrivate Declare原创 2004-09-29 11:04:00 · 3791 阅读 · 0 评论 -
Visual Basic不可能消失(From Yesky)
一直以来，学者们都预言Visual Basic的未来具有不确定性，这显示出人们完全误解了促成某种编程语言流行的原因，同时它还忽视了Visual Basic自身独特的精神。 近十年以来人们一直预言Visual Basic会消亡，但即使在Visual Basic.NET出现后，一切仍然没有发生变化。从最近的报道来看，VB.NET的未来受到了它的兄弟语言C#的挑战。即使过了这么多年，人们还是无法理解原创 2004-09-27 11:41:00 · 2119 阅读 · 0 评论 -
写了个函数，获取当前登录系统的用户名
今天要在工程中用到这个，顺便写了下，方便使用，源代码如下：Option ExplicitPrivate Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As LongPrivate Declare Function原创 2004-09-27 15:14:00 · 2746 阅读 · 0 评论 -
查看任务列表程序
十一了------------------------------------------- 转载请注明出处 作者：唐细刚 邮箱：tanaya@163.com-------------------------------------------原创 2004-09-28 11:36:00 · 1949 阅读 · 0 评论 -
今天是国庆节，顺便写了个端口扫描程序
.com今天是国庆节，呵呵，高兴啊，只是7天假期太短．．．因为工程需要，写了这个端口扫描软件，很简单的一个，比不上那些Superscan．．．开发平台：VB6，界面如下：------------------------------------------- 转载请注明出处 作者：唐细刚 邮箱：tanaya@163.com----------------------------------原创 2004-10-01 10:05:00 · 1863 阅读 · 0 评论 -
写了个＂网络邻居＂(VB6)
效果和Windows的差不多，但是没有完全的模仿，使用VB6写的，在Win2000上测试通过．Demo图：------------------------------------------- 转载请注明出处 作者：唐细刚 邮箱：tanaya@163.com-------------------------------------------原创 2004-09-23 13:10:00 · 2040 阅读 · 0 评论 -
如何获取操作系统的语言类型
今天网友问到了这个问题：＂比如：我在win2000中文版上运行时可以获取操作系统的语言版本为中文，在win2000英文版上运行时，知道是英文版＂这里我写了个函数，方便使用．（只取得简体，繁体，和英文，其它的自己加吧 ^_^）代码如下：http://community.youkuaiyun.com/Expert/topic/3389/3389759.xml?temp=.2974665Private原创 2004-09-20 11:59:00 · 2498 阅读 · 0 评论 -
写了个数字转换为中文大写的软件
今天抽了点时间，写了这个软件，希望对搞财务的有点帮助．在填写报销单时可能也用得上 ^_^ （一般有很大数字要报吗？）这里我在示例程序里面计算了一个π值我真不知道要把软件放到优快云的什么地方，唉．．．优快云的Blog可不可以存放一般文件呢？------------------------------------------- 转载请注明出处 作者：唐细刚 邮箱：tan原创 2004-08-31 11:20:00 · 2140 阅读 · 0 评论 -
vbNullChar
当在VB中声明变量为如下形式，运行时将给szPath分配空间，且初使化值均为：vbNullChar，而不是空格．Dim szPath As String * 255szPath=vbNullChar & vbNullChar & vbNullChar & ．．．255个vbNullChar------------------------------------------- 转原创 2004-09-01 14:42:00 · 2834 阅读 · 0 评论 -
写了个下载程序 支持Socks5代理
抽了点时间，写了这个示例程序，功能很简单．通过公司代理下载速度可以达到200多KB/s运行界面如下：可惜不支持多线程，以后再改进了．------------------------------------------- 转载请注明出处 作者：唐细刚 邮箱：tanaya@163.com-------------------------------------------原创 2004-09-02 10:14:00 · 3268 阅读 · 1 评论 -
VB6实现在Win2000/XP上隐藏进程
我写出了这个东西，还是很有用的。主界面(Demo)：隐藏前我的测试程序名称是：Hide.exe，如下图：隐藏进程后，呵呵，被干掉了： ------------------------------------------- 转载请注明出处 作者：唐细刚 邮箱：tanaya@163.com------------------------------------原创 2004-09-08 15:02:00 · 5376 阅读 · 43 评论 -
获取鼠标指针在ListBox中的行位置
Listbox控件没有提供这个属性值可以调用，这里我写了个完整的演示程序，供大家参考．新建一个工程，在Form1窗体上加上一个ListBox和一个Label．在窗体代码中粘贴以下程序，然后运行即可．Option ExplicitPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hw原创 2004-09-21 10:48:00 · 3870 阅读 · 0 评论 -
API版本的TrimNull函数
很有用的API版本的TrimNull函数：Private Declare Function lstrlenW Lib "kernel32" (ByVal lpString As Long) As Long Private Function TrimNull(startstr As String) As String TrimNull = Left(startstr, lstrl原创 2004-12-03 00:26:00 · 2167 阅读 · 0 评论 -
今天完成了一个加密解密算法的编写
开发平台：VB6demo中我把自己的名字重复七遍然后加密，再解密，效果不错！程序运行效果图：原创 2004-12-01 11:06:00 · 2675 阅读 · 1 评论 -
19 / 9=?
这个运算符其实很少用得上啊，答案是：219 / 9=2原创 2005-02-04 16:59:00 · 1635 阅读 · 0 评论 -
.NET体系中的源程序安全问题
在.NET平台上，代码以中间语言的形式运行，它是.NET众多优势的基础。但在独立桌面应用中，它给源代码的安全带来了威胁。本文探讨产生这个问题的原因，分析可能的解决办法。 在Visual Studio.NET（VS.NET）体系中，VB、Visual C++以及C#之类的编译器把源程序编译成MSIL。MSIL即Microsoft Intermediate Language，或Microsof原创 2005-02-20 22:35:00 · 1892 阅读 · 0 评论 -
Visual Basic 历史版本大回顾
Visual Basic从1991年诞生以来，现在已经13年了。BASIC是微软的起家产品，微软当然不忘了这位功臣。随着每一次微软技术的浪潮，Visual Basic都会随之获得新生。可以预见，将来无论微软又发明了什么技术或平台，Visual Basic一定会首先以新的姿态登上去的。如果你想紧跟微软，永远在最新的技术上最快速地开发，你就应该选择Visual Basic。1991-西雅图夜空的雷原创 2005-03-01 12:47:00 · 2484 阅读 · 1 评论 -
模拟了个FoxMail的账号属性设置 TZListBox 控件
费了番功夫在FoxMail中”挖”出图片，然后再用到我的这个控件内，效果不比FoxMail的差啊，哈哈．．．开发：Visual Basic 6.0为了对比，下面是 FoxMail5.0 的账号属性设置框：下面是模拟的控件：有自己的个性原创 2005-06-27 20:51:00 · 2271 阅读 · 0 评论 -
设备管理器演示程序 开发：VB6
Windows的设备管理器很方便，我也写一个，差很多，以后有时间了再改进．原创 2005-03-08 11:00:00 · 4318 阅读 · 3 评论 -
我最近写的，取名叫做：FileMon记录分析助手，很管用!
界面如下，需要的朋友可来信索取软件．原创 2005-03-16 09:58:00 · 2506 阅读 · 5 评论 -
今天写了个Win32服务设置软件，呵呵，纯绿色软件
软件界面：（一）列出系统现有的服务（二）选择 "Messenger" 服务，准备启动它．．．（三）这里可以选择启动服务的方式：自动或者手动（四）我点击了 "确定"，即选择了"自动方式"，下面此服务状态正在切换中．．．（五）状态切换完成：可以看到，服务已经成功运行，且状态为”自动”．原创 2005-07-22 23:59:00 · 1745 阅读 · 0 评论 -
最近在搞邮件程序，没有办法，用到Base64，顺便写了这个工具
原创 2005-07-23 00:07:00 · 1981 阅读 · 0 评论 -
判断指定进程号的进程是否存在
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As LongPrivate Declare Function CloseHandle Lib "kernel32"原创 2005-04-01 10:35:00 · 4086 阅读 · 2 评论 -
Visual Basic 的工程限制
（摘自Visual Basic 6.0 中文版程序员指南）一个单项工程可以包含多达 32,000 个"标识符"(非保留字)，它们包括（但不限于）窗体、控件、模块、变量、常量、过程、函数和对象。注意，实际的标识符数受可用内存的限制。Visual Basic 中的变量名不多于 255 个字符，而窗体、控件、模块和类名不多于 40 个字符。Visual Basic 不限制工程中不同对象的实际数目。◆控件原创 2005-07-29 23:26:00 · 2436 阅读 · 0 评论 -
今天根据VB的Base64算法改造成了VC动态库，方便各种语言调用
我把动态库名称命名为：Base64.DLL，十分方便．下面是截图．需要的朋友可以来信件索取．编码：解码：原创 2005-08-06 08:40:00 · 2629 阅读 · 6 评论 -
用Shell语句调出控制面板中的用户和密码
今天有网友问到这个问题，我想了下，给出如下两种方案：[1]在窗体上加一个按钮，代码如下：Private Sub Command1_Click() Shell "rundll32 netplwiz.dll,UsersRunDll", vbNormalFocusEnd Sub[2]或者这样也可以打开：Private Sub Command1_Click() Shell "control.exe原创 2005-03-31 00:09:00 · 2166 阅读 · 1 评论