ورود

View Full Version : بدست آوردن نام کامپیوتر در ویندوز 7


unforgiven
یک شنبه 13 بهمن 1392, 11:57 صبح
سلام دوستان
با چه کدی میشه نام کامپیوتر رو در ویندوز 7 نشون بدیم . اصلا امکانش وجود داره .
کلی جستجو کردم چیزی برای ویندوز 7 ندیدم هر چی بود برای ویندوز xp بود .

پیشاپیش متشکرم
Mr.305
یک شنبه 13 بهمن 1392, 13:46 عصر
اگه منظورتو درست فهمیده باشم متونی از کامپوننت winsock استفاده کنی
Winsock1.LocalHostName
meys34
یک شنبه 13 بهمن 1392, 15:22 عصر
من که نفمیدم مشکلتون چیه؟ اگر میشه بیشتر توضیح بدین...

این ها رو هم امتحان کنید:
Environ$ ("USERNAME" )
Environ$ ("COMPUTERNAME" )
unforgiven
یک شنبه 13 بهمن 1392, 15:57 عصر
منظورم نمایش نام کامپیوتر(سیستم) تو ویندوز هست .
اسمی که تو منوی system در کنترل پانل نشون میده - اون قسمت Registered to :
ایلیا آخوندزاده
چهارشنبه 01 مرداد 1393, 13:30 عصر
شما با استفاده از WINSOCK میتونی اینکارو بکنی مثلا یه لیبل به نام USER_NAME ایجاد میکنیم بعد توی فرم لود کد زیرو قرار میدیم :
USER_NAME.Caption = WinSock1.LocalHostName
R2du-soft
چهارشنبه 01 مرداد 1393, 14:06 عصر
دو عدد تکست باکس روی فرم قرار بدید و کد زیر رو داخل رویداد دکمه قرار بدید،با کلیک روی دکمه اسم یوزر و همچنین اسم کامپیوتر رو میبینید:


Private Sub Command1_Click()
Dim UserName As String
Dim UserDomain As String
Text1.Text = Environ("USERNAME")
Text2.Text = Environ("USERDOMAIN")
End Sub