笔者在初步研究了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。