The first code will use the program associated with the default mp3 file, and a music playing Box will appear.
Copy codeThe Code is as follows: wscript. sleep 12000
Set ws = createobject ("wscript. shell ")
Ws. run "Brother, you're exhausted"
The second section of the Code calls the wmplayer.ocxplug-in, which does not appear in the music box. If you want to close the music plug-in, you can close the wscript.exe process.Copy codeThe Code is as follows: Dim wmpSet wmp = CreateObject ("WMPlayer. OC
I was planning to write it myself, but it would be hard to get rid of complicated algorithm descriptions. Forget it. If there are ready-made COM Object calls, why bother with algorithms? Just use them directly. If the following example code prompts that an object cannot be created, you need to download the CAPICOM component and register it.
Copy codeThe Code is as follows: Const CAPICOM_HASH_ALGORITHM_MD2 = 1
Const CAPICOM_HASH_ALGORITHM_MD4 = 2
Const CAPICOM_HASH_ALGORITHM_MD5 = 3
Const CAPICOM
I think it is awesome to read the title. I have heard that I can use PHP to send text messages (fetion) and Python to implement PyFetion to send text messages (fetion ). I have also read the corresponding PHP and Python source code. The implementation is still complicated. Can I use VBS for implementation?
After seeing the code, I felt that the code was actually implemented using the interface above 10086.cn (Mobile official website). Has the officia
Today, the boring stroll a search to ask, to find such a problem:
Who can provide a detailed procedure for the factorial of 20 in the VBS
Here are some answers to this:
Copy Code code as follows:
function JX (x)
J=1
For i=2 to X
J=j*i
Next
Jx=j
End Function
MsgBox Jx (20)
Run the above program and output 2.43290200817664E+18. Laughing without words, once again proved my previous conclusion, in this site to answe
VBS actually has two types of identifiers:
Generic identifier (Normalidentifier)
Bracket identifier (bracketidentifier)
But all the VBS books I've seen are just plain identifiers, without the bracket identifiers.
Rules for common identifiers we are already familiar with:
The first character must be a letter.The characters that follow can be letters, numbers, and underscores (_)
Length cannot exceed 2
Originally intended to write their own, but see the complexity of the algorithm described on the shrink. Forget it, there are ready-made COM object calls, why to care about the algorithm, directly to use on the line. If the following example code prompts you not to create an object, you need to download the CAPICOM component and register it.
Copy Code code as follows:
Const CAPICOM_HASH_ALGORITHM_MD2 = 1
Const CAPICOM_HASH_ALGORITHM_MD4 = 2
Const CAPICOM_HASH_ALGORITHM_MD5 =
First we look at an example of an input letter:
Copy Code code as follows:
Set S = WScript.CreateObject ("Wscript.Shell")
App=s.run ("C:\windows\notepad.exe")
Code= "Biweilun"
Wscript.Sleep 1000
S.appactivate app
S.sendkeys Code
Wscript.Quit
This VBS will SendKeys method friends know, the role is to open a notepad, and then "Biweilun" this string of characters into, of course, you can replace the code parameter CHR (
End If
Next
If Complete=ubound (arrhttp) +1 Then Exit do
Timeout=timeout+1
If timeout=5*30 Then
' Set according to file size
MsgBox "30 Seconds Timeout!" "
Wscript.Quit
End If
Loop
If FSO. FileExists (filepathfilename) Then fso. DeleteFile (Filepathfilename)
Fso. DeleteFile (filepath "Tmpfile")
Ado. SaveToFile (Filepathfilename)
MsgBox "File Download complete!" "
Function getfilename (URL)
Arrtmp=split (URL, "/")
Getfilename=arrtmp (UBound (arrtmp))
End Function
Function
Because the editor filters some characters, such as Ampersand, the following script may run incorrectly. Reader add this character is OK.
The function of the VBS script is many, but sometimes we only need some of these features, today I suddenly want to study how to use the VBS script implementation to add programs to the self starter ...
Let's start with a paragraph ...
Copy Code code as follows:
In a certain time, to run a regular ASP file to perform a task, such as a factory at 9 o'clock in the morning to collect all the meter readings, of course, through in-SQL connection to the various meters, we are now using an ASP file to the table in the SQL of the reading again to focus on MS SQL.
There are a number of ways you can see the timing of running ASP files, but what I'm going to say now is an easy way to make use of a scheduled task to do it easily.
First, you have to write a JS or
File actions
Copy Code code as follows:
Set FSO = WScript.CreateObject ("Scripting.FileSystemObject") ' Creates file system objects to work with drives, folders, and files
Set WshShell = WScript.CreateObject ("Wscript.Shell") ' Creates system Shell objects to run programs and so on
If Fso.fileexists ("D:\ Sword Online\alreadyexist.txt") Then ' if found file ' D:\ Sword online\alreadyexist.txt '
Wshshell.run ("D:\ Sword online\ Sword Online.exe") ' Run ' D:\ Sword online\ Swo
In daily development, there are many situations of format strings. I often forget it, and it is a little difficult to check it. So today I will spend some time organizing it.
The format string is formatted by numbers, dates, and enumerations.
I. digit Format String
C or C
Local currency format
D Or
On the Swagger UI model schema, the field date is displayed as "date": "2018-10-15t09:10:47.507z" but I need to use it as "date": "2018-9-26 12:18:48".Tips: The following two formats are just simple to understand a bit is not very comprehensive, there is insufficient or wrong place please point out.ProblemFirst look at Swagger the date type is displayed by default (the current date that the sample code displays by default may not be the same as the one shown later)This is the "Date data
The date display format is different between the different pages in the project,First question:For example, I use the date control wdatepicker.js only in the input tag to add onclick= "Wdatepicker ()" can be used, but the default is no time and seconds, if needed to display the minute and seconds only need to add Wdatepicker ({ DATEFMT: ' Yyyy-mm-dd HH:mm:ss '}) on the line.******************************************************************************
About YUV FormatThe YUV format typically has two main classes: the packaged (packed) format and the planar format. The former stores the YUV components in the same array,Usually several neighboring pixels make up a macro pixel (Macro-pixel), and the latter uses three arrays to store the YUV three components separately, just likeIs the same as a three-dimensional
Third article (total six articles):
First of all, let me address some of the questions from the last course.
First, that remainder problem, 16/5 = 3...1, is because I changed the front part, the back of the forgotten changed, sorry.
Second, take a look at the list of programs:
1)
Dim A,b,c
A=inputbox ("A is:", "input radius")
B=inputbox ("B is:", "input radius")
C=a*2+b*2
Msgbox (c)
This input 1, 2 o'clock is 6
2)
Dim A,b,c
A=inputbox ("A is:", "input radius")
B=inputbox ("B is:", "input ra
Mac frame Format:650) this.width=650; "Width=" 791 "height=" 349 "title=" 0ktxmlwlnkp3y5n{ah6 ' 14a.png "style=" WIDTH:529PX;HEIGHT:207PX; " Src= "Http://s4.51cto.com/wyfs02/M00/80/1C/wKioL1c4SkyxlPO_AACeAAFC2xs838.png" alt= "Wkiol1c4skyxlpo_ Aaceaafc2xs838.png "/>The Ethernet frame format consists of 5 fields, the first two fields are 6 bytes long destination address and Source Address field, which refers
VBScript (Microsoft Visual Basic Script Editon), Microsoft's Visual BASIC Script version). As literally disclosed, VBS (further abbreviated as VBScript) is a Visual Basic-Based Script Language.Lcx shares how to use vbs to execute shellcode. It is believed that it can play a role for security researchers in the penetration test process. The source code is as follows:
'Thanks http://demon.tw/.shellcode It is
When talking about how to use vbs to download files, Do you think of XMLHTTP?
Code :
Ilocal = lcase (wscript. Arguments (1 ))
Iremote = lcase (wscript. Arguments (0 ))
Set xpost = Createobject ("Microsoft. XMLHTTP ")
Xpost. Open "get", iremote, 0
Xpost. Send ()
Set sget = Createobject ("ADODB. Stream ")
Sget. mode = 3
Sget. type = 1
Sget. open ()
Sget. Write xpost. responsebody
Sget. savetofile ilocal, 2
When you save this code as
The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion;
products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the
content of the page makes you feel confusing, please write us an email, we will handle the problem
within 5 days after receiving your email.
If you find any instances of plagiarism from the community, please send an email to:
info-contact@alibabacloud.com
and provide relevant evidence. A staff member will contact you within 5 working days.