P.T.A.M.
Administrator
Joined: 08 Oct 2003
Posts: 752
Location: Greece
|
 Posted: Oct 10th, 2003 08:07 AM Post subject: Hang Up Internet Connection |
 |
|
Add a command button(Command1) to your form and add this code :
| Code: | Private Declare Function InternetAutodial Lib "wininet.dll" (ByVal dwFlags As Long, ByVal dwReserved As Long) As Long
Private Declare Function InternetAutodialHangup Lib "wininet.dll" (ByVal dwReserved As Long) As Long
Const Internet_Autodial_Force_Unattended As Long = 2
Dim lResult As Long
Private Sub Command1_Click()
lResult = InternetAutodialHangup(0&)
End Sub |
_________________
No one is completely useless. They can at least be an example of what to avoid. |
|
