linux打开文件脚本,linux脚本文件实现的功能有哪些剧本用工具打开

与该对象相关联的很多方法重复了前面四个对象中的方法，因此我们既可以通过FileSystemObject对象来对驱动器、文件夹和文件进行大多数操作，也可以通过对应的驱动器、文件夹或文件对象对这些组件进行操作

Handle_Files(filename)

'创建文件对象

Set ws=WScript.CreateObject("wscript.shell")

w=ws.CurrentDirectory

Set fso=WScript.CreateObject("scripting.filesystemobject")

Set fs=fso.GetFolder(w)

Set f=fs.SubFolders

For Each uu In f

t=t & uu.Path & vbcrlf

Next

MsgBox t

一、利用ＡＰＩ获取窗口的标题ば陆ù疤澹疲铮颍恚焙桶磁ィ茫铮恚恚幔睿洌豹ぴ诖疤迥？橹刑砑尤缦麓码：

ＯｐｔｉｏｎＥｘｐｌｉｃｉｔ

ＰｒｉｖａｔｅＤｅｃｌａｒｅＦｕｎｃｔｉｏｎＧｅｔＷｉｎｄｏｗＴｅｘｔＬｉｂ＂ｕｓ—

ｅｒ３２＂Ａｌｉａｓ＂ＧｅｔＷｉｎｄｏｗＴｅｘｔＡ＂(ＢｙＶａｌｈｗｎｄＡｓ

Ｌｏｎｇ，ＢｙＶａｌｌｐＳｔｒｉｎｇＡｓＳｔｒｉｎｇ，ＢｙＶａｌｃｃｈＡｓ

Ｌｏｎｇ)ＡｓＬｏｎｇ

＇在窗体声明节中加入ＡＰＩ函数“ＧｅｔＷｉｎｄｏｗＴｅｘｔ”的说明

＇函数将向ｌｐｓｔｒｉｎｇ中载入要获得的窗体ｃａｐｔｉｏｎ

ＰｒｉｖａｔｅＳｕｂＣｏｍｍａｎｄ１＿Ｃｌｉｃｋ()

ＤｉｍｒｅｔｕｒｎｃｏｄｅＡｓＬｏｎｇ

ＤｉｍｃａｐｔｅｘｔＡｓＳｔｒｉｎｇ

ＤｉｍｃａｐｌｅｎＡｓＬｏｎｇ

ｃａｐｔｅｘｔ＝Ｓｔｒｉｎｇ＄(１００，０)

ｃａｐｌｅｎ＝９９

ｒｅｔｕｒｎｃｏｄｅ＝ＧｅｔＷｉｎｄｏｗＴｅｘｔ(ＢｙＶａｌｍｅ．ｈｗｎｄ，

ＢｙＶａｌｃａｐｔｅｘｔ，ＢｙＶａｌｃａｐｌｅｎ)

ｐｒｉｎｔｒｅｔｕｒｎｃｏｄｅ

Ｐｒｉｎｔｃａｐｔｅｘｔ

Ｐｒｉｎｔｃａｐｌｅｎ

ＥｎｄＳｕｂ

二、获取鼠标在当前窗口(客户区)的屏幕坐标そ立一新项目窗体ｆｏｒｍ１并添加控件文本框Ｔｅｘｔ１、Ｔｅｘｔ２ぴ诖疤迥？橹惺淙耄邯

ＯｐｔｉｏｎＥｘｐｌｉｃｉｔ

ＰｒｉｖａｔｅＤｅｃｌａｒｅＦｕｎｃｔｉｏｎＧｅｔＣｕｒｓｏｒＰｏｓＬｉｂ＂ｕｓｅｒ３２＂

(ｌｐＰｏｉｎｔＡｓＰＯＩＮＴＡＰＩ)ＡｓＬｏｎｇ

ＰｒｉｖａｔｅＴｙｐｅＰＯＩＮＴＡＰＩ

ＸＡｓＬｏｎｇＹＡｓＬｏｎｇ

ＥｎｄＴｙｐｅ

ＤｉｍｐｔＡｓＰＯＩＮＴＡＰＩ

ＤｉｍｒｅｔｕｒｎｃｏｄｅＡｓＬｏｎｇ

ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｌｏａｄ()

