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

[salam20]

سلام دوستان
اول بگم که در سایت گشتم ولی با زبان vb این را نداشت و با زبانهای sqlserver وdelphi بود
دوم اینکه اگه ممکنه سورسی برام بذارید که نام کامپیوتر را دریافت کنه
ممنون میشم

[__siavash__]

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Form_Load()
Dim Buffer As String

Buffer = String(255, 0)
GetComputerName Buffer, 255
Text1.Text = Left$(Buffer, InStr(1, Buffer, Chr$(0)) - 1)
End Sub

[arash.arya43]

رو7 64 بیتی کار نکرد کد دیگه ای ندارین؟

[Dr Saeed]

رو7 64 بیتی کار نکرد کد دیگه ای ندارین؟

من تست کردم جواب داد :-؟ مشکلی نبود

http://8pic.ir/images/jacb9em5l2mugp4wk3m0_thumb.png (http://8pic.ir/viewer.php?file=jacb9em5l2mugp4wk3m0.png)
http://8pic.ir/images/0msolmn0ahkuoi3h0t6r_thumb.jpg (http://8pic.ir/viewer.php?file=0msolmn0ahkuoi3h0t6r.jpg)

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

شما مطمئنین جستجو کردین؟
از راه winsock میشه.
winsock.LocalHostName

اینم تاپیک های مشابه :
http://barnamenevis.org/showthread.php?439700-%D8%A8%D8%AF%D8%B3%D8%AA-%D8%A2%D9%88%D8%B1%D8%AF%D9%86-%D9%86%D8%A7%D9%85-%DA%A9%D8%A7%D9%85%D9%BE%DB%8C%D9%88%D8%AA%D8%B1-%D8%AF%D8%B1-%D9%88%DB%8C%D9%86%D8%AF%D9%88%D8%B2-7&highlight=winsock

http://barnamenevis.org/showthread.php?75531-%D8%A8%D8%AF%D8%B3%D8%AA-%D8%A2%D9%88%D8%B1%D8%AF%D9%86-%D9%86%D8%A7%D9%85-Account-%D8%AC%D8%A7%D8%B1%DB%8C-%D9%88%DB%8C%D9%86%D8%AF%D9%88%D8%B2