---
title: "Behöver hjälp med en funktion"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/27714-behöver-hjälp-med-en-funktion"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "Cy-4"
published: "2001-12-29T14:26:00.000Z"
updated: "2001-12-30T16:14:00.000Z"
replies: 1
views: 202
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/27714-behöver-hjälp-med-en-funktion"
---

# Behöver hjälp med en funktion

## #1 — Cy-4, 2001-12-29T14:26Z

Hallå!

Jag har ett litet problem. Jag håller på med ett chat-program och jag vill att när en person börjar sin text med / så ska det tolkas som ett kommando. Jag har precis börjat med Visual Basic men jag har hållt på med ASP en del innan. Jag har försökt använda följande kod för att kolla om det är ett kommando och isåfall vilket men det funkar inget vidare. Det händer inget utan allt läggs bara till i serverns logg, inget annat händer. Nu undrar jag om ni skulle kunna hjälpa mig med detta.

Här är koden:

\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600"\>
Private Sub Socket_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim data As String
' Läs in den inkommande datan i strängen data
Socket(Index).GetData data, vbString
' Om det första tecknet är / så är det ett kommando, inte ett meddelande
If Left(data, 1) = "/" Then
    ' Plockar ut kommandot
    Dim intSpacePlace As Integer
    intSpacePlace = InStr(1, data, " ", vbTextCompare)
    Select Case Mid(data, 1, intSpacePlace)
        ' Klienten vill ange/byta användarnamn
        Case "USER"
            ' Spara användarnamnet i socketens .Tag så är den lättåtkomlig
            Socket(Index).Tag = Mid(data, intSpacePlace + 1)
            lstUserList.AddItem Socket(Index).Tag
            UpdateClientUserList
        ' Klienten vill avsluta
        Case "QUIT"
            ' Bryt anslutningen
            Socket(Index).Close
        ' Ignorera alla andra kommandon
        Case Else
    End Select
' Det var inte ett kommando, med andra ord var det text
Else
    ' Skicka texten till alla anslutna klienter
    Shout data, Socket(Index).Tag
End If
' Lägg till datan och 'avsändaren' i loggen
AddText Socket(Index).Tag & ": " & data
End Sub

Så här skickar jag kommandot från klienten:

\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600"\>
Socket.SendData "/USER " & UserName

Hoppas ni kan hjälpa mig med detta.

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

## #2 — Cy-4, 2001-12-30T16:14Z

Har löst det själv nu!

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

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/27714-behöver-hjälp-med-en-funktion