First declare the exported WebUpdate function as a function prototype:
Private Declare Function WebUpdateWait
Lib "wuw4.dll" (ByVal
szURL As
String,
ByVal nTimeOut
As
Integer) As
Long
Then call the WebUpdate() function to initiate an updates check:
Private Sub CheckUpdates()
Dim myURL As String
myURL="http://mycompany.com/myscript.txt"
WebUpdate(myURL)
End Sub
Dim myURL As String
myURL="http://mycompany.com/myscript.txt"
WebUpdate(myURL)
End Sub
That's it! You are ready to move to the next step - authoring your update script:
Next Steps!
Having integrated the Software Update Wizard with your code,
the next step is to write your first update script:
