/ Forside/ Teknologi / Udvikling / VB/Basic / Tip
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Connect til internettet automatisk.
Er bedømt af 0 brugere
Fra : rean
Vist : 506 gange

Dato : 28-11-00 09:18

Her er en måde, hvorpå du kan connecte til internettet automatisk.

*******************************************
Private Declare Function InternetAutodial Lib "wininet.dll" _
(ByVal dwFlags As Long, ByVal dwReserved As Long) As Long

Private Const INTERNET_AUTODIAL_FORCE_ONLINE = 1
Private Const INTERNET_AUTODIAL_FORCE_UNATTENDED = 2

Private Declare Function InternetAutodialHangup Lib "wininet.dll" _
(ByVal dwReserved As Long) As Long

Private Sub Command1_Click()

If InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE, 0) Then
   MsgBox "Du er lukket på internettet", vbInformation
End If

'Luk på internettet.

If InternetAutodial(INTERNET_AUTODIAL_FORCE_UNATTENDED, 0) Then
   MsgBox "Du er lukket på internettet", vbInformation
End If

'Luk af internettet.

If InternetAutodialHangup(0) Then
MsgBox "Du er lukket fra internet", vbInformation
End If

End Sub



 
 
Du har følgende muligheder
Eftersom du ikke er logget ind i systemet, kan du ikke lave en bedømmelse til dette tip.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.
Søg
Reklame
Statistik
Spørgsmål : 177551
Tips : 31968
Nyheder : 719565
Indlæg : 6408825
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste