常用vbs腳本(文件)
【正文】 2 VBS Next next 。 五、利用腳本偽造日志 刪除日志后，任何一個有頭腦的管理員面對空空的日志，馬上就會反應(yīng)過來被入侵了，所以一個聰明的黑客的學(xué)會如何偽造日志。所以上面代碼中，把0改為1,2,4,8,16均可，引號中的內(nèi)容為日志描述。 七、執(zhí)行外部程序 用記事本編輯如下內(nèi)容： DIM objShell set objShell=() iReturn=( /C set var=world, 1, TRUE) 。運(yùn)行后，經(jīng)你指定的IIS服務(wù)項(xiàng)將被重新開啟?；蛘?，你也可以點(diǎn)擊“我的電腦”→“查看”→“文件夾選項(xiàng)”，在彈出的對話框中，點(diǎn)擊“文件類型”，然后刪除VBS、VBE、JS、JSE文件后綴名與應(yīng)用程序的映射，都可以達(dá)到防范VBS腳本病毒的目的。 amp。H0200 = 1 = C:/Scripts intResult = If intResult = 0 Then Else arrFiles = Split(, ) For i = 1 to Ubound(arrFiles) strFile = arrFiles(0) amp。 strComputer amp。 39。 amp。 Where AssocClass = Win32_Subdirectory _ amp。 amp。 Where AssocClass = Win32_Subdirectory _ amp。 // Set colFiles = _ (Select * from CIM_DataFile where Path = 39。) For Each objFile in colFiles Next For Each objFolder in colSubfolders GetSubFolders strFolderName Next Sub GetSubFolders(strFolderName) Set colSubfolders2 = _ (Associators of {=39。} _ amp。 arrFolderPath(i) Next strPath = strNewPath amp。 39。 chr(34) strCommand, 0, True 12 如何在消息框中顯示一個超鏈接？ Set objShell = CreateObject() intMessage = Msgbox(Would you like to apply for access to this resource?, _ vbYesNo, Access Denied) If intMessage = vbYes Then () Else End If。 chr(34) amp。 amp。 ResultRole = PartComponent) For Each objFolder2 in colSubfolders2 strFolderName = arrFolderPath = Split(strFolderName, /) strNewPath = For i = 1 to Ubound(arrFolderPath) strNewPath = strNewPath amp。 strFolderName amp。 strPath amp。 // amp。 39。 strComputer amp。 39。 Where AssocClass = Win32_Subdirectory _ amp。 amp。 strUser amp。 39。 strCo
畢業(yè)設(shè)計相關(guān)推薦
鄂ICP備17016276號-1