On Error Resume Next Set Arg=Wscript.arguments If Arg.count=0 then Wscript.quit '------------------- 'Enjoy it 'Code By NetPatch '------------------- fname=InputBox("請輸入要ECHO的路徑):","輸入檔案名稱","%systemroot%/system32/webdl.vbs") Set
Tr4c3:為了方便在dos下使用,我把inputbox改成了args。 複製代碼 代碼如下:'Program By xiaolu 'name:file2vbs.vbs On error resume next Set Args = Wscript.Arguments If Args.length<>2 Then Wscript.Echo "Usage:" & Wscript.ScriptName & " c:\muma.exe c:\muma.vbs"
使用方法'use:cscript this.vbs > dic.txt 把下面的代碼儲存為this.vbs 複製代碼 代碼如下:a=Array(1,2,3,4,"a") Function js1(n) for i=1 to n f=f&"f"&i&"&" s=s&"For Each f"&i &" In a :wscript.echo "& f s=Mid(S,1,Len(S)-1)&":" Next
批處理的要求是:隨機顯示的數字為(6,7,8,9,10,11,12,14,15,16,17)為其中的一個 註:裡面沒有13的 下面的兩個代碼,第一個出錯,第二個卻成功了,但他們的區別只是第一個(%random%)%%(%n%)+1運算後的值賦予%tn%,而第二個則將運算後的值繼續賦予%n%…… 複製代碼 代碼如下:@echo off set "string=6 7 8 9 10 11 12 14 15 16 17" for %%i in (%string%) do call set /a "
Path = Trim(Request("path")) '擷取使用者提交的路徑 FileID = Trim(Request("FileID")) If FileID ="" And Path = "" Then Response.Write "參數不足" Response.End End If ... If CheckDownLoad Or 1= 1Then If Path = "" Then set rs =
1、任意檔案下載漏洞. 漏洞檔案: ViewFile.asp Function ChkFile(FileName) Dim Temp,FileType,F ChkFile=false FileType=Lcase(Split(FileName,".")(ubound(Split(FileName,".")))) Temp="|asp|aspx|cgi|php|cdx|cer|asa|" If Instr(Temp,"|"&FileType"|")>0 Then
'============================================ 'code by lcx 修改網上原有的一個小程式,不知作者,那個程式沒有對目錄實現遞迴尋找 '將本程式放在你要尋找的目錄下,或把尋找的目錄拖到此指令碼上,估計還有bug '======================================================================================= On Error Resume next Do