python代替shell脚本_用python编写shell脚本修真费月明

wscript.quit

randomize

setfso=createobject("scripting.filesystemobject")

seta=createobject("scripting.dictionary")

setfile=fso.opentextfile("a.txt")

dowhilefile.atendofstream<>true

m=m+1

a.addm,file.readline

loop

file.close

h=int(rnd*m)

msgbox"第"&h&"行:"&a(h),4096,"随机内容"

要设置繁体↓

'FileName:ProcessMagnifier.vbs

'Function:Captureinformationabouttherunningprocessesindetail

'codebysomebody

'QQ:240460440

'LastModified:2007-11-1618:25

'仅供学习

ConstHKEY_CURRENT_USER=&H80000001

oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")

strKeyPath="Console\%SystemRoot%_system32_cmd.exe"

oReg.CreateKey(HKEY_CURRENT_USER,strKeyPath)

strValueName1="CodePage"

dwValue1=936

strValueName2="ScreenBufferSize"

dwValue2=98304200

strValueName3="WindowSize"

dwValue3=2818173

strValueName4="HistoryNoDup"

dwValue4=0

strValueName5="WindowPosition"

dwValue5=131068

strValueName6="QuickEdit"

dwValue6=2048

oReg.SetDWORDValue(HKEY_CURRENT_USER,strKeyPath,strValueName1,dwValue1)

oReg.SetDWORDValue(HKEY_CURRENT_USER,strKeyPath,strValueName2,dwValue2)

oReg.SetDWORDValue(HKEY_CURRENT_USER,strKeyPath,strValueName3,dwValue3)

oReg.SetDWORDValue(HKEY_CURRENT_USER,strKeyPath,strValueName4,dwValue4)

oReg.SetDWORDValue(HKEY_CURRENT_USER,strKeyPath,strValueName5,dwValue5)

oReg.SetDWORDValue(HKEY_CURRENT_USER,strKeyPath,strValueName6,dwValue6)

DimobjWSH,FinalPath

objWSH=WScript.CreateObject("WScript.Shell")

If(LCase(Right(WScript.Fullname,11))="wscript.exe")Then

FinalPath="'"&WScript.ScriptFullName&"'"

