打印

让所有人拥有自己的封装工具（开源）

pchome2000

高级会员

Rank: 4

Medal No.7

31^# 大中小发表于 2007-9-17 20:29 只看该作者

我来支持一下..

TOP

chouliu

注册会员

Rank: 2

32^# 大中小发表于 2007-9-18 12:35 只看该作者

::♂孔雀猪提供电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！6 s! y9 n4 ?$ s- I6 P3 m( F" Q
::去掉XP/2003网络连接的“此连接被限制或无连接时通知我”选项
::勾选“连接后在通知区域显示图标”
@set _debug=
@echo %_debug% off & setlocal ENABLEDELAYEDEXPANSIONredapple2008.5d6d.com; g. W, Z& P! e) \
set hkey=HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}" j5 m* }% \5 C5 K
for /f "usebackq tokens=*" %%I in (`reg query %hkey% ^| findstr "}\\{"`) do call :_modify %%I
goto :eof

:_modify
if [%1]==[] goto :eof红苹果工作室' C( u, `6 n3 W+ I* N0 ~9 [ G
echo 修改[%1]...
reg add %1\Connection /v IpCheckingEnabled /t REG_DWORD /d 0 /f
reg add %1\Connection /v ShowIcon /t REG_DWORD /d 1 /f

本帖最近评分记录

redapple 贡献 +2 谢谢你的参与！ 2007-9-18 14:25

TOP

wd2001

新手上路

Rank: 1

33^# 大中小发表于 2007-9-18 14:20 只看该作者

强烈支持!顶一个,希望有能力的出力,没能力的支持下!

TOP

diamond

新手上路

Rank: 1

34^# 大中小发表于 2007-9-20 21:30 只看该作者

强烈支持!顶一个,希望有能力的出力,没能力的支持下!

my blog
http://pcpc.blogbus.com

TOP

redapple

管理员

Rank: 9 Rank: 9 Rank: 9

Medal No.1 Medal No.2 Medal No.3 Medal No.4 Medal No.5 Medal No.6 Medal No.7 Medal No.8 Medal No.9 Medal No.10

35^# 大中小发表于 2007-9-21 08:32 只看该作者

好不容易忙完，现在总算有点时间了。不能及时回答大家的问题，还请大家多多包函。
勇于思考,敢于行动,不逃避问题。
业务联系：dvd制作，各种系统、平面广告设计、3D设计，电脑专业维修,网络组建，MTV个人像册、视频处理！
电话：13423195467

TOP

linbsp

版主

Rank: 7 Rank: 7 Rank: 7

Medal No.1 Medal No.10

36^# 大中小发表于 2007-9-21 19:26 只看该作者

呵呵，此工具还是很强大的，建议在参考同类工具的基础上，去粗取精，完善必备功能，真正做到高度集成各种功能，无须再借助其它工具的最佳组合！也希望大家能多提宝贵意见，多多帮助测试，尽快完善此工具，造福用户！
redapple2008.5d6d.com# z& G: s1 M' n
[ 本帖最后由 linbsp 于 2007-9-21 19:28 编辑 ]

TOP

sgtao

新手上路

Rank: 1

37^# 大中小发表于 2007-9-22 15:02 只看该作者

不错。。正好学习学习AU3知识。。
redapple2008.5d6d.com Z1 C; E3 I" I" Z- ~0 @) K
* w: t4 ?3 d$ y! h% h' s
小虎兄弟跑来这里当版主了。。恭喜恭喜。

TOP

hapeacock

注册会员

Rank: 2

38^# 大中小发表于 2007-9-22 21:22 只看该作者

谢谢32楼的朋友写了我滴名字！
::♂孔雀猪提供

TOP

zhongzimo

新手上路

Rank: 1

39^# 大中小发表于 2007-9-23 17:35 只看该作者

顶！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！

TOP

netsurf

新手上路

Rank: 1

40^# 大中小发表于 2007-9-26 09:48 只看该作者

