Visual Basic – Konekcija na Internet

Da li je vašoj aplikaciji potrebno da se konektuje na Internet? Ukoliko kreirate na primer e-mail aplikaciju sigurno će vam trebati ova opcija. Ovo ćemo izvesti korišćenjem Internet Explorer-ovog automatskog „dial-up“ podešavanja. Ukoliko kliknete na ikonu „Internet Options“ u Control Panel prozoru, na kartici „Connection“ videćete listu svih mogućih konekcija. Mi ćemo uz pomoć nekoliko API funkcija iskoristiti ove konekcije za uspostavljanje i prekidanje veze sa Internetom. Pazite da vam ne bude potvrđena opcija „“Never Dial a Connection““ jer onda ovaj kod neće raditi (ovo je slično radu Internet Explorer-a).

Sledeći kod postavite u sekciju General – declarations:

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

Potom dodajte i ostali kod u događaj Click dugmeta „Command1“:

Private Sub Command1_Click()

‘upit korisniku da li želi da se konektuje
If InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE, 0) Then

    MsgBox „Konektovani ste!“, vbInformation

End If







‘automatski početak biranja broja provajdera
If InternetAutodial(INTERNET_AUTODIAL_FORCE_UNATTENDED, 0) Then

    MsgBox „Konektovani ste!“, vbInformation

End If
‘diskonekcija ostvarene veze
If InternetAutodialHangup(0) Then

   MsgBox „Diskonekcija!“, vbInformation

End If

Pratite Krstaricu na www.krstarica.com