إخوتي لابد أنكم احتجتم كود لمعرفة إسم الجهاز في الشبكة :
ضعوا هذا الكود في الجينيرال للفورم (قسم التعريف ) .
[ALIGN=LEFT]Private Const MAX_COMPUTERNAME_LENGTH As Long = 31 Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long[/ALIGN]
وضعوا هذا الكود في تحميل الفورم :
Dim strString As String
dwLen = MAX_COMPUTERNAME_LENGTH + 1
strString = String(dwLen, "X")
GetComputerName strString, dwLen
strString = Left(strString, dwLen)
MsgBox strString & "إسم الكومبيوتر هو : "
Dim dwLen As Long
فيظهر مسج بوكس يحمل إسم الجهاز .....
أخوكم : موفق
(gift)(f)