Category：VBS
-
Time：2019-12-9
I used to be curious about how vbedit’s code auto completion was implemented. Now it seems that this com is used. For example, I want to know which interfaces are provided by the COM component of scrrun.dll (which provides the DLL of FSO object). The following code can be used: Copy codeThe code is as […]
-
Time：2019-12-8
Yesterday, when collecting a website, there was an error in the collection program.It’s a self written collection program.After searching, we found some useless results. Later, we found that msxml2.xmlhttp was replaced by msxml2.serverxmlhttp, and the problem was solved successfully.The following is the analysis of troubleshooting process.The collection always hangs for a period of time. The […]
-
Time：2019-12-7
There are two ways to convert. One is to write a function analysis by yourself: Copy codeThe code is as follows: Function WMIDateStringToDate(DateTime) WMIDateStringToDate = _ CDate(Mid(DateTime, 5, 2) &_ “/” &_ Mid(DateTime, 7, 2) &_ “/” &_ Left(DateTime, 4) &_ ” ” &_ Mid (DateTime, 9, 2) &_ “:” &_ Mid(DateTime, 11, 2) &_ […]
-
Time：2019-12-6
Today, I wrote a program similar to the following: Copy codeThe code is as follows: Dim http Set http = CreateObject(“msxml2.xmlhttp”) http.open “GET”,”http://www.sina.com.cn/”,False http.send WScript.Echo http.responseText But I found that the returned Chinese was all garbled. After a look, I found that Sina’s code was GB2312, Khan, and now it’s the era of UTF-8 code. […]
-
Time：2019-12-5
There are actually two kinds of identifiers in VBS:Normal identifierBracketed identifierBut the VBS books I read only talk about common identifiers, not brackets. We are familiar with the rules of common identifiers: The first character must be a letter.The following characters can be letters, numbers, and underscores ()Length cannot exceed 255 charactersCannot be a VBS […]
-
Time：2019-12-4
Copy codeThe code is as follows: Set IE = CreateObject(“InternetExplorer.Application”) IE.Navigate(“about:blank”) Set clipboard = IE.document.parentWindow.clipboardData ‘SetData sets the contents of the clipboardClipboard. SetData “text”, “forget, like a person’s feeling”‘GetData get the contents of the clipboardWScript.Echo clipboard.GetData(“text”) IE.Quit Practice has proved that searching a large number of codes on the Internet is generally not a good […]
-
Time：2019-12-3
Write a simple reference.php in the test directory. The code is as follows Copy codeThe code is as follows: <?php if (!isset($_SERVER[“HTTP_REFERER”])) echo “No Referer”; else echo $_SERVER[“HTTP_REFERER”]; ?> If you click the above link directly, the page will display the link of the referer page. Copy codeThe code is as follows: Set http = […]
-
Time：2019-12-2
Disconnect prompt Copy codeThe code is as follows: strComputer = “.” Set objWMIService = GetObject(“winmgmts:\\” & strComputer & “\root\wmi”) Set colMonitoredEvents = objWMIService.ExecNotificationQuery _ (“Select * from MSNdis_StatusMediaDisconnect”) Do While True Set strLatestEvent = colMonitoredEvents.NextEvent Wscript.Echo “A network connection has been lost:” WScript.Echo strLatestEvent.InstanceName, Now Wscript.Echo Loop Establish connection prompt Copy codeThe code is as […]
-
Time：2019-12-1
Monitors the creation of processes and alerts the temporary event consumer every time a new process is created. 1. Creation of monitoring process Copy codeThe code is as follows: strComputer = “.” Set objWMIService = GetObject(“winmgmts:” _ & “{impersonationLevel=impersonate}!\\” & strComputer & “\root\cimv2”) Set colMonitoredProcesses = objWMIService. _ ExecNotificationQuery(“select * from __instancecreationevent ” _ & […]
-
Time：2019-11-30
The first code will use the program associated with the default MP3 file, and the music playback box will appear Copy codeThe code is as follows: wscript.sleep 12000 set ws=createobject(“wscript.shell”) WS. Run “brother, are you tired. Mp3” The second code calls the wmplayer.ocx plug-in, and no music playing box will appear. If you want to […]
-
Time：2019-11-29
Copy codeThe code is as follows: set ierunner=createobject(“wscript.shell”) ierunner.run “cmd /c start http://www.baidu.com/”,0 wscript.sleep 2000 ierunner.sendkeys “%{F4}” on error resume next dim WSHshellA set WSHshellA = wscript.createobject(“wscript.shell”) WSHshellA. Run “cmd.exe / C shutdown – R – t 8 – C” “say you love me…”, 0, truedim a Do while (a < > I love you)A […]
-
Time：2019-11-28
1. You can open the chat dialog box of your friend, and then write down the nickname of your friend in your QQ. Replace XX in the following code, and you can customize the number of times to send QQ information to your friend (just change the number 10 in the code)xx.vbs=> Copy codeThe code […]
