论坛 › 『 谈天说地 』 › 让XP安装与7俱进

仙乃日 发表于 2010-7-10 17:41:02

更新了离线封装的核心代码。

rikthhpgf2005 发表于 2010-7-10 19:59:08

学习了.!!!!!!!

rikthhpgf2005 发表于 2010-7-10 19:59:41

应该放入源码作品!!!

仙乃日 发表于 2010-7-11 12:25:57

#include <SetupApi.au3>
Clear_Ghost_Hardware()
Func Clear_Ghost_Hardware()
        Local $Enum, $x, $y, $z, $ID1, $ID2, $ID3, $EnID,$hDevs, $tDevInfo
        $Enum = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum"
        $x = 1
        While 1
                $ID1 = RegEnumKey($Enum, $x)
                If @error = -1 Then ExitLoop
                If StringInStr($ID1, "USB") = 0 And StringInStr($ID1, "Root") = 0 AndStringInStr($ID1, "SW") = 0 Then
                        $y = 1
                        While 1
                                $ID2 = RegEnumKey($Enum & "\" & $ID1, $y)
                                If @error = -1 Then ExitLoop
                                $z = 1
                                While 1
                                        $ID3 = RegEnumKey($Enum & "\" & $ID1 & "\" & $ID2, $z)
                                        If @error <> 0 Then ExitLoop
                                        RegRead($Enum & "\" & $ID1 & "\" & $ID2 & "\" & $ID3 & "\Control", "hdj")
                                        If @error = 1 Then
                                                $EnID = $ID1 & "\" & $ID2 & "\" & $ID3
                                                MsgBox(64, "", $EnID)
                                                _SetupDiCreateDeviceDevs($EnID, $hDevs, $tDevInfo)
                                                _SetupDiRemoveDevice($hDevs, $tDevInfo, True)
                                                _SetupDiDestroyDeviceInfoList($hDevs)
                                                DllCall("shell32.dll", "none", "SHChangeNotify", "long", 0x8000000, "int", 0, "ptr", 0, "ptr", 0)
                                        EndIf
                                        $z += 1
                                WEnd
                                $y += 1
                        WEnd
                EndIf
                $x += 1
        WEnd
EndFunc   ;==>Clear_Ghost_Hardware

23070205 发表于 2010-7-15 10:23:56

楼主啊，你的权限也只是20，却设置过高的31的权限，只让高级会员看吗？希望楼主能手下留情，放低权限。嘻嘻!

仙乃日 发表于 2010-7-26 16:52:38

楼主啊，你的权限也只是20，却设置过高的31的权限，只让高级会员看吗？希望楼主能手下留情，放低权限。嘻嘻 ...
23070205 发表于 2010-7-15 10:23 http://www.autoitx.com/images/common/back.gif

呵呵 ……多多灌水就行啦！

yhjfirst 发表于 2010-7-26 18:34:21

下来学习下

hearton 发表于 2010-7-26 23:15:37

可惜权限不够

zdpcc 发表于 2010-7-27 06:23:56

又有更新，支持楼主

ivanpg 发表于 2010-7-30 19:40:17

权限不够   我差得太远了这样让那些半瓢水的很难进步啊

yarsye 发表于 2010-8-3 15:44:00

不是很懂 深奥啊

zc640618 发表于 2010-8-3 17:21:27

国内前几年搞封装部署研究的不少,现在都没人搞咯...
想看些资料还得去国外,国内都是老资料了!

neal 发表于 2010-11-12 20:52:22

感谢分享！{:face (197):}

.個朲綉√ 发表于 2010-11-16 15:41:24

没明白这玩艺是干吗的

无名蜘蛛 发表于 2010-11-16 16:09:58

在灌区也收钱 真哟哟你的

查看完整版本: 让XP安装与7俱进