Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
 
RegistrierenRegistrieren  LoginLogin
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten
Autor
Nachricht
K3V
Newbie
Newbie

Anmeldedatum: 19.06.2008
Beiträge: 8

Irc Bot Problem
Verfasst am: 19.06.2008, 13:23

Problem "gelöst" bitte runter scrollen zum anderen Post ist ein anderes^^


Tach, ich bin dabei nen IRC-Bot zu coden, der halt wenn man zb !test eingibt iwas ausgibt was vorher definiert wurde.

Hab dazu das gemacht:

Visual Basic: [code]
Select Case cmd
Case "!test"
MsgBox "jo"
Case Else
MsgBox "nope"
End Select
[/code]

cmd is halt das was kommt.
Nur das Problem ist iwie, das er immer nope sagt egal was ich schreibe...
Ankommen tut das wenn man schreibt:

Visual Basic: [code]:K3V!chatzilla@iZ-41EB8AB6.dip.t-dialin.net PRIVMSG #k3vbottest :!test[/code]

Ich hoffe mir kann jemand helfen.

MfG K3V
 
crusader727
Newbie
Newbie

Anmeldedatum: 01.05.2008
Beiträge: 13


Verfasst am: 19.06.2008, 14:36

(K3V;4180)
cmd is halt das was kommt.

lass dir doch mal ausgeben was kommt..., außerdem kommt ja nicht nur "!test" sondern davor noch bissl was...
 
dcm
Poster
Poster

Anmeldedatum: 04.05.2008
Beiträge: 101


Verfasst am: 19.06.2008, 14:47

:K3V!chatzilla@iZ-41EB8AB6.dip.t-dialin.net PRIVMSG #k3vbottest :!test

dann kann des ja gar nicht funktionieren...
du musst irgendwie des !test rausholen.
nimm doch zum beispiel die letzten 5 buchstaben, und schau da, ob es !test ist - right$
oder splitte das ganze nach ":" und nehme das 2... - split
oder schau mit instr, ob !text im string drin ist, und wenn, dann führe die aktion aus...
wenn du genau wissen willst, wie die einzelnen funktionen funktionieren such bei google nach dem fett gedruckten und vb6... ich bin zu faul grad^^
 
K3V
Newbie
Newbie

Anmeldedatum: 19.06.2008
Beiträge: 8


Verfasst am: 19.06.2008, 16:22

Kann mir jemand helfen wie ich halt aus dem

:K3V!chatzilla@iZ-41EB8AB6.dip.t-dialin.net PRIVMSG #k3vbottest :!test

nur die nachricht rausfischen kann? Das geht ja iwie mit SPlitdata aber da zweimal ":" vorkommt hab ich kp wies gehen soll....

edit: habs jetzt so gemacht:

Visual Basic: [code]

Dim redata As String
Dim spdata() As String


redata = strData
spdata = Split(redata, " :")



Select Case spdata(1)
Case "test":
sckIRC.SendData "PRIVMSG #k3vbottest : Hi, this is my message" & vbCrLf

End Select
[/code]

Nur das Problem ist, nur der vordere Teil wird ausgegeben. Ich würde aber gerne den hinteren teil, also die NAchricht^^
 
noname
Poster
Poster

Anmeldedatum: 01.05.2008
Beiträge: 131


Verfasst am: 19.06.2008, 16:46

Wenn ich den String so sehe, kommt nur einmal " :" vor. Da solltest du ansetzen!
 
K3V
Newbie
Newbie

Anmeldedatum: 19.06.2008
Beiträge: 8


Verfasst am: 19.06.2008, 16:47

Jo habbich ja, les ma oben bitte^^
 
r4z3r
Poster
Poster

Anmeldedatum: 16.04.2008
Beiträge: 173


Verfasst am: 19.06.2008, 16:56

Ganz am Anfang ist noch ein ":" Zeichen, das heißt also, dass die Nachricht im dritten Arrayfeld (2) liegt
 
K3V
Newbie
Newbie

Anmeldedatum: 19.06.2008
Beiträge: 8


Verfasst am: 19.06.2008, 17:00

wenn ich ne (2) mache kommt ne Fehlermeldung...bei 0 und 1 kommt immer das selbe raus...

edit: boah bin ich dumm, hab beim falschen dioe zahl geändert xD
Kann von mir aus vorerts gecloset werden^^

edit: so wieder n prob...
hab jetzt diesen code:

Visual Basic: [code]
Select Case spdata(1)
Case "!help":
sckIRC.SendData "PRIVMSG #k3vbottest : Help" & vbCrLf
MsgBox "wurst"
End Select
[/code]

Zwar ist meine Eingabe und spdata(1) = !help aber trotzdem passiert nix...
was ist mein fehler?

*push*
Brauche wirklich hilfe :p
 
dcm
Poster
Poster

Anmeldedatum: 04.05.2008
Beiträge: 101


Verfasst am: 29.06.2008, 10:22


groß und kleinschreibung beachtet? ist vielleicht ein leerzeichen drin?
 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten

Tags: chatzilla, irc, bot

 
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Wichtig: [Ebook] jetzt lerne ich Visual Basic 6 5067 02.06.2010, 13:55
Keine neuen Beiträge Miceosoft Visual Basic 6.0 Einsteiger Kurs? 1189 17.02.2007, 21:01
Keine neuen Beiträge SUCHE MICROSOFT VISUAL BASIC! 944 12.02.2007, 21:54
Keine neuen Beiträge Microsoft Visual Basic 1275 28.01.2007, 00:59
Keine neuen Beiträge Visual Basic.. Version?? 1230 22.01.2007, 18:23
 


[ Time: 0.1281s ][ Queries: 106 (0.0672s) ][ GZIP on - Debug on ]