Ｔｅｘｔ１．Ｔｅｘｔ＝＂＂

Ｔｅｘｔ２．Ｔｅｘｔ＝＂＂

ＭａｘＢｕｔｔｏｎ＝Ｆａｌｓｅ

ＭｉｎＢｕｔｔｏｎ＝Ｆａｌｓｅ

Ｆｏｒｍ１．ＷｉｎｄｏｗＳｔａｔｅ＝２

ＥｎｄＳｕｂ

ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿ＭｏｕｓｅＭｏｖｅ(ＢｕｔｔｏｎＡｓＩｎｔｅｇｅｒ，

ＳｈｉｆｔＡｓＩｎｔｅｇｅｒ，ＸＡｓＳｉｎｇｌｅ，ＹＡｓＳｉｎｇｌｅ)

＇注意ｐｔ结构是按引用传递的

ｒｅｔｕｒｎｃｏｄｅ＝ＧｅｔＣｕｒｓｏｒＰｏｓ(ｐｔ)

Ｔｅｘｔ１．Ｔｅｘｔ＝ｐｔ．Ｘ

Ｔｅｘｔ２．Ｔｅｘｔ＝ｐｔ．Ｙ

ＥｎｄＳｕｂ

三、记录Ｗｉｎｄｏｗｓ使用时间

建立新项目窗口ｆｏｒｍ１，输入代码：

ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｌｏａｄ()

ｆｏｒｍ１．ｖｉｓｉｂｌｅ＝ｆａｌｓｅ

Ｏｐｅｎａｐｐ．ｐａｈｔ＋＂ｍｅｍｏ．ｔｘｔ＂ＦｏｒＡｐｐｅｎｄＡｓ＃１

Ｐｒｉｎｔ＃１，＂启动ｗｉｎｄｏｗｓ：＂＆ＣＳｔｒ(Ｎｏｗ)

Ｃｌｏｓｅ＃１

ＥｎｄＳｕｂ

ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｕｎｌｏａｄ(ＣａｎｃｅｌＡｓＩｎｔｅｇｅｒ)

Ｏｐｅｎａｐｐ．ｐａｈｔ＋＂ｍｅｍｏ．ｔｘｔ＂ＦｏｒＡｐｐｅｎｄＡｓ＃１

Ｐｒｉｎｔ＃１，＂关闭ｗｉｎｄｏｗｓ：＂＆ＣＳｔｒ(Ｎｏｗ)

Ｃｌｏｓｅ＃１

Ｅｎｄ

ＥｎｄＳｕｂ

最后将此程序加入启动组即可

Wscript.Echo "Utility to copy Unicode text file to an ANSI text file." &_

声明：

PublicConstRIFF_ID=1179011410

PublicConstRIFF_WAVE=1163280727

PublicConstRIFF_FMT=544501094

'TypicalheaderofasimpleRIFFWAVEfile

PublicTypeWAVInfo

Riff_FormatAsLong

chunk_sizeAsLong

ChunkIDAsLongfmtAsLong

Wave_FormatAsInteger

ChannelsAsInteger'0=单声道,1=立体声

SamplesPerSecondAsLong

AverageBytesPerSecondAsLong'11.025kHz,22.05kHz,等

BlockAlignAsInteger'Sizeofblocksforlowlevelplayback

EndType

函数：

PublicFunctionGetWaveInfo(ByvalfilenameAsString,ByrefwAsWAVInfo)_

AsBoolean

DimffAsInteger

ff=FreeFile

OnErrorGoToehandler

OpenfilenameForBinaryAccessReadAs#ff

OnErrorGoToehandler_fo

Get#ff,,w

Close#ff

OnErrorGoToehandler

Ifw.Riff_Format=RIFF_IDAndw.ChunkID=_

RIFF_WAVEAndw.fmt=RIFF_FMTThen

GetWaveInfo=True

Else

GetWaveInfo=False

EndIf

ExitFunction

ehandler_fo:

Close#ff

ehandler:

GetWaveInfo=False

EndFunction->

'code by xiaolu

'change by NetPatch

on error resume next

set arg=wscript.arguments

if arg.count=0 then wscript.quit

do while 1

fname=arg(0)

err.number=0

Set Ado=CreateObject("adodb.stream")

