تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كيف استطيع عن طريق الفجول بيسك ان احصل على الايبي للحاسب
#1
السلام عليكم شباب طاب يومكم
اخواني الافاظل نفعنا الله بعلمكم
عندي سؤال
كيف استطيع عن طريق الفجول بيسك ان احصل على الايبي للحاسب والسيريل نمبر (s/n)
اي عنطريق عمل برنامج نستخدم بداخله Environment
او توجد طريقه اخرى
الرد }}}}
تم الشكر بواسطة:
#2
هكذا نحصل على الايبي

PHP كود :
Dim LocalIP As IPAddress Dns.GetHostAddresses("").Where(Function(ipip.AddressFamily AddressFamily.InterNetwork).First() 

لاتنسى المكتبات الضرورية
PHP كود :
Imports System.Net.Sockets
Imports System
.Linq
Imports System
.Net 

موفق
الرد }}}}
تم الشكر بواسطة: scluay
#3
يا اخى بارك الله فيك كيف يتم استخدم هذه الكود
الرد }}}}
تم الشكر بواسطة:
#4
أنظر هذا المثال


الملفات المرفقة
.zip   IP.zip (الحجم : 27.2 ك ب / التحميلات : 91)
منقطع .. للدراسة Confused
الرد }}}}
تم الشكر بواسطة: scluay
#5
(21-11-13, 11:49 PM)mamas1 كتب : أنظر هذا المثال

السلام عليكم
انا نزلت المثال ولكن كيف افتحه في برنامج الفجول ممكن مساعدتي اين اجد المثال
الرد }}}}
تم الشكر بواسطة:
#6
إفتح هذا الملف
Get Ip.vbproj
منقطع .. للدراسة Confused
الرد }}}}
تم الشكر بواسطة: scluay
#7
       
(22-11-13, 05:32 PM)mamas1 كتب : إفتح هذا الملف
Get Ip.vbproj
عذر اخي فتحت الملف ومايفتح
تطلع لي هذه الصوره
الرد }}}}
تم الشكر بواسطة:
#8
المثال معمول بأصدار الفيجوال بيسك 2005

الاصدار اللي عندك 2010

قم بعمل ترقية للمثال من خلال ( التالي + التالي ) راح يفتح معاك المثال

على العموم

اعمل مثال جديد
ضع الادوات التالية :
Button عدد 1
TextBox عدد 1

أضف المكتبة
PHP كود :
Imports System.Net 

وضع في الزر الكود التالي :
PHP كود :
Dim ipaddress As String
        Dim h 
As System.Net.IPHostEntry System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName)

        
ipaddress = (CType(h.AddressList.GetValue(0), IPAddress).ToString)
        
TextBox1.Text ipaddress 
الرد }}}}
تم الشكر بواسطة: mamas1 , scluay
#9
(22-11-13, 08:50 PM)مالكـ كتب : المثال معمول بأصدار الفيجوال بيسك 2005

الاصدار اللي عندك 2010

قم بعمل ترقية للمثال من خلال ( التالي + التالي ) راح يفتح معاك المثال

على العموم

اعمل مثال جديد
ضع الادوات التالية :
Button عدد 1
TextBox عدد 1

أضف المكتبة
PHP كود :
Imports System.Net 

وضع في الزر الكود التالي :
PHP كود :
Dim ipaddress As String
        Dim h 
As System.Net.IPHostEntry System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName)

        
ipaddress = (CType(h.AddressList.GetValue(0), IPAddress).ToString)
        
TextBox1.Text ipaddress 
Imports System.Net
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ip As String
Dim h As System.Net.IPHostEntry = System.Net.Dns.GetHostByName(System.Net.Dns.GetHostByName)

ip = (CType(h.AddressList.GetValue(0), IPAddress).ToString)
textbox1.text = ip
End Sub
End Class

انا عمل مثل ما قات ولكن توجد مشكله واخطاء
الرد }}}}
تم الشكر بواسطة:
#10
اولا :اخي شكلك لم تنسخ الكود بالضبط

المشكلة هي (GetHostByNam )
الصحيح ........ (GetHostName )

===========
ثانيآ : عند وجود مشكلة أذكرها ماهي المشكلة بالضبط ...... او ضع مثال للمعاينة او صورة

لا تقول مشكلة ثم تقف ...؟
الرد }}}}
تم الشكر بواسطة: scluay


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية تشغيل وإغلاق الادوات الذكية لويندوز 7 عن طريق الكود رمضان محمد 3 480 25-07-17, 06:48 PM
آخر رد: رمضان محمد
  [سؤال] استفسار عن امكانية مشاركة برامج فيجول بيسك بين اكثر من حاسوب Marwan9990 7 148 21-07-17, 12:49 AM
آخر رد: أبوبكر سويدان
  [سؤال] ممكن رابط تحميل الفيجوال بيسك 2012 استوديو Mina Botros 5 138 13-07-17, 03:01 PM
آخر رد: Mina Botros
Thumbs Up [سؤال] ممكن كيفية وضع اداة hycam2 للفيجوال بيسك 2010 Mina Botros 1 66 08-07-17, 03:40 PM
آخر رد: 24473
  كيفية اضافة ال hycam2 لل refrence في الفيجوال بيسك khaled12345 8 149 08-07-17, 01:18 AM
آخر رد: khaled12345
  [نقاش] طريقة التحقق عن طريق البصمه myalsailamy 6 564 24-06-17, 06:20 PM
آخر رد: silverlight
  هل نستطيع الرسم في الفيجوال بيسك khaled12345 10 271 24-06-17, 03:05 AM
آخر رد: khaled12345
  كيفية تحويل الماكرو اللي في الاكسيل الي برنامج فيجوال بيسك khaled12345 2 105 22-06-17, 03:48 AM
آخر رد: khaled12345
Question [VB.NET] احتاج كود انتقال الى صفحة انترنت (داخل الفيجوال بيسك) The Light Fire 1 100 11-06-17, 12:56 AM
آخر رد: qadar elzaman
  مشكلة في الفيجوال بيسك 2017 khaled12345 5 227 10-06-17, 08:45 PM
آخر رد: khaled12345

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم