Получить имя компьютера - Visual Basic .NET

Формулировка задачи:

Есть форма, есть текст. Но не работает.VB2010

                    Листинг программы
                
 
                        
                          
                    
Public Class Form1
   
    'узнать имя компьютера
   
   Private Declare Function GetComputerName Lib "kernel32" Alias _
  "GetComputerNameA" (ByVal lpBuffer As String) As Long
    Private Const MAX_COMPUTERNAME_LENGTH = 15
    Sub Demo_GetComputerName()
        Dim strBuffer As String
        Dim lngResult As Long
        lngResult = GetComputerName(strBuffer)
        If lngResult = 1 Then
            MsgBox(strBuffer)
        End If
    End Sub
 
End Class

Решение задачи: «Получить имя компьютера»

textual
                            Листинг программы 
                        
 
                        
                          
                    
   Private Declare Function GetComputerName Lib "kernel32" Alias _
"GetComputerNameA" (ByVal lpBuffer As String, ByRef nSize As Integer) As Integer
    Sub Demo_GetComputerName()
        Dim strBuffer As New String(" ", 250)
        Dim lngResult As Integer
        lngResult = GetComputerName(strBuffer, 250)
        If lngResult = 1 Then
            MsgBox(Trim(strBuffer))
        End If
    End Sub

Оцени полезность:

9 голосов , оценка 4.111 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы