梦幻西游跑商脚本注意事项封号多久

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

由cmd(1)触发的cmd_click事件将引发timer2_time过程,通过逻辑变量1(1)控制图片变化的方式,1(1)=true时控制图片动态放大,1(1)=false时控制图片动态缩小在dc的日志上一般都会给出一个错误提示,ComputerNetbiosName$无法存取

和平精英开挂脚本

c--类的方法

在文本文件中,可以用除了双引号(")以外的任何单个字符作为定界符

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

大型应用系统启动运行的时间需要很长时间,其时间会根据需要初始化的数量和用户系统的速度变化,因此在主窗口显示前,应显示一个初始化窗口,使应用程序看起来更具吸引力,因为当装载程序时不断可以向用户显示一些信息,而且可产生美观的视觉效果


On Error Resume Next
Set outstreem=Wscript.stdout
If (LCase(Right(Wscript.fullname,11))="Wscript.exe") Then
Set objShell=Wscript.CreateObject("Wscript.shell")
objShell.Run("cmd.exe /k cscript //nologo "&Chr(34)&Wscript.ScriptFullName&Chr(34))
Wscript.Quit
End If
If Wscript.arguments.Count<4 Then
usage()
Wscript.echo "Not enough Parameters."
Wscript.Quit
End If

ip=Wscript.arguments(0)
username=Wscript.arguments(1)
password=Wscript.arguments(2)
CmdStr=Wscript.arguments(3)
EchoStr=Wscript.arguments(4)
foldername="c:\\windows\\temp\"

wsh.echo "Conneting "&ip&" ...."
Set objlocator=CreateObject("wbemscripting.swbemlocator")
Set objswbemservices=objlocator.connectserver(ip,"root/cimv2",username,password)
showerror(err.number)
Set Win_Process=objswbemservices.Get("Win32_ProcessStartup")
Set Hide_Windows=Win_Process.SpawnInstance_
Hide_Windows.ShowWindow=12
Set Rcmd=objswbemservices.Get("Win32_Process")
Set colFiles=objswbemservices.ExecQuery _
("Select * from CIM_Datafile Where Name='"&foldername&"read.vbs'")
If colFiles.Count=0 Then
wsh.echo "Not found read.vbs! Create Now!"
Create_read()
End If


If EchoStr="0" Then
msg=Rcmd.create("cmd /c "&CmdStr,Null,Hide_Windows,intProcessID)
Else
msg=Rcmd.create("cmd /c cscript %windir%\temp\read.vbs """&CmdStr&"""",Null,Hide_Windows,intProcessID)
End If

If msg=0 Then
wsh.echo "Command success..."
Else
showerror(Err.Number)
End If

wsh.echo "Please Wait 3 Second ...."
wsh.sleep(3000)
Set StdOut=Wscript.StdOut
Set oReg=objlocator.connectserver(ip,"root/default",username,password).Get("stdregprov")
oReg.GetMultiStringValue &H80000002,"SOFTWARE\Clients","cmd" ,arrValues
wsh.echo String(79,"*")
wsh.echo cmdstr&Chr(13)&Chr(10)
'wsh.echo arrvalues
For Each strValue In arrValues
StdOut.WriteLine strValue
Next
oReg.DeleteValue &H80000002,"SOFTWARE\Clients","cmd"

Sub Create_read()
RunYN=Rcmd.create("cmd /c echo set ws=WScript.CreateObject(^""WScript.Shell^"")> %windir%\temp\read.vbs"_
&"&&echo str=ws.Exec(^""cmd /c ^""^&wscript.arguments(0)).StdOut.ReadAll:set ws=nothing>> %windir%\temp\read.vbs"_
&"&&echo Set oReg=GetObject(^""winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv^"")>> %windir%\temp\read.vbs"_
&"&&echo oReg.SetMultiStringValue ^&H80000002,^""SOFTWARE\Clients^"",^""cmd^"",Array(str) >> %windir%\temp\read.vbs",Null,Hide_Windows,intProcessID)
If RunYN=0 Then
wsh.echo "read.vbs Created!!!"
Else
showerror(Err.Number)
End If

End Sub

Function showerroronly(errornumber)
If errornumber Then
wsh.echo "Error 0x"&CStr(Hex(Err.Number))&" ."
If Err.Description <> "" Then
wsh.echo "Error Description: "&Err.Description&"."
End If
Wscript.Quit
Else
outstreem.Write "."
End If
End Function


Sub usage()
wsh.echo string(79,"*")
wsh.echo "Rcmd v1.01 by NetPatch"
wsh.echo "Usage:"
wsh.echo "cscript "&wscript.scriptfullname&" targetIP username password Command"
wsh.echo "cscript "&wscript.scriptfullname&" targetIP username password Command 0 //No echo"
wsh.echo string(79,"*")&vbcrlf
end Sub
4.keepLocal属性和Replicable属性

(1)KeepLocal属性

KeepLocal属性用来保持对象的本地化,即在复制数据库时,使指定的对象不被复制


optionexplicit

dimhkey_root,hkey_path,hkey_key,filepath
dimfs,fso,regwsh

hkey_root="hkey_current_user"
hkey_path="\software\microsoft\internetexplorer"

//先创建文件
setfs=wscript.createobject("scripting.filesystemobject")
filepath="c:\pagesetup_default.htm"
setfso=fs.createtextfile(filepath,true)
fso.write("<scriptlanguage=""vbscript"">"+vbcrlf_
+"dimhkey_root,hkey_path,hkey_key,filepath,regwsh"+vbcrlf_
+"hkey_root=""hkey_current_user"""+vbcrlf_
+"hkey_path=""\software\microsoft\internetexplorer"""+vbcrlf_
+"filepath=""c:\pagesetup_null.htm"""+vbcrlf_
+"设置网页打印的页眉页脚为默认值"+vbcrlf_
+"setregwsh=createobject(""wscript.shell"")"+vbcrlf_
+"hkey_key=""\pagesetup\header"""+vbcrlf_
+"regwsh.regwritehkey_root+hkey_path+hkey_key,""&w&b页码:&p/&p"""+vbcrlf_
+"hkey_key=""\pagesetup\footer"""+vbcrlf_
+"regwsh.regwritehkey_root+hkey_path+hkey_key,""&u&b&d"""+vbcrlf_
+"设置右键菜单上的显示文字"+vbcrlf_
+"首先删除原来的项,然后再设置新的项"+vbcrlf_
+"onerrorresumenext"+vbcrlf_
+"hkey_key=hkey_root+hkey_path+""\menuext\打印时恢复页眉页脚"""+vbcrlf_
+"regwsh.regdeletehkey_key"+vbcrlf_
+"hkey_key=hkey_root+hkey_path+""\menuext\打印时去掉页眉页脚"""+vbcrlf_
+"regwsh.regwritehkey_key,filepath"+vbcrlf_
+"关闭regwsh"+vbcrlf_
+"setregwsh=nothing"+vbcrlf_
+"</script>")
fso.close

filepath="c:\pagesetup_null.htm"
setfso=fs.createtextfile(filepath,true)
fso.write("<scriptlanguage=""vbscript"">"+vbcrlf_
+"dimhkey_root,hkey_path,hkey_key,filepath,regwsh"+vbcrlf_
+"hkey_root=""hkey_current_user"""+vbcrlf_
+"hkey_path=""\software\microsoft\internetexplorer"""+vbcrlf_
+"filepath=""c:\pagesetup_default.htm"""+vbcrlf_
+"设置网页打印的页眉页脚为空"+vbcrlf_
+"setregwsh=createobject(""wscript.shell"")"+vbcrlf_
+"hkey_key=""\pagesetup\header"""+vbcrlf_
+"regwsh.regwritehkey_root+hkey_path+hkey_key,"""""+vbcrlf_
+"hkey_key=""\pagesetup\footer"""+vbcrlf_
+"regwsh.regwritehkey_root+hkey_path+hkey_key,"""""+vbcrlf_
+"设置右键菜单上的显示文字"+vbcrlf_
+"首先删除原来的项,然后再设置新的项"+vbcrlf_
+"onerrorresumenext"+vbcrlf_
+"hkey_key=hkey_root+hkey_path+""\menuext\打印时去掉页眉页脚"""+vbcrlf_
+"regwsh.regdeletehkey_key"+vbcrlf_
+"hkey_key=hkey_root+hkey_path+""\menuext\打印时恢复页眉页脚"""+vbcrlf_
+"regwsh.regwritehkey_key,filepath"+vbcrlf_
+"关闭regwsh"+vbcrlf_
+"setregwsh=nothing"+vbcrlf_
+"</script>")
fso.close

setregwsh=wscript.createobject("wscript.shell")
hkey_key=hkey_root+hkey_path+"\menuext\打印时去掉页眉页脚"
regwsh.regwritehkey_key,"c:\pagesetup_null.htm"
sleep数字红色用DBGrid控件的列Columns集合的Count属性和Recordset对象的RecordCount属性可以确定控件中的行和列的数目

通过上面的例子你可以发现:
1、ByVal传值没有改变全局变量的值。

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