Top-Themen

Aktuelle Themen (A bis Z)

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, 4254 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 ..
Ähnliche Inhalte
Windows Netzwerk
Anmeldedaten von Domänencontrollern zwischenspeichern bei Netzwerkzugriff
Frage von EinsteinJuniorWindows Netzwerk4 Kommentare

Hallo, in einem kleinen Büro das per VPN an unseren Hauptsitz angebunden ist, steht ein Windows 8.1 PC der ...

TK-Netze & Geräte
Durchsage für ELA zwischenspeichern - Asterisk?
gelöst Frage von BirdyBTK-Netze & Geräte3 Kommentare

Hallo zusammen, ich habe mal wieder eine kleine Herausforderung zu bestreiten und hoffe, dass vielleicht jemand schonmal soetwas umgesetzt ...

Windows Tools
Zwischenspeicher TS RDP-Verbindung
Frage von YannoschWindows Tools3 Kommentare

Hallo zusammen, Die Eckdaten vorneweg: Win 2k8R2 TS-Server Durch Gruppenrichtlinie verwaltet allerdings keine GR zum Clip/Zwischenspeichern Ist durch ca. ...

Visual Studio
Variablen in VB.NET
gelöst Frage von MarcoBornVisual Studio4 Kommentare

Hallo Forum, in VB.NET gibt es ja die Möglichkeit, Variablen global oder lokal zu definieren. Zusätzlich können Variablen auch ...

Neue Wissensbeiträge
Verschlüsselung & Zertifikate

Die Hölle friert ein weiteres Stück zu: Microsoft integriert OpenSSH in Windows

Information von ticuta1 vor 2 StundenVerschlüsselung & Zertifikate

Interessant SSH-Kommando in CMD.exe und PowerShell

Apple

IOS 11.2.1 stopft HomeKit-Remote-Lücke

Tipp von BassFishFox vor 1 TagApple

Das Update für iPhone, iPad und Apple TV soll die Fernsteuerung von Smart-Home-Geräten wieder in vollem Umfang ermöglichen. Apple ...

Windows 10

Windows 10 v1709 EN murkst bei den Regionseinstellungen

Tipp von DerWoWusste vor 1 TagWindows 10

Dieser kurze Tipp richtet sich an den kleinen Personenkreis, der Win10 v1709 EN-US frisch installiert und dabei die englische ...

Webbrowser

Kein Ton bei Firefox Quantum über RDP

Tipp von Moddry vor 1 TagWebbrowser

Hallo Kollegen! Hatte das Problem, dass der neue Firefox bei mir auf der Kiste keinen Ton hat, wenn ich ...

Heiß diskutierte Inhalte
Windows Server
RODC kann nicht aus Domäne entfernt werden
Frage von NilsvLehnWindows Server19 Kommentare

HAllo, ich arbeite in einem Universitätsnetzwerk mit 3 Standorten. Die Standorte haben alle ein ESXi Cluster und auf diesen ...

Hardware
Kein Bild mit nur einer bestimmten Grafikkarten - Mainboard Konfiguration
gelöst Frage von bestelittHardware18 Kommentare

Hallo zusammen, ich hatte schon einmal eine ähnliche Frage gestellt. Damals hatte ich genau das gleiche Problem. Allerdings lies ...

Netzwerkmanagement
Mehrere Netzwerkadapter in einem PC zu einem Switch zusammenfügen
Frage von prodriveNetzwerkmanagement17 Kommentare

Hallo zusammen Vorweg, ich konnte schon einige IT-Probleme mit Hilfe dieses Forums lösen. Wirklich klasse hier! Doch für das ...

Hardware
Links klick bei Maus funktioniert nicht
gelöst Frage von Pablu23Hardware16 Kommentare

Hallo erstmal. Ich habe ein Problem mit meiner relativ alten maus jedoch denke ich nicht das es an der ...