這是最近幫公司寫的一個簡易VPN連線程式....路由是使用遠端預設閘道…來做個記錄下個版本是不使用遠端預設閘道，在本機電腦上新增動態路由來存取VPN。using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using DotRas;
using System.Net;
namespace WindowsFormsApplication3
{
public partial class Form1 : Form
{
private RasEntry ras;
private RasHandle Rashandler = null;
public Form1()
{
InitializeComponent();
}
private void Form1_Load(object sender, EventArgs e)
{
}
private void creat_Click(object sender, EventArgs e)
{
status.Text = null;
this.rasPhoneBook1.Open();
ras = RasEntry.CreateVpnEntry("名稱", "ip", RasVpnStrategy.Default, RasDevice.GetDeviceByName(("PPTP"), RasDeviceType.Vpn, false), true);
this.rasPhoneBook1.Entries.Add(ras);
this.rasDialer1.EntryName = "名稱";
this.rasDialer1.PhoneBookPath = ras.Owner.Path;
this.rasDialer1.Credentials = new System.Net.NetworkCredential("帳號", "密碼");
Rashandler=this.rasDialer1.DialAsync();
}
private void dialbutton_Click(object sender, EventArgs e)
{
RasConnection conn = RasConnection.GetActiveConnectionByHandle(Rashandler);
if (conn != null)
{
conn.HangUp();
RasEntryCollection res = rasPhoneBook1.Entries;
res.Remove("名稱");
status.AppendText("VPN連線已中斷...\r\n");
}
else
{
return;
}
}
private void rasDialer1_StateChanged(object sender, StateChangedEventArgs e)
{
if (e.State.ToString() == "ConnectDevice")
{
this.status.AppendText("VPN連線中...\r\n");
}
if (e.State.ToString() == "Connected")
{
this.status.AppendText("VPN連線成功...\r\n請勿關閉本視窗，使用完畢後請按->中斷連線\r\n");
}
}
private void rasDialer1_DialCompleted(object sender, DialCompletedEventArgs e)
{
if (e.Cancelled)
{
this.status.AppendText("連線取消…");
}
else if (e.TimedOut)
{
this.status.AppendText("連線逾時…");
}
else if (e.Error != null)
{
this.status.AppendText(e.Error.ToString());
}
}
}
}
