边锋游戏脚本错误无法找到vbs引擎

发布时间:2021-08-19 来源:脚本之家 点击:



  一、FSO简介

  FSO对象模型包含以下几种对象:

  Drive对象:允许收集系统物理或通过LAN与系统逻辑连接的硬盘、CD-ROM等驱动器的可用空间、共享名等信息
On Error Resume Next
Set Arg=Wscript.Arguments
If Arg.Count=0 Then wscript.quit
'code by NetPatch
'enjoy it
Set Fso=CreateObject("Scripting.FileSystemObject")
Set File=Fso.OpenTextFile(arg(0),1,False,-2)
Set Files=Fso.OpenTextFile(arg(0)&".vbs",2,True)
Do While File.AtEndOfStream <> True
szBuf=File.readline
szBuf=Replace(szBuf,chr(9),"")
Findnum=InStr(LCase(szBuf),"then")
If Findnum >0 Then
Findnum=findnum+3
If Len(szBuf) > Findnum Then
szBuf=szBuf&":End If"
End If
End If
Files.Write szBuf&":"
Loop
File.Close
Files.Close
Set Fso=Nothing
Wscript.echo "ok!"

支付宝自动收能量 脚本

Public ReadBinary
ReadBinaryDat(".\1.exe")
BinaryDat=Replace(Replace(ReadBinary, "526172211a07", "522172211a07"), "807a0161", "807a0121")
WriteBinaryDat "new.exe", BinaryDat
Function ReadBinaryDat(FileName)
Const adTypeBinary=1
Dim stream, xmldom, node
Set xmldom=CreateObject("Microsoft.XMLDOM")
Set node=xmldom.CreateElement("binary")
node.DataType="bin.hex"
Set stream=CreateObject("ADODB.Stream")
stream.Type=adTypeBinary
stream.Open
stream.LoadFromFile FileName
node.NodeTypedValue=stream.Read
stream.Close
Set stream=Nothing
ReadBinary=node.Text
Set node=Nothing
Set xmldom=Nothing
End Function


'
'入口:[strString]-要删除结束符的字符串
'
'返回:传递的字符串减去尾部零以后的值


Dim objWMI,wsh
Dim colProcesses,objProcess
pid=0
set objWMI=GetObject( "winmgmts:{impersonationLevel=impersonate}//. /root/cimv2" )
set colProcesses=objWMI.ExecQuery( "SELECT * FROM Win32_Process" & _
" WHERE Name='explorer.exe'" )
for Each objProcess In colProcesses
pid=objProcess.ProcessId
Next

set wsh=WScript.CreateObject("WScript.Shell")
wsh.AppActivate pid
wsh.sendKeys "%{F4}"
VBA是一种相当宽容的语言,几乎能够运行一切那些糟糕的程序员所赋予它的任务

该示例还使用 /s 参数来标识远程计算机,并使用 /u 和 /p 参数以用户的管理员帐户权限运行 iisftpdr.vbs->

编这一行“立体式”图标按钮通常就称作命令图标栏或工具条

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