anoniem Geplaatst: 11 januari 2002 Delen Geplaatst: 11 januari 2002 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 benik 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 nietPublic 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 = 1nou ik ben heel erg benieuwd of iemand mij advies kan geven.vast bedankt.. Quote Link naar reactie
anoniem Geplaatst: 11 januari 2002 Auteur Delen Geplaatst: 11 januari 2002 Verbaast me niets dat zelfs een computer hier niet uit komt. :wink:------------------ Voor Uw ASP-applicaties: Corbier Automatisering Sneek Quote Link naar reactie
anoniem Geplaatst: 11 januari 2002 Auteur Delen Geplaatst: 11 januari 2002 hahaha zo gek is het dus niet dat ik het niet snap Quote Link naar reactie
anoniem Geplaatst: 17 januari 2002 Auteur Delen Geplaatst: 17 januari 2002 Ik ken VB6 niet, maar misschien moet je even zeggen wat er niet werkt. Wordt er niet gezonden of wordt het verkeerde gezonden? Quote Link naar reactie
anoniem Geplaatst: 20 januari 2002 Auteur Delen Geplaatst: 20 januari 2002 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, Quote Link naar reactie
anoniem Geplaatst: 20 januari 2002 Auteur Delen Geplaatst: 20 januari 2002 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. Quote Link naar reactie
anoniem Geplaatst: 22 januari 2002 Auteur Delen Geplaatst: 22 januari 2002 [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) Quote Link naar reactie
anoniem Geplaatst: 30 november 2002 Auteur Delen Geplaatst: 30 november 2002 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: Quote Link naar reactie
Aanbevolen berichten
Om een reactie te plaatsen, moet je eerst inloggen