PDA

View Full Version : نام ویندوز


ab1234
جمعه 25 مرداد 1387, 17:56 عصر
با سلام !
چه طور می تونم اسمی رو که کاربر برای ویندوزش گذاشته به دست بیارم؟؟:خجالت:
ترجیحا بدون API
متشکرم
sohrab o
جمعه 25 مرداد 1387, 18:16 عصر
منظورت از اسم ویندوز Computer Name یا نام یوزر
ab1234
جمعه 25 مرداد 1387, 18:35 عصر
همون comuter name
نام ویندوز( مثلا XP ) رو که کاربر نمیتونه انتخاب کنه
sohrab o
جمعه 25 مرداد 1387, 19:44 عصر
منظورم از نام یوزر XP نبود.نام کاربری که با اون وارد ویندوز میشی
http://barnamenevis.org/forum/showthread.php?t=81542&page=27
تو آدرس بالا یه برنامه معرفی کردم که توش کلی تابع API از جمله تابع Get_Computer_Name هست .از اون برای دریافت نام کامپیوتر استفاده کن
sohrab o
جمعه 25 مرداد 1387, 19:45 عصر
Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function Get_Computer_Name() As String

Dim Cn As String

Cn = Space(255)
GetComputerName Cn, 255
Get_Computer_Name = Cn

End Function