怎么用VB编写PPPOE拨号程序

如何用VB编写PPPOE拨号程序?
在百度上也找了一些代码,测试中发现,是在系统中创建一个PPPOE拨号,然后运行,弹出一个系统自带的拨号窗口
可不可以不弹出这个窗口??

[解决办法]

VB code

'断开Internet网络连接Public Function RASDisconnect()    Dim udtRASConn(255) As RASConnType, udtStatus As RASConnStatusType, lRet As Long, hRasConn As Long, GetRASHandle As Long    udtRASConn(0).dwSize = 412    lRet = RASEnumConnections(udtRASConn(0), udtRASConn(0).dwSize * 256, 0)    If lRet <> 0 Then GetRASHandle = 0 Else GetRASHandle = udtRASConn(0).hRascon    If GetRASHandle <> 0 Then Call RASHangUp(GetRASHandle)End Function'连接Internet网络Public Function RASConnect(ByVal Phone_no, ByVal UserName As String, ByVal Password As String) As Boolean    Dim rp As RASDIALPARAMS, h As Long, resp As Long    rp.dwSize = Len(rp) + 6    ChangeBytes Phone_no, rp.szPhoneNumber      'Phone no. stored for Connection.    ChangeBytes "*", rp.szCallbackNumber        'Callback no. stored for Connection.    ChangeBytes UserName, rp.szUserName    ChangeBytes Password, rp.szPassword    ChangeBytes "*", rp.szDomain                'Domain stored for Connection.    resp = RasDial(ByVal 0, ByVal 0, rp, 0, ByVal 0, h)     'AddressOf RasDialFunc    RASConnect = (resp = 0)End Function