Say or idle to practicing, the preliminary realization of their own thought of "multithreading" download. (As for is not multiple threads, you can refer to the 12 floor link)
To avoid redundancy, some error checking is saved. I do not think much practical use, interested in the brothers to learn to discuss Bai. You are welcome to correct me:
Copy Code code as follows:
' By Wankoilz
Url=inputbox ("Enter full download Address:")
Threadcount=inputbox ("Enter the number of threads (no more than 10, too much is redundant)")
Filename=getfilename (URL)
Filepath=getfilepath (Wscript.scriptfullname)
Set ohttp=createobject ("Msxml2.xmlhttp")
Set ado=createobject ("ADODB.stream")
Set fso=createobject ("Scripting.FileSystemObject")
Ado. Type=1
Ado. Mode=3
Ado. Open
Ohttp.open "Head", Url,true
Ohttp.send
Do While ohttp.readystate<>4
Wscript.Sleep 200
Loop
' Get file size
Filesize=ohttp.getresponseheader ("Content-length")
Ohttp.abort
' Create a temporary file of the same size as the download file for the following ADO fragment rewrite
Fso. CreateTextFile (filepath& "Tmpfile", True,false). Write (Space (fileSize))
Ado. LoadFromFile (filepath& "Tmpfile")
Blocksize=fix (filesize/threadcount): remaindersize=filesize-threadcount*blocksize
Upbound=threadcount-1
' defines an array containing Msxml2.xmlhttp objects-the number of members is the number of threads
' Direct Dim array name (variable name) It's not going to work, here's a workaround with execute
Execute ("Dim arrhttp" ("&upbound&"))
For i=0 to UBound (arrhttp)
Startpos=i*blocksize
Endpos= (i+1) *blocksize-1
If I=ubound (arrhttp) Then endpos=endpos+remaindersize
Set arrhttp (i) =createobject ("Msxml2.xmlhttp")
Arrhttp (i). Open "Get", url,true
' Segmented download
Arrhttp (i) setrequestheader "Range", "bytes=" &startpos& "-" &endpos
Arrhttp (i). Send
Next
Todo
Wscript.Sleep 200
For i=0 to UBound (arrhttp)
If arrhttp (i). readystate=4 Then
' Write to the appropriate location of the temporary file whenever a thread has been downloaded
Ado. Position=i*blocksize
MsgBox "Thread" &i& "Download complete!" "
Ado. Write arrhttp (i) responsebody
Arrhttp (i) abort
Complete=complete+1
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 (filepath&filename) Then fso. DeleteFile (Filepath&filename)
Fso. DeleteFile (filepath& "Tmpfile")
Ado. SaveToFile (Filepath&filename)
MsgBox "File Download complete!" "
Function getfilename (URL)
Arrtmp=split (URL, "/")
Getfilename=arrtmp (UBound (arrtmp))
End Function
Function GetFilePath (FullName)
Arrtmp=split (fullname, "\")
For i=0 to UBound (arrtmp)-1
Getfilepath=getfilepath&arrtmp (i) & "\"
Next
End Function
Test Download Address:
Copy Code code as follows:
VBS to implement multithreading complement
Someone emailed me today asking me a question:
Would you like to ask if the InputBox function in VBS is closed?
How do I close the input box if I can? Thank you very much.
At first glance this is not possible, because the InputBox function itself does not have a time-out parameter, and the program waits until InputBox returns to continue, and the following statement cannot be executed before the InputBox returns.
If VBS can implement multithreading in high-level languages ... Unfortunately, VBS is not possible to implement multithreading, but it can be simulated with the SetTimeout method.
Copy Code code as follows:
Dim IE
Set IE = CreateObject ("Internetexplorer.application")
Ie. Navigate "About:blank"
Set window = IE. Document.parentwindow
id = window.settimeout (GetRef ("On_timeout"), 3000, "VBScript")
Name = InputBox ("Please enter your name", "InputBox Timeout")
Window.cleartimeout ID
If name <> "Then MsgBox" Hello, "& name
Ie. Quit
' By Demon
' http://demon.tw
Sub On_timeout ()
Dim WshShell
Set WshShell = CreateObject ("WScript. Shell ")
Wshshell.sendkeys "{ESC}"
End Sub
Use the SetTimeout method to set the 3-second timeout, 3 seconds after the SendKeys method to send the ESC key to end the InputBox. Of course, using SendKeys is very unreliable, I usually rarely use the SendKeys method, because it makes too many assumptions, in case InputBox is not activated window? This is only for the simple application of the SendKeys, can be replaced by the end of the script itself.
Similarly, if you want to implement the timer event in VB in the VBS, you can use the SetInterval method, I will not write examples, I look at the document.
Reference Links: SetTimeout Method (window, window constructor)