不错，redapple2008.5d6d.com( `) Z5 p0 {# Z) Q8 D
既然大家都这么开源，我整理好，我也把我的nsprep.au3贴出来,^_^

本帖最近评分记录

redapple 金钱 +2 谢谢你的支持，有你这一句话就行。 2007-9-26 09:49

TOP

dyljf

新手上路

Rank: 1

41^# 大中小发表于 2007-9-26 19:17 只看该作者

RunWait("c:"&"\sysprep\setacl.exe MACHINE\SYSTEM\CurrentControlSet\Services\intelppm /registry /grant everyone /full","",@SW_HIDE)
自由天空论文里下面这句是有问题的红苹果工作室9 v8 ~" s- O/ N( ]! d% r1 ?6 I# Q+ N5 U
RunWait("reg delete MACHINE\SYSTEM\CurrentControlSet\Services\intelppm /f","",@SW_HIDE)* a/ h0 E8 W! ~7 K9 F [
要改成：电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计) f& F5 D+ a7 K) z8 Y
RunWait("reg delete HKLM\SYSTEM\CurrentControlSet\Services\intelppm /f","",@SW_HIDE)才行

TOP

dyljf

新手上路

Rank: 1

42^# 大中小发表于 2007-9-26 19:20 只看该作者

自动随机填IP 的范围2--254电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计6 V2 D8 J- v0 A- n1 _
redapple2008.5d6d.com$ a" p2 [/ a3 Q* S
Global $wbemFlagReturnImmediately = 0x10
Global $wbemFlagForwardOnly = 0x20红苹果工作室  C/ y; ~$ n. M8 s) t
Global $strComputer = "localhost"/ J* S/ |: s4 I8 @9 i1 E7 m# |
Global $colItems = ""
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled =TRUE", "WQL", _5 R( W5 f# _& `8 }' `
$wbemFlagReturnImmediately + $wbemFlagForwardOnly)
      $random=Random(2,254,1)
      $IPAddress="192.168.1."&$random
      $ip= _ArrayCreate($IPAddress)
      $ym = _ArrayCreate("255.255.255.0")电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计$ ~' ~8 Y8 p: Q7 i* u+ F
            If IsObj($colItems) Then
            For $objItem In $colItems
                     $errEnable = $objItem.EnableStatic ($ip, $ym)电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计' V: \% N/ S% F6 y8 K
            Next
      Elseredapple2008.5d6d.com  h, Z: Q4 V; k
            MsgBox(0, "WMI Output", "No WMI Objects Found for class: " & 电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计|有你所需，有你所想。来吧，我的朋友们！% I$ A! N" |5 l5 N/ d0 g" C8 Z* v. z
"Win32_NetworkAdapterConfiguration")9 T1 |8 N8 R1 k7 d( Y' |
      EndIf

redapple2008.5d6d.com/ r5 ^2 Y3 P1 y& N6 u2 X
;去掉XP/2003网络连接的“此连接被限制或无连接时通知我”选项
$Reg1 = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Network\{4D36E972-E325-11CE-

BFC1-08002BE10318}"电脑技术交流|系统维护交流|网络维护交流|平面设计|网页设计|3D设计8 G+ O( X8 |3 B" l' D
$EnumIpcon = RegEnumKey($Reg1, 2)
RegWrite($Reg1 & "\" & $EnumIpcon & "\Connection", "IpCheckingEnabled", "REG_DWORD", "0")

本帖最近评分记录

redapple 金钱 +2 我很赞同 2007-9-26 19:28
redapple 贡献 +2 我很赞同 2007-9-26 19:28

TOP

netsurf

新手上路

Rank: 1

43^# 大中小发表于 2007-9-27 08:21 只看该作者

水平有限，下面是学习一个星期后的整理作品:

附件: 您所在的用户组无法下载或查看附件

本帖最近评分记录

redapple 威望 +2 我很赞同，辛苦了。谢谢你对论坛的支持！ 2007-9-28 12:15
redapple 金钱 +2 我很赞同，辛苦了。谢谢你对论坛的支持！ 2007-9-28 12:15
redapple 贡献 +3 我很赞同，辛苦了。谢谢你对论坛的支持！ 2007-9-28 12:15

TOP

ken0137

新手上路

Rank: 1

44^# 大中小发表于 2007-9-28 11:50 只看该作者

加个删除系统还原， `6 Z" j/ _- y p1 o2 g
其实自由天空的那个就已经非常全了，但是它不支持2000的封装，不知道苹果的支不支持，你没有说明诶
还有就是完全个性话的选项，
例如修改，“我的电脑属性”左上的图片（sysdm.cpl）. t, F9 _9 d0 i7 s1 ?

TOP

redapple

管理员

Rank: 9 Rank: 9 Rank: 9

Medal No.1 Medal No.2 Medal No.3 Medal No.4 Medal No.5 Medal No.6 Medal No.7 Medal No.8 Medal No.9 Medal No.10

45^# 大中小发表于 2007-9-28 15:47 只看该作者

回复 43# 的帖子

好不容易忙完，现在总算有点时间了。不能及时回答大家的问题，还请大家多多包函。
勇于思考,敢于行动,不逃避问题。
业务联系：dvd制作，各种系统、平面广告设计、3D设计，电脑专业维修,网络组建，MTV个人像册、视频处理！
电话：13423195467

TOP