公开源码了，有研究ＡＵＴＯＩＴ或喜欢编程的的就过来拿吧

victor888 · 发表于 2007-12-1 20:07:15

我没有精力了，喜欢搞的随便弄吧，愿意怎样YY就怎样YY，所有的版权都不要了。

1. 公布卡巴７绿色版所涉及的所有程序的源码，包括setup.exe,setup_cd.exe,uninstall.exe,uninstall_cd.exe,avp7.exe,activate.exe

2. 公布未发布的U盘启动杀软及拖盘程序。

zyyxsyh · 发表于 2007-12-1 20:41:00

好大一只沙发，，，我先坐了，，，

顺便问一句，，永久生效不？？嘿嘿，，太贪了啊！

M · 发表于 2007-12-1 20:50:17

天大的一个地板。我抢着做了。

victor888 · 发表于 2007-12-1 20:52:05

水区的同志来了，哈哈。

zyyxsyh · 发表于 2007-12-1 20:53:17

对滴对滴，，，ＬＳ．．挺有眼力滴！

顺便说一句，，原创的东东，，我还是比较喜欢滴，，虽然自已不能原创！

[ 本帖最后由 zyyxsyh 于 2007-12-1 08:55 PM 编辑 ]

bixing · 发表于 2007-12-1 21:20:25

走过路过，一定要捧版主的场哦。

yce · 发表于 2007-12-1 21:31:25

强，拿一个下来研究研究

假大空 · 发表于 2007-12-1 21:43:50

来的正当时啊，版主的精品一定要顶！

genius3 · 发表于 2007-12-1 22:17:08

水区过来滴，来看看楼主的最后一次~

无优处男 · 发表于 2007-12-1 22:54:41

看不懂，纯路过

ynxmaifmsguxmft · 发表于 2007-12-1 23:02:38

可惜了，我不懂啊，这么好的东东。哎。。。。

虚无飘渺 · 发表于 2007-12-1 23:24:32

哇，真是好东东，快快收藏。

shizewen · 发表于 2007-12-2 01:37:31

可惜了，我不懂啊，这么好的东东。哎。。。。

freesoft00 · 发表于 2007-12-2 09:51:27

太好了。我最近也有研究autoit的意思

barton · 发表于 2007-12-2 09:53:09

看了下，回帖的人当中水区的人较多

spadek · 发表于 2007-12-2 13:03:15

我来了，支持下，嘿嘿，好好研究。。。o(∩_∩)o.

shuodan · 发表于 2007-12-2 15:02:34

年终岁尾，大家都比较忙，楼主应该理解o(∩_∩)o...
这不代表我们忘了你，o(∩_∩)o...来——干一杯

mynba98 · 发表于 2007-12-2 16:36:35

我也来顶一下。老大昨天说了，要公开，就公开了。佩服呀。再顶你

y10k · 发表于 2007-12-2 20:47:36

收一个备用，谢谢分享。

阿非 · 发表于 2007-12-2 21:32:48

菜鸟路过一次 

小木头 · 发表于 2007-12-3 08:27:13

收藏下了！谢谢你公布源码。回头会有用的。

无翼鸟飞翔 · 发表于 2007-12-4 02:17:42

Func _GetUSBDrives()
Local $aDletters[1]
$strComputer = "."
Local $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\cimv2")
Local $colDiskDrives = $objWMIService.ExecQuery("SELECT * FROM Win32_DiskDrive")
For $objDrive In $colDiskDrives
If $objDrive.pnpdeviceid <> RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Disk\Enum", _
RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Disk\Enum","count")-1) then Continueloop
      $strDeviceID = StringReplace($objDrive.DeviceID, "\", "\\")
      Local $colPartitions = $objWMIService.ExecQuery _
         ("ASSOCIATORS OF {Win32_DiskDrive.DeviceID=""" & _
            $strDeviceID & """} WHERE AssocClass = " & _
                  "Win32_DiskDriveToDiskPartition")
      For $objPartition In $colPartitions
         Local $colLogicalDisks = $objWMIService.ExecQuery _
            ("ASSOCIATORS OF {Win32_DiskPartition.DeviceID=""" & _
                  $objPartition.DeviceID & """} WHERE AssocClass = " & _
                     "Win32_LogicalDiskToPartition")
         For $objLogicalDisk In $colLogicalDisks
            _ArrayAdd($aDletters,$objLogicalDisk.DeviceID )
         Next
      Next
Next
Return $aDletters
EndFunc

偶已关闭wmi.................................
还有.程序中存在一些小错误...

1test1 · 发表于 2007-12-4 02:54:31

哇！好东西啊，谢谢楼主无私分享，拿来学学：）

victor888 · 发表于 2007-12-4 06:48:22

原帖由 无翼鸟飞翔 于 2007-12-4 02:17 AM 发表
Func _GetUSBDrives()
Local $aDletters[1]
$strComputer = "."
Local $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\cimv2")
Local $colDiskDrives = $objWMIService ...

关闭WMI，则无法判断U盘HDD的分区盘符。
当然，就量产自己的U盘的话，可以通过指定U盘上的特定文件，或都给U盘指定序列号来判定。

BUG，肯定是有，希望我们能探讨。

chinaboy · 发表于 2007-12-4 10:27:28

支持原代码.希望有人继续努力

jfm034 · 发表于 2007-12-8 14:01:54

支持....

虽然头晕

btwhy · 发表于 2007-12-8 20:35:03

不懂。。纯属路过而以

victor888 · 发表于 2007-12-13 13:39:50

我把它移动到PE区，可能这里感兴趣的人多。

wands · 发表于 2007-12-13 14:02:00

拿一个下来研究研究谢谢！

chouliu · 发表于 2007-12-13 14:05:28

分享精神
顶你
......

		自动登录	找回密码
密码			注册