با وی بی چطوری کانکشن vpn رو باز کنم کانکت بشم و بعد 30 ثانیه دیسکانکت کنم ؟

[elimiz]

سلام دوستان
میخواستم بدونم چطوری میشه با وی بی کانکشن vpn رو از از این ادرس C:\Dial.lnk باز و کلید اینتر رو فشار دادو بعد از 30 ثانیه دوباره بازش کرد و دیسکانکت کرد. و همین پروسه ادامه پیدا کنه.
کانکت بشه و 30 ثانیه بعد دیسکانکت

من با کد کانکشن رو باز و کانکت میکنم:
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Form_Load()
Timer1.Enabled = False
ShellExecute 0&, vbNullString, "c:\dial.lnk", vbNullString, vbNullString, vbMaximizedFocus
Timer1.Enabled = True
End Sub


Private Sub Timer1_Timer()
SendKeys "{ENTER}"
Timer1.Enabled = False
End Sub


حالا موندم چطوری دیسکانکت کنم و بقیه ماجرا
خیلی ضروری نیاز دارم

[_behnam_]

میتونی اینترنت رو قطع کنی

[elimiz]

بله با rsdial این کار رو کردن ممنون