någon som känner till IC Login?, ett program som främst
är till för att ansluta sej till Com Hems internet, men funkar
utmärkt även till Telia ADSL. Jag använder själv Telias ADSL
och skulle vilja prova på att göra ett sådant program.
Jag har hört att detta inte ska vara särskilt svårt att göra till Visual Basic. Någon som vet hur det ska gå till?
Man ska ju ansluta sej till login1.telia.com och sedan skicka
två strängar, med login och lösen ord.

Någon som kan hjälpa mej?

Skapa en form med en knapp och en winsock-kontroll och klistra sedan in denna koden. Inte så snyggt skrivet, jag skulle bara testa om man kunde skicka sms via torget, men dom la in en spärr sedan =(






Private Sub Command1_Click()

With WinsockPost
.RemoteHost = "stream.torget.se"
.RemotePort = 80
.Connect
End With

End Sub

Private Sub WinsockPost_Connect()
Dim s As String, ss As String

ss = "validate=MzEw&action=send&phone=0705000000&message=sms+från+mitt+prog"


s = "POST /cgi-bin/scripts/sms.pl HTTP/1.1" & vbCrLf
s = s & "Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-excel, application/msword, */*" & vbCrLf
s = s & "http://www.torget.se/v3/sms/" & vbCrLf
s = s & "Accept-Language: sv" & vbCrLf
s = s & "Content-Type: application/x-www-form-urlencoded" & vbCrLf
s = s & "Accept-Encoding: gzip, deflate" & vbCrLf
s = s & "User-Agent: Mozilla/4.0" & vbCrLf
s = s & "Host: http://www.torget.se" & vbCrLf
s = s & "Content-Length: " & Len(ss) & vbCrLf
s = s & "Connection: Keep-Alive" & vbCrLf
s = s & vbCrLf
s = s & ss & vbCrLf

With WinsockPost
.SendData s
End With
End Sub

Private Sub WinsockPost_DataArrival(ByVal bytesTotal As Long)
Dim a As String
WinsockPost.GetData a
Debug.Print a
End Sub

Private Sub WinsockPost_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
Debug.Print "err: " & Description
End Sub



/Johan

Jag kan rekommendera ADSL Easy som finns på http://www.disc.nu/adsleasy.html. Det finns även en avancerad version av programmet som heter ADSL Easy Pro, adressen är då http://www.disc.nu/aepro/index.shtml.

/Hjorten