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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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

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

[attachment=734]

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

اخي انت ليش معقد روحك ؟؟


انا كاتب لك فوق كود لجلب الايبي ومافي اسهل منه

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

واذا تبي تخليه في textbox :-

PHP كود :
Textbox1.Text = LocalIP.ToString() 

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

السلام عليكم شباب ما اعرف كيف اشكركم
البرنامج تطبق ومشكورين جدا جدا

RE: كيف استطيع عن طريق الفجول بيسك ان احصل على الايبي للحاسب - ѕαLσσσмx - 23-11-13

استدعي مكتبة النت
PHP كود :
Imports System.Net 

PHP كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click



        Dim hostr As New IPHostEntry
        hostr = Dns.GetHostByName("")
        For Each nn In hostr.AddressList
            MsgBox(nn.ToString)
        Next


    End Sub 


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

مشكورين جميعا كيف الحصول على s/n