求VB.NET ADSL自动拨号源码

求VB.NET ADSL自动拨号源码 不要VB6的，谢谢，VB6的已经写好了的，如果有谁需要可以找我 有的兄弟请帮个忙，我QQ:412499183 谢谢

Shell("C:\WINDOWS\system32\rasphone.exe -d 宽带连接", vbHide)

vb6.0代码 1、第一个问题还要添上连接名（就是拨号连接的名字） 我这里有一个现成的代码，挺长的，能上网、断网、查看网络状态、查看连接数目，如果其它的不需要的话，自己看函数的名字，删了即可 把一下代码粘贴到模块中，在窗体某控件的时间中写： dim recadconn& recadconn = addconnection("连接名", "", "", "用户名", "密码", "") public type rasconn95 dwsize as long hrasconn as long szentryname(256) as byte szdevicetype(16) as byte szdevicename(128) as byte end type public type rasconnstatus95 dwsize as long rasconnstate as long dwerror as long szdevicetype(16) as byte szdevicename(128) as byte end type public declare function rasgetconnectstatus lib "rasapi32.dll" alias "rasgetconnectstatusa" (byval hrascon as long, lpstatus as any) as long public declare function lstrcpy lib "kernel32" alias "lstrcpya" (lpstring1 as any, byval lpstring2 as string) as long public declare function rasdial lib "rasapi32.dll" alias "rasdiala" (lprasdialextensions as any, byval lpszphonebook as string, lprasdialparams as any, byval dwnotifiertype as long, lpvnotifier as long, lphrasconn as long) as long public declare function rashangup lib "rasapi32.dll" alias "rashangupa" (byval hrasconn as long) as long public declare function rasenumconnections lib "rasapi32.dll" alias "rasenumconnectionsa" (lprasconn as any, lpcb as long, lpcconnections as long) as long public function addconnection(strnewentryname as string, strnewphonenumber as string, strnewcallbacknumber as string, strnewusername as string, strnewpassword as string, strnewdomain as string) as long const apinull = 0& dim lngretcode as long dim lngretlstrcpy as long dim lngrethangup as long dim lprasdialparams as rasdialparams95 on error goto 10 lprasdialparams.dwsize = 1052 lngretlstrcpy = lstrcpy(lprasdialparams.szentryname(0), strnewentryname) lngretlstrcpy = lstrcpy(lprasdialparams.szphonenumber(0), strnewphonenumber) lngretls