28. marts 2002 - 11:19Der er
2 kommentarer og 1 løsning
Dial-up/online time
Søges: En funktion der starter som en service, når computeren starter op, aktiveres når der åbnes en internetforbindelse (Dial-up), starter en timer som kører så længe forbindelsen er åben, gemmer antaller af minutter forbindelsen har været åben og som kan summere antallet af minutter pr. dag.
'----------------------------- Form1 ----------------------------- 'Hvis du laver et lille program som starter op sammen med computeren 'du kan ligge det i menu start. 'Hvis du er online poper programmet op og hvis du er offline forsvender det igen.
Option Explicit
Private Declare Function InternetGetConnectedState Lib "wininet.dll" _ (ByRef lpSFlags As Long, _ ByVal dwReserved As Long) As Long
Public Function Online() As Boolean Online = InternetGetConnectedState(0&, 0&) End Function
Private Sub Form_Load() ' Programmet kan kun startes en gang. If App.PrevInstance = True Then End ' Form1 forsvender Me.Hide ' timer tid i milisek Timer1.Interval = 500 End Sub
Private Sub Timer1_Timer() If Online = True Then Me.Caption = "du er online." ' Form1 poper op Me.Show Else Me.Caption = "du er offline." ' Form1 forsvender Me.Hide End If End Sub '----------------------------- Form1 -----------------------------
answermaster, det glemte jeg da helt i skyndingen: jeg bruger Windows 2000 Professional...
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.