Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

vraag over mijn code

metre
7 antwoorden
  • 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..

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

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

  • hahaha zo gek is het dus niet dat ik het niet snap
  • Ik ken VB6 niet, maar misschien moet je even zeggen wat er niet werkt. Wordt er niet gezonden of wordt het verkeerde gezonden?
  • 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,
  • 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: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)

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.