Connection automatique à une heure demander et deconnection

Soyez le premier à donner votre avis sur cette source.

Vue 6 722 fois - Téléchargée 528 fois

Description

Vous avez juste à entrez l' heure de connection et l' heure de deconnection. C'est le premier code que je met sur se site alors soyez sympa ...

Source / Exemple :


'functions nécessaires pour se connecter, se deconnecter et vérifier la connection
Const Internet_Autodial_Force_Unattended As Long = 2
Private Declare Function InternetAutodial Lib "wininet.dll" (ByVal dwFlags As Long, ByVal dwReserved As Long) As Long
Private Declare Function InternetAutodialHangup Lib "wininet.dll" (ByVal dwReserved As Long) As Long
Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long

'affiche l' heure...
Private Sub Timer1_Timer()
heure.Caption = Format(Time, "hh:mm")
End Sub

'pour fermer les boucles lorsque l' on quite le programme sans avoir cliquer sur arrêter
Private Sub Form_Unload(Cancel As Integer)
End
End Sub

'le bouton pour lancer ou arrêter le programme
Private Sub go_Click()
If (go.Caption = "Démarrer") Then
go.Caption = "Arrêter"
heurech.Enabled = False
heurecm.Enabled = False
heuredh.Enabled = False
heuredm.Enabled = False
prog
Else
deconnection = InternetAutodialHangup(0&)
go.Caption = "Démarrer"
heurech.Enabled = True
heurecm.Enabled = True
heuredh.Enabled = True
heuredm.Enabled = True
temps.Caption = "Arrêter"
End If
End Sub

'le programme
Private Sub prog()
Dim hc, hd, tr, heure As String
hc = heurech.Text * 3600 + heurecm.Text * 60
hd = heuredh.Text * 3600 + heuredm.Text * 60
    Do While go.Caption = "Arrêter"
    DoEvents
    heure = Format(Timer, "####0")
        If (hc >= heure) Then
            tr = hc - heure & "secondes avant connection"
        Else
            tr = 86400 + hc - heure & "secondes avant connection"
        End If
    temps.Caption = tr
        If (tr = "0secondes avant connection") Then
            temps.Caption = "Connection..."
connection: Connect = InternetAutodial(Internet_Autodial_Force_Unattended, 0&)
            Dim check As Boolean
            check = InternetGetConnectedState(0&, 0&)
                If (check = True) Then
                    temps.Caption = "Connecter !!!"
                    Do While go.Caption = "Arrêter"
                    DoEvents
                    heure = Format(Timer, "####0")
                        If (hd > heure) Then
                            temps.Caption = hd - heure & "secondes avant déconnection"
                        Else
                            deconnection = InternetAutodialHangup(0&)
                            go.Caption = "Démarrer"
                            heurech.Enabled = True
                            heurecm.Enabled = True
                            heuredh.Enabled = True
                            heuredm.Enabled = True
                            temps.Caption = Terminer
                        End If
                    Loop
                Else
                    GoTo connection
                End If
        End If
    Loop
End Sub

Conclusion :


Voila, si vous avez des questions n' hésitez pas.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
cs_pepekiss Messages postés 24 Date d'inscription samedi 17 avril 2004 Statut Membre Dernière intervention 14 février 2005
7 nov. 2004 à 01:33
cela ne marche pas, du moins pas avec moi.
guizmo123 Messages postés 62 Date d'inscription dimanche 6 octobre 2002 Statut Membre Dernière intervention 13 avril 2007
22 déc. 2002 à 23:48
Attend j'vais t'tester ça...

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.