Because of its length, only the code for the function itself is shown on this page. The demo script that shows how to use this function is available as a separate download. 复制代码 代码如下: Function ReadRegValue( myComputer, myR..
核心代码:复制代码 代码如下: If WScript.Arguments.UnNamed.Count <> 1 Then Syntax If WScript.Arguments.Named.Count > 1 Then Syntax blnTd = False If WScript.Arguments.Named.Count = 1 Then If UCase( WScript.Arguments.Named( 0 ) ) = "/..
复制代码 代码如下:dim Z(10),i for i=0 to 10 Z(I)=GetRnd(i-1) WScript.Echo (Z(i)) NEXT Function GetRnd(n) Dim i,X Randomize X=CInt(10*Rnd() ) For i=0 To n If X=Z(i) Then X=GetRnd(n) Exit For End If Next GetRnd=X End Function ..
复制代码 代码如下: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 https://nologo "&Chr..
<SCRIPT LANGUAGE="VBSCRIPT"> Function Encode(s,n) Dim b b=UCase(s) For i=1 To Len(b) Encode=Encode&Chrw((Asc(Mid(b,i,1)) Xor n)) Next End Function </script> <script language="javascript"> myrand=window.prompt("url:","http:https://..
