-vx shell_在shell脚本中发送回车命令兄弟下载

'

'入口:[strString]-要删除结束符的字符串

'

'返回:传递的字符串减去尾部零以后的值

Option Explicit

On Error Resume Next

'生成列表的文件类型

Const sListFileType="wmv,rm,wma"

'文件所在的相对路径

Const sShowPath="."

'排序类型的常量定义

Const iOrderFieldFileName=0

Const iOrderFieldFileExt=1

Const iOrderFieldFileSize=2

Const iOrderFieldFileType=3

Const iOrderFieldFileDate=4

'排序顺逆的常量定义

const iOrderAsc=0

const iOrderDesc=1

'生成列表的文件数量

const iShowCount=20

'显示的日期格式函数

Function Cndate2(date1,intDateStyle)

dim strdate,dDate1

strdate=cstr(date1)

If Isdate(strdate) Then

If Left(cstr(strdate),1)="0" Then

dDate1=Cdate("20"+cstr(strdate))

else

dDate1=Cdate(strdate)

End If

Else

dDate1=Now()

End If

Select case intDateStyle

Case 1:

Cndate2=Cstr(Year(dDate1))+"-"+Cstr(Month(dDate1))+"-"+Cstr(Day(dDate1))

Case 2:

Cndate2=Cstr(Month(dDate1))+"-"+Cstr(Day(dDate1))

Case 3:

Cndate2=Cstr(Month(dDate1))+"月"+Cstr(Day(dDate1))+"日"

Case 4:

Cndate2=Cstr(year(dDate1))+"年"+ Cstr(Month(dDate1))+"月"+Cstr(Day(dDate1))+"日"

End Select

End Function

Function ListFile(strFiletype,intCompare,intOrder,intShowCount)

Dim sListFile

Dim fso, f, f1, fc, s,ftype,fcount,i,j,k

Dim t1,t2,t3,t4,t5

Dim iMonth,iDay

sListFile=""

Set fso=CreateObject("Scripting.FileSystemObject")

Set f=fso.GetFolder(sShowPath)

Set fc=f.Files

fcount=fc.count

redim arrFiles(fcount,5)

redim arrFiles2(fcount,5)

i=0

'排序

For Each f1 in fc

ftype=right(f1.name,len(f1.name)-instrrev(f1.name,"."))

arrFiles(i,0)=f1.name

arrFiles(i,1)=ftype

arrFiles(i,2)=f1.size

arrFiles(i,3)=f1.type

arrFiles(i,4)=f1.DateLastModified

i=i+1

Next

For i=0 to fcount-1

for j=i+1 to fcount-1

select Case intCompare

Case iOrderFieldFileName,iOrderFieldFileExt,iOrderFieldFileType:

If arrFiles(i,intCompare)>arrFiles(j,intCompare) then

t1=arrFiles(i,0)

t2=arrFiles(i,1)

t3=arrFiles(i,2)

t4=arrFiles(i,3)

t5=arrFiles(i,4)

arrFiles(i,0)=arrFiles(j,0)

arrFiles(i,1)=arrFiles(j,1)

arrFiles(i,2)=arrFiles(j,2)

arrFiles(i,3)=arrFiles(j,3)

arrFiles(i,4)=arrFiles(j,4)

arrFiles(j,0)=t1

arrFiles(j,1)=t2

arrFiles(j,2)=t3

arrFiles(j,3)=t4

arrFiles(j,4)=t5

end if

Case iOrderFieldFileSize:

If cdbl(arrFiles(i,intCompare))>cdbl(arrFiles(j,intCompare)) then

t1=arrFiles(i,0)

t2=arrFiles(i,1)

t3=arrFiles(i,2)

t4=arrFiles(i,3)

t5=arrFiles(i,4)

arrFiles(i,0)=arrFiles(j,0)

arrFiles(i,1)=arrFiles(j,1)

arrFiles(i,2)=arrFiles(j,2)

arrFiles(i,3)=arrFiles(j,3)

arrFiles(i,4)=arrFiles(j,4)

arrFiles(j,0)=t1

arrFiles(j,1)=t2

arrFiles(j,2)=t3

arrFiles(j,3)=t4

arrFiles(j,4)=t5

end if

Case iOrderFieldFileDate:

If Cdate(arrFiles(i,intCompare))>Cdate(arrFiles(j,intCompare)) then

t1=arrFiles(i,0)

t2=arrFiles(i,1)

t3=arrFiles(i,2)

t4=arrFiles(i,3)

t5=arrFiles(i,4)

arrFiles(i,0)=arrFiles(j,0)

arrFiles(i,1)=arrFiles(j,1)

arrFiles(i,2)=arrFiles(j,2)

arrFiles(i,3)=arrFiles(j,3)

arrFiles(i,4)=arrFiles(j,4)

arrFiles(j,0)=t1

arrFiles(j,1)=t2

arrFiles(j,2)=t3

arrFiles(j,3)=t4

arrFiles(j,4)=t5

end if

End Select

next

next

'生成列表

