迈思工作室 - 电脑技术专业论坛!

 找回密码
 马上加入

扫一扫,访问微社区

查看: 31968|回复: 122

[下载] IP一键修改工具(可以修改IP、MASK、DNS、计算机名、内部网络号、CSCDK )

[复制链接]
发表于 2010-1-8 18:19:05 | 显示全部楼层 |阅读模式
IP一键修改工具(可以修改IP、MASK、DNS、计算机名、内部网络号、CSCDK )

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?马上加入

x

评分

参与人数 1威望 +6 收起 理由
langmanchalu + 6

查看全部评分

回复

使用道具 举报

发表于 2010-1-11 11:10:30 | 显示全部楼层

Re:IP一键修改工具(可以修改IP、MASK、DNS、计算机名、内部网络号、CSC ..

看看,,,,,
回复 支持 反对

使用道具 举报

发表于 2010-1-12 21:44:18 | 显示全部楼层

Re:IP一键修改工具(可以修改IP、MASK、DNS、计算机名、内部网络号、CSC ..

谢谢楼主
回复 支持 反对

使用道具 举报

发表于 2010-1-13 21:00:08 | 显示全部楼层

回 楼主(laodu888) 的帖子

看看
回复 支持 反对

使用道具 举报

发表于 2010-1-17 14:04:54 | 显示全部楼层

Re:IP一键修改工具(可以修改IP、MASK、DNS、计算机名、内部网络号、CSC ..

级别: 迈思一段

显示用户信息  UID: 342147
精华: 0
发帖: 38
金钱: 25 MB
威望: 0 点
贡献值: 0 点
交易币: 0
好评度: 0 点
在线时间: 3(时)
注册时间: 2009-03-07
最后登录: 2010-01-14  0  发表于: 01-08   只看楼主 ┊  小 中 大0 来源于 下载分类IP一键修改工具(可以修改IP、MASK、DNS、计算机名、内部网络号、CSCDK )


IP一键修改工具(可以修改IP、MASK、DNS、计算机名、内部网络号、CSCDK )
回复 支持 反对

使用道具 举报

发表于 2010-1-17 18:56:28 | 显示全部楼层

Re:IP一键修改工具(可以修改IP、MASK、DNS、计算机名、内部网络号、CSC ..

都用了一段时间了
回复 支持 反对

使用道具 举报

发表于 2010-1-19 00:05:28 | 显示全部楼层

Re:IP一键修改工具(可以修改IP、MASK、DNS、计算机名、内部网络号、CSC ..

,找了半年,不错的公鸡
回复 支持 反对

使用道具 举报

发表于 2010-1-20 18:26:23 | 显示全部楼层

Re:IP一键修改工具(可以修改IP、MASK、DNS、计算机名、内部网络号、CSC ..

常用vbs集合.

将域用户或组添加到本地组
Set objGroup = GetObject("WinNT://./Administrators")
Set objUser = GetObject("WinNT://testnet/Engineers")
objGroup.Add(objUser.ADsPath)

修改本地管理员密码
Set objcnlar = GetObject("WinNT://./administrator, user")
objcnla.SetPassword &quot@ssW0rd"
objcnla.SetInfo

弹出 YES or NO 的对话框,不同的选择执行不同的代码
intAnswer = Msgbox("Do you want to delete these files?", vbYesNo, "Delete Files")
If intAnswer = vbYes Then
Msgbox "You answered yes."
Else Msgbox "You answered no."
End If

运行CMD命令行命令
set obshell=wscript.createobject("wscript.shell")
obshell.run ("ipconfig"),,true
如果要运行的命令中包含双引号,可使用&chr(34)&代替

忽略代码错误继续执行
On Error Resume Next
放置于代码的最开头,当代码运行出错后并不停止跳出而是继续执行下一条。适当应用会很有效果。

注册表的修改,读取,删除,创建
Set wso = CreateObject("WScript.Shell") '声明
wso.RegWrite "%Path%"'创建子键
wso.RegWrite "%Path%","%Value%"'修改"默认"键值
wso.RegWrite "%Path%",%Value%,%RegType% '修改特定类型的键值
'(字符串值 REG_SZ 可扩充字符串值 REG_EXPAND_SZ DWORD值 REG_DWORD 二进制值 REG_BINARY)

Set WSHShell= Wscript.CreateObject("Wscript.Shell")
WSHShell.RegRead (%Path%) '读取注册表子键或键值(一般用于判断某一事件是否执行)

Set wso = CreateObject("WScript.Shell")
wso.RegDelete "%Path%" '删除子键或键值
'(根键缩写HKEY_CLASSES_ROOT HKCR HKEY_CURRENT_USER HKCU HKEY_LOCAL_MACHINE HKLM,其余无)



eg:
Set wso = CreateObject("Wscript.Shell")
wso.RegWrite "HKLM\\SOFTWARE\\Microsft\\Windows NT\\#1"
wso.RegWrite "HKLM\\SOFTWARE\\Microsft\\Windows NT\\#1","0"
wso.RegWrite "HKLM\\SOFTWARE\\Microsft\\Windows NT\\#1\\#2",0,REG_BINARY
wso.RegDelete "HKLM\\SOFTWARE\\Microsft\\Windows NT\\#1"
Wscript.quit



文件的复制,删除,创建,简单的写入
Set fso = Wscript.CreateObject("Scripting.FileSystemObject") ‘声明
Set f = fso.CreateTextFile("%PATH%") '创建文件,其中f可任意,包含缩略名
f.WriteLine("VBS") '写文件内容,该命令功能太简单,目前看来只能用于TXT文件
f.Close
set c=fso.getfile("%path%") ’拷贝某文件
c.copy("%PATH2%") '拷贝文件到指定地点
fso.deletefile("%PATH%") '删除文件
Wscript.quit

eg.
Set fso = Wscript.CreateObject("Scripting.FileSystemObject")
Set f=fso.CreateTextFile("C:\\Sample.txt")
WriteLine("VBS")
f.close
set e=fso.getfile(C:\\Sample.txt)
e.copy("D:\\Sample.txt")
fso.deletefile(C:\\Sample.txt)
Wscript.quit



向应用程序输出简单的连串指令
dim program1 '声明变量program1
program1= "%Path%" '应用程序路径
set wshshell=createobject("wscript.shell") '声明饮用函数
set oexec=wshshell.exec(program1) '运行程序
wscript.sleep 2000 '(该行命令未知作用.估计是设定延迟,请高手指点)
wshshell.appactivate "%WindowsName%" '激活运用程序窗口
wshshell.sendkeys "+{%KeyBoardName%}" '第一次输出键盘按键指令前要加+
wshshell.sendkeys "555555" '在程序输入栏中输入运用该系列命令须首先确定程序可以实施连串的键盘操作,这在QQ登录中最适用,如下例。

eg.
dim program1
program1="D:\\Program Files\\Tencent\\coralQQ.exe"
set wshshell=CreateObject("wscript.shell")
set oexec=wshshell.exec(program1)
wscript.sleep 2000
wshshell.appactivate "QQ登录"
wshshell.sendkeys "+{TAB}"
wshshell.sendkeys "250481892"
wscript.sleep 2000
wshshell.sendkeys "{TAB}"
wshshell.sendkeys "****************"
wscript.sleep 2000
wshshell.sendkeys "{ENTER}"
Wscript.quit



文件夹的简单操作
Set fso = Wscript.CreateObject("Scripting.FileSystemObject") ‘声明
Set f = fso.CreateFolder("%PATH%") 创建文件夹
Set e = getFolder(%PATH%) 类似于“绑定目标”
e.copy("%PATH2%") 复制文件夹
fso.deletefolder(%PATH%) 删除文件夹

eg.
Set fso = Wscript.CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateObject("C:\\sample")
f.copy("D:\\sample")
fso.deletefolder("C:\\sample")


'(由上例可以看出,文件夹的操作很多是和文件的操作相通的,因此VBS文件具有很多命令的统一性)

将某一指定文件夹的所有只读文件转为可读文件
Const ReadOnly = 1 ‘设只读属性对应值为1

Set FSO = CreateObject("Scripting.FileSystemObject") '声明
Set Folder = FSO.GetFolder("%PATH%") ’绑定文件夹
Set colFiles = Folder.Files ‘文件夹所有文件

For Each objFile in colFiles ’下列语句应用于文件夹所有文件
If File.Attributes AND ReadOnly Then '这是关键之处,这里应用了If判断语句,来检测文件属性是否为只读
File.Attributes = File.Attributes XOR ReadOnly ‘对判断结果为Ture(默认为True)’执行XOR逻辑运算,将其改为可读
End If ‘结束判断
Next

将Word文件另存为文本文件
Const wdFormatText = 2 ’设置常数值
(当该值为8时另存为HTML文档,为11时另存为XML文档)
Set objWord = CreateObject("Word.Application") '申明调用函数
Set objDoc = objWord.Documents.Open("%Path%") ‘打开某DOC文件
objDoc.SaveAs "%PATH2%", wdFormatText 另存为……
objWord.Quit

eg:
Const wdFormatText = 2
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Open("d:\\doc1.doc")
objDoc.SaveAs "g:\\doc1.txt", wdFormatText
objWord.Quit
回复 支持 反对

使用道具 举报

发表于 2010-1-21 15:36:29 | 显示全部楼层

Re:IP一键修改工具(可以修改IP、MASK、DNS、计算机名、内部网络号、CSC ..

  
回复 支持 反对

使用道具 举报

发表于 2010-1-23 23:31:48 | 显示全部楼层

Re:IP一键修改工具(可以修改IP、MASK、DNS、计算机名、内部网络号、CSC ..

金钱不足啊 下载不了
回复 支持 反对

使用道具 举报

发表于 2010-1-27 22:26:09 | 显示全部楼层

Re:IP一键修改工具(可以修改IP、MASK、DNS、计算机名、内部网络号、CSC ..

学习下~~~
回复 支持 反对

使用道具 举报

发表于 2010-1-31 19:34:13 | 显示全部楼层

Re:IP一键修改工具(可以修改IP、MASK、DNS、计算机名、内部网络号、CSC ..

学习了,顶一下
回复 支持 反对

使用道具 举报

发表于 2010-2-8 16:21:20 | 显示全部楼层

Re:IP一键修改工具(可以修改IP、MASK、DNS、计算机名、内部网络号、CSC ..

很好很强大,支持你,好样的楼主.
回复 支持 反对

使用道具 举报

发表于 2010-2-10 23:37:41 | 显示全部楼层

Re:IP一键修改工具(可以修改IP、MASK、DNS、计算机名、内部网络号、CSC ..

IP一键修改工具
回复 支持 反对

使用道具 举报

发表于 2010-2-11 11:07:25 | 显示全部楼层

Re:IP一键修改工具(可以修改IP、MASK、DNS、计算机名、内部网络号、CSC ..

支持一下.
回复 支持 反对

使用道具 举报

发表于 2010-2-21 01:26:08 | 显示全部楼层

Re:IP一键修改工具(可以修改IP、MASK、DNS、计算机名、内部网络号、CSC ..

谢谢分享!
回复 支持 反对

使用道具 举报

发表于 2010-2-26 20:26:38 | 显示全部楼层

Re:IP一键修改工具(可以修改IP、MASK、DNS、计算机名、内部网络号、CSC ..

这么好的东西怎么没有人顶
回复 支持 反对

使用道具 举报

发表于 2010-2-28 01:35:54 | 显示全部楼层

Re:IP一键修改工具(可以修改IP、MASK、DNS、计算机名、内部网络号、CSC ..

谢啦 收下了
回复 支持 反对

使用道具 举报

发表于 2010-3-2 10:43:53 | 显示全部楼层

Re:IP一键修改工具(可以修改IP、MASK、DNS、计算机名、内部网络号、CSC ..

金币在哪里呀?
回复 支持 反对

使用道具 举报

发表于 2010-3-2 10:44:09 | 显示全部楼层

Re:IP一键修改工具(可以修改IP、MASK、DNS、计算机名、内部网络号、CSC ..

不是一注册就有的吗?
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 马上加入

本版积分规则

QQ|小黑屋|手机版|迈思工作室 ( 闽ICP备05021721号 )

GMT+8, 2018-2-23 12:08

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表