ساختن یک VPN Connectoin با VB.Net

[ir_programmer]

همه میدونیم که چطو میشه با ویزارد ویندوز یک VPN ساخت.
http://www.windowsecurity.com/articles/Configure-VPN-Connection-Windows-XP.html
میخاستم با VB.NET و با کلیک کردن یک button یک VPN با یک نام دلخواه بسازم و اونو بصورت ShortCut روی دسکتاب بزارم. گذاشتن اون رو دسکتاب راحته. فقط میخام ببینم چطور با کد نویسی VPN میسازن؟ اگر یک Script یا Bat فایل هم باشه خوبه .

[Sub Zero]

اگه چیزی پیدا نکردی از RasPhone خود ویندوز استفاده کن اینم راهنماش

---------------------------
Dial-Up Networking Command Line
---------------------------
rasphone.exe [-f file] [[-e | -d | -h | -r] entry]

rasphone.exe [-f file] -a [entry]

rasphone.exe [-f file] -lx link

rasphone.exe



-a Popup new entry dialogs
-e Popup edit entry dialogs
-d Popup dial entry dialogs
-h Quietly hang up the entry
-r Quietly delete the entry
-lx Execute command 'x' on dial-up shortcut file
x Any of the commands a, e, d, h, or r
entry The entry name to which the operation applies
file The full path to the phonebook file
link The full path to the dial-up shortcut file

'entry' alone selects the entry in the phonebook dialog
---------------------------
OK
---------------------------

مثلا کد زیر پنجره ایجاد کانکشن جدید رو نمایش میده :

Rasphone /a
بعد میتونی از طریق تابع SendKeys پنجره رو کنترل کنی .
بازم میگم اگه چیزی پیدا نکردی از این روش استفاده کن

[ir_programmer]

کمک خوبی هست اما هنوز مشکلم حل نشده!

[ir_programmer]

دوستان تو پیدا کردن راه حل کمک کنن. شاید یه روز بدرد خودتون هم بخوره!

[Sub Zero]

بهتره شما دنبال VB Script بگردی . با سرچی که انجام دادم . این لینک (http://72.14.253.104/search?q=cache:CnflACgeA-sJ:www.experts-exchange.com/Programming/Languages/Visual_Basic/VB_Objects/Q_22162075.html+Make+%26+VPN+Connection+%26+Via+Sc ript&hl=en&ct=clnk&cd=9&client=firefox-a)نظرمو جلب کرد بهتره یه نگاهی بهش بندازی .

Dim objShell: Set objShell = CreateObject("Wscript.Shell")

strHost="MyCompany.Com"
strCo="My Company"

With objShell
.Run "Control ncpa.cpl"
wscript.sleep 4000
.AppActivate "Network Connections"
wscript.sleep 4000
.SendKeys "%FN"
wscript.sleep 2000
.SendKeys "%N"
wscript.sleep 2000
.SendKeys "%ON"
wscript.sleep 2000
.SendKeys "%VN"
wscript.sleep 2000
.SendKeys "%A" & strCompany
wscript.sleep 2000
.SendKeys "%N%H" & strHost
wscript.sleep 2000
.SendKeys "%N{TAB}{TAB}~"
End With

Set objShell=Nothing

[hamed_bostan]

ایا هیچ راهی نداره که با کد وی بی این کار رو بکنیم؟؟؟

[ir_programmer]

من هم راه حلی پیدا نکردم. فعلا کارم رو با Script راه انداختم. فکر کنم بشه راه حلی پیدا کرد!