منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] كيف استطيع عن طريق الفجول بيسك ان احصل على الايبي للحاسب - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] كيف استطيع عن طريق الفجول بيسك ان احصل على الايبي للحاسب (/showthread.php?tid=1022)

الصفحات: 1 2

كيف استطيع عن طريق الفجول بيسك ان احصل على الايبي للحاسب - scluay - 21-11-13

السلام عليكم شباب طاب يومكم
اخواني الافاظل نفعنا الله بعلمكم
عندي سؤال
كيف استطيع عن طريق الفجول بيسك ان احصل على الايبي للحاسب والسيريل نمبر (s/n)
اي عنطريق عمل برنامج نستخدم بداخله Environment
او توجد طريقه اخرى

RE: كيف استطيع عن طريق الفجول بيسك ان احصل على الايبي للحاسب - الشاكي لله - 21-11-13

هكذا نحصل على الايبي

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

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

موفق

RE: كيف استطيع عن طريق الفجول بيسك ان احصل على الايبي للحاسب - islam - 21-11-13

يا اخى بارك الله فيك كيف يتم استخدم هذه الكود

RE: كيف استطيع عن طريق الفجول بيسك ان احصل على الايبي للحاسب - mamas1 - 21-11-13

أنظر هذا المثال

RE: كيف استطيع عن طريق الفجول بيسك ان احصل على الايبي للحاسب - scluay - 22-11-13

(21-11-13, 11:49 PM)mamas1 كتب : أنظر هذا المثال

السلام عليكم
انا نزلت المثال ولكن كيف افتحه في برنامج الفجول ممكن مساعدتي اين اجد المثال

RE: كيف استطيع عن طريق الفجول بيسك ان احصل على الايبي للحاسب - mamas1 - 22-11-13

إفتح هذا الملف
Get Ip.vbproj

RE: كيف استطيع عن طريق الفجول بيسك ان احصل على الايبي للحاسب - scluay - 22-11-13

[attachment=720][attachment=721]
(22-11-13, 05:32 PM)mamas1 كتب : إفتح هذا الملف
Get Ip.vbproj
عذر اخي فتحت الملف ومايفتح
تطلع لي هذه الصوره

RE: كيف استطيع عن طريق الفجول بيسك ان احصل على الايبي للحاسب - مالكـ - 22-11-13

المثال معمول بأصدار الفيجوال بيسك 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 


RE: كيف استطيع عن طريق الفجول بيسك ان احصل على الايبي للحاسب - scluay - 22-11-13

(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
انا عمل مثل ما قات ولكن توجد مشكله واخطاء

RE: كيف استطيع عن طريق الفجول بيسك ان احصل على الايبي للحاسب - مالكـ - 23-11-13

اولا :اخي شكلك لم تنسخ الكود بالضبط

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

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

لا تقول مشكلة ثم تقف ...؟