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