2010年2月25日
获取QQ群用户列表
摘要： VERSION 5.00 Begin VB.Form frmMain Caption = "Form1" ClientHeight = 3090 ClientLeft = 60 ClientTop = 450 ClientWidth = 4680 LinkTopic = "Form1" ScaleH... 阅读全文
posted @ 2010-02-25 11:22 wl666lw 阅读(879) 评论(0) 推荐(0) 编辑
VB6 中使用 Shell 实现压缩和解压缩 (Zip 或 Rar)
摘要： Private Sub ZipOrRar() '将C盘的test文件夹压缩为test.rar文件 Shell App.Path + "\WinRar.exe M C:\test.rar C:\test" End Sub Private Sub UnZipOrRar() '将test.rar解压缩在... 阅读全文
posted @ 2010-02-25 11:11 wl666lw 阅读(2934) 评论(0) 推荐(0) 编辑