سورس اتصال به اينترنت

سلام

هر كسي سورس كد اتصال به اينترنت با Vb رو داره . لطف كنه

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

هیچکی نداره یعنی؟ :41:

نقل قول:

---

نوشته شده توسط ok.baby [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

هیچکی نداره یعنی؟ :41:

---

تاپیک 2007 میکشی بالا :31:

من vb ندارم چک کنم اما به احتمال زیاد کار میکند امتحان کنید

کد:

---

Public Shared Sub Dial()

        Dim p As New Process()

        p.StartInfo.CreateNoWindow = True

        p.StartInfo.UseShellExecute = False

        p.StartInfo.FileName = "cmd"


        p.StartInfo.Arguments = "rasdial connection username password"

        p.Start()

    End Sub

---

برای اینکه ارتباط رو هم قطع کنید باید از دستور زیر استفاده کنید

[PHP]rasdial connectionname /disconnect [/PHP]

نقل قول:

---

نوشته شده توسط szh_1367 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

تاپیک 2007 میکشی بالا :31:

من vb ندارم چک کنم اما به احتمال زیاد کار میکند امتحان کنید

کد:

---

Public Shared Sub Dial()

      Dim p As New Process()

      p.StartInfo.CreateNoWindow = True

      p.StartInfo.UseShellExecute = False

      p.StartInfo.FileName = "cmd"


      p.StartInfo.Arguments = "rasdial connection username password"

      p.Start()

  End Sub

---

برای اینکه ارتباط رو هم قطع کنید باید از دستور زیر استفاده کنید

[PHP]rasdial connectionname /disconnect [/PHP]

---

من این کد شما رو تست کردم 2 جای این کد خطا داره لطفا تین ها رو تصحیح کنید و دوباره ارسال کنید