随笔分类 - VB

RASENTRY,RASCREDENTIALS,RASCredMask,RasEntryOptions,RasEntryOptions2,dwEncryptionType,dwVpnStrategy,dwType,拨号/断网参数值

摘要：'RASCREDENTIALSPrivate Type RASCREDENTIALS dwSize As Long dwMask As Long szUserName As String * 257 'UNLEN+1 szPassword As String * 257 'PWLEN+1 szDomain As String * 16 'DNLEN+1End Type'RASCredMaskPublic Enum RASCredMask RASCM_UserName = &H1& RASCM_password = &H2& 阅读全文

posted @ 2011-04-02 10:49 sunjun0427 阅读(1267) 评论(0) 推荐(0)

VB 创建VPN拨号连接(自动勾选且填充预共享密钥)

摘要：Dim I As IntegerDim N As LongOption Explicit'拨号/断网Private Declare Function InternetDial Lib "wininet.dll" (ByVal hwndParent As Long, ByVal lpszConnectoid As String, ByVal dwFlags As Long, lpdwConnection As Long, ByVal dwReserved As Long) As LongPrivate Declare Function InternetHangUp L 阅读全文

posted @ 2011-04-01 14:57 sunjun0427 阅读(3385) 评论(1) 推荐(0)