Iae galera tava meio sumido mas estou de volta. Abandonei o VB 6 e pulei para o VB.NET e to com um problema não consigo pegar o nome do computador, estou postando o codigo
<Runtime.InteropServices.DllImport("kernel32.dll")> Public Shared Function GetComputerName(ByVal nameBuffer As String, ByRef bufferSize As Integer) As Integer
End Function
Private Sub btnfuncao_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnfuncao.Click
Dim namebuffer As String
Dim buffersize As Integer
Dim nome As Integer
namebuffer = Space(255)
buffersize = Len(namebuffer)
nome = GetComputerName(namebuffer, buffersize)
txtnome.Text = nome
End Sub
O problema é que ele me retorna 1 e não o nome do computador não sei onde estou errando.
Quem puder dar uma força agraceço
abraço a todos
