GeckoFX

  • VB.NET

Es gibt 43 Antworten in diesem Thema. Der letzte Beitrag () ist von Thiemo1991.

    Jo.

    Also brauche ich nicht mehr das Experiment zu machen?

    Also zur Klärung:

    Ich habe die DomClick-Ereignisse nicht auf der Skype Webseite gemacht, bei einem WikiMedia-Anbieter.
    Dort geht das Abfangen aller Mausklicks, aber bei Skype scheint irgendwas (vermutlich JavaScript) das Downloadfenster auszulösen, bevor das weiter zum DomClick-Ereignis geht.

    Wenn ich jetzt versuche das zu lösen, und du bist mit deiner Anforderung fertig, dann sag mir kurz bescheid ob ich es sein lassen kann.


    c.u. Joshi

    Mozilla Firefox sowie das GeckoWebbrowser Control kann eigentlich von Haus aus, kein Flash anzeigen und da habe ich mir gedacht, dies zu ändern. Aber nur wie kann ich das ändern?
    Wie man mich kontaktieren kann:
    thiemo-melhorn.de

    Lieber @Thiemo1991,

    ich weis das mit dem Flash anzeigen nicht, und ich werde das auch nicht nutzen, es gab große Sicherheitslücken im Flash-Plugin.

    Das ein Plugin für den Firefox genutzt werden muss und zugleich eingebunden, ist das ein starker aufwand, der in die Programmierung gehört.
    Ich selber werde sowas scheuen.

    Da kann ich dir nicht helfen.

    Vielleicht weiss jemand wie Plugin-Einbindung und Steuerung funktioniert, damit könnten dann auch andere Plugins genutzt werden.

    Aber jetzt kannst Du den Skype Clienten downloaden?

    c.u. Joshi

    @SpaceyX
    Dito, ich finde es toll, wie du die Arbeit und seinem Drive beschrieben hast. Ich kann nur sagen, ich kenne @Thiemo1991 seit vier Jahren und ich finde es wirklich klasse , wie er mit seiner Behinderungen umgeht. Viele Menschen sehen Ihre Gesundheit als Selbstverständlich an, dies ist leider nicht so. Was ist mit dem Jungen, der sich bei "Wetten dass", das Genick gebrochen hat, der ist heute im Rollstuhl. Überlegt Euch mal bitte, wie Ihr das Leben von anderen einschätzen solltet.

    Viele Grüße
    Joachim Strömer

    @Joshi
    Wie funktioniert das mit der Suchmaschiene bzw. was brauche ich als Google Link, @joachim68 hat mir einen Link geschickt, der aber leider nicht funktioniert hat.
    google.de/search?source=hp&ei=KHNzWs7oCNDdwAKyrJuABQ&q=

    Ich habe das so probiert aber er navigiert nicht zu Google mit dem Suchtext aus der ComboBox:

    VB.NET-Quellcode

    1. Select Case My.Settings.Search
    2. Case "Google" : auswahl = "https://www.google.de/search?source=hp&" & cmbURL.Text & "ei=KHNzWs7oCNDdwAKyrJuABQ&q="
    3. 'Case "Yahoo" : auswahl = "http://de.search.yahoo.com/search?p=" & TextBox2.Text & "&fr=yfp-t-501&ei=UTF-8&rd=r1"
    4. 'Case "Ask" : auswahl = "http://de.ask.com/web?q=" & TextBox2.Text & "&qsrc=0&o=0&l=dir&s=&part=&dm=lang"
    5. 'Case "Amazon" : auswahl = "http://redir.opera.com/amazon/?q=" & TextBox2.Text
    6. 'Case "Ebay" : auswahl = "http://redir.opera.com/ebay/?q=" & TextBox2.Text
    7. 'Case "Wikipedia" : auswahl = "http://de.wikipedia.org/wiki/" & TextBox2.Text
    8. End Select
    10. aktiverBrowser.Navigate(auswahl)

    Wie man mich kontaktieren kann:
    thiemo-melhorn.de

    Für die Google-Suche reicht hier schon ein Parameter aus, nämlich q. Da hattest du ja nicht angegeben, kann ja auch nicht funktionieren, schau bei dir am Ende der Url da steht &q= also ist q nichts.
    auswahl = "https://www.google.de/search?q=" & cmbURL.Text

    Google Such-Parameter
    moz.com/blog/the-ultimate-guid…-google-search-parameters
    Cloud Computer? Nein Danke! Das ist nur ein weiterer Schritt zur totalen Überwachung.
    „Wer die Freiheit aufgibt, um Sicherheit zu gewinnen, wird am Ende beides verlieren.“
    Benjamin Franklin

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „NoIde“ ()

    @NoIde
    Also, du meinst dass ich nur dass brauche, was du mir geschickt hast und wie sieht es mit den anderen Suchmaschienenlinks aus?

    Edit: Das hat nicht funktioniert.

    Kann es sein, dass ich nur im eigentlich, ursprünglichen Link nur das https, durch ein http ersetzen muss?

    VB.NET-Quellcode

    1. "Google" : auswahl = "http://www.google.de/search?hl=de&source=hp&q=" & cmbURL.Text & "&btnG=Google-Suche&meta=&aq=f&oq="

    Wie man mich kontaktieren kann:
    thiemo-melhorn.de

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Thiemo1991“ ()

    Also hab das jetzt nochmal von Hand im Firefox getestet, wie auch mit dem normalen Webbrowsercontrol, warum sollte es mit dem Gecko nicht gehen?

    Wenn du so dahin navigierst, klappst dann?
    aktiverBrowser.Navigate("https://www.google.de/search?q=Test")

    google
    "https://www.google.de/search?q=" & cmbURL.Text
    yahoo
    "https://de.search.yahoo.com/search?p=" & cmbURL.Text
    ask
    "https://de.ask.com/web?q=" & cmbURL.Text
    amazon
    "http://redir.opera.com/amazon/?q=" & cmbURL.Text
    ebay
    "http://redir.opera.com/ebay/?q=" & cmbURL.Text
    wikipedia
    "http://de.wikipedia.org/wiki/" & cmbURL.Text

    Zeig mal den Code wie du "meine Url" getestet hast.
    Cloud Computer? Nein Danke! Das ist nur ein weiterer Schritt zur totalen Überwachung.
    „Wer die Freiheit aufgibt, um Sicherheit zu gewinnen, wird am Ende beides verlieren.“
    Benjamin Franklin

    Kann es sein, das du da Controls verwechselt hast? cmbURL vermute ich ist eine ComboBox, ich kann mir nur schwer vorstellen, das da der Suchbegriff drin steht. Hast du sicher mit einer TextBox verwechselt.

    Ich hatte das(cmbUrl) von dir übernomen.

    Thiemo1991 schrieb:

    Case "Google" : auswahl = "https://www.google.de/search?source=hp&" & cmbURL.Text & "ei=KHNzWs7oCNDdwAKyrJuABQ&q="


    Thiemo1991 schrieb:

    Es funktioniert nicht. Der Browser navigiert nicht zu Google.


    Wenn der Webbrowser garnicht zu Google Navigiert, dann liegt noch etwas anderes im Argen. Zeigt Google statt Suchergebnisse die Startseite an, ist die Url(sind die Parameter) nicht ganz korrekt. In Post25 hast du geschrieben:
    er navigiert nicht zu Google mit dem Suchtext aus der ComboBox


    Höhrt sich für mich so an als ob er doch zu Google navigiert, nur nicht so wie du es wolltest(Das Suchergebnisse angezeigt werden). Nun sagt du er navigiert nicht, du musst das Problem schon so exakt wie es nur geht beschreiben, sonst wirds knifflig.
    Cloud Computer? Nein Danke! Das ist nur ein weiterer Schritt zur totalen Überwachung.
    „Wer die Freiheit aufgibt, um Sicherheit zu gewinnen, wird am Ende beides verlieren.“
    Benjamin Franklin

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „NoIde“ ()

    Hi.

    Muß er aber! Das hab ich ihm aber gesagt... :D

    Das sollte so gehen, mit der Parameterübergabe in der URL.

    Bitte versuche mal vor der Programmzeile mit dem "Navigate"-Befehl, eine Debug.WriteLine("Der Wert im Eingabetextfeld: " & cmbURL.Text zeile einzubauen. Dann schau in das "Direkt-Fenster" des Visual Studios, ob da etwas nicht stimmt.

    Wenn der Wert stimmt, dann solltest Du die Endgültige URL mal ausgeben lassen.

    Quellcode

    1. Debug.WriteLine("Gesamte Google Abfrage: https://www.google.de/search?" & cmbURL.Text


    Kommt etwas Oberlehrehaft rüber, aber das wäre mein Vorgehen, meine Seite des Problems einzukreisen.

    Wenn Du z.B. das Suchwort "Planet" übergeben willst.

    Sollte dein aktuellerBrowser.Navigate("https://www.google.de/search?q=Planet") sein.

    Wie ich sehe ist in der Variable "ausgabe" dann der Ganze Text enthalten?

    Also sollte dann dein Navigieren so ausehen: aktuellerBrowser.Navigate(auswahl).

    Liegt es vielleich daran, das Du nicht das Richtige and den Navigate-Befehl schickst?

    Kommt sehr oft vor, bessonders bei Bill Gates. Der schickt mir auch nichts... mhhh

    @Thiemo1991

    Wenn ich vermuten darf, holst Du mit den MausKlick (DomClick) nun den Button-Befehl des "blauen Such Knopf" auf der Google-Webseite.
    Das ist mit der tollen Möglichkeit "Webanfrage über die URL mit Parametern" nicht wirklich Notwendig.
    Der Webservice (alle Webserver) empfangen URL-Parameter, und die sind von Webseite zu Webseite anders.
    Im Fall von Google, kann mit dem einleiten einer Parameterübergabe mit dem "?" und einem folgenedem "q=" und dem Suchbegriff, direkt eine suche ohne Knopfdruck angestossen werden.

    Ist mal was anderes, als im Webbrowser was zu klicken.

    Aussserdem können die Suchanfragen mit Leerzeichen evtl. nicht von allen verarbeitet werden, und somit müssen diese leerzeichen mit " " ersetzt werden.
    Muss es aber nicht bei allen Webservern!

    Quellcode

    1. "https://www.google.de/search?q=Planet der Affen" wird zu,
    2. "https://www.google.de/search?q=Planet der Affen"


    Würdest du versuchen mal ein Replace auf Leerzeichen zu " " im cmbURL.Text

    VB.NET-Quellcode

    1. cmbURL.Text.Replace(" ", " ")


    Edit: Ich scheine das nicht mit den UrlEncoding im Forum nicht editiern zu können. Es geht hier um das Ersetzen vom Leerzeichen mit "ProzentZweiNull" als UrlEncoded-Leerzeichen.
    Alternative ist die "HttpUtility.UrlEncode-Methode: (String)".


    Dann erst den Navigate anstossen.

    Bei Dir sehe ich sowas wie das hier: "&btnG=Google-Suche&meta=&aq=f&oq="
    Lass das mal einfach weg und schau ob es dann geht.

    c.u. Joshi

    GROSSES UDATE:

    Mann bin ich Blind heute...

    So ich glaube jetz eine noch bessere Fehlerquelle geraten zu haben. ;)

    Wie ich sehe benutzt Du "vielleicht" eine ComboBox und deren Text Eigenschaft.

    Also wenn du die Varriable "auswahl" benutzt, wird doch das was du in der Combobox ausgesucht hast in diese variable gespeichert.
    Da wir zwei Dinge verknüpfen müssen, sollte dein "Suchtext" nur hinter dem "q=" angefügt werden.

    Da ich den Quellcode nicht sehe, ich aber das auch mal "falsch" gemacht habe, könnte das der Fehler sein.

    Möchtest Du die Funktion die die meisten Webbrowser haben, einen beliebigen Text einzutippen (Das Textfeld der Combobox) um zu suchen, falls keine URL/Webadresse eingegeben wurde, muss vor dem Navigate mit den "Eingabetext" eine andere Vorgehensweise geschehen als mit einer Auswahl eines Eintrags in der ComboBoxListe.

    In dem fall von Google-Suche, muss dann der Befehl so aussehen:

    VB.NET-Quellcode

    1. If cmbURL.Text.StartsWith("http") = True Or cmbURL.Text.StartsWith("www") = True Then
    2. 'Navigiere zur URL, wie gehabt
    3. aktuelleAuswahl = cmbUrl.Text
    4. Else
    5. 'jetzt das Suchen vorbereiten, weil keine URL eingegeben.
    6. aktuelleAuswahl = "https://www.google.de/search?q=" & cmbUrl.Text
    7. EndIf
    8. 'und jetz das Navigieren im Browser mit aktuelleAuswahl


    @'Nolde' hatte Dir die richtige Antwort gegeben.

    Dieser Beitrag wurde bereits 7 mal editiert, zuletzt von „Joshi“ ()

    Eine immer mögliche Fehlerquelle sehe ich bei deiner Art nen String so für Settings zu verwenden. Nutze eine Enum! Wenn du alle Strings HardCodest kannste dich schnell mal verschreiben und hast diese auch keine unterstützung der Intellisense. Nutzt du eine Enum und du verschreibst dich, wirds direkt als Fehler gekennzeichnet, ist dann auch in der Intellisense drin, beim String nicht!

    Enums können diese Typen sein: Byte, Short, Integer und Long. Gibst du nichts an, ist es Standart ein Integer.
    Enum ohne Typangabe:(Standart-Typ ist Integer)

    VB.NET-Quellcode

    1. Public Enum Auswahlmoeglichkeit
    2. Google
    3. Yahoo
    4. End Enum

    Enum mit Typangabe:

    VB.NET-Quellcode

    1. Public Enum Auswahlmoeglichkeit As Short
    2. Google
    3. Yahoo
    4. End Enum


    Du kannst auch den Membern einen Wert zuweisen, brauchste aber nicht. Der erste Member hat den Wert 0 wenn du keinen zuweist, der nächste Member(Zeile runter) ist der gleiche Wert + 1, also immer 1 mehr, wenn du keinen Wert zuweist. Gibst du einen Member den Wert 9 hat der Member darunter den Wert 10, wenn du es nicht anders angibst.

    VB.NET-Quellcode

    1. Public Enum Auswahlmoeglichkeit
    2. Google = 3
    3. Yahoo
    4. End Enum
    5. ' Yahoo hat hier den Wert 4


    In den Einstellungen legst du dann eine Setting vom Typ Integer an. Wenn jetzt eine ComboBox für die Auswahl eines Suchanbieters genutzt wird, kann man die ComboBox mit einer Zeile füllen, änderst du die Enum, wirkt sich das auch auf die ComboBox aus. Weisen wir den Membern der Enum keinen Wert zu, ist der erste Member hat Wert 0, der zweite Member Wert 1, usw... das ist dann alles identisch mit dem Index in der ComboBox. Ich hab dir ein Beispiel gemacht, ist nicht viel Code drin, probier da mal mit rum, aus faulheit habe ich nicht den Gecko verwendet, sondern nur den Standart-Webbrowser.
    Dateien
    Cloud Computer? Nein Danke! Das ist nur ein weiterer Schritt zur totalen Überwachung.
    „Wer die Freiheit aufgibt, um Sicherheit zu gewinnen, wird am Ende beides verlieren.“
    Benjamin Franklin

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „NoIde“ ()

    @NoIde

    NoIde schrieb:

    ich kann mir nur schwer vorstellen, das da der Suchbegriff drin steht.


    Der Suchbegriff steht da drinnen, weil ich kein extra Feld für die Eingabe des Suchbegriffes machen möchte da es viel besser ist wenn der User einfach in der Adressleiste (sowie in Google Chrome) eingeben kann.

    Ich komme irgendwie nicht weiter deshalb gebe ich euch auch meinen KOMPLETTEN Quellcode (bitte nur die jetigen Fehler beheben und nicht irgendwie nachbauen bzw. veröffentlichen).
    Spoiler anzeigen

    VB.NET-Quellcode

    1. #Region "Importieren"
    2. Imports System.ComponentModel
    3. Imports System.Net
    4. Imports System.Threading
    5. Imports Gecko
    6. #End Region
    7. Public Class tmBrowser
    8. #Region "Deklarationen/Funktionen"
    9. Public WithEvents aktiverBrowser As GeckoWebBrowser
    10. Dim i As String
    11. Private WeiterGehts As Boolean = False
    12. Private ms As Integer
    13. Dim selectedTabIndex As Integer
    14. Dim auswahl As String
    16. #End Region
    17. #Region "Überprüfen"
    18. Public Sub getAktiverBrowser()
    19. For Each wb As GeckoWebBrowser In tbc.SelectedTab.Controls
    20. aktiverBrowser = wb
    21. Exit Sub
    22. Next
    23. End Sub
    25. Public Sub Wartezeit(ByVal Sekunden As Integer)
    26. ms = Sekunden * 1000
    27. WeiterGehts = False
    28. Dim T As Thread = New Thread(AddressOf Warten)
    29. T.Start()
    30. Do
    31. Application.DoEvents()
    32. Loop Until WeiterGehts = True
    33. End Sub
    35. Private Sub Warten()
    36. Thread.Sleep(ms)
    37. WeiterGehts = True
    38. End Sub
    40. Function ÜberprüfeURL(ByVal URL As String) As String
    41. Dim fertig As String = URL
    42. If Not fertig.StartsWith("http://") Then
    43. fertig = "Http://" & URL
    44. End If
    45. Return fertig
    46. End Function
    47. #End Region
    48. #Region "Tabs"
    49. Private Sub addTab(ByVal name As String, ByVal url As String)
    50. Dim tab As TabPage = New TabPage(name)
    51. Dim wb As GeckoWebBrowser = New GeckoWebBrowser
    52. AddHandler wb.DocumentTitleChanged, AddressOf BrowserDocumentTitle_Changed
    53. AddHandler wb.ProgressChanged, AddressOf wb_ProgressChanged
    54. wb.Navigate(url)
    55. wb.Dock = DockStyle.Fill
    56. tab.Controls.Add(wb)
    57. tbc.TabPages.Add(tab)
    58. tbc.SelectTab(tab)
    59. End Sub
    61. Private Sub removeTab()
    62. Try
    63. Call getAktiverBrowser()
    64. selectedTabIndex = tbc.SelectedIndex
    65. tbc.TabPages.Remove(tbc.SelectedTab)
    66. If selectedTabIndex = tbc.TabCount Then
    67. tbc.SelectedIndex = selectedTabIndex
    68. Else
    69. tbc.SelectedIndex = selectedTabIndex - 1
    70. End If
    71. Call getAktiverBrowser()
    72. Catch ex As Exception
    73. Call addTab("Neuer Tab", "about:blank")
    74. cmbURL.Text = "about:blank"
    75. lblStatus.Text = ""
    76. End Try
    77. End Sub
    79. Private Sub LoadTabs()
    80. Call getAktiverBrowser()
    81. addTab("Neuer Tab", "about:blank")
    82. End Sub
    84. Private Sub tbc_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tbc.SelectedIndexChanged
    85. Try
    86. Call getAktiverBrowser()
    87. cmbURL.Text = aktiverBrowser.Url.OriginalString
    88. Catch
    89. End Try
    90. Call FavIcon()
    91. End Sub
    92. #End Region
    93. #Region "Laden/Speichern von Elementen"
    94. Private Sub SettingOpen()
    95. 'Laden (ohne hängen)
    96. Application.DoEvents()
    98. 'Funktionen ausführen bzw. laden
    99. Call LoadBookmarks()
    100. Call getAktiverBrowser()
    101. cmbURL.Focus()
    102. Assistent.Close()
    104. 'Starseite auslesen
    105. aktiverBrowser.Navigate(My.Settings.Home)
    107. 'Farben und Schriftart öffnen
    108. Me.BackColor = My.Settings.Colors
    109. cmbURL.BackColor = My.Settings.Colors
    110. lblStatus.BackColor = My.Settings.Colors
    111. ListBox1.BackColor = My.Settings.Colors
    112. ctMenu.BackColor = My.Settings.Colors
    113. msMenu.BackColor = My.Settings.Colors
    114. cmbURL.Font = My.Settings.Fonts
    116. 'Suchmaschienen
    117. Select Case My.Settings.Search
    118. Case "Google" : Suche.Image = My.Resources.Google
    119. Case "Yahoo" : Suche.Image = My.Resources.Yahoo
    120. Case "Ask" : Suche.Image = My.Resources.Ask
    121. Case "Amazon" : Suche.Image = My.Resources.Amazon
    122. Case "Ebay" : Suche.Image = My.Resources.ebay
    123. Case "Wikipedia" : Suche.Image = My.Resources.Wikipedia
    124. End Select
    125. End Sub
    127. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    128. tbc.TabPages.Clear()
    129. addTab("Neuer Tab", "about:blank")
    130. Call getAktiverBrowser()
    131. Call SettingOpen()
    132. End Sub
    134. Private Sub SettingSave()
    135. 'Farben und Schriftar speichern
    136. My.Settings.Colors = Me.BackColor
    137. My.Settings.Colors = cmbURL.BackColor
    138. My.Settings.Colors = lblStatus.BackColor
    139. My.Settings.Colors = ListBox1.BackColor
    140. My.Settings.Colors = ctMenu.BackColor
    141. My.Settings.Colors = msMenu.BackColor
    142. My.Settings.Fonts = cmbURL.Font
    143. End Sub
    145. Private Sub Form1_FormClosing(sender As Object, e As EventArgs) Handles MyBase.FormClosing
    146. Call SettingSave()
    147. End Sub
    148. #End Region
    149. #Region "Seite laden/Informationen anzeigen"
    150. Private Sub wb_ProgressChanged(sender As Object, e As GeckoProgressEventArgs)
    151. lblStatus.Text = "Laden von der Website " & cmbURL.Text
    152. Try
    153. pgbLoad.Maximum = CInt(e.MaximumProgress)
    154. pgbLoad.Value = CInt(e.CurrentProgress)
    155. Catch ex As Exception
    156. pgbLoad.Value = 0
    157. End Try
    158. End Sub
    160. Private Sub BrowserDocumentTitle_Changed(sender As Object, e As EventArgs)
    161. If Not aktiverBrowser.DocumentTitle = Nothing Then
    162. tbc.SelectedTab.Text = aktiverBrowser.DocumentTitle
    163. End If
    164. lblStatus.Text = "Fertig"
    165. Call getAktiverBrowser()
    166. cmbURL.Text = aktiverBrowser.Url.OriginalString.ToString
    167. Me.Text = "tmBrowser | " & aktiverBrowser.DocumentTitle & " | " & aktiverBrowser.Url.OriginalString.ToString
    168. Call FavIcon()
    169. End Sub
    170. #End Region
    171. #Region "Farben/Schriftart"
    172. Private Sub Colors()
    173. If cd.ShowDialog = DialogResult.OK Then
    174. Me.BackColor = cd.Color
    175. cmbURL.BackColor = cd.Color
    176. lblStatus.BackColor = cd.Color
    177. ListBox1.BackColor = cd.Color
    178. ctMenu.BackColor = cd.Color
    179. msMenu.BackColor = cd.Color
    180. My.Settings.Save()
    181. End If
    183. If cd.Color = Color.Black Then
    184. cmbURL.ForeColor = Color.White
    185. lblStatus.ForeColor = Color.White
    186. ListBox1.BackColor = Color.White
    187. ctMenu.ForeColor = Color.White
    188. msMenu.ForeColor = Color.White
    189. My.Settings.Save()
    190. End If
    192. If cd.Color = Color.White Then
    193. cmbURL.ForeColor = Color.Black
    194. lblStatus.ForeColor = Color.Black
    195. ListBox1.BackColor = Color.Black
    196. ctMenu.ForeColor = Color.Black
    197. msMenu.ForeColor = Color.Black
    198. My.Settings.Save()
    199. End If
    200. End Sub
    202. Private Sub Fonts()
    203. fd.Font = cmbURL.Font
    204. If fd.ShowDialog = DialogResult.OK Then
    205. cmbURL.Font = fd.Font
    206. lblStatus.Font = fd.Font
    207. Label1.Font = fd.Font
    208. Else
    209. cmbURL.Font = New System.Drawing.Font("Microsoft Sans Serif", 8, FontStyle.Regular)
    210. End If
    211. End Sub
    212. #End Region
    213. #Region "Icons"
    214. Public Sub FavIcon()
    215. Try
    216. Dim url As Uri = New Uri(cmbURL.Text)
    217. If url.HostNameType = UriHostNameType.Dns Then
    218. Dim iconURL = "http://" & url.Host & "/favicon.ico"
    219. Dim request As System.Net.HttpWebRequest = CType(System.Net.HttpWebRequest.Create(iconURL), System.Net.HttpWebRequest)
    220. Dim response As System.Net.HttpWebResponse = CType(request.GetResponse(), System.Net.HttpWebResponse)
    221. Dim stream As System.IO.Stream = response.GetResponseStream()
    222. Dim favicon = Image.FromStream(stream)
    223. Me.web_pic.Image = favicon
    224. End If
    225. Catch
    226. End Try
    227. End Sub
    228. #End Region
    229. #Region "Lesezeichen"
    230. Private Sub LoadBookmarks()
    231. For Each item In My.Settings.Bookmarks
    232. ListBox1.Items.Add(item)
    233. Next
    234. End Sub
    236. Private Sub AddBookmarks()
    237. My.Settings.Bookmarks.Add(aktiverBrowser.Url.ToString)
    238. cmbURL.Items.Add(aktiverBrowser.Url.ToString)
    239. ListBox1.Items.Add(aktiverBrowser.Url.ToString)
    240. End Sub
    242. Private Sub RemoveBookmarks()
    243. My.Settings.Bookmarks.Remove(CType(ListBox1.SelectedItem, String))
    244. ListBox1.Items.Remove(ListBox1.SelectedItem)
    245. cmbURL.Items.Remove(ListBox1.SelectedItem)
    246. End Sub
    248. Private Sub bntAddBookmarks_Click(sender As Object, e As EventArgs) Handles bntAddBookmarks.Click
    249. Call AddBookmarks()
    250. End Sub
    252. Private Sub bntRemoveBookmarks_Click(sender As Object, e As EventArgs) Handles bntRemoveBookmarks.Click
    253. Call RemoveBookmarks()
    254. End Sub
    256. Private Sub ListBox1_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles ListBox1.MouseDoubleClick
    257. aktiverBrowser.Navigate(CType(ListBox1.SelectedItem, String))
    258. End Sub
    259. #End Region
    260. #Region "Menü"
    261. Private Sub NewWindowToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NewWindowToolStripMenuItem.Click
    262. Dim Form = New tmBrowser
    263. Form.ShowDialog()
    264. End Sub
    266. Private Sub NeuerTabToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles NeuerTabToolStripMenuItem1.Click
    267. Call LoadTabs()
    268. End Sub
    270. Private Sub TabSchließenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles TabSchließenToolStripMenuItem1.Click
    271. Call removeTab()
    272. End Sub
    274. Private Sub ÖffnenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ÖffnenToolStripMenuItem1.Click
    275. If ofd.ShowDialog() = DialogResult.OK Then
    276. aktiverBrowser.Navigate(ofd.FileName)
    277. End If
    278. End Sub
    280. Private Sub SpeichernunterToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SpeichernunterToolStripMenuItem.Click
    281. sfd.Filter = "*.html, *.htm|*.html,*.htm"
    282. sfd.FileName = Nothing
    283. If sfd.ShowDialog() = DialogResult.OK Then
    284. aktiverBrowser.SaveDocument(sfd.FileName)
    285. End If
    286. End Sub
    288. Private Sub DruckenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles DruckenToolStripMenuItem1.Click
    289. Call getAktiverBrowser()
    290. aktiverBrowser.Navigate("javascript:window.print()")
    291. End Sub
    293. Private Sub SchriftartToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SchriftartToolStripMenuItem.Click
    294. Call Fonts()
    295. End Sub
    297. Private Sub SchriftfarbeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SchriftfabeToolStripMenuItem.Click
    298. Call Colors()
    299. End Sub
    301. Private Sub StartseiteÄndernToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles StartseiteÄndernToolStripMenuItem1.Click
    302. My.Settings.Home = cmbURL.Text
    303. My.Settings.Save()
    304. MsgBox(cmbURL.Text & " wurde als Startseite gespeichert.", MsgBoxStyle.Information, "Information")
    305. End Sub
    307. Private Sub WebsiteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WebsiteToolStripMenuItem.Click
    308. Call getAktiverBrowser()
    309. aktiverBrowser.Navigate("http://thiemo-melhorn.ws")
    310. End Sub
    312. Private Sub FacebookToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FacebookToolStripMenuItem.Click
    313. Call getAktiverBrowser()
    314. aktiverBrowser.Navigate("https://www.facebook.com/ThiemoSoftware/")
    315. End Sub
    317. Private Sub ZumEntwicklerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZumEntwicklerToolStripMenuItem.Click
    318. MsgBox("Entwickler: tmBrowser" & vbNewLine & "Version: 1.0.0.0")
    319. End Sub
    321. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    322. aktiverBrowser.GoBack()
    323. End Sub
    325. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    326. aktiverBrowser.GoForward()
    327. End Sub
    329. Private Sub cmbURL_KeyUp(sender As Object, e As KeyEventArgs) Handles cmbURL.KeyUp
    330. If e.KeyCode = Keys.Enter Then
    331. aktiverBrowser.Navigate(cmbURL.Text)
    332. e.SuppressKeyPress = True
    333. End If
    334. End Sub
    336. Private Sub bntHome_Click(sender As Object, e As EventArgs) Handles Button3.Click
    337. Call getAktiverBrowser()
    338. aktiverBrowser.Navigate(My.Settings.Home)
    339. End Sub
    341. Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
    342. Call LoadTabs()
    343. Call getAktiverBrowser()
    344. cmbURL.Text = "about:blank"
    345. End Sub
    347. Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
    348. Call removeTab()
    349. End Sub
    351. Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    352. aktiverBrowser.Reload()
    353. End Sub
    355. Private Sub SuchemaschienenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SuchemaschienenToolStripMenuItem.Click
    356. Select Case My.Settings.Search
    357. Case "Google" : auswahl = "http://www.google.de/search?hl=de&source=hp&q=" & cmbURL.Text & "&btnG=Google-Suche&meta=&aq=f&oq="
    358. Case "Yahoo" : auswahl = "http://de.search.yahoo.com/search?p=" & cmbURL.Text & "&fr=yfp-t-501&ei=UTF-8&rd=r1"
    359. Case "Ask" : auswahl = "http://de.ask.com/web?q=" & cmbURL.Text & "&qsrc=0&o=0&l=dir&s=&part=&dm=lang"
    360. Case "Amazon" : auswahl = "http://redir.opera.com/amazon/?q=" & cmbURL.Text
    361. Case "Ebay" : auswahl = "http://redir.opera.com/ebay/?q=" & cmbURL.Text
    362. Case "Wikipedia" : auswahl = "http://de.wikipedia.org/wiki/" & cmbURL.Text
    363. End Select
    364. aktiverBrowser.Navigate(auswahl)
    365. End Sub
    367. Private Sub Suche_Click(sender As Object, e As EventArgs) Handles Suche.Click
    368. Suchmaschienen.Show
    369. End Sub
    371. Private Sub LesezeichenImportierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LesezeichenImportierenToolStripMenuItem.Click
    372. Assistent.Show()
    373. End Sub
    374. #End Region
    375. #Region "Downloader"
    376. #End Region
    377. #Region "Suchmaschienen"
    378. Private Sub Suchen()
    379. Select Case My.Settings.Search
    380. 'Case "Google" : auswahl = "http://www.google.de/search?q=" & cmbURL.Text
    381. 'Case "Yahoo" : auswahl = "http://de.search.yahoo.com/search?p=" & TextBox2.Text & "&fr=yfp-t-501&ei=UTF-8&rd=r1"
    382. 'Case "Ask" : auswahl = "http://de.ask.com/web?q=" & TextBox2.Text & "&qsrc=0&o=0&l=dir&s=&part=&dm=lang"
    383. 'Case "Amazon" : auswahl = "http://redir.opera.com/amazon/?q=" & TextBox2.Text
    384. 'Case "Ebay" : auswahl = "http://redir.opera.com/ebay/?q=" & TextBox2.Text
    385. 'Case "Wikipedia" : auswahl = "http://de.wikipedia.org/wiki/" & TextBox2.Text
    386. End Select
    387. aktiverBrowser.Navigate("https://www.google.de/search?q=Test")
    389. aktiverBrowser.Navigate(auswahl)
    390. End Sub
    391. #End Region
    392. End Class
    Wie man mich kontaktieren kann:
    thiemo-melhorn.de

    Jetzt reden wir in .NET

    @Thiemo1991

    Astrein mein Bester...

    So geht das wohl mit dem "Tabbedbrowsing" in WindowsForms.

    Public WithEvents aktiverBrowser As GeckoWebBrowser

    Perfekt um ein Control in VB anzulegen, sofortige Debugger Unterstützung.

    Also Dein Browser ist schon sehr fortgeschritten, und ich kann hier mit deinem Quellcode besser verstehen wo Stolpersteine sind.

    Ich nehme mal mir die Stolpersteine vor, und arbeite diese mal ab.

    VB.NET-Quellcode

    1. Function ÜberprüfeURL(ByVal URL As String) As String
    2. Dim fertig As String = URL
    3. If Not fertig.StartsWith("http://") Then
    4. fertig = "Http://" & URL
    5. End If
    6. Return fertig
    7. End Function


    Frage: Nutzt Du diese Funktion auch woanders?

    Aufgefallen ist mir, innerhalb der Funktion, das Du auf "http://" prüfst, aber evtl. die gesicherten Webseiten mit "https://" nicht berücksichtigt werden. Ich würde einfach nach "http" prüfen, weil das ist der gemeinsame Nenner.
    If Not fertig.StartsWith("http") Then

    Du könntest diese Funktion gut nutzen, um den Suchtext von einer URL zu unterscheiden.



    Vorweg würde ich mir eine Variable mit der ausgesuchten/eingestellten Suchmaschine anlegen. Und den Vorschlag von @Nolde beherzigen.

    VB.NET-Quellcode

    1. Dim aktuelleSuchmaschine as Suchmaschinen
    4. 'Die Aufzählung (Enum = Enumeration) mit dem Namen: "Suchmaschinen"
    5. Public Enum Suchmaschinen
    6. Google
    7. Yahoo
    8. Ask
    9. Amazon
    10. Ebay
    11. Wikipedia
    12. End Enum
    15. 'Zuweisen von einem Wert aus der Aufzählung: "Suchmaschinen"
    16. aktuelleSuchmaschine = Suchmaschinen.Wikipedia
    17. 'oder diese Schreibweise. Bitte nicht nutzen, ist schlechter zu lesen...
    18. aktuelleSuchmaschine = 5


    Anmerkung: Wie Nolde im folgendem Post erwähnt, ist die Schreibweise mit den Zahlenwerten die beste Methode beim Schreiben/Lesen in die Einstellungen des Programms. SettingSave

    Wo überall Du diese Variable nutzt ist beim Laden der Einstellungen und beim Speichern, und bei der Verarbeitung.

    VB.NET-Quellcode

    1. Private Sub SuchemaschienenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SuchemaschienenToolStripMenuItem.Click
    2. Select Case My.Settings.Search
    3. Case "Google" : auswahl = "http://www.google.de/search?hl=de&source=hp&q=" & cmbURL.Text & "&btnG=Google-Suche&meta=&aq=f&oq="
    4. Case "Yahoo" : auswahl = "http://de.search.yahoo.com/search?p=" & cmbURL.Text & "&fr=yfp-t-501&ei=UTF-8&rd=r1"
    5. Case "Ask" : auswahl = "http://de.ask.com/web?q=" & cmbURL.Text & "&qsrc=0&o=0&l=dir&s=&part=&dm=lang"
    6. Case "Amazon" : auswahl = "http://redir.opera.com/amazon/?q=" & cmbURL.Text
    7. Case "Ebay" : auswahl = "http://redir.opera.com/ebay/?q=" & cmbURL.Text
    8. Case "Wikipedia" : auswahl = "http://de.wikipedia.org/wiki/" & cmbURL.Text
    9. End Select
    10. aktiverBrowser.Navigate(auswahl)
    11. End Sub


    Hier ist deine Suchmaschinenauswahl, die wie folgt geändert werden kann.

    VB.NET-Quellcode

    1. Private Sub SuchemaschienenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SuchemaschienenToolStripMenuItem.Click
    2. Select Case My.Settings.Search
    3. Case "Google" : aktuelleSuchmaschine = Suchmaschinen.Google
    4. Case "Yahoo" : aktuelleSuchmaschine = Suchmaschinen.Yahoo
    5. Case "Ask" : aktuelleSuchmaschine = Suchmaschinen.Ask
    6. Case "Amazon" : aktuelleSuchmaschine = Suchmaschinen.Amazon
    7. Case "Ebay" : aktuelleSuchmaschine = Suchmaschinen.Ebay
    8. Case "Wikipedia" : aktuelleSuchmaschine = Suchmaschinen.Wikipedia
    9. End Select
    11. aktiverBrowser.Navigate(ÜberprüfeURL(cmbURL.Text))
    12. End Sub
    14. 'Die Funktion: Dem URL-Parameterwert können auch nicht Webaddressen übergeben werden.
    15. 'Rückgabewert: Eine Webaddresse, mit Prüfung auf Suchanfragen oder konkrete Webaddressen.
    16. Function ÜberprüfeURL(ByVal URL As String) As String
    18. Dim fertig As String = URL 'Der Ausgabe String für die verarbeitete URL.
    19. 'Prüfen ob eine URL oder eine Suchanfrage
    21. Select Case True
    22. Case fertig.StartsWith("http://")
    23. 'nichts an dem Wert in fertig ändern
    24. Case fertig.StartsWith("www")
    25. 'am Anfang http:// anfügen, evtl. https://
    26. fertig = "http://" & fertig
    27. 'fertig = "https://" & fertig
    28. Case fertig.StartsWith("about:") 'für die Browser Einstellungen
    29. 'nichts an dem Wert in fertig ändern
    30. Case fertig.StartsWith("javascript:") 'für den Druckbefehl
    31. 'nichts an dem Wert in fertig ändern
    32. Case fertig.StartsWith("https://")
    33. 'nichts an dem Wert in fertig ändern
    34. Case Else
    35. 'Anfang Suchmaschinenbereich
    36. 'keine URL, benutze Suchmaschinen Aufruf URLs
    38. 'ACHTUNG! Verschachteltes Select Case
    39. Select Case aktuelleSuchmaschine
    40. Case Suchmaschinen.Google
    41. fertig = "http://www.google.de/search?hl=de&source=hp&q=" & fertig & "&btnG=Google-Suche&meta=&aq=f&oq="
    42. 'fertig = "http://www.google.de/search?q=" & fertig
    43. Case Suchmaschinen.Yahoo
    44. fertig = "http://de.search.yahoo.com/search?p=" & fertig & "&fr=yfp-t-501&ei=UTF-8&rd=r1"
    45. Case Suchmaschinen.Ask
    46. fertig = "http://de.ask.com/web?q=" & fertig & "&qsrc=0&o=0&l=dir&s=&part=&dm=lang"
    47. Case Suchmaschinen.Amazon
    48. fertig = "https://www.amazon.de/s/ref=nb_sb_ss_i_1_5?__mk_de_DE=ÅMÅŽÕÑ&url=search-alias%3Daps&field-keywords=" & fertig.Replace(" ", "+")
    49. Case Suchmaschinen.Ebay
    50. fertig = "http://redir.opera.com/ebay/?q=" & fertig
    51. 'ist bestimmt nicht richtig die URL, bitte selber prüfen!
    52. Case Suchmaschinen.Wikipedia
    53. fertig = "https://de.wikipedia.org/wiki/Special:Search?search=" & fertig.Replace(" ", "_")
    54. End Select 'Ende Suchmaschinenbereich
    55. End Select
    57. Return fertig
    59. End Function



    Die URL´s zu den Suchmaschinen, habe ich nicht alle geprüft.

    Vor allem wenn die Url "http://redir.opera.com/" ist, nehme ich an, das ist ein Operabrowser angefertigter Weblink, und funktioniert nicht in GeckoFX.

    Und jedesmal vor dem navigieren einfach die Funktion mit der URL-Prüfung ausführen.

    Quellcode

    1. aktiverBrowser.Navigate(ÜberprüfeURL(cmbURL.Text))


    Hier mal ein Ersatz für deine Suchen-Prozedur.
    Weil jetzt ja alles in URLPrüfen geschieht, ist hier nix mehr drin. Verdammte suche... ?(

    VB.NET-Quellcode

    1. Private Sub Suchen()
    2. aktiverBrowser.Navigate(ÜberprüfeURL(cmbURL.Text))
    3. End Sub


    Das ist eine Möglichkeit.

    Ob und wie eine Funktion wie im Operabrowser oder Firefox im geckoFX aktiviert wird, um die Suchefunktionen zu nutzen, weiss ich nicht.
    Vielleicht ist das schon eingebaut?

    Evtl. muss noch der Initialwert von der Variable aktuelleSuchmaschine im SettingOpen() festgelegt werden.



    Kleiner Tipp:

    Spoiler anzeigen
    In deinem HTTPRequest Teil:

    VB.NET-Quellcode

    1. Public Sub FavIcon()
    2. Try
    3. Dim url As Uri = New Uri(cmbURL.Text)
    4. If url.HostNameType = UriHostNameType.Dns Then
    5. Dim iconURL = "http://" & url.Host & "/favicon.ico"
    6. Dim request As System.Net.HttpWebRequest = CType(System.Net.HttpWebRequest.Create(iconURL), System.Net.HttpWebRequest)
    7. Dim response As System.Net.HttpWebResponse = CType(request.GetResponse(), System.Net.HttpWebResponse)
    8. Dim stream As System.IO.Stream = response.GetResponseStream()
    9. Dim favicon = Image.FromStream(stream)
    10. Me.web_pic.Image = favicon
    11. End If
    12. Catch
    13. End Try
    14. End Sub


    Hier benutzt Du einen Stream, der sollte immer geschlossen werden, wenn er nicht mehr gebraucht wird.

    VB.NET-Quellcode

    1. Dim stream As System.IO.Stream = response.GetResponseStream()
    2. Dim favicon = Image.FromStream(stream)
    3. Me.web_pic.Image = favicon
    4. stream.Close()



    So ich mach mal Pause. Biofestplatte bei 7200rpm...
    Ich habe da noch einiges zu korrigieren im Text und habe noch nicht alle Stolpersteine abgearbeitet, das sollte aber das Hauptproblem abdecken.

    Edit: Edit abgeschlossen. So Biofestplatte mit Kaffee geschmiert. LÄUFT! :P

    c.u. Joshi

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Joshi“ () aus folgendem Grund: Biofestplatte Kaffeeunterversorgung endeckt. Maßnahmen eingeleitet...

    Joshi schrieb:

    Und den Vorschlag von @Nolde beherzigen.


    :thumbsup:

    Wobei nicht ganz richtig umgesetzt.

    VB.NET-Quellcode

    1. Select Case My.Settings.Search Case "Google" :


    Solch sollte damit vermieden werden. Strings so angewendet, das führt schnell mal zu Fehlern, die VS dir nicht zeigen kann, schreib Google an der Stelle mal versehendlich klein. Das reicht schon damit es schief geht. Daher Enum, die Setting als Integer, dadurch weniger Fehleranfälligen Code.

    Joshi schrieb:

    Die URL´s zu den Suchmaschinen, habe ich nicht alle geprüft.


    Die Urls In der Beispiel-Projektmappe von mir funktionieren.
    Cloud Computer? Nein Danke! Das ist nur ein weiterer Schritt zur totalen Überwachung.
    „Wer die Freiheit aufgibt, um Sicherheit zu gewinnen, wird am Ende beides verlieren.“
    Benjamin Franklin

    Mein Dank geht an die mir sehr gehofen haben, so wie ich auch es brauche. DANKE DAFÜR NOCHMALS

    Wie man mich kontaktieren kann:
    thiemo-melhorn.de

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „Thiemo1991“ ()

    Das würde ich zwar gerne einbauen, wenn ich keine zusätzliche Form hätte aber nun mal habe ich die und ich weis nicht wo dieser Code (der auf der ersten Seite steht) auch dafür ist, weil in der ersten Form wird auschließlich NUR überprüft, welches Bild zu welcher Auswahl gehört.

    Ich weis nicht, ob es etwas euch bringt aber ich wwerde den Code aus meiner ersten Form hier rein tun.
    Spoiler anzeigen

    Visual Basic-Quellcode

    1. Public Class Suchmaschienen
    3. Private Sub Suchmaschiene_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    4. If Google.Checked Then
    5. My.Settings.Search = "Google"
    6. tmBrowser.Suche.Image = My.Resources.Google
    7. ElseIf Yahoo.Checked Then
    8. My.Settings.Search = "Yahoo"
    9. tmBrowser.Suche.Image = My.Resources.Yahoo
    10. ElseIf Ask.Checked Then
    11. My.Settings.Search = "Ask"
    12. tmBrowser.Suche.Image = My.Resources.Ask
    13. ElseIf Amazon.Checked Then
    14. My.Settings.Search = "Amazon"
    15. tmBrowser.Suche.Image = My.Resources.Amazon
    16. ElseIf Ebay.Checked Then
    17. My.Settings.Search = "Ebay"
    18. tmBrowser.Suche.Image = My.Resources.ebay
    19. ElseIf Wikipedia.Checked Then
    20. My.Settings.Search = "Wikipedia"
    21. tmBrowser.Suche.Image = My.Resources.Wikipedia
    22. End If
    23. My.Settings.Save()
    24. End Sub
    26. Private Sub Suchmaschiene_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    27. Select Case My.Settings.Search
    28. Case "Google" : Google.Checked = True
    29. Case "Yahoo" : Yahoo.Checked = True
    30. Case "Ask" : Ask.Checked = True
    31. Case "Amazon" : Amazon.Checked = True
    32. Case "Ebay" : Ebay.Checked = True
    33. Case "Wikipedia" : Wikipedia.Checked = True
    34. End Select
    35. End Sub
    36. End Class
    Wie man mich kontaktieren kann:
    thiemo-melhorn.de

    Ich habe das ganze eingebaut mit der Suchmaschiene aber es passiert nichts - nicht mal eine Fehlermeldung bekomme ich - außer, dass, wenn ich ein normales Wort eingebe, mein Programm versucht, daraus eine URL zu machen und keinen Suchbegriff auf Google zu gehen.

    Edit: Die Suche habe ich jetzt so wie @NoIde gelöst. Danke Nochmal.
    Wie man mich kontaktieren kann:
    thiemo-melhorn.de

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Thiemo1991“ ()

    @Joshi

    Ich habe soeben den Code von dem

    Quellcode

    1. DomClick
    Event versucht, es hin zu bekommen, dass ich den Firefox Downloader zu gesicht bekomme aber bekomme ich gar nichts angezeigt, wenn ich auf einen Download-Link klicke. Könntest du mir das in einem Beispiel Projekt schicken?

    MFG
    Wie man mich kontaktieren kann:
    thiemo-melhorn.de

Facebook
Telefonspende