[bidaya]

[attachment=10331]

(13-04-16, 02:03 AM)hassan كتب :

(12-04-16, 04:21 PM)عبد الرحمن متولي كتب :

(09-04-16, 04:32 PM)hassan كتب :

(09-04-16, 02:53 PM)عبد الرحمن متولي كتب :

(09-04-16, 12:50 AM)hassan كتب : في المرفقات مشروع يمكنك تحديد الايبي المراد التصفح به في WebBrowser في بداية الاكواد ستجد هاذا


ضع به الايبي و البروت هكذا ("111.111.12.111:2222")

ملاحضة : من الافضل وضع عنوان الموضوع نبذة عن الطلب لكي تعم الفائدة وتجد المساعدة اسرع

شكرا لك

---

تم تعديل اسم الموضوع لتعم الفائدة

شكرا لك

شكرا شكرا لك اخي  سوف اجربه

العفوووووو اخي بانتضار ردك


شكرا لك

انا مش عندي برنامج نت فريم وراك ممكن توضع الاكواد هنا

تفضل

PHP كود :

Imports System.Runtime.InteropServices

Public Class Form1
    'ضع الايبي و البورت هنا
    Dim ip As String = ""
    <Runtime.InteropServices.DllImport("wininet.dll", SetLastError:=True)> _
    Private Shared Function InternetSetOption(ByVal hInternet As IntPtr, ByVal dwOption As Integer, ByVal lpBuffer As IntPtr, ByVal lpdwBufferLength As Integer) As Boolean
    End Function

    Public Structure Struct_INTERNET_PROXY_INFO
        Public dwAccessType As Integer
        Public proxy As IntPtr
        Public proxyBypass As IntPtr
    End Structure

    Private Sub UseProxy(ByVal strProxy As String)
        Const INTERNET_OPTION_PROXY As Integer = 38
        Const INTERNET_OPEN_TYPE_PROXY As Integer = 3

        Dim struct_IPI As Struct_INTERNET_PROXY_INFO

        struct_IPI.dwAccessType = INTERNET_OPEN_TYPE_PROXY
        struct_IPI.proxy = Marshal.StringToHGlobalAnsi(strProxy)
        struct_IPI.proxyBypass = Marshal.StringToHGlobalAnsi("local")

        Dim intptrStruct As IntPtr = Marshal.AllocCoTaskMem(Marshal.SizeOf(struct_IPI))

        Marshal.StructureToPtr(struct_IPI, intptrStruct, True)

        Dim iReturn As Boolean = InternetSetOption(IntPtr.Zero, INTERNET_OPTION_PROXY, intptrStruct, System.Runtime.InteropServices.Marshal.SizeOf(struct_IPI))
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WebBrowser1.Navigate(TextBox1.Text)
    End Sub


    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        UseProxy(ip)
    End Sub
End Class 


---

(01-05-16, 04:59 PM)bidaya كتب :

(13-04-16, 02:03 AM)hassan كتب :

(12-04-16, 04:21 PM)عبد الرحمن متولي كتب :

(09-04-16, 04:32 PM)hassan كتب :

(09-04-16, 02:53 PM)عبد الرحمن متولي كتب : شكرا شكرا لك اخي  سوف اجربه

العفوووووو اخي بانتضار ردك


شكرا لك

انا مش عندي برنامج نت فريم وراك ممكن توضع الاكواد هنا

تفضل

PHP كود :

Imports System.Runtime.InteropServices

Public Class Form1
    'ضع الايبي و البورت هنا
    Dim ip As String = ""
    <Runtime.InteropServices.DllImport("wininet.dll", SetLastError:=True)> _
    Private Shared Function InternetSetOption(ByVal hInternet As IntPtr, ByVal dwOption As Integer, ByVal lpBuffer As IntPtr, ByVal lpdwBufferLength As Integer) As Boolean
    End Function

    Public Structure Struct_INTERNET_PROXY_INFO
        Public dwAccessType As Integer
        Public proxy As IntPtr
        Public proxyBypass As IntPtr
    End Structure

    Private Sub UseProxy(ByVal strProxy As String)
        Const INTERNET_OPTION_PROXY As Integer = 38
        Const INTERNET_OPEN_TYPE_PROXY As Integer = 3

        Dim struct_IPI As Struct_INTERNET_PROXY_INFO

        struct_IPI.dwAccessType = INTERNET_OPEN_TYPE_PROXY
        struct_IPI.proxy = Marshal.StringToHGlobalAnsi(strProxy)
        struct_IPI.proxyBypass = Marshal.StringToHGlobalAnsi("local")

        Dim intptrStruct As IntPtr = Marshal.AllocCoTaskMem(Marshal.SizeOf(struct_IPI))

        Marshal.StructureToPtr(struct_IPI, intptrStruct, True)

        Dim iReturn As Boolean = InternetSetOption(IntPtr.Zero, INTERNET_OPTION_PROXY, intptrStruct, System.Runtime.InteropServices.Marshal.SizeOf(struct_IPI))
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WebBrowser1.Navigate(TextBox1.Text)
    End Sub


    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        UseProxy(ip)
    End Sub
End Class 


اخواجي واجهتني هذه المشكلة

[hassan]

(01-05-16, 04:59 PM)bidaya كتب :

(13-04-16, 02:03 AM)hassan كتب :

(12-04-16, 04:21 PM)عبد الرحمن متولي كتب :

(09-04-16, 04:32 PM)hassan كتب :

(09-04-16, 02:53 PM)عبد الرحمن متولي كتب : شكرا شكرا لك اخي  سوف اجربه

العفوووووو اخي بانتضار ردك


شكرا لك

انا مش عندي برنامج نت فريم وراك ممكن توضع الاكواد هنا

تفضل

PHP كود :

Imports System.Runtime.InteropServices

Public Class Form1
    'ضع الايبي و البورت هنا
    Dim ip As String = ""
    <Runtime.InteropServices.DllImport("wininet.dll", SetLastError:=True)> _
    Private Shared Function InternetSetOption(ByVal hInternet As IntPtr, ByVal dwOption As Integer, ByVal lpBuffer As IntPtr, ByVal lpdwBufferLength As Integer) As Boolean
    End Function

    Public Structure Struct_INTERNET_PROXY_INFO
        Public dwAccessType As Integer
        Public proxy As IntPtr
        Public proxyBypass As IntPtr
    End Structure

    Private Sub UseProxy(ByVal strProxy As String)
        Const INTERNET_OPTION_PROXY As Integer = 38
        Const INTERNET_OPEN_TYPE_PROXY As Integer = 3

        Dim struct_IPI As Struct_INTERNET_PROXY_INFO

        struct_IPI.dwAccessType = INTERNET_OPEN_TYPE_PROXY
        struct_IPI.proxy = Marshal.StringToHGlobalAnsi(strProxy)
        struct_IPI.proxyBypass = Marshal.StringToHGlobalAnsi("local")

        Dim intptrStruct As IntPtr = Marshal.AllocCoTaskMem(Marshal.SizeOf(struct_IPI))

        Marshal.StructureToPtr(struct_IPI, intptrStruct, True)

        Dim iReturn As Boolean = InternetSetOption(IntPtr.Zero, INTERNET_OPTION_PROXY, intptrStruct, System.Runtime.InteropServices.Marshal.SizeOf(struct_IPI))
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WebBrowser1.Navigate(TextBox1.Text)
    End Sub


    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        UseProxy(ip)
    End Sub
End Class 


---

(01-05-16, 04:59 PM)bidaya كتب :

(13-04-16, 02:03 AM)hassan كتب :

(12-04-16, 04:21 PM)عبد الرحمن متولي كتب :

(09-04-16, 04:32 PM)hassan كتب : العفوووووو اخي بانتضار ردك


شكرا لك

انا مش عندي برنامج نت فريم وراك ممكن توضع الاكواد هنا

تفضل

PHP كود :

Imports System.Runtime.InteropServices

Public Class Form1
    'ضع الايبي و البورت هنا
    Dim ip As String = ""
    <Runtime.InteropServices.DllImport("wininet.dll", SetLastError:=True)> _
    Private Shared Function InternetSetOption(ByVal hInternet As IntPtr, ByVal dwOption As Integer, ByVal lpBuffer As IntPtr, ByVal lpdwBufferLength As Integer) As Boolean
    End Function

    Public Structure Struct_INTERNET_PROXY_INFO
        Public dwAccessType As Integer
        Public proxy As IntPtr
        Public proxyBypass As IntPtr
    End Structure

    Private Sub UseProxy(ByVal strProxy As String)
        Const INTERNET_OPTION_PROXY As Integer = 38
        Const INTERNET_OPEN_TYPE_PROXY As Integer = 3

        Dim struct_IPI As Struct_INTERNET_PROXY_INFO

        struct_IPI.dwAccessType = INTERNET_OPEN_TYPE_PROXY
        struct_IPI.proxy = Marshal.StringToHGlobalAnsi(strProxy)
        struct_IPI.proxyBypass = Marshal.StringToHGlobalAnsi("local")

        Dim intptrStruct As IntPtr = Marshal.AllocCoTaskMem(Marshal.SizeOf(struct_IPI))

        Marshal.StructureToPtr(struct_IPI, intptrStruct, True)

        Dim iReturn As Boolean = InternetSetOption(IntPtr.Zero, INTERNET_OPTION_PROXY, intptrStruct, System.Runtime.InteropServices.Marshal.SizeOf(struct_IPI))
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WebBrowser1.Navigate(TextBox1.Text)
    End Sub


    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        UseProxy(ip)
    End Sub
End Class 


اخواجي واجهتني هذه المشكلة

جرب على موقع اخر


شكرا لك

[bidaya]

 اسف اخي بل قمت بالتجريب لعدة مواقع
فلو سمحت اخي اريد تطبيق الطريقة على هذا الكود

 شكرا اخي الكريم الله يحفذك

                                                                         اريد التعديل على هذا الكود

[bidaya]

(02-05-16, 12:53 PM)bidaya كتب :

 اسف اخي بل قمت بالتجريب لعدة مواقع
فلو سمحت اخي اريد تطبيق الطريقة على هذا الكود

 شكرا اخي الكريم الله يحفذك

                                                                         اريد التعديل على هذا الكود

ارجو من الاساتذة الكرام النظر في هذا الطلب وشكرا