P
prtmon
Unregistered / Unconfirmed
GUEST, unregistred user!
想通过ras.pas在程序启动时建立一个VPN，连接参数通过ini文件或者固定方式写入程序中，在程序退出时断开并删除此VPN连接，不知道怎样做。<br>var<br> lpRasDialExtensions:TRasDialExtensions;<br> lpszPhonebook
Char;<br> lpRasDialParams: TRasDialParams;<br> dwNotifierType: DWORD;<br> lpvNotifier: Pointer;<br> lphRasConn: THRasConn;<br> dwResult
WORD;<br>begin<br> lpRasDialParams.dwSize:=Sizeof(lpRasDialParams);<br> lpRasDialParams.szEntryName:='My Test VPN';<br> lpRasDialParams.szPhoneNumber:='192.168.1.1';<br> lpRasDialParams.szCallbackNumber:='';<br> lpRasDialParams.szUserName:='Username';<br> lpRasDialParams.szPassword:='Password';<br> lpRasDialParams.szDomain:='';<br> dwResult:=RasDial(nil,'',@lpRasDialParams,0,NIL,lphRasConn);<br> if dwResult<>0 then Showmessage('失败');<br>end;<br>请大家帮忙提供代码，谢谢！
Char;<br> lpRasDialParams: TRasDialParams;<br> dwNotifierType: DWORD;<br> lpvNotifier: Pointer;<br> lphRasConn: THRasConn;<br> dwResultWORD;<br>begin<br> lpRasDialParams.dwSize:=Sizeof(lpRasDialParams);<br> lpRasDialParams.szEntryName:='My Test VPN';<br> lpRasDialParams.szPhoneNumber:='192.168.1.1';<br> lpRasDialParams.szCallbackNumber:='';<br> lpRasDialParams.szUserName:='Username';<br> lpRasDialParams.szPassword:='Password';<br> lpRasDialParams.szDomain:='';<br> dwResult:=RasDial(nil,'',@lpRasDialParams,0,NIL,lphRasConn);<br> if dwResult<>0 then Showmessage('失败');<br>end;<br>请大家帮忙提供代码，谢谢！