vraag over mijn code

[anoniem]

hoi , ik heb nog niet zoveel verstand van VB6, maar ik probeer een programmaatje te maken voor msn chat, die automatisch antwoord geeft op iets wat iemand zegt, als ik zo duidelijk ben

ik heb dus twee pogingen hier maar ze werken niet (het programma logt prima in enzo)Message = Mid(MidData(Loc(";"), 0), InStr(1, MidData(Loc(";"), 0), " ", 1), Len(Mid(MidData(Loc(";"), 0), InStr(1, MidData(Loc(";"), 0), " ", 1))) - 3) UName = MidData(2, Loc("!") - 2) txtInt.Text = txtInt.Text + UName & ": " & Message & vbCrLf If Check1.Value = 1 Then Server2(0).SendData "Reply " + cboRoomNam.Text + " " + UName + " lol~yeh~that~was~funny" + vbCrLf Client.Tag = 1

dit werkt dus niet helaas, en de volgende ook niet

Public Sub UserSpoke() Dim Message$, UName, Temp& Message = Mid(MidData(Loc(";"), 0), InStr(1, MidData(Loc(";"), 0), " ", 1), Len(Mid(MidData(Loc(";"), 0), InStr(1, MidData(Loc(";"), 0), " ", 1))) - 3) UName = MidData(2, Loc("!") - 2) txtInt.Text = txtInt.Text + UName & ": " & Message & vbCrLf If Check1.Value = 1 Then Server2(0).cboSend.Text = cboRoomNam.Text + " " + UName + " lol~yeh~that~was~funny" + vbCrLf Client.Tag = 1

nou ik ben heel erg benieuwd of iemand mij advies kan geven.

vast bedankt..

[anoniem]

Verbaast me niets dat zelfs een computer hier niet uit komt. :wink:

------------------ Voor Uw ASP-applicaties: Corbier Automatisering Sneek

[anoniem]

hahaha zo gek is het dus niet dat ik het niet snap

[anoniem]

Ik ken VB6 niet, maar misschien moet je even zeggen wat er niet werkt. Wordt er niet gezonden of wordt het verkeerde gezonden?

[anoniem]

het zou dus moeten reageren op een woord (in mijn geval "lol" wat value1 is) met de reaktie: lol~yeah~that~was~funny hetgene wat niet werkt, is dat het dus niet reageert.. doet niks thanks,

[anoniem]

sorry ik moet het ff zeggen ik vind het erg iritant dat er niet in het onderwerp vb6 staat. Dus voortaan: [vb6]vraag over mijn code. Dan weet iedereen dat het over vb6 gaat. Dan hoef ik niet te kijken en de mensen die niet geintereseert zijn.

[anoniem]

[quote:5d54b56b9d] Op 2002-01-20 10:56, schreef webagent007: hetgene wat niet werkt, is dat het dus niet reageert.. doet niks [/quote:5d54b56b9d]En waar gaat het fout? Bij message = of bij uname = of ????? Kwestie van single steppen en kijken welke waarden er aan variabelen toegekend worden. Als je niet weet hoe dat moet, rtfm. Of gebruik messageboxes om variabelen weer te geven. Nogmaals, ken VB niet (alleen VBA gebruik ik wel eens)

[anoniem]

Ik kan denk ik wel zo'n proggie schrijven voor je in Visual Basic, Voeg me dan ff toe aan je msn: metre15@hotmail.com :wink: