استخراج Computer name [بایگانی]

piter1355

شنبه 26 فروردین 1385, 15:23 عصر

سلام

بدنبال کدی میگردم که Computer name ویندوز رو استخراج کنم .

کسی چیزی سراغ نداره ؟

mahdi_farhani

شنبه 26 فروردین 1385, 15:33 عصر

از تابع GetComputerName از توابع Api استفاده کن

hamid2002ir

دوشنبه 28 فروردین 1385, 12:43 عصر

یک ماژول باز کن بعدا
Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function ComputerName()
Dim output As Long
Dim nSize As Long
Dim lpBuffer As String
lpBuffer = String(255, Chr(0))
nSize = 255
GetComputerName lpBuffer, nSize
ComputerName = lpBuffer
End Function

S_VB.max

دوشنبه 28 فروردین 1385, 15:20 عصر

با کنترل Microsoft Winsock هم می تونی این کار را بکنی
Text1.Text = Winsock1.LocalHostName

m_nejad

چهارشنبه 30 فروردین 1385, 10:09 صبح

توی سایت allapi.net نرم افزاری هست که apiها را با مثال توضیح می ده

mrgerami

چهارشنبه 30 فروردین 1385, 20:44 عصر

از کد زیر استفاده کنید به این دلیل که این api در اکثر ویندوزها جواب داده
Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function ComputerName()
Dim output As Long
Dim nSize As Long
Dim lpBuffer As String
lpBuffer = String(255, Chr(0))
nSize = 255
GetComputerName lpBuffer, nSize
ComputerName = lpBuffer
End Function

Payman62

چهارشنبه 30 فروردین 1385, 22:05 عصر

از کد زیر استفاده کنید به این دلیل که این api در اکثر ویندوزها جواب داده
Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function ComputerName()
Dim output As Long
Dim nSize As Long
Dim lpBuffer As String
lpBuffer = String(255, Chr(0))
nSize = 255
GetComputerName lpBuffer, nSize
ComputerName = lpBuffer
End Function
خوب اینو که حامدم گفته بود. چه فرقی داشت؟

mkbo_webmaster

پنج شنبه 31 فروردین 1385, 00:10 صبح

لطفا کدهاتون رو داخل تگهای کد بنویسید.
متشکر !!!

/