Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Quelltext
Autor: MS
Datum: 24.11.01 20:45
Private Function GetSessionID() Dim lngPos As Long Dim strSessionID As String With WebBrowser1.Document.documentElement lngPos = InStr(.outerHTML, "&sessionid=") If lngPos > 0 Then strSessionID = Mid$(.outerHTML, lngPos + 12, 19) End If End With End Function ' Ereignis wird ausgelöst, sobald die Webseite ' vollständig geladen wurde Private Sub WebBrowser1_DocumentComplete(ByVal pDisp _ As Object, URL As Variant) On Error Resume Next WebBrowser1.Tag = "" End Sub ' URL (Webseite) laden Private Sub URL_Load(ByVal sURL As String) Dim sQuelltext As String With WebBrowser1 .Tag = "Load" .Navigate sURL ' Warten bis Seite vollständig geladen ist While .Tag <> "" DoEvents Wend End With End Sub ' Webseite laden Private Sub cmdLoad_Click() URL_Load "home.nexgo.de/m.spieler/hmm.htm" End Sub ich hab schon etliche sachen probiert GetSessionID ins text1.Text zu bekommen aber nicht geschafft...wahrscheinlich stelle ich mich nur zu blöd an. gruß ms

Quelltext	56	MS	24.11.01 17:19
Re: Quelltext	310	Dieter	24.11.01 17:29
Re: Quelltext	54	MS	24.11.01 19:41
Re: Quelltext	262	Dieter	24.11.01 20:30
Re: Quelltext	32	MS	24.11.01 20:45
No Problem	398	Dieter	24.11.01 21:01
DANKE!!!!!! und noch was	35	MS	24.11.01 21:55
Re: DANKE!!!!!! und noch was	254	Dieter	24.11.01 21:56
DANKe!	30	MS	25.11.01 12:51

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen