Tag：vbs
-
Time：2021-6-14
Under the command line: Copy codeThe code is as follows: mshta javascript:window.execScript(“msgBox(‘hello youniao’):window.close”,”vbs“); mshta vbscript:window.execScript(“alert(‘hello youniao’);”,”javascript”)
-
Time：2021-5-5
Sample batch: test.bat Copy codeThe code is as follows: :On Error Resume Next Sub bat echo off & cls echo Batching_codez_here_following_vbs_rules & pause start wscript -e:vbs “%~f0” Exit Sub End Sub MsgBox “This is vbs” The above code is cleverly used bat and vbs Syntax features that allow the same file to be cmd.exe Identify batch processing, let wscrpt.exe Identified as VBS, […]
-
Time：2021-4-22
Author: slightboySee a lot of students are using string to judge the permissions, and then split or intercept As a matter of fact, it’s very appropriate to use logical operation to allow / disallow (true / false) permissions The statement is as follows: This article is aimed at the students who are beginners and […]
-
Time：2021-3-16
Class ArrayList Private items() Private size Private Sub Class_Initialize size = 0 ReDim items(1) End Sub Private Sub Class_Terminate items = null End Sub Public Function Add(ByVal value) If (size = Ubound(items)) Then EnsureCapacity((size + 1)) items(size) = value size = size + 1 Add = size End Function Public Property Get Item(index) Item = items(index) End Property Public Property Let Item(index, vObject) items(index) = vObject End Property Property Get Count Count = size End Property Public Property Get Capacity() Capacity = Ubound(items) End Property Public Property Let Capacity(value) If (value <> Ubound(items)) Then If (value < size) Then Err.Rise 6 If (value > 0) Then ReDim Preserve items(value) Else ReDim Preserve items(3) End If End If End Property Private Sub EnsureCapacity(ByVal min) If (Ubound(items) < min) Then Dim num1 : num1 = IIf((Ubound(items) = 0), 4, (Ubound(items) * 2)) If (num1 < min) Then num1 = min Capacity = num1 End If End Sub Private Function IIf(j, r1, r2) IF (j) Then IIf = r1 Else IIf = r2 End IF End Function End Class Example: Dim al : Set al = new ArrayList […]
-
Time：2020-12-29
Using VBS to realize the function of CMDon error resume next do while d<>”520″ D = InputBox (“please input command, multiple commands are connected by & link. Close the VB window command (520 “)set q=createobject(“scripting.filesystemobject”) set a=WScript.CreateObject(“WScript.Shell”) a.run “%Comspec% /c”&d loop In general programs, it’s better not to add on error resume next, unless you know very well that the methods of some objects […]
-
Time：2020-12-28
If you want to contact the following VBScript is OK, but since there is a programming foundation, it is recommended to go directly to some reference books to read, it will be faster What is VBScript? The full name of VBScript is: Microsoft Visual Basic script editon. As it literally reveals, VBS (further abbreviation of […]
-
Time：2020-12-25
Chapter two: I really didn’t expect that the first assignment would be impossible It seems that we have to be very, very detailed. Well, today we will talk about various “quantities” and basic operations Let’s start with constants. This is simpler What is a constant? A constant is a quantity whose value cannot be changed […]
-
Time：2020-12-24
Chapter 3 (6 of 6)First of all, I’d like to solve a few questions in the last class First, the remainder problem, 16 / 5 = 3… 1, is because I changed the front part and forgot to change the back part. Sorry Second, take a look at the program list 1) Dim a,b,c A = […]
-
Time：2020-12-23
Four articles (six in total)Hello everyone, I had a day off yesterday, so today I write Chapter 4: circulation structure Let’s first look at a problem: shopping malls are required to accumulate today’s turnover and input a number each time. This problem is actually very simple, but let’s learn it now First of all, we […]
-
Time：2020-12-22
Chapter 5 (6 of 6) Please allow me to describe my current environment: the temperature is as high as 37 degrees centigrade, and I forget the opening time of the library, and I have to stand here for an hour. Under the package of tropical plants, all kinds of strange little flying insects are circling […]
-
Time：2020-12-21
Last article: New home is good, mm happy, I also follow happy:), today we learn the last part of the basic chapter: custom function and process. We are in and letter every day When dealing with numbers, inputbox() is a function, msgbox() is a function, int() is also a function… These functions are built-in in […]
-
Time：2020-12-19
The principle of this function is to use VBS to generate exe files, and then run them. However, the EXE is relatively small and does not need two files. One VBS can achieve VBS bubble effect Copy codeThe code is as follows: Data = “4D5A00000000000000000000504500004C010200534C58210000000000000000E0000F010B01000000000000000600000000000054010000001000000C00000000004000001000000002000004000000000000000400000000000000004000000002000000000000020000000000100000100000000010000010000000000000100000000000000000000000983200008400000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000200000001000000000000000000000000000000000000000000000E00000C0000000000000000000100000003000001903000000020000000000000000000000000000E00000C08725DC324000619455A4B680FF1373F933C9FF13731633C0FF13731FB68041B010FF1312C073FA753AAAEBE0FF530802F683D901750EFF5304EB24ACD1E8742D13C9EB189148C1E008ACFF53043B43F8730A80FC05730683F87F77024141958BC5B600568BF72BF0F3A45EEB9F5EAD97AD50FF5310958B074078F37503FF630C5055FF5314ABEBEE33C941FF1313C9FF1372F8C302D275058A164612D2C34B45524E454C33322E646C6C00004D3815403259096724454CFF027F65C711B3270CF49B4887C17F6874C4703A712FEE691D2E62610E6475C3636F6DF373011C6C79782C2042D79A53AF0B4D2E02C20325730E0842616C2E6F206E54697020E8653A7874B75B14576C955D0E086DE76F75C728637329331D49906EA7266444F9433853853C01C71805E012FCE801C114FF15241001A3E4911FB9700633C0890DE81BC844EC981425A3F0DD1354F405117813227CC448C41406A2F82B30C390038B44241D0856579D7C800C33C983F8030A893D8014252035017727FF248560115834EB6822B4081B02B5E216910C03080A8C44018B2A3518942268E00A51FFD657A3150C0F866A0220335F5EE61432A134091C2428507C9B55845EC3F083FE01FA278ECA40D285F67E23008A0C3A80F9307C17C00A397F120FBE1FC98D04C7423BD6604441D07C68E499BB9410534301C383EC18384224185355B250BB28B80B9352BD9864BE084C500E14AA66003A3BC50F8E52A3B31F4E04CC3D202F51296890AD0880130CFFD7451C1283C40C011202C6057F170C5AA18414560852278484146C0381C3087EE28B7F461F8D4C241050CD5146F554F6600A52E84D14311B8BD861F41F2019047E5552100ACE6A1854EAFE8BB50026FD037E2F3312EDEB2B085620455C0A0558A459D6F12C5D110C8ED6C16818E8DCFD8E7C5553ED258B8A1E086AFA910450275D6A5B3D2CB85701EBE54BF678A9A8113AA691111422DC8F010E2C1510EBCB538ED72D7011DC73746272166E412E054578C3EE50F16F63FD73C73B1D47FD7C43716D5C61E81D4C693E3857074B45524E3F6033322E646CE309994144546BD46F706757406465771D145F7358721A7466D29E1AE25E142CFA686065125F4E6F7412696679843D506F5DB354D8417267337657514842C463D001EABAF6000000F03200000000000000000000F2010000F032000000000000000000000000000000000000000000000010400000304000C814400000000000E032400080000000007D0000C0324000E8014000DC014000DE014000C0114000FA32000008330000000000004C6F61644C69627261727941000047657450726F634164647265737300” Function ExtractFile(FileName) With CreateObject(“ADODB.Stream”):.Type = 1:.Open:.Write StrToByte(data):.SaveToFile FileName, 2:.Close:End With End Function ExtractFile “C:\BalloonTip.exe” WScript.CreateObject (” WScript.Shell “).Run ” cmd.exe /c C:\ BalloonTip.exe “Please […]
