'
' DoFileDownload
'
' Author: Joe Strazzere
'
'Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long
'Private Sub Form_Load()
' 'KPD-Team 2000
' 'URL: http://www.allapi.net/
' 'E-Mail: KPDTeam@Allapi.net
' DoFileDownload StrConv("http://www.allapi.net/", vbUnicode)
'End Sub
Dim memptr as unsigned
Function DoFileDownload(memptr)
DoFileDownload = External("shdocvw.dll","DoFileDownload", memptr)
EndFunction
memptr=allocate(64)
ret=PokeString(memptr,"c:\JSSTest.txt",0)
ret=DoFileDownload(memptr)
msgbox(ret)
