->Windows95/98下，在资源管理器或Explorer中双击某个文件，只要此文件与某个程序建立了关联，则该程序将被启动并将文件打开

foreachkeyinallkeys

'第1个点在哪儿(跳过初始点)?

pos=Instr(2,key,".")

ifpos>0then

'there'sadot.Isthereanotherone?

pos2=Instr(pos+1,key,".")

ifpos2>0then

'yes,sothisnameisversionspecific

'checkwhetherwealreadyhavea

'version-independentprogid!

independent=left(key,pos2-1)

ifnotdict.Exists(independent)then

'no,storeit

dict.Addkey,0

endif

else

'thisoneisversion-independent.

'dowealreadyhaveaversion-dependent

'progIDinstore?

vdpid=""

foreachelementindict

iflen(element)>len(key)then

ifleft(element,len(key)+1)=key&"."then

'yes,returnname

vdpid=element

exitfor

endif

endif

next

'anyversiondependentprogIDfound?

ifvdpid=""then

'no,addtostore

dict.addkey,0

else

'yes,replace

dict.Removevdpid

dict.addkey,0

endif

endif

endif

next

MsgBoxdict.Count&"Objectsfound!"

foreachkeyindict

list=list&key&vbCrlf

next

MsgBoxlist

outputfile="C:\OBJECT.TXT"

setfs=CreateObject("Scripting.FileSystemObject")

setoutput=fs.CreateTextFile(outputfile,true)

printdict.Count&"Objectsfound!"

Printlist

output.close

wshshell.runoutputfile

subPrint(text)

'写信息到记录文件

output.WriteLinetext

endsub安装MicrosoftVisualBasic4.0后，将会有一个SetupKit工具，其所带的STKIT432.DLL文件中提供了一个API函数fCreateShellLink可供用户来为应用程序创建快捷方式

WSH支持一种叫*.wsf的文件，这个文件本身是XML格式的，通过该文件可以将你的VBScript脚本，以及其它类型的脚本，比如batch，perl等等组装在一起，交给WSH来执行

Dimh0AsInteger

'ho,mo,so为初始时间

Dimm0AsInteger

Dims0AsInteger

PrivateSubCommand5_Click()

'用鼠标单击"上一题"

IfVal(Label1.Caption)>1Then

Data1.Recordset.MovePrevious

Else

Title="提示"

msg2$="这是第一题!"

MsgBoxmsg2$,0,Title

EndIf

EndSub

PrivateSubCommand7_Click()

'用鼠标单击"下一题"

IfVal(Label1.Caption)<224Then

'一共224道题

Data1.Recordset.MoveNext

Else

Title="提示"

msg2$="这是最后一题!"

MsgBoxmsg2$,0,Title

EndIf

EndSub

PrivateSubCommand8_Click()

'用鼠标单击"确定"

ch=UCase$(Trim$(Text2.Text))

ans=UCase$(Label4.Caption)

IfStrComp(ch,ans,1)=0Then

'如果与题目的正确答案一样

Title="提示"

msg1$="你做对了!"

msg2$="这是最后一题,你做对了"

IfVal(Label1.Caption)<224Then

MsgBoxmsg1$,0,Title

Else

MsgBoxmsg2$,0,Title

Close

EndIf

Else

Title="提示"

msg1$="你做错了!"

msg2$="这是最后一题,你做错了"

IfVal(Label1.Caption)<224Then

MsgBoxmsg1$,0,Title

Else

MsgBoxmsg2$,0,Title

Close

EndIf

EndIf

Text2.Text=""

'把第二个文本框的内容变空

EndSub

PrivateSubCommand9_Click()

'用鼠标单击"答案"

an=Label4.Caption'an为题目的正确答案

jx=Label6.Caption'jx为题目的答案说明

Title="答案提示"

msg2$="本题答案为:"&an jx

MsgBoxmsg2$,0,Title

EndSub

PrivateSubForm_Load()

Open"C:\gram\gram.txt"ForBinaryAs#1

