[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