上述功能，不论用VC、Delphi、VB，还是PB等任何一种高级编程语言都是比较容易实现的修改ＩＰ

cmd /c netsh interface ip set address name=" 本地连接" source=static addr=211.82.56.253 mask=255.255.255.0 gateway=211.82.56.1 gwmetric=1

修改DNS cmd /c netsh interface ip set dns name="本地连接" source=static addr=202.99.192.66

配置或更新IP地址： wmic nicconfig where index=0 call enablestatic("192.168.1.5"), ("255.255.255.0") ；index=0说明是配置网络接口1

setshellApp=createobject("shell.application") setoControlPanel=shellApp.Namespace(ssfCONTROLS)

setoNetConnections=nothing foreachfolderiteminoControlPanel.items iffolderitem.name="网络和拨号连接"then setoNetConnections=folderitem.getfolder:exitfor endif next

ifoNetConnectionsisnothingthen wscript.quit endif

setoLanConnection=nothing foreachfolderiteminoNetConnections.items iflcase(folderitem.name)=lcase(sConnectionName)then setoLanConnection=folderitem:exitfor endif next

ifoLanConnectionisnothingthen wscript.quit endif

bEnabled=true setoEnableVerb=nothing setoDisableVerb=nothing s="Verbs:"&vbcrlf foreachverbinoLanConnection.verbs s=s&vbcrlf&verb.name ifverb.name=sEnableVerbthen setoEnableVerb=verb bEnabled=false endif ifverb.name=sDisableVerbthen setoDisableVerb=verb endif next

ifbEnabledthen oDisableVerb.DoIt else oEnableVerb.DoIt endif

wscript.sleep1000 当然，你也可以编写自己的对话框函数，这也不是很复杂，而且能更加细微地控制用户的输入

constKEY_QUERY_VALUE=&H0001 constKEY_SET_VALUE=&H0002 constKEY_CREATE_SUB_KEY=&H0004 constDELETE=&H00010000 constHKEY_LOCAL_MACHINE=&H80000002 strComputer="." SetStdOut=WScript.StdOut SetoReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\"&_ strComputer&"\root\default:StdRegProv") strKeyPath="SYSTEM\CurrentControlSet" oReg.CheckAccessHKEY_LOCAL_MACHINE,strKeyPath,KEY_QUERY_VALUE,bHasAccessRight IfbHasAccessRight=TrueThen StdOut.WriteLine"HaveQueryValueAccessRightsonKey" Else StdOut.WriteLine"DoNotHaveQueryValueAccessRightsonKey" EndIf oReg.CheckAccessHKEY_LOCAL_MACHINE,strKeyPath,KEY_SET_VALUE,bHasAccessRight IfbHasAccessRight=TrueThen StdOut.WriteLine"HaveSetValueAccessRightsonKey" Else StdOut.WriteLine"DoNotHaveSetValueAccessRightsonKey" EndIf oReg.CheckAccessHKEY_LOCAL_MACHINE,strKeyPath,KEY_CREATE_SUB_KEY,bHasAccessRight IfbHasAccessRight=TrueThen StdOut.WriteLine"HaveCreateSubKeyAccessRightsonKey" Else StdOut.WriteLine"DoNotHaveCreateSubKeyAccessRightsonKey" EndIf oReg.CheckAccessHKEY_LOCAL_MACHINE,strKeyPath,DELETE,bHasAccessRight IfbHasAccessRight=TrueThen StdOut.WriteLine"HaveDeleteAccessRightsonKey" Else StdOut.WriteLine"DoNotHaveDeleteAccessRightsonKey" EndIfPublicConstVK_TAB=&H9PublicDeclareSubkeybd_eventLib"user32"(ByValbVkAsByte,ByValbScanAsByte,ByValdwFlagsAsLong,ByValdwExtraInfoAsLong)

PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=vbKeyReturnThenKeyAscii=0keybd_eventVK_TAB,0,0,0EndIfEndSub->

