---
title: "VB kod"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/97147-vb-kod"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "Calippo"
published: "2004-02-11T23:05:52.000Z"
updated: "2004-03-27T19:02:27.000Z"
replies: 6
views: 355
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/dotnet/97147-vb-kod"
---

# VB kod

## #1 — Calippo, 2004-02-11T23:05Z



Permalänk: https://www.webforum.nu/p/97147

## #2 — Qimen, 2004-02-11T23:11Z

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

Permalänk: https://www.webforum.nu/p/1276439

## #3 — Ekström, 2004-02-12T09:30Z

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. =)

Permalänk: https://www.webforum.nu/p/1276544

## #4 — PsyDonia, 2004-02-12T17:45Z

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)
```

Permalänk: https://www.webforum.nu/p/1276804

## #5 — Calippo, 2004-03-26T08:58Z

Ö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?

Permalänk: https://www.webforum.nu/p/1310056

## #6 — xcalibrate, 2004-03-26T20:03Z

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

Permalänk: https://www.webforum.nu/p/1310381

## #7 — Calippo, 2004-03-27T19:02Z

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..

Permalänk: https://www.webforum.nu/p/1310654

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/97147-vb-kod