Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

VB.Net firefox URL in den Zwischenspeicher

Frage Entwicklung Visual Studio

Mitglied: waldgnarf

waldgnarf (Level 1) - Jetzt verbinden

27.11.2009 um 18:01 Uhr, 4203 Aufrufe, 3 Kommentare

Hallo, ich habe gelesen das die Adressenleiste von Firefox kein Handle hat, und wollte es mit SendKeys versuchen die URL in den Zwischenspeicher zu kopieren.
Das Fenster wird zwar gefunden und ist dann im Vordergrund aber bei SendKeys Anweisung wird das Firefoxfenster inaktiviert.

01.
Imports System.Threading 
02.
 
03.
Public Class COPIER 
04.
    Dim MOZILL As String = "- Mozilla Firefox" 
05.
    Public Declare Function EnumWindows Lib "user32.dll" (ByVal lpEnumFunc As EnumWindowsProc, ByVal lParam As Int32) As Int32 
06.
    Public Declare Function IsWindowVisible Lib "user32.dll" (ByVal hwnd As IntPtr) As Boolean 
07.
    Public Delegate Function EnumWindowsProc(ByVal hwnd As IntPtr, ByVal lParam As Int32) As Boolean 
08.
    Public Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hwnd As IntPtr, ByVal lpString As String, ByVal cch As Int32) As Int32 
09.
    Public Declare Function GetWindowTextLength Lib "user32.dll" Alias "GetWindowTextLengthA" (ByVal hwnd As IntPtr) As Int32 
10.
    Public Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hwnd As IntPtr, ByVal nIndex As Int32) As Int32 
11.
    Public Declare Function GetParent Lib "user32.dll" (ByVal intptr As IntPtr) As IntPtr 
12.
    Public Const GWL_HWNDPARENT As Int32 = -8 
13.
    Private NEWILI As List(Of String) 
14.
    Public Declare Function GetConsoleTitle Lib "kernel32" Alias "GetConsoleTitleA" (ByVal lpConsoleTitle As String, ByVal nSize As Integer) As Integer 
15.
    Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long 
16.
    Declare Function ShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Integer, ByVal nCmdShow As Integer) As Integer 
17.
    Declare Auto Function FindWindow Lib "USER32.DLL" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr 
18.
    Declare Auto Function SetForegroundWindow Lib "USER32.DLL" (ByVal hWnd As IntPtr) As Boolean 
19.
 
20.
    Private Sub COPIER_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
21.
        Me.WindowState = FormWindowState.Minimized 
22.
 
23.
        NEWILI = New List(Of String) 
24.
        EnumWindows(AddressOf ENVIPR, CInt(True)) 
25.
 
26.
        For Each FENSTE As String In NEWILI 
27.
            If InStr(FENSTE, MOZILL) > 0 Then 
28.
                MOZILL = FENSTE 
29.
                Exit For 
30.
            End If 
31.
        Next 
32.
        ShowWindow(FindWindow(vbNullString, MOZILL), 1) 
33.
        SetForegroundWindow(FindWindow(vbNullString, MOZILL)) 
34.
 
35.
        Thread.Sleep(900) 
36.
 
37.
        SendKeys.Send("^L") 
38.
        SendKeys.Send("^C") 
39.
    End Sub 
40.
 
41.
    Private Function ENVIPR(ByVal hwnd As IntPtr, ByVal lParam As Int32) As Boolean 
42.
        If GetParent(hwnd) = IntPtr.Zero Then 
43.
            If GetWindowLong(hwnd, GWL_HWNDPARENT) = 0 Then 
44.
                Dim str As String = String.Empty.PadLeft(GetWindowTextLength(hwnd) + 1) 
45.
                GetWindowText(hwnd, str, str.Length) 
46.
                If Not String.IsNullOrEmpty(str.Substring(0, str.Length - 1)) Then NEWILI.Add(str.Substring(0, str.Length - 1)) 
47.
            End If 
48.
        End If 
49.
        ENVIPR = True 
50.
    End Function 
51.
  
52.
End Class
Gibt es eine Möglichkeit an die URL zu kommen?

Gruß waldgnarf
Mitglied: TsukiSan
29.11.2009 um 11:10 Uhr
Hallo waldgnarf,

das ist zwar VB5/6 aber es gibt dir eventuell einen Hinweis für VB.Net

Gruss und schönen Advent

Tsuki
Bitte warten ..
Mitglied: waldgnarf
29.11.2009 um 17:28 Uhr
Hallo, ich geh das jetzt anders an, hab mir einen Webbrowser gemacht.
Jetzt steh ich allerdings wieder vor ein anderes Problem.
Ich habe Tabs in denen Webbrowser generiert werden die zu URLs navigieren, syncron zum ersten Webbrowser.
Also wenn der im ersten Tab befindliche Webbrowser1 durch clicken auf einen Link weiter navigiert öffnet sich ein neuer Tab2+Webbrowser2 und navigiert zur Webbrowser1 URL und so weiter.

Jetzt hab ich massig Tabs+Webbrowser mit unterschiedlichen URLs :D und will nun die URLs der Tabs+Webbrowser einzeln ausgeben, aber wie weiss ich nicht.

01.
Private Sub BURLSL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BURLSL.Click 
02.
 
03.
        For Each BROTAB In TABCON.TabCount.ToString 
04.
            MsgBox(NEWWEB(A).Url.AbsoluteUri) 
05.
        Next 
06.
         
07.
    End Sub 
08.
 
09.
    Private Sub WBMAIN_Navigated(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles WBMAIN.Navigated 
10.
        For A = 0 To TABCON.TabCount 
11.
        Next 
12.
 
13.
        NEWTAB(A) = New TabPage 
14.
        NEWWEB(A) = New WebBrowser 
15.
 
16.
        TABCON.Controls.Add(NEWTAB(A)) 
17.
        NEWTAB(A).Name = "NEWTAB" & A 
18.
        NEWTAB(A).Text = "NEWTAB" & A 
19.
 
20.
 
21.
        NEWTAB(A).Controls.Add(NEWWEB(A)) 
22.
        NEWWEB(A).Dock = DockStyle.Fill 
23.
        NEWWEB(A).Navigate(WBMAIN.Url.AbsoluteUri) 
24.
 
25.
'URLLIS = URLLIS & NEWWEB(A).Url.AbsoluteUri & vbNewLine   -----------MsgBox(URLLIS ) in BURLSL_Click gibt auch ein fehler 
26.
 
27.
    End Sub
Gruß waldgnarf
Bitte warten ..
Mitglied: waldgnarf
29.11.2009 um 23:56 Uhr
Habe es mit : URLLIS = URLLIS & e.Url.AbsoluteUri & vbNewLine
hin bekommen.

Gruß waldgnarf
Bitte warten ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(1)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
Visual Studio
gelöst VB.Net - Problem mit Umleitung der Standard-Ausgabe (4)

Frage von emeriks zum Thema Visual Studio ...

Visual Studio
gelöst Vb.net Pfadangabe mit Wildcards wie Stern Regex Pattern (2)

Frage von Pilger83 zum Thema Visual Studio ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
gelöst Server erkennt Client nicht wenn er ausserhalb des DHCP Pools liegt (28)

Frage von Mar-west zum Thema LAN, WAN, Wireless ...

Outlook & Mail
Outlook 2010 findet ost datei nicht (18)

Frage von Floh21 zum Thema Outlook & Mail ...

Windows Server
Server 2008R2 startet nicht mehr (Bad Patch 0xa) (18)

Frage von Haures zum Thema Windows Server ...