---
title: "Försöker logga in på hemsida"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/68915-försöker-logga-in-på-hemsida"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "Viking"
published: "2003-02-20T21:52:54.000Z"
updated: "2003-02-21T21:35:30.000Z"
replies: 4
views: 284
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/dotnet/68915-försöker-logga-in-på-hemsida"
---

# Försöker logga in på hemsida

## #1 — Viking, 2003-02-20T21:52Z

Hej

Håller på och försöker fixa så att jag kan logga in från ett VB-program på en sida jag håller på med. Har denna koden nu:

```
Private Sub Form_Load()

    Dim ieURL As InternetExplorer
    Set ieURL = New InternetExplorer
    ieURL.Navigate "***"
    
    Dim strPass As String
    Dim strUser As String
    
    strPass = "pass"
    strUser = "user"
    
    SendKeys "{TAB}"
    SendKeys "{TAB}"
    SendKeys strUser
    SendKeys "{TAB}"
    SendKeys strPass
    SendKeys "{TAB}"
    SendKeys "{ENTER}"
    
End Sub
```

Problemet är att ingenting händer. Någon som vet varför? :D Eller har några förslag på bättre sätt att lösa (finns säkert) :r

En annan sak, hur kan man kolla hur det går för programmet att ansluta till sidan? Finns det någon funktion eller så?

Permalänk: https://www.webforum.nu/p/68915

## #2 — niko, 2003-02-20T22:36Z

> Någon som vet varför?

Ja. *Sendkeys* skickar tangenttryckningar till den applikation som har fokus. En osynlig instans av IE kan inte ha input-fokus. Du skickar alltså tangentnedtryckningar i blindo.

> Eller har några förslag på bättre sätt att lösa (finns säkert)

Ja. Om du bara vill logga in HTTP-mässigt så är det nog bättre att använda en Winsockkontroll. Hur koden då ser ut beror på rätt mycket saker: Hur sidan ser ut. Namn på variablerna som postas. Eventuella cookies. Exakt vad du vill göra. Osv ..

Gein höll på med samma sak nyligen: <http://www.webforum.nu/showthread.php?threadid=63987>.

Han kanske har lite kodexempel?

> hur kan man kolla hur det går för programmet att ansluta till sidan?

Vill du ha visuell feed-back från din nuvarande kod kan du skriva tex:

```
Private WithEvents ieURL  As InternetExplorer

Private Sub Form_Load()
    Set ieURL = New InternetExplorer
    ieURL.Navigate "***"

    Dim strPass As String
    Dim strUser As String
    
    'strPass = "pass"
    'strUser = "user"
    
    'SendKeys "{TAB}"
    'SendKeys "{TAB}"
    'SendKeys strUser
    'SendKeys "{TAB}"
    'SendKeys strPass
    'SendKeys "{TAB}"
    'SendKeys "{ENTER}"
End Sub

Private Sub ieURL_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
    MsgBox "Japp, nu är vi inne på sidan: " & ieURL.Document.Title
End Sub
```

Permalänk: https://www.webforum.nu/p/958006

## #3 — Viking, 2003-02-21T12:04Z

Ja, jag vet att det ínte är fokuserat, men hur gör man det? :) SetFocus funkar inte, och det är den enda jag har hört om :r Har inte hållit på så länge :D

Permalänk: https://www.webforum.nu/p/958254

## #4 — niko, 2003-02-21T17:39Z

Som jag sa ovan så kan en osynlig osynlig/fönsterlös instans av något aldrig ha fokus. Isåf fall är det bättre du använder en visuell Explorer-kontroll (Project-\>Components-\>Microsoft Internet Controls, dra sen ut"jordgloben" på formuläret.)

Din kod bör sen bli:

```
Private Sub Form_Load()
    WebBrowser1.Navigate "***"
End Sub

Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
    Dim strPass As String, strUser As String
    strPass = "pass"
    strUser = "user"
    SendKeys "{TAB}"
    ' osv
End Sub
```

Permalänk: https://www.webforum.nu/p/958459

## #5 — Viking, 2003-02-21T21:35Z

Ah, tackar! :)

Permalänk: https://www.webforum.nu/p/958576

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/68915-försöker-logga-in-på-hemsida