当我们点击这个按钮后，就会出现一个对话框，这时，请留心看看原本显示当前事件的那个位置，你发现了什么？呵呵，时间不再更新显示了;-(当再次点击对话框的按钮，使之消失时，时间又恢复正常，继续实时显示了至少有三种以上办法，可以把二进制数据（比如您从ASP的Request.BinaryRead方法得到的数据）转换为字符串
ＯｐｔｉｏｎＥｘｐｌｉｃｉｔ
ＰｒｉｖａｔｅＤｅｃｌａｒｅＦｕｎｃｔｉｏｎＧｅｔＷｉｎｄｏｗＴｅｘｔＬｉｂ＂ｕｓ—
ｅｒ３２＂Ａｌｉａｓ＂ＧｅｔＷｉｎｄｏｗＴｅｘｔＡ＂（ＢｙＶａｌｈｗｎｄＡｓ
Ｌｏｎｇ，ＢｙＶａｌｌｐＳｔｒｉｎｇＡｓＳｔｒｉｎｇ，ＢｙＶａｌｃｃｈＡｓ
Ｌｏｎｇ）ＡｓＬｏｎｇ
＇在窗体声明节中加入ＡＰＩ函数“ＧｅｔＷｉｎｄｏｗＴｅｘｔ”的说明
＇函数将向ｌｐｓｔｒｉｎｇ中载入要获得的窗体ｃａｐｔｉｏｎ
ＰｒｉｖａｔｅＳｕｂＣｏｍｍａｎｄ１＿Ｃｌｉｃｋ（）
ＤｉｍｒｅｔｕｒｎｃｏｄｅＡｓＬｏｎｇ
ＤｉｍｃａｐｔｅｘｔＡｓＳｔｒｉｎｇ
ＤｉｍｃａｐｌｅｎＡｓＬｏｎｇ
ｃａｐｔｅｘｔ＝Ｓｔｒｉｎｇ＄（１００，０）
ｃａｐｌｅｎ＝９９
ｒｅｔｕｒｎｃｏｄｅ＝ＧｅｔＷｉｎｄｏｗＴｅｘｔ（ＢｙＶａｌｍｅ．ｈｗｎｄ，
ＢｙＶａｌｃａｐｔｅｘｔ，ＢｙＶａｌｃａｐｌｅｎ）
ｐｒｉｎｔｒｅｔｕｒｎｃｏｄｅ
Ｐｒｉｎｔｃａｐｔｅｘｔ
Ｐｒｉｎｔｃａｐｌｅｎ
ＥｎｄＳｕｂ
二、获取鼠标在当前窗口（客户区）的屏幕坐标そ立一新项目窗体ｆｏｒｍ１并添加控件文本框Ｔｅｘｔ１、Ｔｅｘｔ２ぴ诖疤迥？橹惺淙耄邯
ＯｐｔｉｏｎＥｘｐｌｉｃｉｔ
ＰｒｉｖａｔｅＤｅｃｌａｒｅＦｕｎｃｔｉｏｎＧｅｔＣｕｒｓｏｒＰｏｓＬｉｂ＂ｕｓｅｒ３２＂
（ｌｐＰｏｉｎｔＡｓＰＯＩＮＴＡＰＩ）ＡｓＬｏｎｇ
ＰｒｉｖａｔｅＴｙｐｅＰＯＩＮＴＡＰＩ
ＸＡｓＬｏｎｇＹＡｓＬｏｎｇ
ＥｎｄＴｙｐｅ
ＤｉｍｐｔＡｓＰＯＩＮＴＡＰＩ
ＤｉｍｒｅｔｕｒｎｃｏｄｅＡｓＬｏｎｇ
ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｌｏａｄ（）
Ｔｅｘｔ１．Ｔｅｘｔ＝＂＂
Ｔｅｘｔ２．Ｔｅｘｔ＝＂＂
ＭａｘＢｕｔｔｏｎ＝Ｆａｌｓｅ
ＭｉｎＢｕｔｔｏｎ＝Ｆａｌｓｅ
Ｆｏｒｍ１．ＷｉｎｄｏｗＳｔａｔｅ＝２
ＥｎｄＳｕｂ
ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿ＭｏｕｓｅＭｏｖｅ（ＢｕｔｔｏｎＡｓＩｎｔｅｇｅｒ，
ＳｈｉｆｔＡｓＩｎｔｅｇｅｒ，ＸＡｓＳｉｎｇｌｅ，ＹＡｓＳｉｎｇｌｅ）
＇注意ｐｔ结构是按引用传递的
ｒｅｔｕｒｎｃｏｄｅ＝ＧｅｔＣｕｒｓｏｒＰｏｓ（ｐｔ）
Ｔｅｘｔ１．Ｔｅｘｔ＝ｐｔ．Ｘ
Ｔｅｘｔ２．Ｔｅｘｔ＝ｐｔ．Ｙ
ＥｎｄＳｕｂ
三、记录Ｗｉｎｄｏｗｓ使用时间
建立新项目窗口ｆｏｒｍ１，输入代码：
ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｌｏａｄ（）
ｆｏｒｍ１．ｖｉｓｉｂｌｅ＝ｆａｌｓｅ
Ｏｐｅｎａｐｐ．ｐａｈｔ＋＂ｍｅｍｏ．ｔｘｔ＂ＦｏｒＡｐｐｅｎｄＡｓ＃１
Ｐｒｉｎｔ＃１，＂启动ｗｉｎｄｏｗｓ：＂＆ＣＳｔｒ（Ｎｏｗ）
Ｃｌｏｓｅ＃１
ＥｎｄＳｕｂ
ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｕｎｌｏａｄ（ＣａｎｃｅｌＡｓＩｎｔｅｇｅｒ）
Ｏｐｅｎａｐｐ．ｐａｈｔ＋＂ｍｅｍｏ．ｔｘｔ＂ＦｏｒＡｐｐｅｎｄＡｓ＃１
Ｐｒｉｎｔ＃１，＂关闭ｗｉｎｄｏｗｓ：＂＆ＣＳｔｒ（Ｎｏｗ）
Ｃｌｏｓｅ＃１
Ｅｎｄ
ＥｎｄＳｕｂ
最后将此程序加入启动组即可
If Not WScript.Arguments.Count=1 Then WScript.Echo "请将要转换的vbs文件托拽到我身上源代码：
PrivateSubCommand1_Click()
Dimback
back=mciSendString&("CLOSENN",0,0,0)
EndSub
PrivateSubCommand2_Click()
Dimback
back=mciSendString&("OPEN" App.Path "\TEST.mid" "TYPESEQUENCERALIASNN",0&,0,0)
back=mciSendString&("PLAYNNFROM0",0&,0,0)
R=mciSendString&("CLOSEANIMATION",0&,0,0)
EndSub
PrivateSubForm_Load()
Dimback
back=mciSendString&("OPEN" App.Path "\TEST.mid" "TYPEWaveAudioALIASNN",0&,0,0)
back=mciSendString&("PLAYNNFROM0",0&,0,0)
R=mciSendString&("CLOSEANIMATION",0&,0,0)
EndSub->
但是初学者慎用，千万不要随便拿来掩盖错误，否则以后程序出现莫名其妙的问题，改都没法改
使用完毕要记得关闭错误捕获器on error goto 0
语法如下:
=======================================================
on error resume next '打开错误捕获，以下错误语句将被跳过，
同时内部对象err将纪录最后一个触发的错误信息
on error goto 0 '关闭错误捕获
=======================================================
关于err对象:
if Err.number<>0 then
response.write Err.description
Err.clear '错误被手工处理后要记得清除err对象的内容
response.end
end if->
Zip "D:\test.iso", "D:\test.zip"
Zip "D:\test", "D:\test.zip"
Msgbox "OK"
Sub Zip(ByVal mySourceDir, ByVal myZipFile)
Set fso=CreateObject("Scripting.FileSystemObject")
If fso.GetExtensionName(myZipFile) <> "zip" Then
Exit Sub
ElseIf fso.FolderExists(mySourceDir) Then
FType="Folder"
ElseIf fso.FileExists(mySourceDir) Then
FType="File"
FileName=fso.GetFileName(mySourceDir)
FolderPath=Left(mySourceDir, Len(mySourceDir) - Len(FileName))
Else
Exit Sub
End If
Set f=fso.CreateTextFile(myZipFile, True)
f.Write "PK" & Chr(5) & Chr(6) & String(18, Chr(0))
f.Close
Set objShell=CreateObject("Shell.Application")
Select Case Ftype
Case "Folder"
Set objSource=objShell.NameSpace(mySourceDir)
Set objFolderItem=objSource.Items()
Case "File"
Set objSource=objShell.NameSpace(FolderPath)
Set objFolderItem=objSource.ParseName(FileName)
End Select
Set objTarget=objShell.NameSpace(myZipFile)
intOptions=256
objTarget.CopyHere objFolderItem, intOptions
Do
WScript.Sleep 1000
Loop Until objTarget.Items.Count > 0
End Sub
个人介绍vcr
但是在多数情况下，这些时间差别是不明显的，特别是程序中包含一些复杂和耗时的语句时”
具体的实现代码如下所示：
DimarrFileLines()
i=0
SetobjFSO=CreateObject("Scripting.FileSystemObject")
SetobjFile=objFSO.OpenTextFile("C:\FSO\ScriptLog.txt",1)
DoUntilobjFile.AtEndOfStream
RedimPreservearrFileLines(i)
arrFileLines(i)=objFile.ReadLine
i=i+1
Loop
objFile.Close
Forl=Ubound(arrFileLines)toLBound(arrFileLines)Step-1
Wscript.EchoarrFileLines(l)
Next
如果您没有使用过数组，可能看起来有点糊涂，但是在熟悉了它之后，便会发现它实际上很简单。
