بدست آوردن نام سیستم

[Dr Saeed]

با سلام دوستان چطور میتونم با وی بی اسم سیستم رو بدست بیارم ؟‌‌
مثلا واسه خودم Saeed-pc اینو چطور میتونم بدست بیارم ؟‌

[YasserDivaR]

درود
یک فایل PDF براتون پیوست کردم
در این کتاب اطلاعات جامعی در مورد بدست آوردن اطلاعات سیستم موجوده
نام ویندوز
پوشه Temp
تغییر نام کامپیوتر
و چندین اطلاعات مفید دیگر با استفاده از توابع API
در ضمن پیشنهاد می کنم حتما دانلود کنید
موفق باشید
تشکر فراموش نشود

[isaac23]

یه ماژول به برنامه اضافه کن و این کد ها رو اضافه کن بعد از این دستور استفاده کن
Declare Function GetComputerNameA Lib "kernel32" (ByVal lpBuffer As String, nSize As Long) As Long

Public Function GetComputerName() As String
Dim sResult As String * 255
GetComputerNameA sResult, 255
GetComputerName = Left$(sResult, InStr(sResult, Chr$(0)) - 1)
End Function




Text1.Text = GetComputerName


موفق باشید

[arash.arya43]

این همه لازم نیست:چشمک:

Dim username
username = Environ("UserName")
MsgBox username

[ایلیا آخوندزاده]

باسلام
اگه میخواین نام سیستم رو بدست بیارید بی دردسر میتونید از کنترل WinSock استفاده کنید.
موفق باشید

[isaac23]

خوب دستورش رو بذارید ما هم استفاده کنیم حالا اگه بخوایم نام سیستم و تغییر بدیم باید چیکار کنیم ممنون