PureBoard

Verfasst: **12.12.2005 19:23**

Hallo,
Ich habe diesen IRC Chat in mein Programm eingebaut.

Nur es tauchen leider immer wieder Propleme auf. Es kann daran liegen das ich nicht alle Gadetesgeändert habe oder das ich ein paar falsch geändert habe.

Wäre super wenn mir jemang helfen könnte.

Verfasst: **12.12.2005 19:26**

Vorliegenden Code einbauen kann jeder

... und wenn du uns zeigst, welchen Code du eingebaut hast, hilft das auch nur minimal weiter. Denn dieser Code funktioniert ja.

Wir müssten also jetzt wissen, was du genau gemacht hast ... das können wir aber nur, wenn du uns deinen aktuellen Code postest

Fürs Hellsehen ist das hier leider das falsche Forum

Bitte die Ironie in diesem Beitrag beachten

MFG PMV

Verfasst: **12.12.2005 19:32**

na ups

)

Ich wollte ihn eigentlich auch mit posten

Code: Alles auswählen

Line.s = IRCGetLine() ;Get a messageline
  If Line <> ""
    If IRCGetFrom(Line) <> ""
   
    ClearGadgetItemList(#User_List)
    Names.s = ""
    While Names = ""
    Names.s = IRCEnumNames(Channel.s)
    Wend
    Login = 1
   
    For k=1 To CountString(Names, " ") ;List the Names
      Cur.s = StringField(Names, k, " ")
      If Len(Cur) > 1
        AddGadgetItem(#User_List, -1, Cur)
      EndIf
    Next
   
    If UCase(IRCGetTo(Line)) <> UCase(Channel.s)
    AddGadgetItem(#Chat, -1, "<"+IRCGetFrom(Line)+" To "+IRCGetTo(Line)+"> "+IRCGetText(Line))
    SendMessage_(GadgetID(#Chat), #EM_SCROLL, #SB_LINEDOWN, 0)
    Else
    AddGadgetItem(#Chat, -1, "<"+IRCGetFrom(Line)+"> "+IRCGetText(Line))
    SendMessage_(GadgetID(#Chat), #EM_SCROLL, #SB_LINEDOWN, 0)
    EndIf
   
    Else
   
    AddGadgetItem(#Chat, -1, Line)
    SendMessage_(GadgetID(#Chat), #EM_SCROLL, #SB_LINEDOWN, 0)
    EndIf
   
    SetGadgetState(#Chat, CountGadgetItems(#Chat)-1)
   
  Else
   
    ;If Login = 1 And ElapsedMilliseconds()-LastPing > 15000
    ;  Ping.f = IRCPing(Server.s, 5000)
    ;  SetWindowTitle(#Window_0, "Radio Dunklewelle "+Channel+"  Ping: "+StrF(Ping, 2))
    ;  LastPing = ElapsedMilliseconds()
    ;EndIf
   
  EndIf
 
 
  Event = WindowEvent()
  Select Event
    Case 0
      Delay(20)
    Case #PB_Event_SizeWindow
      ResizeWin()
    Case #PB_Event_Gadget
      Select EventGadgetID()
        Case 2
          If EventType() = #PB_EventType_LeftDoubleClick
            Msg.s = GetGadgetItemText(#String_7, GetGadgetState(#User_List), 0)
            If Left(Msg, 1) = "@"
              Msg = Right(Msg, Len(Msg)-1)
            EndIf
            SetGadgetText(#String_7, GetGadgetText(#String_7)+"/msg "+Msg+" ")
            ActivateGadget(#String_7)
          EndIf
        Case 1
          If EventType() = #PB_EventType_ReturnKey And GetGadgetText(#String_7) <> ""
            If Left(GetGadgetText(#String_7), 1) = "/"
            AllParams.s = Right(GetGadgetText(#String_7), Len(GetGadgetText(#String_7))-FindString(GetGadgetText(#String_7), " ", 0))
            Param1.s = StringField(GetGadgetText(#String_7), 2, " ")
            Param2.s = Right(AllParams.s, Len(AllParams.s)-FindString(AllParams.s, " ", 1))
            Select LCase(StringField(GetGadgetText(#String_7), 1, " "))
              Case "/msg"
                IRCSendText(Param1, Param2)
                AddGadgetItem(#Chat, -1, "<"+Nick+" To "+Param1+"> "+Param2)
              Case "/join"
                IRCJoin(Param1, Server)
              Default
                IRCSend(Right(GetGadgetText(#String_7), Len(GetGadgetText(#String_7))-1))
                AddGadgetItem(#Chat, -1, "<"+Nick+"> "+AllParams.s)
            EndSelect
            Else
            IRCSendText(Channel.s, GetGadgetText(1))
            AddGadgetItem(#Chat, -1, "<"+Nick+"> "+GetGadgetText(1))
            EndIf
            SetGadgetText(#String_7, "")
            SetGadgetState(#Chat, CountGadgetItems(#Chat)-1)
          EndIf
      EndSelect
  EndSelect

Verfasst: **14.12.2005 21:57**

Kann denn keiner helfen Bild

Verfasst: **14.12.2005 23:18**

Magix-Soft <Kain> hat geschrieben:Kann denn keiner helfen

sorry, Magix-Soft <Kain>, aber Du musst schon ein wenig genauer
schreiben, was da nicht funktioniert.

> Nur es tauchen leider immer wieder Propleme auf.

... ist halt ein wenig dürftig. Und ich vermute, dass es so manchem Leser wie
mir geht, wenn ich sage, dass es mir zu mühsam ist, einen unbekannten
Fehler in einem umfangreichen Codefragment zu suchen.

Grüße ... Kiffi