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

السلام عليكم

بسم الله الرحمن الرحيم

اولا يجب اضافة command و two text و اضافة الاداة winsock

الكود الخاص بذلك:

Private Sub Command1_Click()

Text1.Text = Winsock1.LocalHostName
Text2.Text = Winsock1.LocalIP

End Sub

الtext الاول يحدد اسم الجهاز , و ال text الثاني يحدد رقم الip الحالي