Consommation forfait freetelecom

Télécharger le projet
Commenter

Description

Si vous avez le forfait FreeTelecom comme moi, vous tapez votre login et votre mot de pass et il vous renvoie votre temps de connexion.

Il sauve aussi vos infos dans un fichier log.

Source / Exemple : 


Private Sub Form_Load()
On Error GoTo erreure
Dim Var1 As String
Dim Var2 As String
Dim log As Integer
log = FreeFile
Open "log.txt" For Input As #log
Input #log, Var1
Input #log, Var2
Close #log
Text1 = Var1
Text2 = Var2
Command1_Click
Exit Sub
erreure:
Close #1
End Sub

Private Sub Command1_Click()
tel = Text1
pass = Text2
URL = "http://conso.freetelecom.fr/conso.pl?login=" & tel & "&passwd=" & pass
Web.Navigate URL
End Sub

Private Sub web_DocumentComplete(ByVal pDisp As Object, URL As Variant)
On Error GoTo erreure
'Dim idoc As IHTMLDocument
Set idoc = Web.Document
'Dim e As IHTMLcollection
Set e = idoc.All.tags("b")
myText = e.Item(3).innerText
If myText = "Outils" Then
GoTo erreure
Else
Label3.Caption = myText
Open "log.txt" For Output As #2
Print #2, Text1
Print #2, Text2
Close #2
End If
Exit Sub
erreure:
Text1 = ""
Text2 = ""
Label3.Caption = "Erreur"
End Sub

Conclusion :


Voila, n' hésitez pas a mttre des commentaires. Je remercie gmanouvrier pour son aide pour l' analyse html.
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Jef)