[scluay]

(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

---

انا عمل مثل ما قات ولكن توجد مشكله واخطاء