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