عايز اخلي البرنامج شغال علي بروكسي

السلام عليكم ورحمه الله وبركاته

اخي يمكنك استخدام الاداه Web Browser ..

ألسلام عليكم

اولا شكرا ليك علي محاولتك انك تساعدني

ثانيا انا ولد مش بنت

ثالثا انا عارف الاداة دي .. ومش هي دي اللي بسأل عليها ... انا عايز اعرف ازاي اعملها بروكسي ... عايز اعمل ليه اعدادات بروكسي

سلام

السلام عليكم ورحمه الله وبركاته

عفوا اخي لأني شفت كلمة "محتاجة" في موضوعك استغربت؟!! شوف الروابط

http://vbdotnet.canbal.com/index.php?/Using-VisualBasic-net/proxy-with-web-browser-control.html

http://vbdotnet.canbal.com/index.php?/Using-VisualBasic-net/proxy-with-multiple-webbrowser-controls.html

لا مفيش مشكلة ولا يهمك .. انا اللي كتبتها غلط ..

المهم دلوقتي اني مش فاهم حاجة من اللنكات دي

كلها ناس عايزة تعرف زيي ..

ممكن تقولي كود ينفع ...

شكرا

السلام عليكم ورحمه الله وبركاته

طيب اخي ممكن توضح بالتفصيل ان شو ناوي تعمل؟!!

انا هعمل برنامج بيحتاج للنت .. يعني مثلا هحط فيه اداة WebBrowser .....

البرنامج دا بقي عايزة يشتغل علي اعدادات بروكسي ....

لو مفهمتش انا اقصد ايه ... افتح برنامج الانترنت اكسبلورير ...

من قائمة tools

اختار Internet options

وبعد كدا connection

واختار LAN Setting

شايف بقه الـ Proxy Setting

هي دي اللي انا عايز اعمل زيها

سلام

انا لقيت الكود دا وتقريبا هو دا اللي انا عايزو بس في مشكلتين .. ان فيه اخطاء .. واني مش عارف ازاي استخدمة

الكود:

Public Class Form1

Imports System.Collections.Generic

Imports System.IO

Imports System.Net



Namespace blogtest

        Class Program

            Private Shared Sub Main(ByVal args As String())

                Dim http As New simplehttp()

                'testing on ipcheckit.com so we can make sure we’re really connecting through proxy. Look for proxy IP in html printed in console

                'remember to change 127.0.0.1, 8080, login, password to your working proxy details

