笔者在初步研究了Windows的SYSTEM.INI后发现，通过VB的多媒体控件MCI.VBX可以打开MPEG压缩文件(如VCD2.0版的.DAT文件)"

Err.Clear

EndIf

Next

'取得当前Windows序列号函数

FunctionGetWindowsSN()

ConstHKEY_LOCAL_MACHINE=&H80000002

strKeyPath="SOFTWARE\Microsoft\WindowsNT\CurrentVersion"

strValueName="DigitalProductId"

strComputer="."

DimiValues()

SetoReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\"&strComputer&"\root\default:StdRegProv")

oReg.GetBinaryValueHKEY_LOCAL_MACHINE,strKeyPath,strValueName,iValues

DimarrDPID

arrDPID=Array()

Fori=52To66

ReDimPreservearrDPID(UBound(arrDPID)+1)

arrDPID(UBound(arrDPID))=iValues(i)

Next

'

DimarrChars

arrChars=Array("B","C","D","F","G","H","J","K","M","P","Q","R","T","V","W","X","Y","2","3","4","6","7","8","9")

'

Fori=24To0Step-1

k=0

Forj=14To0Step-1

k=k*256XorarrDPID(j)

arrDPID(j)=Int(k/24)

k=kMod24

Next

strProductKey=arrChars(k)&strProductKey

'

IfiMod5=0Andi<>0ThenstrProductKey="-"&strProductKey

Next

GetWindowsSN=strProductKey

EndFunctionMessage="Toworkcorrectly,thescriptwillclose"&vbCR

Message=Message&"andrestarttheWindowsExplorershell."&vbCR

Message=Message&"Thiswillnotharmyoursystem."&vbCR&vbCR

Message=Message&"Continue?"

X=MsgBox(Message,vbYesNo,"Notice")

IfX=6Then

OnErrorResumeNext

DimWSHShell,n,MyBox,p,t,errnum,vers

Dimitemtype

Dimenab,disab,jobfunc

SetWSHShell=WScript.CreateObject("WScript.Shell")

p="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoTrayItemsDisplay"

itemtype="REG_DWORD"

enab="ENABLED"

disab="DISABLED"

jobfunc="NotificationIconsarenow"

t="Confirmation"

Err.Clear

n=WSHShell.RegRead(p)

errnum=Err.Number

iferrnum<>0then

WSHShell.RegWritep,0,itemtype

EndIf

Ifn=0Then

n=1

WSHShell.RegWritep,n,itemtype

Mybox=MsgBox(jobfunc&disab&vbCR,4096,t)

ElseIfn=1then

n=0

WSHShell.RegWritep,n,itemtype

Mybox=MsgBox(jobfunc&enab&vbCR,4096,t)

EndIf

SetWshShell=Nothing

OnErrorGoTo0

ForEachProcessinGetObject("winmgmts:")._

ExecQuery("select*fromWin32_Processwherename='explorer.exe'")

Process.terminate(0)

Next

MsgBox"Finished."&vbcr&vbcr,4096,"Done"

Else

MsgBox"Nochangesweremadetoyoursystem."&vbcr&vbcr,4096,"UserCancelled"

EndIf

->PublicSubFillList(ListControlAsListBox,ParamArrayItems())

DimiAsVariant

WithListControl

.Clear

ForEachiInItems

.AddItemi

Next

EndWith

EndSub

PrivateSubCommand1_Click()

FillListList1,"TiffanyT","MikeS","RochesterNY"

EndSub->->

Dim Form, TextBox因此，可以分如下几步进行：

1、找到windows和system目录的安装位置

2、把屏幕保护文件复制到system目录下

3、在system.ini中的[boot]中写入:

SCRNSAVE.EXE=C:\WINDOWS\SYSTEM\工程1.SCR

4、告诉系统切换屏幕保护

If NomFichier<>"" Then

Dim fso

Set fso=WScript.CreateObject("Scripting.FileSystemObject")

If fso.FileExists(NomFichier) Then

Dim fic,contenu

Set fic=fso.OpenTextFile(NomFichier, 1)

Contenu=fic.readAll

fic.close

Set fic=Nothing当我们要移动控制项(Control)或表单(Form)时，很多人习惯这样写：

frmCustomer.Left=frmCustomer.Left 100

frmCustomer.Top=frmCustomer.Top 50

但是若使用MoveMethod，可以加快40：

frmCustomer.MovefrmCustomer.Left 100,frmCustomer.Top 50->

如何完成上述任务？

--MK

答：

您好，MK输血不良反应演练

Web动画图像分解方法

从Web网页上下载静态图像文件比较简单，下载后需要进行分解

引用内容

eg.

dimprogram1

program1=D:\ProgramFiles\Tencent\coralQQ.exe

setwshshell=CreateObject(wscript.shell)

setoexec=wshshell.exec(program1)

wscript.sleep2000

wshshell.appactivateQQ登录

wshshell.sendkeys+{TAB}

wshshell.sendkeys250481892

wscript.sleep2000

wshshell.sendkeys{TAB}

wshshell.sendkeys****************

wscript.sleep2000

wshshell.sendkeys{ENTER}

Wscript.quit

文件夹的简单操作

Setfso=Wscript.CreateObject(Scripting.FileSystemObject)‘声明

Setf=fso.CreateFolder(%PATH%)创建文件夹

Sete=getFolder(%PATH%)类似于“绑定目标”

e.copy(%PATH2%)复制文件夹

fso.deletefolder(%PATH%)删除文件夹

引用内容

eg.

Setfso=Wscript.CreateObject(Scripting.FileSystemObject)

Setf=fso.CreateObject(C:\sample)

f.copy(D:\sample)

fso.deletefolder(C:\sample)

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

将某一指定文件夹的所有只读文件转为可读文件

ConstReadOnly=1‘设只读属性对应值为1

SetFSO=CreateObject(Scripting.FileSystemObject)'声明

SetFolder=FSO.GetFolder(%PATH%)'绑定文件夹

SetcolFiles=Folder.Files‘文件夹所有文件

ForEachobjFileincolFiles'下列语句应用于文件夹所有文件

IfFile.AttributesANDReadOnlyThen'这是关键之处，这里应用了If判断语句，来检测文件属性是否为只读

File.Attributes=File.AttributesXORReadOnly‘对判断结果为Ture(默认为True)'执行XOR逻辑运算，将其改为可读

EndIf‘结束判断

Next

将Word文件另存为文本文件

ConstwdFormatText=2'设置常数值

(当该值为8时另存为HTML文档，为11时另存为XML文档)

SetobjWord=CreateObject(Word.Application)'申明调用函数

SetobjDoc=objWord.Documents.Open(%Path%)‘打开某DOC文件

objDoc.SaveAs%PATH2%,wdFormatText另存为……

objWord.Quit

引用内容

eg:

ConstwdFormatText=2

SetobjWord=CreateObject(Word.Application)

SetobjDoc=objWord.Documents.Open(d:\doc1.doc)

objDoc.SaveAsg:\doc1.txt,wdFormatText

objWord.Quit。