Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Kliknite na " Štart " a potom kliknite na tlačidlo " Microsoft Visual Basic 6 " .
2
Kliknite na " Súbor " vyberte " Otvoriť " a potom dvakrát kliknite na základný súbor Visual , v ktorom chcete pridať funkciu načítanie názov počítača z registra systému Windows
3
Pridajte nasledujúci kód na začiatku programu : .
Private Declare Function GetComputerName Lib " Kernel32 " Alias
" GetComputerNameA " ( byVal lpBuffer As String , nVeľkosť As Long ) Ako
Long
funkcie názov_počítača ( ) As String
Dim strComputername As String Dim
lngSize As Long Dim
lngRetval As Long
strComputername = Space ( 255 )
lngSize = 255
lngRetval = GetComputerName ( strComputername , lngSize )
ComputerName = Mid $ ( strComputername , 1 , lngSize )
End Function
4
kliknite na " Súbor " vyberte " Uložiť " a potom kliknite na tlačidlo " OK " pridať funkciu vyhľadávania mena počítača do programu .