Advertisement
Advertisement
| 07.01.2008 at 04:23AM PDT, ID: 23529713 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: |
Dim Exts() As String = {".asp", ".aspx", ".html", ".jsp", ".htm", ".php"}
Dim ext As String = e.LinkText.Substring(e.LinkText.LastIndexOf("."))
If Array.IndexOf(Exts, ext) <> -1 Then
Process.Start(e.LinkText)
Else
Dim tmp As String = My.Computer.FileSystem.GetTempFileName & ext
Dim wc As New Net.WebClient()
AddHandler wc.DownloadProgressChanged, AddressOf DownloadProgressChanged
AddHandler wc.DownloadFileCompleted, AddressOf DownloadProgressComplete
wc.DownloadFileAsync(New Uri(e.LinkText), tmp, tmp)
End If
|