المشاركات اخر المواضيع الاكثر مشاهدة

SAMPOP

V • I • P
إنضم
9 سبتمبر 2018
المشاركات
1,148
مستوى التفاعل
1,329
النقاط
113
العمر
21
vpn_ipjetable_Connector مع السورس
السلام عليكم و رحمة الله تعالي و بركاته
اليوم معنا برنامج بسيط لتسهيل الاتصال ب vpn_ipjetable
عملية الاتصال تاخد وقت حوالي 2 دقيقة لكن الاتصال مضمون انشاء الله
سوف ينتج مجلد في C:\........\Users\Documents\vpnconnector
رابط التحميل UPLOAD.EE - vpn_ipjetable_Connector.rar - Download

في امان الله
صور للبرنامج
 

المرفقات

  • Snapshot_21-01-12_22-05-46.png
    Snapshot_21-01-12_22-05-46.png
    161.4 KB · المشاهدات: 50
  • Snapshot_21-01-12_22-06-43.png
    Snapshot_21-01-12_22-06-43.png
    190.4 KB · المشاهدات: 45
  • Snapshot_21-01-12_22-07-16.png
    Snapshot_21-01-12_22-07-16.png
    172.3 KB · المشاهدات: 45
  • Snapshot_21-01-12_22-10-14.png
    Snapshot_21-01-12_22-10-14.png
    153.8 KB · المشاهدات: 47
  • Snapshot_21-01-12_22-11-06.png
    Snapshot_21-01-12_22-11-06.png
    27.1 KB · المشاهدات: 50
  • Snapshot_21-01-12_22-12-08.png
    Snapshot_21-01-12_22-12-08.png
    173.8 KB · المشاهدات: 48

SAMPOP

V • I • P
إنضم
9 سبتمبر 2018
المشاركات
1,148
مستوى التفاعل
1,329
النقاط
113
العمر
21
vpn_ipjetable_Connector مع السورس

C#:
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

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

في امان الله
صور للبرنامج
🍀
🍀
🌹
بارك الله فيك اخي على البرنامج
🌹
 

spidyhunt3r

Beginner Hacker
إنضم
28 ديسمبر 2020
المشاركات
10
مستوى التفاعل
4
النقاط
3
العمر
27
نظام التشغيل
windows_10
vpn_ipjetable_Connector مع السورس
sir download link removed please upload new linnk
GOD BLESS YOU
 

SAMPOP

V • I • P
إنضم
9 سبتمبر 2018
المشاركات
1,148
مستوى التفاعل
1,329
النقاط
113
العمر
21
vpn_ipjetable_Connector مع السورس
sir download link removed please upload new linnk
GOD BLESS YOU
امس و في اول رد اتهمت بالتلغيم
لقد تركت السورس فقط
سوف اترك المنتدي لهم
اصبح الكل لا يقدر التعب من اجل التطوير
وقتهم ليس اثمن من وقتي
سوف ابقي متفرج فقط حالي حال الكل
 

spidyhunt3r

Beginner Hacker
إنضم
28 ديسمبر 2020
المشاركات
10
مستوى التفاعل
4
النقاط
3
العمر
27
نظام التشغيل
windows_10
vpn_ipjetable_Connector مع السورس
you doing a great job sir,,dont leave group
 

titanium

Beginner Hacker
إنضم
15 يوليو 2019
المشاركات
7
مستوى التفاعل
2
النقاط
3
العمر
31
vpn_ipjetable_Connector مع السورس
عمل ممتاز اخي
بارك الله فيك
انت شمعة تضيء المنتدى لا نريد فقدانك
 

مواضيع مماثلة

أعلى