vb.net中如何侦测是否连线，自动拨号，自动断线

[2066]

1.如何自动断线
2.如何侦测是否连，
3.如没有连线则自动拨号

在csdn中搜索许多代码，都是vb6的，vb.net中该如何写，希望详细指点。

[designonline]

2.如何侦测是否连，
'/ <summary>
'/ 应用程序的主入口点。
'/ </summary>
Shared<STAThread()> _
Sub Main()
Application.Run(New Form1())
End Sub 'Main


Private Sub Form1_Load(sender As Object, e As System.EventArgs)
MessageBox.Show(IsConnectedToInternet().ToString())
End Sub 'Form1_Load

'Creating the extern function...
Private Shared<DllImport("wininet.dll")> _
Function InternetGetConnectedState(ByRef Description As Integer, ReservedValue As Integer) As Boolean


'Creating a function that uses the API function...
Public Shared Function IsConnectedToInternet() As Boolean

Dim Desc As Integer
Return InternetGetConnectedState(Desc, 0)
End Function 'IsConnectedToInternet

[8620]

System.Diagnostics.Process.Start("rasphone.exe") '调用拨号
'功能键，就放到大括号中如“{F4}” 另：用+代表Shift,用^代表Ctrl,用%代表Alt
Delay(FromOADate(delayT * 2))　　＇延时函数
Dim sendKeys As System.Windows.Forms.SendKeys　　
sendKeys.SendWait("{Enter}")　　　　　　　　＇发送enter键，断线
sendKeys.SendWait("{Enter}")　　　　　　　　　＇确认断线

Delay(FromOADate(delayT * 2))　　　　＇延时

sendKeys.SendWait("{Enter}")　　　　　＇连线







延时函数
#Region "Delay函数"
Public Sub Delay(ByRef HowLong As Date)
Dim temptime As Object
temptime = DateAdd(DateInterval.Second, HowLong.ToOADate, Now)
While temptime > Now
Application.DoEvents()
End While
'System.Threading.Thread.CurrentThread.Sleep(1000)

End Sub


参考：
sendkeys的用法：
http://www.csdn.net/develop/Read_Article.asp?Id=7779
调用拨号：
http://expert.csdn.net/Expert/topic/2194/2194750.xml?temp=.6698419

[2066]

上面的代码能用吗？
等了一天了，等来的是什么？