用VB编程建立VPN连接，急

来源：百度知道 编辑：UC知道 时间：2024/09/23 04:26:29
要一个程序上有三个文本框，一个按钮。3个文本框分别是IP地址，用户名和密码，按钮是连接。连接成功弹出提示，失败也弹出提示，成功后自动最小化。
求代码。能用的追加50分

复制到记事本另存为form1.frm 细节部分自己修改
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3930
ClientLeft = 60
ClientTop = 450
ClientWidth = 4650
LinkTopic = "Form1"
ScaleHeight = 3930
ScaleWidth = 4650
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Command1
Caption = "建立VPN连接"
Height = 495
Left = 1080
TabIndex = 0
Top = 1440
Width = 1935
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Type GUID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(7) As Byte