+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] طلب كود استخدام ip مخصص في WebBrowser (/showthread.php?tid=15406)
الصفحات:
1
2
طلب كود استخدام ip مخصص في WebBrowser - عبد الرحمن متولي - 08-04-16
السلام عليكم
اريد طريقة اجعل بها برنامجي يعمل بـــــ ip واحد لان برنامجي يعمل علي موقع والموقع لا
يسمح الا بــــ 3 اشخاص للدخول الي الايميل والايميل يشتري بالمال فاريد طريقة تجعل جميع ip واحد
RE: طلب كود بسيط - hassan - 08-04-16
كيف تريد جعل الايبي واحد وضح اكثر
+
ماذا تعمل به هل WebBrowser ؟؟؟
شكرا لك
RE: طلب كود بسيط - عبد الرحمن متولي - 08-04-16
(08-04-16, 04:26 PM)hassan كتب : كيف تريد جعل الايبي واحد وضح اكثر
+
ماذا تعمل به هل WebBrowser ؟؟؟
شكرا لك
يعني عندما يفتح برنامجي يغير الي ip انا اوضعه في برنامجي
وانا استخدم اداة WebBrowser
RE: طلب كود بسيط - hassan - 08-04-16
(08-04-16, 04:28 PM)عبد الرحمن متولي كتب :(08-04-16, 04:26 PM)hassan كتب : كيف تريد جعل الايبي واحد وضح اكثر
+
ماذا تعمل به هل WebBrowser ؟؟؟
شكرا لك
يعني عندما يفتح برنامجي يغير الي ip انا اوضعه في برنامجي
وانا استخدم اداة WebBrowser
يعني تريد تصفح WebBrowser بي ايبي مخصص
RE: طلب كود بسيط - عبد الرحمن متولي - 08-04-16
(08-04-16, 08:47 PM)hassan كتب :(08-04-16, 04:28 PM)عبد الرحمن متولي كتب :(08-04-16, 04:26 PM)hassan كتب : كيف تريد جعل الايبي واحد وضح اكثر
+
ماذا تعمل به هل WebBrowser ؟؟؟
شكرا لك
يعني عندما يفتح برنامجي يغير الي ip انا اوضعه في برنامجي
وانا استخدم اداة WebBrowser
يعني تريد تصفح WebBrowser بي ايبي مخصص
نعم اخي يكون اي بي واحد لكل الاشخاص اللذين يستخدمون برنامجي في اداة WebBrowser
RE: طلب كود بسيط - hassan - 09-04-16
(08-04-16, 10:32 PM)عبد الرحمن متولي كتب :(08-04-16, 08:47 PM)hassan كتب :(08-04-16, 04:28 PM)عبد الرحمن متولي كتب :(08-04-16, 04:26 PM)hassan كتب : كيف تريد جعل الايبي واحد وضح اكثر
+
ماذا تعمل به هل WebBrowser ؟؟؟
شكرا لك
يعني عندما يفتح برنامجي يغير الي ip انا اوضعه في برنامجي
وانا استخدم اداة WebBrowser
يعني تريد تصفح WebBrowser بي ايبي مخصص
نعم اخي يكون اي بي واحد لكل الاشخاص اللذين يستخدمون برنامجي في اداة WebBrowser
في المرفقات مشروع يمكنك تحديد الايبي المراد التصفح به في WebBrowser في بداية الاكواد ستجد هاذا
ضع به الايبي و البروت هكذا ("111.111.12.111:2222")
ملاحضة : من الافضل وضع عنوان الموضوع نبذة عن الطلب لكي تعم الفائدة وتجد المساعدة اسرع
شكرا لك
تم تعديل اسم الموضوع لتعم الفائدة
شكرا لك
RE: طلب كود بسيط - عبد الرحمن متولي - 09-04-16
(09-04-16, 12:50 AM)hassan كتب :شكرا شكرا لك اخي سوف اجربه(08-04-16, 10:32 PM)عبد الرحمن متولي كتب :(08-04-16, 08:47 PM)hassan كتب :(08-04-16, 04:28 PM)عبد الرحمن متولي كتب :(08-04-16, 04:26 PM)hassan كتب : كيف تريد جعل الايبي واحد وضح اكثر
+
ماذا تعمل به هل WebBrowser ؟؟؟
شكرا لك
يعني عندما يفتح برنامجي يغير الي ip انا اوضعه في برنامجي
وانا استخدم اداة WebBrowser
يعني تريد تصفح WebBrowser بي ايبي مخصص
نعم اخي يكون اي بي واحد لكل الاشخاص اللذين يستخدمون برنامجي في اداة WebBrowser
في المرفقات مشروع يمكنك تحديد الايبي المراد التصفح به في WebBrowser في بداية الاكواد ستجد هاذا
ضع به الايبي و البروت هكذا ("111.111.12.111:2222")
ملاحضة : من الافضل وضع عنوان الموضوع نبذة عن الطلب لكي تعم الفائدة وتجد المساعدة اسرع
شكرا لك
تم تعديل اسم الموضوع لتعم الفائدة
شكرا لك
RE: طلب كود بسيط - hassan - 09-04-16
(09-04-16, 02:53 PM)عبد الرحمن متولي كتب :(09-04-16, 12:50 AM)hassan كتب :شكرا شكرا لك اخي سوف اجربه(08-04-16, 10:32 PM)عبد الرحمن متولي كتب :(08-04-16, 08:47 PM)hassan كتب :(08-04-16, 04:28 PM)عبد الرحمن متولي كتب :
يعني عندما يفتح برنامجي يغير الي ip انا اوضعه في برنامجي
وانا استخدم اداة WebBrowser
يعني تريد تصفح WebBrowser بي ايبي مخصص
نعم اخي يكون اي بي واحد لكل الاشخاص اللذين يستخدمون برنامجي في اداة WebBrowser
في المرفقات مشروع يمكنك تحديد الايبي المراد التصفح به في WebBrowser في بداية الاكواد ستجد هاذا
ضع به الايبي و البروت هكذا ("111.111.12.111:2222")
ملاحضة : من الافضل وضع عنوان الموضوع نبذة عن الطلب لكي تعم الفائدة وتجد المساعدة اسرع
شكرا لك
تم تعديل اسم الموضوع لتعم الفائدة
شكرا لك
العفوووووو اخي بانتضار ردك
شكرا لك
RE: طلب كود بسيط - عبد الرحمن متولي - 12-04-16
(09-04-16, 04:32 PM)hassan كتب :انا مش عندي برنامج نت فريم وراك ممكن توضع الاكواد هنا(09-04-16, 02:53 PM)عبد الرحمن متولي كتب :(09-04-16, 12:50 AM)hassan كتب :شكرا شكرا لك اخي سوف اجربه(08-04-16, 10:32 PM)عبد الرحمن متولي كتب :(08-04-16, 08:47 PM)hassan كتب : يعني تريد تصفح WebBrowser بي ايبي مخصص
نعم اخي يكون اي بي واحد لكل الاشخاص اللذين يستخدمون برنامجي في اداة WebBrowser
في المرفقات مشروع يمكنك تحديد الايبي المراد التصفح به في WebBrowser في بداية الاكواد ستجد هاذا
ضع به الايبي و البروت هكذا ("111.111.12.111:2222")
ملاحضة : من الافضل وضع عنوان الموضوع نبذة عن الطلب لكي تعم الفائدة وتجد المساعدة اسرع
شكرا لك
تم تعديل اسم الموضوع لتعم الفائدة
شكرا لك
العفوووووو اخي بانتضار ردك
شكرا لك
RE: طلب كود بسيط - hassan - 13-04-16
(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 كتب :شكرا شكرا لك اخي سوف اجربه(08-04-16, 10:32 PM)عبد الرحمن متولي كتب : نعم اخي يكون اي بي واحد لكل الاشخاص اللذين يستخدمون برنامجي في اداة WebBrowser
في المرفقات مشروع يمكنك تحديد الايبي المراد التصفح به في 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