VB kod

Sök i MSDN så kommer du garanterat hitta alla de sakerna enkelt.

Finns det MSDN offline på något sätt? Har modem, kan inte sitta online hela tiden bara för att jag är nybörjare och behöver hjälp med i stort sett allt. =)

För Dator namnet.

Lägg detta i en module.

Option Explicit

Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

och där du vill få fram namnet skriver du

Dim strUsername As String
Dim strBuff As String * 25
     
     ret = GetUserName(strBuff, 25)
     strUsername = Left(strBuff, InStr(strBuff, Chr(0)) - 1)

Och för interna IP och Mac adressen så gör du bara så här.

  Dim WMI As Object
  Set WMI = GetObject("winmgmts:")
    Dim strAdapters As Object
  Dim strAdapter As Object

  Set strAdapters = GetObject("winmgmts:").execquery( _
    "SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
  For Each strAdapter In strAdapters
    With strAdapter
      txtMac.Text = "MAC:" & .MACAddress
      txtIP.Text = "IP:" & Join(.IPAddress)
    End With
  Next

Och Extern IP kan du göra så här.
Lägg till en Inet Kontroll.

 Dim MyIP As String
    MyIP = Inet1.OpenURL("http://showmyip.com/simple")
    MsgBox ("Your internet IP Address is " & MyIP)

Öhh, får allt utom Inet o funka...

Hur lägger man till en "Inet funktion"?

(Kan inte så mycket om Visual Basic som ni kanske märker)

Får felmeddelandet "Variable not defined" på koden:

Dim MyIP As String
MyIP = Inet1.OpenURL("http://showmyip.com/simple")
MsgBox ("Your internet IP Address is " & MyIP)

Det beror väl på att jag inte har lagt till nån Inet kontroll...
Hur/var lägger man till den?

Du måste lägga in kontrollen Inet under Components...

Japp, jag hittade det igår kväll och fick det att funka.
(Glömde av att posta det här)

Tackar för hjälpen, har nu lyckats göra ett litet progg som visar
- Datornamnet
- MAC adressen
- Internt IP
- Publikt IP
- Om man är anslutet till internet

Tackar tackar..