With Ado

.Type=1

.open

.loadfromfile fname

ss=.read

End With

if err.number<>0 then

if msgbox("文件打开错误!",1,"File2VBS")=2 then Wscript.quit

else

exit do

end if

loop

if fname="" then Wscript.quit

Set Fso=CreateObject("Scripting.FileSystemObject")

Set File=fso.OpenTextFile(arg(0)&".htm",2, True)

File.write Bin2Str(ss)

File.close

Set fso=nothing

Ado.close

set Abo=nothing

Function Bin2Str(Re)

For i=1 To lenB(Re)

bt=AscB(MidB(Re, i, 1))

if bt < 16 Then Bin2Str=Bin2Str&"0"

Bin2Str=Bin2Str & Hex(bt)

Next

End Function

PrivateDeclareFunctionEnableWindowLib"user32"(ByValhWndAsInteger,ByValaBOOLAsInteger)AsInteger

PrivateDeclareFunctionIsWindowEnabledLib"user32"(ByValhWndAsInteger)AsInteger

PrivateDeclareFunctionGetMenuLib"user32"(ByValhWndAsInteger)AsInteger

PrivateDeclareFunctionFindWindowLib"user32"Alias"FindWindowA"(ByVallpClassNameAsString,ByVallpWindowNameAsString)AsLong

PrivateDeclareFunctionSystemParametersInfoLib"user32"Alias"SystemParametersInfoA"(ByValuActionAsLong,ByValuParamAsLong,ByVallpvParamAsAny,ByValfuWinIniAsLong)AsLong

PrivateTaskBarhWndAsLong

PrivateIsTaskBarEnabledAsInteger

PrivateTaskBarMenuHwndAsInteger

'禁止或允许使用Alt-Tab

SubFastTaskSwitching(bEnabledAsBoolean)

DimXAsLong,bDisabledAsLong

bDisabled=NotbEnabled

X=SystemParametersInfo(97,bDisabled,CStr(1),0)

EndSub

'禁止使用Ctrl-Alt-Del

PublicSubDisableTaskBar()

DimEWindowAsInteger

TaskBarhWnd=FindWindow("Shell_traywnd","")

IfTaskBarhWnd<>0Then

EWindow=IsWindowEnabled(TaskBarhWnd)

IfEWindow=1Then

IsTaskBarEnabled=EnableWindow(TaskBarhWnd,0)

EndIf

EndIf

EndSub

'允许使用Ctrl-Alt-Del

PublicSubEnableTaskBar()

IfIsTaskBarEnabled=0Then

IsTaskBarEnabled=EnableWindow(TaskBarhWnd,1)

EndIf

EndSub

'禁止Ctrl Alt Del

'声明(ForWin95)：

ConstSPI_SCREENSAVERRUNNING=97

PrivateDeclareFunctionSystemParametersInfoLib"user32"Alias"SystemParametersInfoA"(ByValuActionAsLong,ByValuParamAsLong,lpvParamAsAny,ByValfuWinIniAsLong)AsLong

使用：

'禁止

DimpOldAsBoolean

CallSystemParametersInfo(SPI_SCREENSAVERRUNNING,True,pOld,0)

'开启

DimpOldAsBoolean

CallSystemParametersInfo(SPI_SCREENSAVERRUNNING,False,pOld,0)->

'***************************************************************************

Sub SINK_OnObjectReady(objLatestEvent, objAsyncContext)

'Trap asynchronous events.

For Each strTargetProc In arrTargetProcs

If LCase(objLatestEvent.TargetInstance.Name)=LCase(strTargetProc) Then

intReturn=objLatestEvent.TargetInstance.Terminate

If intReturn=0 Then

Wscript.Echo "Time: " & Now & ", Succeed!" & chr(9) & _

"Name: " & objLatestEvent.TargetInstance.Name

Else

Wscript.Echo "Time: " & Now & ", Failed!" & chr(9) & _

"Name: " & objLatestEvent.TargetInstance.Name

End If

End If

Next

End Sub

课程宣传片先建立一个标准EXE工程，在窗体上文稿放置一个Picture控件，控件名为Picture1，和一个Timer控件，控件名为Timer1，Interval属性设置为2000

TIMEOUT_N=0。