با وی بی چطوری یک کانکشن vpn بسازم ؟

[elimiz]

سلام دوستان
میخواستم بدونم با ویژوال بیسیک چطوری میشه یک کانکشن vpn ساخت ؟
user و passworde و server رو داخل برنامه قرار بدم و با اجرای برنامه کانکشن ساخته بشه
نیاز فوری به این برنامه دارم دوستان
هر کی میتونه کمک کنه دریغ نکنه
مرسی

[elimiz]

این سورس رو از یه سایت پیدا کردم/ اما برا ساخت کانکشن adsl هسن نه vpn
میشه اینو برام کاملش کنین
ممنون میشم
Dim wel As Integer

Private Sub Command1_Click()

Call Shell("rundll32.exe netshell.dll,StartNCW", 5)
Timer1.Enabled = True

End Sub

Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 10

End Sub

Private Sub Timer1_Timer()
Dim cn As String
Dim us As String
Dim ps As String
Dim cps As String
cn = Text1
us = Text2
ps = Text3
cps = Text4
SendKeys "{enter}"
SendKeys "{down}"
SendKeys "{enter}"
SendKeys "{down}"
SendKeys "{enter}"
SendKeys "{down}"
SendKeys "{enter}"
SendKeys cn
SendKeys "{enter}"
SendKeys us
SendKeys "{tab}"
SendKeys ps
SendKeys "{tab}"
SendKeys cps
SendKeys "{tab}"
SendKeys "{tab}"
SendKeys "{tab}"
SendKeys "{tab}"
SendKeys "{enter}"
SendKeys "{enter}"
Timer1.Enabled = False
End Sub

[elimiz]

کسی نیست جواب بده

[IamOverlord]

این محتویات یه PPTP Connecyion با پسوند pbk هست :


[VPN]
Encoding=1
PBVersion=1
Type=2
AutoLogon=0
UseRasCredentials=1
LowDateTime=43573008
HighDateTime=30166277
DialParamsUID=172546
Guid=7106BE987679AF4B8258EFCCADA692A5
VpnStrategy=1
ExcludedProtocols=2
LcpExtensions=1
DataEncryption=8
SwCompression=1
NegotiateMultilinkAlways=0
SkipDoubleDialDialog=0
DialMode=1
OverridePref=15
RedialAttempts=99
RedialSeconds=10
IdleDisconnectSeconds=0
RedialOnLinkFailure=0
CallbackMode=0
CustomDialDll=
CustomDialFunc=
CustomRasDialDll=
ForceSecureCompartment=0
DisableIKENameEkuCheck=0
AuthenticateServer=0
ShareMsFilePrint=1
BindMsNetClient=1
SharedPhoneNumbers=0
GlobalDeviceSettings=0
PrerequisiteEntry=
PrerequisitePbk=
PreferredPort=VPN3-0
PreferredDevice=WAN Miniport (PPTP)
PreferredBps=0
PreferredHwFlow=1
PreferredProtocol=1
PreferredCompression=1
PreferredSpeaker=1
PreferredMdmProtocol=0
PreviewUserPw=1
PreviewDomain=0
PreviewPhoneNumber=0
ShowDialingProgress=1
ShowMonitorIconInTaskBar=0
CustomAuthKey=0
AuthRestrictions=8
IpPrioritizeRemote=1
IpInterfaceMetric=0
IpHeaderCompression=0
IpAddress=0.0.0.0
IpDnsAddress=0.0.0.0
IpDns2Address=0.0.0.0
IpWinsAddress=0.0.0.0
IpWins2Address=0.0.0.0
IpAssign=1
IpNameAssign=1
IpDnsFlags=0
IpNBTFlags=1
TcpWindowSize=0
UseFlags=0
IpSecFlags=0
IpDnsSuffix=
Ipv6Assign=1
Ipv6Address=::
Ipv6PrefixLength=0
Ipv6PrioritizeRemote=1
Ipv6InterfaceMetric=0
Ipv6NameAssign=1
Ipv6DnsAddress=::
Ipv6Dns2Address=::
Ipv6Prefix=0000000000000000
Ipv6InterfaceId=7099C286D0D70C1C
DisableClassBasedDefaultRoute=0
DisableMobility=0
NetworkOutageTime=0
ProvisionType=0
PreSharedKey=

NETCOMPONENTS=
ms_server=1
ms_msclient=1
ms_psched=1
ms_nwsapagent=1
ms_pacer=1

MEDIA=rastapi
Port=VPN3-0
Device=WAN Miniport (PPTP)

DEVICE=vpn
PhoneNumber=xxx.21.xxx.206
AreaCode=
CountryCode=98
CountryID=98
UseDialingRules=0
Comment=
FriendlyName=
LastSelectedPhone=0
PromoteAlternates=0
TryNextAlternateOnFail=1



ضمنا فکر نمی کنم ساخت فایل برای Username و Password کافی باشه و احتمالا Username و Password جای دیگری (Registery؟) هستند.

[M-NINJA]

سلام

میشه سمپل کاملش رو قرار بدین

[ms-ninja]

کسی سورسش رو نداره؟