Inloggnings program till Tele2

Loggar man in via hemsidan får man upp säkerhetsvarningen om att säkerhetsbeviset inte är giltigt, och för då få fram sidan måste man först klicka ja. Sedan går det bra att logga in.
Misstänker att detta gör att ditt program fastnar på att säkerhetsbeviset är ogiltigt.

Edit: Så om Tele2 hade fått tummen ur och fixat problemet med att certifikatet gått ut så borde ditt program börja fungera igen...

Ah ok det går säkert att emulera det på någotvis skulle jag tro men som sagt svårt att testa när man inte har något att logga in mot.

Kan det vara så att det räcker med att skruva upp tiden på programmet.

Tack för ett suveränt program. Fungerade kanon tills Tele2 började strula

Är det något du vill testa så säg till

Bäst för Telia ADSL är enligt min mening MiniLogin. Det märks inte alls.

Är det inte så att det är en ganska lång timeout redan nu då? Tror inte att det skulle spela någon roll om jag ökade på den.

Det kanske det är redan. Finns det något som jag kan göra för ett underlätta en felsökning. Vet bara att får meddelande "kunde inte kontakta servern" från ditt program. Det meddelandet kommer var 5:e minut

Programmet fungerade klockrent under 1 månad så troligtvis så har tele2 fortsatt problem med sin server, det konstiga är att det går att logga in manuellt som vanligt

Det fungerar om man ändrar till http istället för https i programmet, dock tappar man krypteringen då...

I vilket program mitt eller? Har du kompilerat om själv för jag minns inte att man kan ändra url i programmet

Hur som helst jag har gjort en debug version ladda ner och skriv vad ni får upp för någon text i msgboxarna som ska ploppa upp.

www.kenworld.se/robert/adsllogin.exe

Ja precis, kompilerade om..
bytte objXMLHTTP.Open "POST", "https://login1.swipnet.se/login.php", False
till objXMLHTTP.Open "POST", "http://login1.swipnet.se/login.php", False

Ok har du testat min debug version då får se om den säger nått.
Om någon vill så kan jag kompilera en version som inte kör mot https (om ni inte själv har vb dvs)

"The date in the certificate is invalid or has expired"
Så om bara Tele2 förlänger sitt certifikat så funkar https igen. Men man kanske kan ställa in i XMLHTTP så att den ska strunta i om certifikat har gått ut?

Ok tror inte att det finns någon sådan funkion men ska undersöka lite.

Edit: hittade nått

SXH_SERVER_CERT_IGNORE_CERT_DATE_INVALID = 8192

The date in the certificate is invalid or has expired. Återkommer med en ny version ni kan testa.

Hmm verkar ju inte funka alls måste felsöka lite.

Borde inte något liknande detta funka? eller?

Inet1.Execute "https://login1.swipnet.se/login.php", "POST", "username=" & Text1.Text & "&password=" & Text2.Text

Vet inte faktiskt klarar "Inet1" (kommer inte ihåg vad komponenten heter) av certifikatshantering.

Edit: hittade inget där heller men den kanske funkar rakt av. Tror att XMLHTTP hämtar inställningar och sånt från IE

Efter lite testande fick jag det att fungera genom att byta ut
Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP")
mot
Set objXMLHTTP = CreateObject("Msxml2.ServerXMLHTTP.4.0")

Vet dock inte om "Msxml2.ServerXMLHTTP.4.0" är standard i Windows, men det kanske du har koll på?

Edit: Fungerar även med Msxml2.ServerXMLHTTP.3.0

Skrev ett litet program... Men jag vet inte om det funkar eller inte.
Här är iaf källkoden (traykoden tagen från xtermin8) http://upl.silentwhisper.net/uplfolders/upload3/Tele2Stadsnat...

Här är den kompilerad till exe: http://upl.silentwhisper.net/uplfolders/upload3/Tele2Stadsnat...

funkade det att köra med 4.0? testade det jag med men fick ett felmeddelande i .open

edit:
winhttp5.dll must be registred to use the serverxmlhttp object.

Posta gärna hela din Private Sub login() om du fått det att funka så uppdaterar jag i min kod med.

Ok.. Vore kanon om ni kunde skriva klart programmet och fixa så den loggar in automatiskt vid uppstart osv Det skulle jag upskatta hilma mycket.
Ska testa lite senare med XMLHTTP, har ändast kört med inet förut...

Här är felmeddelandet från debug versionen:

Error:
-2146697208 Det gick inte att hämta den angivna resursen.

Uppdaterade min version nu och bytte till Msxml2.ServerXMLHTTP.3.0 (eftersom inte 4.0 fungerade på mitt winxp så kan troligtvis flera köra med 3.0)

Här är den nya sub login():

Private Sub login()
    If Text1.Text <> "" And Text1.Text <> "user" Then
        'On Error GoTo errHandler
        Dim objXMLHTTP, HTML
        Set objXMLHTTP = CreateObject("Msxml2.ServerXMLHTTP.3.0")

        objXMLHTTP.setOption 2, 8192
            
        If list1 = "Tele2" Then
            objXMLHTTP.Open "POST", "https://login1.swipnet.se/login.php", False
        Else
            objXMLHTTP.Open "POST", "http://valo1.tiscali.se/", False
        End If
        objXMLHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
        objXMLHTTP.Send "username=" & Text1.Text & "&password=" & Text2.Text
        

    End If
    Exit Sub
errHandler:
    MsgBox "Error:" & vbCrLf & Err.Number & " " & Err.Description
End Sub

För har jag fattat MSDN rätt så ska objXMLHTTP.setOption 2, 8192 göra så att den struntar i datumet på certifikatet.

Programmet ligger klart på www.kenworld.se/robert/adsllogin.exe

Du har inte med objXMLHTTP.setOption 2, 8192 ser jag funkar det för dig iaf eller?

EDIT: Verkar ju många som använder programmet nu kanske någon har lust att fixa en snygg ikon åt det?

Ditt program fungerar fint! Såg också i MSDN att man ska sätta 2 till 8192. Men det fungerar utan för mig, någon mer kanske kan testa?

Kan ju aldrig skada att sätta den iaf.

Uppade sourcen till ftpn med om någon är intresserad efter dessa förändringar.

Programmet:
www.kenworld.se/robert/adsllogin.exe

Source:
www.kenworld.se/robert/source.txt

Det kommer upp en MsgBox med inehållet från php filen... Kan du ta bort det och kompilera om...?

Verkar ha blivit något strul med nya får följande meddelande:

Run-time error '429':

ActiveX component can't create object

Uhm tog jag inte bort det. Har för mig att det var det sista jag gjorde. Jaja kommer en ny fil snart.

Ok vad kör du för windows och vilket service pack har du. Ska kolla om man kan ladda ner XMLHTTP komponenten och inkludera den eftersom det är troligtvis den du saknar.

Har uppdaterat mitt program lite.... Här har ni programmet, och det ska funka.. Hoppas någon kan verifiera..

http://upl.silentwhisper.net/uplfolders/upload3/T2Loggin.exe

källkod
http://upl.silentwhisper.net/uplfolders/upload3/kod.txt

På denna gamla maskin så har jag ME. Har inte provat på XP burken ännu