VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
楼主: 仙剑魔

2010-2-20(最新)终于把压缩器做完了(附源码)

[复制链接]
 楼主| 发表于 2007-8-3 09:12:35 | 显示全部楼层
原帖由 VBProFan 于 2007-8-3 09:08 发表
首先感谢剑魔的无私奉献精神,在这物欲横流的社会,…… 太少了。。。

意见和建议:操作很不方便,而且整天出bug,建议把操作方式做成跟WinRar一样了,毕竟人家的人机交互界面技术已经成熟了嘛,这也不算抄袭 ...


VBProFan指的是右键菜单,还是那个文件浏览的窗口啊?
呵呵,这个是一时兴起之作,主要是为了弥补擂台里那个只能压缩单个文件的缺陷
回复 支持 反对

使用道具 举报

发表于 2007-8-6 19:36:11 | 显示全部楼层
操作系统的右键菜单啊,要写注册表的。
要是除了压缩算法之外,操作能完全和WinRar一样就好了
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-8-6 21:51:59 | 显示全部楼层
既然大家要求了,那我就试试吧:)
回复 支持 反对

使用道具 举报

发表于 2007-8-7 07:08:25 | 显示全部楼层
原帖由 仙剑魔 于 2007-8-6 21:51 发表
既然大家要求了,那我就试试吧:)



好呀!关注中....
回复 支持 反对

使用道具 举报

发表于 2007-8-12 14:50:16 | 显示全部楼层
回复 支持 反对

使用道具 举报

发表于 2007-8-12 23:25:39 | 显示全部楼层
嗯?文件关联我也有涉及到
下面是很早收集的东西,我没试过……



  1.   六. FTYPE----文件关联修复专家

  2.   和文件捆绑一样,篡改文件关联也是病毒或木马的惯用伎俩,通常的恢复方法主要是通过修改注册表,但注册表操作通常比较麻烦而且容易出错,而实际上在 Windows 系统中,有另一个更方便的命令行工具----FTYPE,利用它可以非常轻松地恢复文件关联。比如exefile的文件关联最容易被修改,它的正常的文件关联为:"%1" %* 。恢复的时候,只需在命令行中运行下列命令:“ftype exefile="%1" %* ”就可以了。如果要修复txtfile的文件关联,只需输入:“ftype txtfile= %SystemRoot%\system32
复制代码



  1. '使用方法:SetFileAssociate 文件类型, 类型说明, 文件后缀
  2. '例如:SetFileAssociate "txtfile", "文本文件", ".txt"
  3. '/////////////////////////////////////////////////////////////
  4. Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkresult As Long) As Long
  5. Declare Function RegSetValue Lib "advapi32.dll" Alias "RegSetValueA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long
  6. Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long

  7. Public Const HKEY_CLASSES_ROOT = &H80000000
  8. Public Const REG_SZ = 1

  9. Sub SetFileAssociate(sKeyName As String, sKeyValue As String, sFileAssoc As String)
  10. On Error Resume Next
  11. Dim ret As Long
  12. Dim lphKey As Long
  13. Dim sFileExec As String
  14. sFileExec = App.Path & "" & App.EXEName & ".exe ""%1""" '注意是".exe "不是".exe"
  15. ret = RegCreateKey(HKEY_CLASSES_ROOT, sKeyName, lphKey)
  16. ret = RegSetValue(lphKey, "", REG_SZ, sKeyValue, 0&)
  17. ret = RegCreateKey(HKEY_CLASSES_ROOT, sFileAssoc, lphKey)
  18. ret = RegSetValue(lphKey, "", REG_SZ, sKeyName, 0&)
  19. ret = RegCreateKey(HKEY_CLASSES_ROOT, sKeyName, lphKey)
  20. ret = RegSetValue(lphKey, "DefaultIcon", REG_SZ, "%1", 2)
  21. ret = RegCreateKey(HKEY_CLASSES_ROOT, sKeyName, lphKey)
  22. ret = RegSetValue(lphKey, "shell\open\command", REG_SZ, sFileExec, Len(sFileExec))
  23. ret = RegCloseKey(lphKey)
  24. End Sub
复制代码
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-8-13 20:11:23 | 显示全部楼层
楼上的代码之前也搞到份...我正在试RegDeleteKey
总是失败,奇怪...
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-8-13 22:16:51 | 显示全部楼层
文件关联基本完成了...
前几天病了,休息了几天,让大家久等了...
右键菜单我还得研究研究...

新魔剑压缩机.rar

93.57 KB, 下载次数: 229

评分

参与人数 2威望 +10 收起 理由
icecept + 5 对朋友热心帮助的感激之情
bbadsl + 5 发布源码

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2007-8-14 06:19:37 | 显示全部楼层
原帖由 仙剑魔 于 2007-8-13 22:16 发表
文件关联基本完成了...
前几天病了,休息了几天,让大家久等了...
右键菜单我还得研究研究...



辛苦了.先++
回复 支持 反对

使用道具 举报

发表于 2007-8-14 23:35:19 | 显示全部楼层
敬佩楼主,  近段时间忙于四处漂泊找工作,  都没多少时间上网。更没时间学习写程序了。。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2020-6-5 20:54

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表