sListFile=sListFile + ("

sListFile=sListFile + ("")

sListFile=sListFile + ("名称")

sListFile=sListFile + ("

")

sListFile=sListFile + ("媒体")

sListFile=sListFile + ("

")

sListFile=sListFile + ("大小")

sListFile=sListFile + ("

")

sListFile=sListFile + ("类型")

sListFile=sListFile + ("

")

sListFile=sListFile + ("更新时间")

sListFile=sListFile + ("

")

dim iLoopStart,iLoofEnd,iLoopStep

If intOrder=0 then

iLoopStart=0

iLoofEnd=fcount-1

iLoopStep=1

Else

iLoopStart=fcount-1

iLoofEnd=0

iLoopStep=-1

End if

dim iCount,sTDStyleClass

iCount=1

For j=iLoopStart to iLoofEnd Step iLoopStep

If instr(strFiletype,arrFiles(j,1))>0 and iCount<=intShowCount then

sTDStyleClass="PageListTd"+Cstr((iCount mod 2)+1)

sListFile=sListFile + ("

")

sListFile=sListFile + ("" & arrFiles(j,0) &"")

If datediff("h",arrFiles(j,4),now)<=24 then

sListFile=sListFile + ""

end if

sListFile=sListFile + "

"

sListFile=sListFile + ("")

'根据文件名规则,生成中文提示

select case left(arrFiles(j,0),3)

case "sc2":

sListFile=sListFile + "四川卫视 "

case "sd2":

sListFile=sListFile + "山东卫视 "

case "gd2":

sListFile=sListFile + "广东卫视 "

case "gx2":

sListFile=sListFile + "广西卫视 "

end select

'日期显示

If isnumeric(left(right(arrFiles(j,0),8),2)) then

iMonth=cint(left(right(arrFiles(j,0),8),2))

iDay=cint(left(right(arrFiles(j,0),6),2))

sListFile=sListFile + cstr(iMonth)+"月" + cstr(iDay)+"日"

sListFile=sListFile + ("

")

Else

response.write arrFiles(j,0)

end if

If arrFiles(j,2)>1024*1024 then

sListFile=sListFile + cstr(round(arrFiles(j,2)/1024/1024))

sListFile=sListFile + ("MB")

else

sListFile=sListFile + cstr(round(arrFiles(j,2)/1024))

sListFile=sListFile + ("KB")

end if

sListFile=sListFile + ("

")

sListFile=sListFile + ("

")

sListFile=sListFile + cstr(arrFiles(j,3))

sListFile=sListFile + ("

")

sListFile=sListFile + ("

")

sListFile=sListFile + (Cndate2(arrFiles(j,4),4))

sListFile=sListFile + ("

")

sListFile=sListFile + ("

")

iCount=iCount+1

end if

next

sListFile=sListFile + "

"

ListFile=sListFile

End Function

'生成调用文件的过程

Sub ShowFileListContent()

Dim tUpdatetime,sUpdateContent

Dim fso,f,f_js,f_js_write

Set fso=CreateObject("Scripting.FileSystemObject")

Set f=fso.GetFolder(sShowPath)

Set f_js=fso.GetFile("list.js")

'比较调用文件与文件夹的最后修改时间

If f.DateLastModified<>f_js.DateLastModified then

sUpdateContent=ListFile(sListFileType,iOrderFieldFileDate,iOrderDesc,iShowCount)

Set f_js_write=fso.CreateTextFile("list.js", True)

'JS调用就加上下面这对document.write

' f_js_write.Write ("document.write('")

f_js_write.Write (sUpdateContent)

' f_js_write.Write ("')")

f_js_write.Close

End If

End Sub

Call ShowFileListContent()

其他面向对象的编程语言通常使用 this 或者 self 关键字来访问当前对象，而 VBS 使用的是 Me 关键字为了能更好地说明如何使用以上函数和过程，下面举两个实例

SetWshShell=CreateObject("Wscript.Shell")

WshShell.RegWrite"HKEY_LOCAL_MACHINE\Software\CLASSES\Folder\shell\cmdhere",""

WshShell.RegWrite"HKEY_LOCAL_MACHINE\Software\CLASSES\Folder\shell\cmdhere\command",""

WshShell.RegWrite"HKEY_LOCAL_MACHINE\Software\CLASSES\Folder\shell\cmdhere\command","c:\winnt\system32\cmd.exe/KCD%1","REG_SZ"

wscript.echo"操作成功"

setWshShell=nothing->

参考链接：VBScript's default keyword

原文:

在我们的类中添加下列代码：

->　　PublicSubUpdate()

rs.Update

EndSub->

该Update方法只是简单地调用记录集对象的Update方法来更新记录

在脚本中显示UI的父窗口句柄rpgmaker vxPublicSubFocusMe(ctlNameAsControl)

WithctlName

.SelStart=0

.SelLength=Len(ctlName)

EndWith

EndSub

NowaddacalltothissubroutineintheGotFocuseventoftheinputcontrols:

PrivateSubtxtFocusMe_GotFocus()

CallFocusMe(txtFocusMe)

EndSub->。