[VB] Brauche jemaden

[AmJano]

Schönen Guten Abend,


ich brauche da jemand der sich in VB auskennt.

Paar Infos:
Bin gerade dabei ein MafiaBot zu machen, es fehlt nur noch eins das mit dem lu , sv usw.


Was kann ich dafür Bieten:
10x Knuddels kann ich leider nur dafür bieten (Falls Interesse)


Es seih denn es hat jemand das Paket ?


Derjenige bitte per PN melden!


Danke.


Mfg

[iToxic]

Was genau hat das nun Mit VB zu tun?!

Logg dir die Packete am besten selbst, sonst stehst du vor einem Problem und bist wieder auf andere Hilfe angewiesen, wenn was an den Packeten geändert wird.

B2T: Wende dich mal an DbzFreak1337

[AmJano]

So weit bin ich ja, aber es klappt nicht?!

            Dim input As String = "r\0James\0NICK\0-\0_NICK_ macht dir einen _leicht unverdächtigen_ Eindruck.\0 \0"
            Dim msg As String = input.Split("\0")(4)

            Dim toNick = msg.Substring(1, msg.IndexOf("_"))
            Dim what = msg.Substring(1, msg.IndexOf("_"))

            If what = "leicht verdächtigen" Then
                client.Send("/tip " + toNick + " :lv") ' lv steht für leicht verdächtigt'
            End If 

[BL4cK]

Gibt es sowas wie .contains in der Lib nicht? Gab es früher doch auch.. dann einfach eine If-Abfrage machen und denn su sv usw.. senden.

[DnL]

Dim inp As String = "r" & vbNullChar & "James" & vbNullChar & "NICK" & vbNullChar & "-" & vbNullChar & "_NICK_ macht dir einen _leicht verdächtigen_ Eindruck." & vbNullChar & " " & vbNullChar
Dim msg As String = inp.Split(ControlChars.NullChar)(4)

Dim index As Integer = msg.IndexOf("_", 1)
If index > 0 Then
	Dim toNick As String = msg.Substring(1, index - 1)
	index = msg.IndexOf("_", toNick.Length + 2)
	If index > 0 Then
		index += 1
		Dim state As String = msg.Substring(index, msg.IndexOf("_", index + 1) - index)
		Select Case state
			Case "leicht verdächtigen"
				client.Send(String.Format("/tip {0}:{1}", toNick, "lv"))
				Exit Select
		End Select
	End If
End If

Das ganze wurde nach VB übersetzt hier der original Code

string inp = "r\0James\0NICK\0-\0_NICK_ macht dir einen _leicht verdächtigen_ Eindruck.\0 \0";
            string msg = inp.Split('\0')[4];
            
            int index = msg.IndexOf('_', 1);
            if (index > 0)
            {
                string toNick = msg.Substring(1, index - 1);
                index = msg.IndexOf('_', toNick.Length + 2);
                if (index > 0)
                {
                    index++;
                    string state = msg.Substring(index, msg.IndexOf('_', index + 1) - index);
                    switch (state)
                    {
                        case "leicht verdächtigen":

                            client.Send(string.Format("/tip {0}:{1}", toNick, "lv"));
                            break;
                    }
                }
            }