Altro semplice esempio questa volta per recuperare il nome del computer in uso.Il sorgente è compatibile con Visual Basic 5 e Visual Basic 6 Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, ByRef nSize As Long) As Long Public Function GetPCName() As String'**************************************************************************'Func.: GetPCName (Creazione SB-29/03/2000; Mod.: )'Desc.: Restituisce il nome del PC in uso'Par. :'Ret. : Il nome 
Leggi tutto il post...