Dim html As String = http.geturl(”http://ipcheckit.com/”, “127.0.0.1″, 8080, “login”, “password”)

                System.Console.WriteLine(html)

            End Sub

        End Class



        Class simplehttp

            Public Function geturl(ByVal url As String, ByVal proxyip As String, ByVal port As Integer, ByVal proxylogin As String, ByVal proxypassword As String) As String

                Dim resp As HttpWebResponse

                Dim req As HttpWebRequest = DirectCast(WebRequest.Create(url), HttpWebRequest)

                req.UserAgent = "Mozilla/5.0″"

                req.AllowAutoRedirect = True

                req.ReadWriteTimeout = 5000

                req.CookieContainer = New CookieContainer()

                req.Referer = ""

                req.Headers.[Set]("Accept-Language", "en,en-us")

                Dim stream_in As StreamReader



                Dim proxy As New WebProxy(proxyip, port)

                'if proxylogin is an empty string then don’t use proxy credentials (open proxy)

If proxylogin “” Then

                    proxy.Credentials = New NetworkCredential(proxylogin, proxypassword)

                End If

                req.Proxy = proxy



                Dim response As String = ""

                Try

                    resp = DirectCast(req.GetResponse(), HttpWebResponse)

                    stream_in = New StreamReader(resp.GetResponseStream())

                    response = stream_in.ReadToEnd()

                    stream_in.Close()

                Catch ex As Exception

                End Try

                Return response

            End Function



            Public Function getposturl(ByVal url As String, ByVal postdata As String, ByVal proxyip As String, ByVal port As Short, ByVal proxylogin As String, ByVal proxypassword As String) As String

                Dim resp As HttpWebResponse

                Dim req As HttpWebRequest = DirectCast(WebRequest.Create(url), HttpWebRequest)

                req.UserAgent = "Mozilla/5.0″"

                req.AllowAutoRedirect = True

                req.ReadWriteTimeout = 5000

                req.CookieContainer = New CookieContainer()

                req.Method = "POST"

                req.ContentType = "application/x-www-form-urlencoded"

                req.ContentLength = postdata.Length

                req.Referer = ""



                Dim proxy As New WebProxy(proxyip, port)

                'if proxylogin is an empty string then don’t use proxy credentials (open proxy)

If proxylogin “” Then

                    proxy.Credentials = New NetworkCredential(proxylogin, proxypassword)

                End If

                req.Proxy = proxy



                Dim stream_out As New StreamWriter(req.GetRequestStream(), System.Text.Encoding.ASCII)

                stream_out.Write(postdata)

                stream_out.Close()

                Dim response As String = ""



                Try

                    resp = DirectCast(req.GetResponse(), HttpWebResponse)

                    Dim resStream As Stream = resp.GetResponseStream()

                    Dim stream_in As New StreamReader(req.GetResponse().GetResponseStream())

                    response = stream_in.ReadToEnd()

                    stream_in.Close()

                Catch ex As Exception

                End Try

                Return response

            End Function

        End Class

    End Namespace
End Class

السلام عليكم ورحمه الله وبركاته

اصلا الكود السابق يتطلب ادخال اسم خادم البروكسي والمنفذ واسم المستخدم وكلمة المرور .. بس مش عارف لأيش تهدف من فكرتك دي؟!!

كدا كدا اصلا الكود دا مش شغال معايا ..

ياريت تجبلي كود شغال او سورس برنامج فية الخاصية دي ... وشكرا

السلام عليكم ورحمه الله وبركاته

اخي مو مشكله حسويه لك بس ممكن تقولي ايش السبب ان عايز تسوي بروكسي؟؟ ولا ايش تهدف بالضبط!!

انا عايزه لعدة اسباب مش سبب واحد .. واهمهم ان النت عندي شغال عن طريق بروكسي , وعايز اعمل برنامج يشتغل عندي بالمميزات اللي انا عايزها والاختصارات اللي افضلها

شكرا ليك

السلام عليكم ورحمه الله وبركاته

اختي الكود السابق يحتاج اسم البروكسي واسم المستخدم وكلمة المرور .. قومي بتزويدها للبرنامج وحيشتغل؟!!

اولا .. انا قولتلك قبل كدا انا ولد

ثانيا .. البروكسي اللي انا بستخدمة مش بيحتاج اسم مستخدم وباسورد

ثالثا .. انا مش عارف استخدم الكود اصلا ... ياريت تكتبهولي فبرنامج وترفعهولي .. وشكرا ليك

سلام

السلام عليكم ورحمه الله وبركاته

اخي عفوا اصلا في بعض كلمات ذكرتها بصيغة التأنيث!! المهم اخي حاول تكتب اسم مستخدم حق الجهاز وكلمة المرور!!

طب الكود دا احطة وهو هيشتغل لوحدة .. ولا في اوامر لازم تتكتب عشان يشتغل؟؟

وبعدين الجهاز ملوش باسورد

وتقريبا كدا في حتة فالكود معناها ان لو متكتبش اسم وباسورد يتخطي النقطة دي ..

سلام

ممكن تشوف الموضوع دا

/index.php?showtopic=239588

انا عايز كود نفس الفكرة دي بس عايزة يشغل اداة WebBrowser .. مش اكتر

فانتظار ردك

السلام عليكم ورحمه الله وبركاته

لو تلاحظ الكود السابق برضه يحتاج معلومات عن البروكسي: عنوان ال IP و المنفذ و اسم المستخدم وكلمة المرور؟!!

ماشي انا معايا الايبي والمنفذ .. وطبعا البروكسي دا من غير اسم وباص

ياريت بس تعملي مشروع علي الفيجوال بيسك وتحطلي فيه الكود مع اداة WebBrowser بحيث ان اول ما احط الاي بي والمنفذ يشتغل علي البروكسي ده

وشكرا ليك

السلام عليكم ورحمه الله وبركاته

اخي شوف الرابط التالي http://vbdotnet.canbal.com/index.php?/Using-VisualBasic-net/proxy-with-web-browser-control.html