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 LongPrivate Const INTERNET_AUTODIAL_FORCE_ONLINE = 1
Private Const INTERNET_AUTODIAL_FORCE_UNATTENDED = 2Private 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