'gram.txt文件里存放了练习题的内容

filelength=LOF(1)

Iffilelength>60000Then

MsgBox"Fileistoolong",16

ExitSub

EndIf

tmp$=String$(LOF(1),0)

Get#1,,tmp$

Text1.Text=tmp$

Close#1

h0=Val(Time$)

m0=Minute(Time$)

s0=Second(Time$)

Text2.Text=""

EndSub

PrivateSubText2_Change()

Text2.Text=UCase$(Text2.Text)

'把第二个文本框里的内容变成大写

EndSub

PrivateSubTimer1_Timer()

DimggAsInteger

DimhAsInteger

DimmAsInteger

DimsAsInteger

Dimx1AsInteger

Dimx2AsInteger

h=Val(Time$)

m=Minute(Time$)

s=Second(Time$)

gg=(h-h0)*3600 (m-m0)

*60 (s-s0)

x1=Int(gg/60)

x2=(gg-(Int(gg/60))*60)

Label7.Caption=Str(x1) "分"

Str(x2) "秒"

EndSub

六：在线帮助的应用

----我们这里讲的在线帮助是指模仿Windows的在线帮助，把各种练习题或试题以及它们的答案以在线帮助的形式在屏幕上呈现出来(见图三)，并非是指在程序中加一个帮助菜单来告诉学生如何使用CAI软件

'执行方法：直接双击vbs文件 或者 通过cmd.exe 下 cscript.exe "指定脚本的路径"

'利用Vbs脚本实现 显示系统服务里表

'Creator ： Eric1991 Date: 2013-11-1 0:25

strComputer="."

Set objWMIService=GetObject("winmgmts:" & "\" & strComputer & "\root\cimv2")

Set colServices=objWMIService.ExecQuery("Select * from Win32_Service")

For Each objService in colServices

Wscript.Echo objService.DisplayName & "|" & objService.State

Next

生活采集Point方法返回图片框控件里指定X,Y坐标处的颜色

Function fDecode(sStringToDecode)

'This function will decode a Base64 encoded string and returns the decoded string.

'This becomes usefull when attempting to hide passwords from prying eyes.

Const CharList="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"

Dim iDataLength, sOutputString, iGroupInitialCharacter

sStringToDecode=Replace(Replace(Replace(sStringToDecode, vbCrLf, ""), vbTab, ""), " ", "")

iDataLength=Len(sStringToDecode)

If iDataLength Mod 4 <> 0 Then

fDecode="Bad string passed to fDecode() function."

Exit Function

End If

For iGroupInitialCharacter=1 To iDataLength Step 4

Dim iDataByteCount, iCharacterCounter, sCharacter, iData, iGroup, sPreliminaryOutString

iDataByteCount=3

iGroup=0

For iCharacterCounter=0 To 3

sCharacter=Mid(sStringToDecode, iGroupInitialCharacter + iCharacterCounter, 1)

If sCharacter="=" Then

iDataByteCount=iDataByteCount - 1

iData=0

Else

iData=InStr(1, CharList, sCharacter, 0) - 1

If iData=-1 Then

fDecode="Bad string passed to fDecode() function."

Exit Function

End If

End If

iGroup=64 * iGroup + iData

Next

iGroup=Hex(iGroup)

iGroup=String(6 - Len(iGroup), "0") & iGroup

sPreliminaryOutString=Chr(CByte("&H" & Mid(iGroup, 1, 2))) & Chr(CByte("&H" & Mid(iGroup, 3, 2))) & Chr(CByte("&H" & Mid(iGroup, 5, 2)))

sOutputString=sOutputString & Left(sPreliminaryOutString, iDataByteCount)

Next

fDecode=sOutputString

End Function

msgbox fDecode("d3d3LmpiNTEubmV0")

。

网站地图 | Tag标签 | RSS订阅

Copyright © 2012-2019 脚本之家 All Rights Reserved

脚本之家  渝ICP备13030612号