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.
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
'----------------------------- 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.