برنامج vpn_ipjetable_Connector مع السورس

[SAMPOP]

السلام عليكم و رحمة الله تعالي و بركاته
اليوم معنا برنامج بسيط لتسهيل الاتصال ب vpn_ipjetable
عملية الاتصال تاخد وقت حوالي 2 دقيقة لكن الاتصال مضمون انشاء الله
سوف ينتج مجلد في C:\........\Users\Documents\vpnconnector
رابط التحميل UPLOAD.EE - vpn_ipjetable_Connector.rar - Download
في امان الله
صور للبرنامج

 

[SAMPOP]

Imports System.Environment
Imports System.IO

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If Not Directory.Exists((Environment.GetFolderPath(SpecialFolder.Personal) & "\vpnconnector")) Then
            Directory.CreateDirectory((Environment.GetFolderPath(SpecialFolder.Personal) & "\vpnconnector"))
        End If
        File.WriteAllText((Environment.GetFolderPath(SpecialFolder.Personal) & "\vpnconnector\connection.pbk"), ("[VPN]" & ChrW(13) & ChrW(10) & "MEDIA=rastapi" & ChrW(13) & ChrW(10) & "Port=VPN2-0" & ChrW(13) & ChrW(10) & "Device=WAN Miniport (IKEv2)" & ChrW(13) & ChrW(10) & "DEVICE=vpn" & ChrW(13) & ChrW(10) & "PhoneNumber=" & Me.TextBox1.Text))
        File.WriteAllText((Environment.GetFolderPath(SpecialFolder.Personal) & "\vpnconnector\connection.bat"), String.Concat(New String() {"rasdial ""VPN"" ", Me.TextBox2.Text, " ", Me.TextBox3.Text, " /phonebook:""", Environment.GetFolderPath(SpecialFolder.Personal), "\vpnconnector\connection.pbk"""}))
        Dim process As New Process
        process.StartInfo.FileName = (Environment.GetFolderPath(SpecialFolder.Personal) & "\vpnconnector\connection.bat")
        process.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
        process.Start()
        process.WaitForExit()
        Me.Button1.Enabled = False
        Me.Button2.Enabled = True
        Interaction.MsgBox("VPN Connected", MsgBoxStyle.ApplicationModal, Nothing)
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        File.WriteAllText((Environment.GetFolderPath(SpecialFolder.Personal) & "\vpnconnector\disconnect.bat"), "rasdial/d")
        Dim process As New Process
        process.StartInfo.FileName = (Environment.GetFolderPath(SpecialFolder.Personal) & "\vpnconnector\disconnect.bat")
        process.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
        process.Start()
        process.WaitForExit()
        Me.Button1.Enabled = True
        Me.Button2.Enabled = False
        Interaction.MsgBox("Done", MsgBoxStyle.ApplicationModal, Nothing)
    End Sub
End Class

 

[issamdasa1]

السلام عليكم و رحمة الله تعالي و بركاته
اليوم معنا برنامج بسيط لتسهيل الاتصال ب vpn_ipjetable
عملية الاتصال تاخد وقت حوالي 2 دقيقة لكن الاتصال مضمون انشاء الله
سوف ينتج مجلد في C:\........\Users\Documents\vpnconnector
رابط التحميل UPLOAD.EE - vpn_ipjetable_Connector.rar - Download
في امان الله
صور للبرنامج

بارك الله فيك اخي على البرنامج

 

[spidyhunt3r]

sir download link removed please upload new linnk
GOD BLESS YOU

 

[SAMPOP]

sir download link removed please upload new linnk
GOD BLESS YOU

امس و في اول رد اتهمت بالتلغيم
لقد تركت السورس فقط
سوف اترك المنتدي لهم
اصبح الكل لا يقدر التعب من اجل التطوير
وقتهم ليس اثمن من وقتي
سوف ابقي متفرج فقط حالي حال الكل

 

[spidyhunt3r]

you doing a great job sir,,dont leave group

 

[亗المملكه亗]

!​

 

[titanium]

عمل ممتاز اخي
بارك الله فيك
انت شمعة تضيء المنتدى لا نريد فقدانك