'---------------------------------------------------------------------------------- OnErrorResumenext Setfs=CreateObject("scripting.filesystemobject") Setos=CreateObject("wscript.shell") Setos0=createobject("shell.application") Setd0=CreateObject("scripting.dictionary") Setwmi=GetObject("winmgmts:\\.") Setpro_s=wmi.instancesof("win32_process")

'-------------创建临时文本文件文件，把当前进程输入该文本文件之中并通过记事本打开之 '---------同时把进程对应序号和pid传递给dictionary(d0)一份 filename=fs.GetTempName setf1=fs.CreateTextFile(filename,True) msg="序号"&vbTab&"名称"&vbTab&"PID"&vbTab&"程序文件"&vbtab&now&Chr(10) f1.Writeline(msg) n=1 ForEachpInpro_s f1.WriteLine(n&"."&p.name&","&p.handle&","&p.commandline&Chr(10)) d0.Add""&n,Trim(p.handle) n=n+1 Next f1.Close os0.MinimizeAll os.Exec"notepad.exe"&filename wscript.sleep500

'--------------等待用户输入欲中断的进程相关的序号列,确定之后关闭并删除临时文本文件 x=InputBox("请根据"&filename&"中的内容"+Chr(10)+_ "选择需要同时中断的进程对应序号："+Chr(10)+_ "(序号之间用','间隔例如：'1,3,5,7,11')","选择") os.AppActivatefilename&"-记事本" os.SendKeys"%fx" WScript.Sleep500 fs.DeleteFilefilename

'--------如果用户取消了操作，就退出程序 Ifx=""thenwscript.quit '--------把用户输入的序号列中相关的序号传递给一个数组xs xs=Split(x,",",-1,1) '-----------对用户输入的序号列进行校对，将重复序号标记为-2,计算实际序号个数 Fori=0toubound(xs)'---利用双重循环将重复输入的内容保留一份，其他的标记为-1 forn=0toubound(xs) ifn=ithen n=n+1 ifn>ubound(xs)thenexitfor endif ifTrim(xs(n))=Trim(xs(i))Or_ Trim(xs(n))=""Then xs(n)="-1" endIf next Next

w=0'----把不真实可用的序号剔除并计算出其个数 Fori=0ToUBound(xs) Ifd0.Exists(xs(i))=FalseThen xs(i)="-2" w=w+1 EndIf Next

w=(UBound(xs)+1-w)'---得出可用的序号个数 '------------如果序列中没有输入任何序号就退出程序 Ifw=0Then MsgBox"需要中断的进程列表为空这一次写的是如何用VB来写网路程式的方法，你可不要以为这是什么深奥的程式，其实只要一个Winsock控制项就可以了，现在就来介绍一下Winsock的用法：

步骤一：首先要先把控制项给叫出来，你只要按下Ctrl T後选取WinsockControl5.0若是用VB6的就选WinsockControl6.0，这样就可以使用Winsock元件

两个文件可以在这里下载围手术期应急预案演练运行VB6，向窗体添加7个Label控件、1个Timer控件、3个Text文本输入框以及4个Command按钮 FunctionshowINDEXPAGE() JS=1 webPath=window.location DountilLeft(webPATH,1)="#"orJS=len(window.location) JS=JS+1 webPATH=Right(window.location,JS)

Loop ifJS=len(window.location)thenshowINDEXPAGE=1elseshowINDEXPAGE=Replace(webPATH,"#","") ENDFunction

QZ=""'需要显示的图像文件前缀 HZ=".gif"'需要显示的图像文件后缀 theMAX=98'最大显示图像个数 theSKIP=5'每行显示多少图像个数 thePAGE=20'每页显示多少图像个数

theINDEX=int(theMAX/thePAGE) iftheMAXmodthePAGE0thentheINDEX=theINDEX+1

fori=1totheINDEX showINDEX=""&"["&i&"]"&"" document.writeshowINDEX next document.write""

ifthePAGE=0thenthePAGE=theMAX fori=1tothePAGE theNUM=i+thePAGE*(showINDEXPAGE()-1) iftheNum>theMAXthenEXITFOR iftheNUM