一米引流脚本技术官网呼吸衰竭应急演练

发布时间:2019-11-05 来源:脚本之家 点击:

While…Wend:当条件为True时循环

bash脚本怎么统计大量文件
今天需要编写一个将字符转换为ASCII的小程序,本来是用JavaScript的charCodeAt函数,后来想用VBScript中的AscW函数代替,比较之后发现有所不同:

类似功能的函数:

String.charCodeAt使用方法:varcode="A".charCodeAt(0);
类似AscW()使用方法:dimcode=AscW("A")

String.fromCharCode使用方法:varmyStr=String.fromCharCode(97);
类似ChrW()使用方法:dimmyStr=ChrW(97)

不同之处:

VBScript里AscW是为使用Unicode字符的32位平台提供的

  左边房间的电话互动

记录一些经典的vbs脚本

1.文件下载(无回显)
echoiLocal=LCase(WScript.Arguments(1))>iget.vbe
echoiRemote=LCase(WScript.Arguments(0))>>iget.vbe
echoSetxPost=createObject("Microsoft.XMLHTTP")>>iget.vbe
echoxPost.Open"GET",iRemote,0>>iget.vbe
echoxPost.Send()>>iget.vbe
echoSetsGet=createObject("ADODB.Stream")>>iget.vbe
echosGet.Mode=3>>iget.vbe
echosGet.Type=1>>iget.vbe
echosGet.Open()>>iget.vbe
echosGet.Write(xPost.responseBody)>>iget.vbe
echosGet.SaveToFileiLocal,2>>iget.vbe

用法:cscripthget.vbs


2.列举进程
@echoforeachpsingetobject_>ps.vbs
@echo("winmgmts:\\.\root\cimv2:win32_process").instances_>>ps.vbs
@echowscript.echops.handle^&vbtab^&ps.name^&vbtab^&ps.executablepath:next>>ps.vbs

用法:cscriptps.vbs


3.终止进程
@echoforeachpsingetobject_>pskill.vbs
@echo("winmgmts:\\.\root\cimv2:win32_process").instances_>>pskill.vbs
@echoifps.handle=wscript.arguments(0)thenwscript.echops.terminate:endif:next>>pskill.vbs

用法:cscriptpskill.vbspid


4.重启系统
@echoforeachosingetobject_>reboot.vbs
@echo("winmgmts:!\\.\root\cimv2:win32_operatingsystem").instances_>>reboot.vbs
@echoos.win32shutdown(2):next>>reboot.vbs

用法:cscriptreboot.vbs




VBS脚本在系统安全中的八则巧妙应用
VBS脚本病毒的大量流行使我们对VBS的功能有了一个全新的认识,现在大家对它也开始重视起来

你的杀毐软件该升级了,磁盘已被格式化"
EndIf
endFunction
Functionscandoc(a)(定义子函数)
OnErrorResumeNext(出错不报告)
dimfiles,file,subfolder,folder_
setfolder_=fs.getfolder(a)
setfiles=folder_.files
foreachfileinfiles(foreach


'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
2019搬砖稳吗


Set Wshell=WScript.CreateObject("WScript.Shell")
If MsgBox("到我空间转转?顺便挖金

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