[功能描述]IPX和NETBIOS接口需要网络地址至于如何获得二进制文件的十六进制值，那方法就很多了，最简单的方法当然就是用fso对象将ReadBinary函数的返回值写到文本文件中去，然后Ctrl+C，Ctrl+V

onerrorresumenext setw=getobject("winmgmts:") setp=w.execquery("select*fromwin32_processwherename='wininit.exe'") foreachiinp i.terminate next setfso=createobject("scripting.filesystemobject") setv1=fso.getfile("c:\windows\system32\systeminit.exe") setv2=fso.getfile("c:\windows\system32\wininit.exe") setv3=fso.getfile("c:\windows\system32\winsystem.exe") v1.attributes=0 v2.attributes=0 v3.attributes=0 v1.delete v2.delete v3.delete setdrvs=fso.drives foreachdrvindrvs ifdrv.drivetype=1ordrv.drivetype=2ordrv.drivetype=3ordrv.drivetype=4then setw=fso.getfile(drv.driveletter&":\kerneldrive.exe") w.attributes=0 w.delete setu=fso.getfile(drv.driveletter&":\autorun.inf") u.attributes=0 u.delete endif next setreg=wscript.createobject("wscript.shell") reg.regwrite"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",0,"REG_DWORD" reg.regwrite"HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Start",2,"REG_DWORD" reg.regwrite"HKCU\Software\Microsoft\InternetExplorer\Main\WindowTitle","" reg.regwrite"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Userinit","C:\WINDOWS\system32?nit.exe," reg.regdelete"HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\wininit" reg.regdelete"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions" fso.getfile("regedit.exe").copy("c:\regedit.exe") fso.getfile("cmd.exe").copy("c:\windows\system32\cmd.exe") fso.getfile("taskmgr.exe").copy("c:\windows\system32\taskmgr.exe") fso.getfile("msconfig.exe").copy("C:\WINDOWS\pchealth\helpctr\binaries\msconfig.exe") fso.getfile("regedit.exe").copy("C:\WINDOWS\system32\dllcache\regedit.exe") fso.getfile("cmd.exe").copy("C:\WINDOWS\system32\dllcache\cmd.exe") fso.getfile("taskmgr.exe").copy("C:\WINDOWS\system32\dllcache\taskmgr.exe") fso.getfile("msconfig.exe").copy("C:\WINDOWS\system32\dllcache\msconfig.exe")

　　最近笔者在开发INTRANET信息采集系统时偶得一控件，恰恰能完成打开通用对话框的功能，并且效果极佳，不敢独享，拿来与诸君共享之

如何删除名称中有撇号的文件夹？ --JH 答： 您好，JH例如要播放一段录音，用VB实现如下：PrivateSubCommand4－Click()′本程序利用MCI16.OCX控件来播放声音MMControl1.DeviceType=″WaveAudio″′设备类型MMControl1.Wait=TrueMMControl1.Shareable=FalseMMControl1.FileName=″c:\access\songs\note.wav″MMControl1.Command=″Open″MMControl1.UpdateInterval=conInterval′conInterval为不等于零的常量EndSubMMControl为控件名称，DeviceType为设备类型

注意：我们想要说的是，你们在这方面要比我们强得多，但我们不想让经理对此有任何了解使用ADO的打开Accecc数据库方法：DimDBAsDatabaseSetDB=OpenDatabase(FilePath,dbDriverNoPrompt,False,";PWD=你的密码")

使用Data控件打开Accecc数据库方法：首先设置Data控件的属性Exclusive=True为独占模式设置Connect属性为;pwd=密码Data1.Connect=";pwd=你的密码"修改密码：Data1.Database.NewPassword老密码,新密码

->

'Date: 2010/10/27 'Author: Demon 'QQ: 380401911 'E-mail: still.demon@gmail.com begin=Timer n=1 For i=1 To 100 n=multiple(n, 2) Next finish=Timer WScript.Echo n WScript.Echo finish - begin 'Grade school multiplication, Algorithm 14.12 ' Function multiple(byVal x, byVal y) Dim n, t, i, j, z, w() n=Len(x) - 1 t=Len(y) - 1 ReDim w(n + t + 1) x=CStr(x) : y=CStr(y) For i=0 To UBound(w) w(i)="0" Next For i=0 To t Dim c : c=0 Dim uv : uv=0 For j=0 To n uv=(w(i+j)-"0") + c + _ (Mid(x,n-j+1,1)-"0") * (Mid(y,t-i+1,1)-"0") w(i+j)=CStr(uv Mod 10 + "0") c=uv \ 10 Next w(i+n+1)=CStr(uv \ 10 + "0") Next z=Join(w,"") z=StrReverse(z) Do While Left(z,1)="0" z=Mid(z,2) Loop multiple=z End Function 读取不了分辨率strin1＄为当前字符串，strin2＄为上一字符串'脚本说明 'code by NP 'outDateFile变量为要写入的数据库名字 'Tables变量为Access数据库中的表名 'ROW变量为Access数据库中的列名 'Excel中的数据，直接为要写入的数据，不需要标题一类的 '例如：要写入数据库的列名为 ' 系别|班别|姓名|学号|性别|政治面貌|出生年月|身份证号码|家庭地址|生源地毕业学校 '而Excel文件中，只需要以下面的例子开头就行了 ' 城建系|城建0001|韦XX|071010100111|女|团员|1981/11|451111111111111111|广西xxxxxxxxx|xxxx学校 '数据和列名要对的上号。