December 1, 2005 - WinTask - DoFileDownload

'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:SuppressionTest.txt",0)

ret=DoFileDownload(memptr)
msgbox(ret)