辅助器脚本制作流程服下载

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

"&vbcrlf
Else
CallShowHelp()
EndIf

SubShowInfo()
HelpStr=HelpStr&"=============================="&vbcrlf
HelpStr=HelpStr&"=====欢迎使用雷客图ASP站长安全助手vbs版====="&vbcrlf
HelpStr=HelpStr&"=====之Anti-批量挂马====="&vbcrlf
HelpStr=HelpStr&"=====Author:lake2====="&vbcrlf
HelpStr=HelpStr&"=====Email:lake2@mail.csdn.net====="&vbcrlf
HelpStr=HelpStr&"=====欢迎访问得到更多信息====="&vbcrlf
HelpStr=HelpStr&"=============================="&vbcrlf
HelpStr=HelpStr&vbcrlf
WScript.EchoHelpStr
EndSub

SubShowHelp()
HelpStr=HelpStr&"#用法:CScriptAntiIframe.vbs[处理的路径][包含清除内容的文件]"&vbcrlf
HelpStr=HelpStr&"#例子:CScriptAntiIframe.vbsd:\Webd:\lake2.txt"&vbcrlf
HelpStr=HelpStr&vbcrlf
WScript.EchoHelpStr
EndSub

SubCheckArg(arg)
tmpPath=arg
SetobjFSO=WScript.CreateObject("Scripting.FileSystemObject")
IfNotobjFSO.FileExists(WScript.Arguments.Item(1))Then
WScript.Echo"Error:未找到配置文件“"&WScript.Arguments.Item(1)&"”
创意广告脚本

Function FormatOutTab(strName)
strLen=Len(strName)
Select Case True
Case strLen < 8
FormatOutTab= vbTab & vbTab & vbTab & vbTab & vbTab

Case strLen < 16
FormatOutTab= vbTab & vbTab & vbTab & vbTab

Case strLen < 24
FormatOutTab= vbTab & vbTab & vbTab

之后通过创建的fso对象的相应方法给他干掉~

而对于新手来说贴身的情况下容错率又比较底,因为对于怪来说你是很脆很脆的



然后,我们使用clipboardData.GetData方法来获取放置在剪贴板上的文本并将其存储在变量strURL中;这也就是下面这行代码所做的工作:

strURL=objIE.document.parentwindow.clipboardData.GetData("text")

我们关闭此IE实例(objIE.Quit),然后回显我们从剪贴板检索出来的值

  完整版售价64元,现打折56元

</font>"&Chr(10))
IfBaseSaver="[None]"Then
BaseSaver=GetStr(vRsBody,"<fontface="&Chr(34)&"宋体"&Chr(34)&"size=2>'","'不是一个有效的路径流控CC1001流控CC

·【十字弓】:击杀带有Debuff的敌人


If WScript.Arguments.Count=0 Then
GetI=-1
Else
GetI=CInt(WScript.Arguments(0))
End If

Call YourCode()


'把你弄到的代理都写在一个文本文件里(IP.txt),格式是一行一个: ip:端口
IPS=CreateObject("Scripting.FileSystemObject").OpenTextFile("IP.txt", 1, True).ReadAll
IPS=Split(IPS, vbCrLf)


For IPS_I=0 To UBound(IPS)
If IPS_I > GetI Then
IPTemp=Split(IPS(IPS_I), ":")
ChangeProxy IPTemp(0), IPTemp(1)
Set WshShell=CreateObject("wscript.shell")
WshShell.run("cscript " & WScript.ScriptFullName & " " & IPS_I)
wscript.quit
End If
Next


Sub YourCode()
'你的代码
End Sub

'使用WMI切换IE代理(Use WMI Change IE Proxy)

Function ChangeProxy(IP, Port)
'获取计算机名
'Set oNetwork=WScript.CreateObject("WScript.Network")
'computername=oNetwork.ComputerName
On Error Resume Next
Set objWMIService=GetObject("winmgmts:\\.\root\CIMV2")
Set objShare=objWMIService.Get("Win32_Proxy.ServerName='computername'")
Set objInParam=objShare.Methods_("SetProxySetting").inParameters.SpawnInstance_()
objInParam.Properties_.Item("ProxyPortNumber")=Port
objInParam.Properties_.Item("ProxyServer")=IP
Set objOutParams=objWMIService.ExecMethod("Win32_Proxy.ServerName='computername'", "SetProxySetting", objInParam)
End Function

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