请问大家：我的电脑是ADSL拔号上网的，怎样才能用VB实现拔号和连通立即计时功能啊？？

Question

急盼

Answer 1

请大家看看这（不能真正断开拔号连接，只是将IE设为“脱机工作”而已）（我的系统是Win2K+ADSL+VB6.0)，有什么更好的办法吗？（能拔号、计时、断开）Option ExplicitPrivate Const INTERNET_OPTION_CONNECTED_STATE = 50
Private Const INTERNET_STATE_DISCONNECTED_BY_USER = &H10
Private Const ISO_FORCE_DISCONNECTED = &H1
Private Const INTERNET_STATE_CONNECTED = &H1
'
Private Type INTERNET_CONNECTED_INFO
    dwConnectedState    As Long
    dwFlags             As Long
End Type
Private Declare Function InternetSetOption Lib "wininet.dll" Alias "InternetSetOptionA" (ByVal hInternet As Long, ByVal dwOption As Long, lpBuffer As Any, ByVal dwBufferLength As Long) As LongPrivate Sub Command1_Click()
Dim ConInfo As INTERNET_CONNECTED_INFO, lRetValue As Long
ConInfo.dwConnectedState = INTERNET_STATE_DISCONNECTED_BY_USER
ConInfo.dwFlags = ISO_FORCE_DISCONNECTEDlRetValue = InternetSetOption(0&, INTERNET_OPTION_CONNECTED_STATE, ConInfo, Len(ConInfo))
If lRetValue = True Then '表示成功
    MsgBox "OK!"
End If
End Sub