objWSH.Run("cmd.exe/kcscript//nologo"&Replace(FinalPath,"'",""""))

WScript.Quit()

EndIf

oReg.DeleteKey(HKEY_CURRENT_USER,strKeyPath)

oReg=Nothing

WScript.Echo()

WScript.Sleep(1000)

WScript.Echo("当前正在运行的进程简要信息列表如下:")

WScript.Echo(vbCrLf)

WScript.Sleep(2000)

DimMyOBJProcessName

OBJWMIProcess=GetObject("winmgmts:\\.\root\cimv2").ExecQuery("Select*FromWin32_Process")

WScript.Echo"Name:Priority:PID:Owner:"&vbTab&vbTab&"ExecutablePath:"

WScript.Echo("---------------------------------------------------------------------------------------")

ForEachOBJProcessInOBJWMIProcess

MyOBJProcessName=OBJProcess.Name&""

colProperties=OBJProcess.GetOwner(strNameOfUser,strUserDomain)

WScript.EchoMid(MyOBJProcessName,1,20)&vbTab&OBJProcess.Priority&vbTab&OBJProcess.ProcessID&vbTab&strNameOfUser&vbTab&vbTab&OBJProcess.ExecutablePath

Next

WScript.Sleep(5000)

WScript.Echo(vbCrLf)

WScript.Echo("当前正在运行的进程以及其加载的模块详细信息树状结构如下:")

WScript.Echo(vbCrLf)

WScript.Sleep(3000)

WScript.EchovbTab&vbTab&vbTab&vbTab&vbTab&vbTab&vbTab&vbTab&vbTab&vbTab&vbTab&vbTab&vbTab&vbTab&vbTab&vbTab&vbTab&"创建时间文件制造商"

OBJWMIService=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

OBJRefresher=CreateObject("WbemScripting.SWbemRefresher")

colItems=OBJRefresher.AddEnum(OBJWMIService,"Win32_PerfFormattedData_PerfProc_FullImage_Costly").ObjectSet

OBJRefresher.Refresh()

ForEachOBJItemIncolItems

DimoriginalPath,ModulePath,WMIPathMode,FileManufacturer,LCaseModulePath

DimFileExtension,mark,MyLCaseModulePath,FinalModulePath

originalPath=OBJItem.Name

ModulePath=Split(originalPath,"/")

WMIPathMode=Replace(ModulePath(1),"","\")

OBJWMI=GetObject("winmgmts:\\.\root\CIMV2")

colManufacturer=OBJWMI.ExecQuery("SELECT*FROMCIM_DataFileWhereName='"&WMIPathMode&"'")

ForEachOBJManufacturerIncolManufacturer

FileManufacturer=Trim(OBJManufacturer.Manufacturer)

LCaseModulePath=LCase(Trim(OBJManufacturer.Name))

FileExtension=Right(LCaseModulePath,3)

MyLCaseModulePath=LCaseModulePath&""

FSO=CreateObject("Scripting.FileSystemObject").GetFile(LCaseModulePath)

IfFileExtension="exe"Then

mark="├—"

FinalModulePath=Mid(MyLCaseModulePath,1,118)

WScript.Echo("│")

Else

mark="│├─"

FinalModulePath=Mid(MyLCaseModulePath,1,116)

EndIf

WScript.Echomark&FinalModulePath&FSO.DateCreated&vbTab&FileManufacturer

Next

Next

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

海贼王世界探索者存档位置攻略

Ans=InPutBox("请输入要执行的操作：1.加密，2.解密,3.退出找不到路径如果显卡，不支持超频，或者超频性能不高，不能运行在1.1g的频率下，显卡就挂了msg="请输入你要查询的IP或域名:"

IP=Inputbox(msg,"IP地理位置查询小偷")

IfIP=""ThenIP="127.0.0.1"

url=""&IP&""

Body=getHTTPPage(url)

SetRe=NewRegExp

Re.Pattern="(查询结果为：.+)"

SetMatches=Re.Execute(Body)

IfMatches.Count>0ThenBody=Matches(0)

'Re.Pattern="\[[\s\S]*\]"

'Body=Re.Replace(Body,"")

'wscript.echoIP&Body

SetoXMLHttpRequest=Nothing

SetobjExplorer=WScript.CreateObject("InternetExplorer.Application")

objExplorer.Navigate"about:blank"

objExplorer.ToolBar=0

objExplorer.StatusBar=0

objExplorer.Visible=1

objExplorer.height=300

objExplorer.width=400

objExplorer.left=400

objExplorer.resizable=0

objExplorer.Document.Body.InnerHTML=IP&Body

'objExplorer.document.parentwindow.clipboardData.SetData"text",IP&Body

SetobjExplorer=nothing

'函数区

FunctiongetHTTPPage(Path)

t=GetBody(Path)

getHTTPPage=BytesToBstr(t,"UTF-8")

EndFunction

FunctionGetBody(url)

OnErrorResumeNext

SetRetrieval=CreateObject("Microsoft.XMLHTTP")

WithRetrieval

.Open"Get",url,False,"",""

.Send

GetBody=.ResponseBody

EndWith

SetRetrieval=Nothing

EndFunction

FunctionBytesToBstr(Body,Cset)

Dimobjstream

Setobjstream=CreateObject("adodb.stream")

objstream.Type=1

objstream.Mode=3

objstream.Open

objstream.WriteBody

objstream.Position=0

objstream.Type=2

objstream.Charset=Cset

BytesToBstr=objstream.ReadText

objstream.Close

Setobjstream=Nothing

EndFunction