This small code shows simply up the file download dialog like you've clicked a download in your browser...
GeSHi (vb):
Option Explicit
Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long
Private Sub Form_Load()
Dim sURL As String
Dim sFile As String
sFile = "http://www.marook-online.de/smf/index.php?action=tpmod;dl=get2"
'The DoFileDownload API expects the url as unicode
sURL = StrConv(sFile, vbUnicode)
'And finally call the api
DoFileDownload sURL
End Sub
Created by GeSHI 1.0.7.20
06.Feb.2012, 14:58 UTC+1
Print
