[vb.net] /command's

[anonymous-29742]

Hallo,
Ich bin gerade dabei einen 'FTP CHAT' zu coden,
nun möchte ich , das 'commands' genutzt werden können.


Bsp. (ich schreibe in das Nachrichtenfeld) :
/username #Lucas#

Dabei soll nun folgendes Passieren :
USERNAME = #Lucas#

Habe das alle schon Define't (Dim USERNAME As String)


Ich hoffe ich finde hier Hilfe

MFG Lucas.

[YatoDev]

sollte genügen bin am handy online

If nachricht.Contains("/") Then
command = nachricht.Split(" ")

dann abchecken welches command es ist zb mit einem switch block (der command ist nachricht[0] der wert nachricht[1])

[anonymous-29742]

Originally Posted by »FlutterShy™

sollte genügen bin am handy online

If nachricht.Contains("/") Then
command = nachricht.Split(" ")

dann abchecken welches command es ist zb mit einem switch block (der command ist nachricht[0] der wert nachricht[1])

Das geht iwie nicht :/

Habe aber etwas anderes gefunden, wo
ich auch nicht weiter komme.
Immer wenn nur 1 Wort abgeschickt wird.

kommt das :

[YatoDev]

Originally Posted by #Lucas#

Das geht iwie nicht :/

Habe aber etwas anderes gefunden, wo
ich auch nicht weiter komme.
Immer wenn nur 1 Wort abgeschickt wird.

kommt das :

ich versteh auch nicht was das für einen sinn macht was du da in den quellcode schreibst :/

FTP Passwort im code? Release das bloß nicht

[warfley]

Hier ein Code, den du für mehr commands Selbständig noch ergänzen musst ist an den Entsprechenden Stellen aber auch Kommentiert

PHP Code:

#Region "Command"
    Enum CmdType
        ctUsername
        REM Hier neue Identifikatoren Hinzufügen
        ctUnknown
    End Enum
    Structure Cmd
        Dim CommandType As CmdType
        Dim Args() As String
    End Structure

    Const CmdIndicator As String = "/"
    Function CmdGetType(str As String) As CmdType
        Select Case str
            Case "username"
                Return CmdType.ctUsername
                REM hier weitere Abfragen einfügen
            Case Else
                Return CmdType.ctUnknown
        End Select
    End Function

    Function ParseCMD(ByRef CmdStr As String, ByRef Command As Cmd) As Boolean
        If Not CmdStr.StartsWith(CmdIndicator) Then
            Return False
        End If
        Dim tmpStr As String = CmdStr.Substring(1, CmdStr.Length - 1)
        Dim SplitLst As String() = tmpStr.Split(" ")
        Command.CommandType = CmdGetType(SplitLst(0).ToLower)
        ReDim Command.Args(SplitLst.Length - 2)
        For i As Integer = 1 To SplitLst.Length - 1
            Command.Args(i - 1) = [String].Copy(SplitLst(i))
        Next i
        Return True
    End Function


#End Region 


BSP benutzung:

PHP Code:

  Dim Command As Cmd = new Cmd
  ParseCMD(TextBox1.Text, Command)
  If (Command.CommandType = ctUsername) And (Command.Args.Length > 0) then
    Foo(Command.Args(0)
  End If 


[anonymous-29742]

Originally Posted by »FlutterShy™

ich versteh auch nicht was das für einen sinn macht was du da in den quellcode schreibst :/

FTP Passwort im code? Release das bloß nicht

Gibt ja sowas wie Net.Reactor

[lordsill]

Originally Posted by #Lucas#

Gibt ja sowas wie Net.Reactor

Bringt dann auch nicht viel, .Net Reactor kannst du auch decompilen... (und in den ursprünglichen Code zurücksetzen....)

z.b.

Supported obfuscators/packers

Agile.NET (aka CliSecure)
Babel.NET
CodeFort
CodeVeil
CodeWall
CryptoObfuscator
DeepSea Obfuscator
Dotfuscator
.NET Reactor
Eazfuscator.NET
Goliath.NET
ILProtector
MaxtoCode
MPRESS
Rummage
Skater.NET
SmartAssembly
Spices.Net
Xenocode

kind regards
LordSill

[YatoDev]

Originally Posted by #Lucas#

Gibt ja sowas wie Net.Reactor

selbst wenn es mit de4dot nicht automatisiert geht hindert mich keiner daran den code zu kopieren und ihn sich entschlüsselt zeigen lassen und mit reflexil könnte man auch an der stelle eine ausgabe reinpatchen