Как обрабатывать загрузки на gecko15 с помощью mozilla xul15 в visual basic?

Question

Я использую gecko15 с mozilla xul15 в качестве веб-браузера в своем визуальном базовом приложении

Кто-нибудь знает, как я могу обрабатывать закачки, пожалуйста?

потому что, когда я нажимаю на файл для загрузки из этого браузера, ничего не происходит.

благодарит за любую помощь.

Answer 1

'Примечание: Удалить «'"

'Dim P As String = Environment.GetFolderPath (Environment.SpecialFolder.ApplicationData) & "\\ TMP" ' Если не System.IO.Directory.Exists (P) Тогда System.IO.Directory.CreateDirectory (P)

    '      Dim objTarget As nsILocalFile = Xpcom.CreateInstance(Of nsILocalFile)("@mozilla.org/file/local;1") 
        '      Dim tmp_Loc As String = P & "\tmpdload" 
        '      Using tmp As New nsAString(tmp_Loc) 
        ' objTarget.InitWithPath(tmp) 
        ' End Using 

        ' If e.Filename.Contains(".") Then 
        'S = Strings.Split(e.Filename, ".") 
        'F = S(S.Length - 1).ToUpper & " File (*." & S(S.Length - 1) & ")|*." & S(S.Length - 1) 
        'Else 
        ' F = "File (*.*)|*.*" 
        'End If 

        ' savebox.Filter = F '"HTML File (*.html)|*.html" 
        ' savebox.Title = "Save File:" 
        ' savebox.FileName = e.Filename 
        ' If savebox.ShowDialog = System.Windows.Forms.DialogResult.OK And Not String.IsNullOrEmpty(savebox.FileName) Then 
        ' Dim source As nsIURI = IOService.CreateNsIUri(New Uri(e.Url).AbsoluteUri) 
        ' Dim dest As nsIURI = IOService.CreateNsIUri(New Uri(savebox.FileName).AbsoluteUri) 
        ' Dim t As nsAStringBase = DirectCast(New nsAString(System.IO.Path.GetFileName(savebox.FileName)), nsAStringBase) 
        ' 
        '      Dim persist As nsIWebBrowserPersist = Xpcom.CreateInstance(Of nsIWebBrowserPersist)("@mozilla.org/embedding/browser/nsWebBrowserPersist;1") 
        '      Dim DownloadMan As nsIDownloadManager = Xpcom.CreateInstance(Of nsIDownloadManager)("@mozilla.org/download-manager;1") 
        '      Dim downloadX As nsIDownload = DownloadMan.AddDownload(0, source, dest, t, e.Mime, 0, Nothing, DirectCast(persist, nsICancelable), False) ' 

        '      If (downloadX IsNot Nothing) Then 
        'persist.SetPersistFlagsAttribute(2 Or 32 Or 16384) 
        'persist.SetProgressListenerAttribute(DirectCast(downloadX, nsIWebProgressListener)) 
        'persist.SaveURI(source, Nothing, Nothing, Nothing, Nothing, DirectCast(dest, nsISupports), Nothing) 

'Для того, чтобы показать FF Download Manager: ' Dim победа = Xpcom.GetService (Of nsIWindowWatcher) ("@ mozilla.org/embedcomp/window- 1)) 'win.OpenWindow (ничего, "хром: //mozapps/content/downloads/downloads.xul", "Dow nloads», "хром, изменяемыми = да, скрыть", Nothing)

Answer 2

Также: @Form НАГРУЗКИ Событие: Добавить: AddHandler Gecko.LauncherDialog.Download, AddressOf LauncherDialog_Download

Тогда Private Sub LauncherDialog_Download (ByVal отправитель As Object, ByVal е Как Gecko.LauncherDialogEvent) e.cancel() попробовать поймать экс как исключение наконец e.Navigate (Nothing) «предотвратить необычное поведение DM конец попробовать End Sub

Надеюсь, что это поможет,

Answer 3

Это была головная боль всех нас, чтобы не позволить пользователю загружать файл во встроенный (vb net) браузер gecko. «Кикспсидер (давно жив мой друг)», анонимный гений, закончил эту проблему. Пожалуйста, следуйте приведенному ниже коду в ясном формате:

Dim objTarget As Gecko.nsILocalFile = Gecko.Xpcom.CreateInstance(Of Gecko.nsILocalFile)("@mozilla.org/file/local;1") 
    Dim tmp_Loc As String = Application.StartupPath & "\data" 
    Dim sx As Object = Nothing 
    Dim fx As String = "" 
    Dim saveBox As New SaveFileDialog 
    Dim win As Object = Gecko.Xpcom.GetService(Of Gecko.nsIWindowWatcher)("@mozilla.org/embedcomp/window-watcher;1") 

    'win.OpenWindow(Nothing, "chrome://mozapps/content/downloads/downloads.xul", "Downloads", "chrome,resizable=yes,hide", Nothing) 

    Using tmp As New Gecko.nsAString(tmp_Loc) 
     objTarget.InitWithPath(tmp) 
    End Using 

    If e.Filename.Contains(".") Then 
     sx = Strings.Split(e.Filename, ".") 
     fx = sx(sx.Length - 1).ToUpper & " File (*." & sx(sx.Length - 1) & ")|*." & sx(sx.Length - 1) 
    Else 
     fx = "File (*.*)|*.*" 
    End If 

    savebox.Filter = fx '"HTML File (*.html)|*.html" 
    savebox.Title = "Save File:" 
    savebox.FileName = e.Filename 
    If saveBox.ShowDialog <> System.Windows.Forms.DialogResult.OK And String.IsNullOrEmpty(saveBox.FileName) Then 
     Exit Sub 
    End If 
    Dim source As Gecko.nsIURI = Gecko.IOService.CreateNsIUri(New Uri(e.Url).AbsoluteUri) 
    Dim dest As Gecko.nsIURI = Gecko.IOService.CreateNsIUri(New Uri(saveBox.FileName).AbsoluteUri) 
    Dim t As Gecko.nsAStringBase = DirectCast(New Gecko.nsAString(System.IO.Path.GetFileName(saveBox.FileName)), Gecko.nsAStringBase) 

    Dim persist As Gecko.nsIWebBrowserPersist = Gecko.Xpcom.CreateInstance(Of Gecko.nsIWebBrowserPersist)("@mozilla.org/embedding/browser/nsWebBrowserPersist;1") 
    Dim DownloadMan As Gecko.nsIDownloadManager = Gecko.Xpcom.CreateInstance(Of Gecko.nsIDownloadManager)("@mozilla.org/download-manager;1") 
    Dim downloadX As Gecko.nsIDownload = DownloadMan.AddDownload(0, source, dest, t, e.Mime, 0, Nothing, DirectCast(persist, Gecko.nsICancelable), False) 

    If (downloadX IsNot Nothing) Then 
     persist.SetPersistFlagsAttribute(2 Or 32 Or 16384) 
     persist.SetProgressListenerAttribute(DirectCast(downloadX, Gecko.nsIWebProgressListener)) 
     persist.SaveURI(source, Nothing, Nothing, Nothing, Nothing, DirectCast(dest, Gecko.nsISupports), Nothing) 
    End If