AnGelBot-Portal²

Hallo

seit geraumer zeit funktioniert das Orginale Horoskop-Script nicht mehr, daher wollte ich ich die Abruf-Seite ändern. Die Änderung der Seite habe ich schon durchgeführt . Beim Abruf des Horoskopes zeigt mir der Bot jetzt nur an

User:!horoskop Widder
BOT:Widder

danach erfolgt keine Ausgabe !

Änderungen
Const Host = "www.antenne.de" in Const Host = "freenet.viversum.de"
Header = "GET /antenne/news/horoskop/tag.php3" in Header = "GET /freenet/index_horoskop.php?"
Header = "GET http://" & Host & "/antenne/news/horoskop/tag.php3" in Header = "GET http://" & Host & "/freenet/index_horoskop.php?"

Da ich jetzt nicht weiss was ich falsch mache bitte ich euch um Eure tatkräftige Unterstützung.

Code:

'+-------------------------------------+ 

'| Horoskop-Script 1.0 © by sts 

'| THX @ Sp33d 4 Capitalize Function!! 

'| Don`t change the author! 

'| 

'| Website : www.angelbot.dyndns.org 

'|-------------------------------------+ 

'| PartyLine Setup ------------[x] 

'| Anlegung einer INI-Datei ---[x] 

'| Channeleinstellungen ------ [x] 

'|-------------------------------------+ 

'##############Einstellungen################## 

Const DebugIt = False      'Erweiterte Meldungen 

Const Trigger = "horoskop"      'Konfigurationtrigger auf der Partyline 

'###############Don't Change!!################ 

Const Host = "freenet.viversum.de" 

Const Sternzeichen = "widder stier zwillinge krebs löwe jungfrau waage skorpion schütze steinbock wassermann fische" 

Const INIFile = "horoskop.ini" 

Const ScriptVersion = "Horoskop-Script 1.0 © by sts" 

Const ScriptName = "Horoskop-Script 1.0 © by sts" 

Dim Channels, LastNews, Recieved, Zeichen, Channel 

Sub Init() 

  SpreadFlagMessage 0, "+m", "3 " & ScriptVersion 

  Hook "Commands" 

  Hook "Chan_Msg" 

  AddCommand ". " & Trigger, Cl_Mas, "+m", "2*** ." & Trigger & "##14Zeigt das " & ScriptName & " Setup in dem die Channels,##14in denen der Horoskop-Script aktiv sein soll verändert##14werden können." 

  ReloadChannels 

  SpreadFlagMessage 0, "+m", "3Um das Script zu konfigurieren gib nun ." & Trigger & " ein." 

End Sub 

Sub ReloadChannels() 

  Channels = ReadINIString("Settings", "Channels", "", INIFile) 

End Sub 

Sub Commands(vSock, RegUser, Flags, Line) 

  If LCase(Param(Line, 1)) = "." & Trigger Then 

    GrabUser vSock, "" & ScriptName & " Setup", "StatusSetup" 

    SetSockTag vSock, "MainMenu" 

    StatusSetup vSock, RegUser, Flags, "" 

  End If 

End Sub 

Sub Chan_Msg(Chan, Nick, RegUser, Line) 

  If InStr(1, Channels, Chan) > 0 Then 

    If LCase(Param(Line,1)) = "!horoskop" Or LCase(Param(Line,1)) = "!h" Then 

      If InStr(1, Sternzeichen, LCase(Param(Line,2))) > 0 Then 

        Zeichen = Param(Line,2) 

        Channel = Chan 

        GetNews 

      Else 

        Sendline "Notice " & Nick & " :Dieses Sternzeichen kenne ich nicht. Folgende Sternzeichen stehen zur Verfügung:",3 

        Sendline "Notice " & Nick & " :Widder, Stier, Zwillinge, Krebs, Löwe, Jungfrau, Waage, Skorpion, Schütze, Steinbock, Wassermann, Fische",3                

      End If 

    End If 

  End If 

End Sub 

Sub StatusSetup(vSock, RegUser, Flags, Line) 

  If Param(Line, 1) = "0" Then 

    TU vsock, "10*** Saving settings..." 

    ReleaseUser vSock 

    Exit Sub 

  End If 

  Select Case LCase(Param(GetSockTag(vSock), 1)) 

    Case "mainmenu" 

      TU vSock, " 4,1©4,14©4,15©4,0 sts 4,15©4,14©4,1© 1,1___||________________________|__4,1©4,14©4,15©4,0sts4,15©4,14©4,1©" 

      TU vSock, " 4,1©4,14©4,15©4,0 sts 4,15©4,14©4,1© 0,1 " & ScriptName & " Setup 4,1©4,14©4,15©4,0sts4,15©4,14©4,1©" 

      TU vSock, " 4,1©4,14©4,15©4,0 sts 4,15©4,14©4,1© 1,1___||________________________|__4,1©4,14©4,15©4,0sts4,15©4,14©4,1©" 

      TU vSock, " " 

      TU vSock, "Willkommen im Setup vom " & Version & "!" 

      TU vSock, "Du befindest dich im Hauptmenü." 

      TU vSock, " " 

      TU vSock, "0,1Ticker Channels:" 

      Dummy = Split(Channels, " ") 

      For i = LBound(Dummy) To UBound(Dummy) 

        TU vSock, "14 - " & Dummy(i) 

      Next 

      TU vSock, " " 

      TU vSock, " - chan add #channel um einen Channel der Liste hinzuzufügen" 

      TU vSock, " - chan del #channel um einen Channel aus Liste zu löschen" 

      TU vSock, "" 

      TU vSock, " - 0 um zurück auf die Partyline zu kommen." 

      SetSockTag vSock, "MainMenuOption" 

    Case "mainmenuoption" 

      Select Case LCase(Param(Line, 1)) 

        Case "chan" 

          If LCase(Param(Line, 2)) = "add" Then 

            Channels = Trim3(Channels & " " & Param(Line, 3)) 

            WriteINIString "Settings", "Channels", Channels, INIFile 

            TU vSock, "3*** Channel " & LCase(Param(Line, 3)) & " wurde hinzugefügt" 

            SetSockTag vSock, "MainMenu" 

            StatusSetup vSock, RegUser, Flags, "" 

          ElseIf LCase(Param(Line, 2)) = "del" Then 

            Channels = Trim3(Replace(LCase(Channels), LCase(Param(Line, 3)), "")) 

            WriteINIString "Settings", "Channels", Channels, INIFile 

            TU vSock, "3*** Channel " & LCase(Param(Line, 3)) & " wurde entfernt" 

            SetSockTag vSock, "MainMenu" 

            StatusSetup vSock, RegUser, Flags, "" 

          Else 

            TU vSock, "5*** Syntax: chan <add | del> <#channel>" 

          End If 

      End Select 

  End Select 

End Sub 

Sub GetNews() 

  vSock = SockConnect(Host, 80, "SockEvent") 

  If vSock = 0 Then 

    If DebugIt Then SpreadFlagMessage 0, "+m", "5*** " & Host & ": Couldn't create socket" 

    TimedCommand "GetNews", 120 

  End If 

End Sub 

Sub SockEvent(vSock, SEvent, SData) 

  Dim Header2 

  Select Case SEvent 

    Case SE_ConnectFailed 

      If DebugIt Then SpreadFlagMessage 0, "+m", "5*** " & ScriptName & ": Connection to " & Host & " failed" 

      TimedCommand "GetNews", CheckTime 

    Case SE_Connected 

      If Proxy = vbNullString Then 

        Header = "GET /freenet/index_horoskop.php?" 

      Else 

        Header = "GET http://" & Host & "/freenet/index_horoskop.php?" 

      End If 

      SockWrite vSock, Header & " HTTP/1.0" & vbCrLf & Header2 & _ 

                      "Accept: text/html"  & vbCrLf & _ 

                      "User-Agent: AnGeL-Bot " & LongBotVersion & " (www.AnGelBot.dyndns.org)" & vbCrLf & _ 

                      "Host: " & Host & vbCrLf & _ 

                      "Pragma: no-cache" & vbCrLf & _ 

                      "Connection: close" & vbCrLf & vbCrLf 

    Case SE_Read 

      Recieved = Recieved & SData 

    Case SE_Closed 

      If InStr(1, Recieved, "Widder") > 0 Then 

        Recieved = ReplaceHTMLCode(Recieved) 

        If DebugIt Then SpreadFlagMessage 0, "+m", "Zeichen: " & Zeichen 

        Dummy = Capitalize(Zeichen) 

        Recieved = Right(Recieved, Len(Recieved) - InStr(1, Recieved, Dummy) - Len(Dummy) + 1) 

        Dummy = "align=left hspace=10>" 

        Recieved = Right(Recieved, Len(Recieved) - InStr(1, Recieved, Dummy) - Len(Dummy) + 1) 

        tmp_Horoskop = Left(Recieved, InStr(1, Recieved, "<") - 1 ) 

        If DebugIt Then SpreadFlagMessage 0, "+m", Zeichen & ": " & tmp_Horoskop 

        Sendline "PrivMsg " & Channel & " :0" & Capitalize(Zeichen) & ":",3 

        Sendline "PrivMsg " & Channel & " :" & tmp_Horoskop,3 

      Else 

        SpreadFlagMessage 0, "+m", "5*** " & ScriptName & ": Couldn't recieve HTML page..." 

      End If 

      Recieved = vbNullString 

  End Select 

End Sub 

Function Trim10(Text) 

  Trim10 = Replace(Replace(Trim(Text), "   ", " "), "  ", " ") 

End Function 

Function ReplaceHTMLCode(Text) 

  Text = Replace(Text, vbCr,"") 

  Text = Replace(Text, VbCrLf,"") 

  Text = Replace(Text, vbFormFeed,"") 

  Text = Replace(Text, vbLf,"") 

  Text = Replace(Text, vbNewLine,"") 

  Text = Replace(Text, vbNullChar,"") 

  Text = Replace(Text, vbTab,"") 

  Text = Replace(Text, vbVerticalTab,"") 

  ReplaceHTMLCode = Text 

End Function 

Function Capitalize(Line) 

  Capitalize = UCase(Left(Line, 1)) & LCase(Mid(Line, 2)) 

End Function

MfG Andy01

Kann wirklich niemand helfen ? :( :(

MfG Andy

spammen bringt schonmal garnichts . . . und wenn einer zeit und lust hat wird er sich darum schon kümmern

Jo, hab mich mal dran versucht das umzuwurschteln. Es funktioniert fast perfekt, nur ein kleines *</b>* nach dem Datum stört noch. Vielleicht weiß ja jemand wie man das noch weg bekommt. Ansonsten gehts einwandfrei (zumindest bei mir Wink

)

Code:

'+-------------------------------------+ 

'| Horoskop-Script 1.1 © by sts 

'| THX @ Sp33d 4 Capitalize Function!! 

'| Don`t change the author! 

'| 

'| Website : www.angelbot.dyndns.org 

'|-------------------------------------+ 

'| PartyLine Setup ------------[x] 

'| Anlegung einer INI-Datei ---[x] 

'| Channeleinstellungen ------ [x] 

'|-------------------------------------+ 

'##############Einstellungen################## 

Const DebugIt = False      'Erweiterte Meldungen 

Const Trigger = "horoskop"      'Konfigurationtrigger auf der Partyline 

'###############Don't Change!!################ 

Const Host = "bz.berlin1.de" 

Const Sternzeichen = " widder stier zwillinge krebs löwe jungfrau waage skorpion schütze steinbock wassermann fische " 

Const INIFile = "horoskop.ini" 

Const ScriptVersion = "Horoskop-Script 1.0 © by sts" 

Const ScriptName = "Horoskop-Script 1.0 © by sts" 

Dim Channels, LastNews, Recieved, Zeichen, Channel 

Sub Init() 

SpreadFlagMessage 0, "+m", "3 " & ScriptVersion 

Hook "Commands" 

Hook "Chan_Msg" 

AddCommand ". " & Trigger, Cl_Mas, "+m", "2*** ." & Trigger & "##14Zeigt das " & ScriptName & " Setup in dem die Channels,##14in denen der Horoskop-Script aktiv sein soll verändert##14werden können." 

ReloadChannels 

SpreadFlagMessage 0, "+m", "3Um das Script zu konfigurieren gib nun ." & Trigger & " ein." 

End Sub 

Sub ReloadChannels() 

Channels = ReadINIString("Settings", "Channels", "", INIFile) 

End Sub 

Sub Commands(vSock, RegUser, Flags, Line) 

If LCase(Param(Line, 1)) = "." & Trigger Then 

GrabUser vSock, "" & ScriptName & " Setup", "StatusSetup" 

SetSockTag vSock, "MainMenu" 

StatusSetup vSock, RegUser, Flags, "" 

End If 

End Sub 

Sub Chan_Msg(Chan, Nick, RegUser, Line) 

If InStr(1, Channels, Chan) > 0 Then 

If LCase(Param(Line,1)) = "!horoskop" Then 

If InStr(1, Sternzeichen, LCase(Param(Line,2))) > 1 Then 

Zeichen = Param(Line,2) 

Channel = Chan 

GetNews 

Else 

Sendline "PRIVMSG " & Chan & " :Folgende Sternzeichen stehen zur Verfügung:",3 

Sendline "PRIVMSG " & Chan & " :Widder, Stier, Zwillinge, Krebs, Löwe, Jungfrau, Waage, Skorpion, Schütze, Steinbock, Wassermann, Fische",3   

End If 

End If 

End If 

End Sub  

Sub StatusSetup(vSock, RegUser, Flags, Line) 

If Param(Line, 1) = "0" Then 

TU vsock, "10*** Saving settings..." 

ReleaseUser vSock 

Exit Sub 

End If 

Select Case LCase(Param(GetSockTag(vSock), 1)) 

Case "mainmenu" 

TU vSock, " 4,1©4,14©4,15©4,0 sts 4,15©4,14©4,1© 1,1___||________________________|__4,1©4,14©4,15©4,0sts4,15©4,14©4,1©" 

TU vSock, " 4,1©4,14©4,15©4,0 sts 4,15©4,14©4,1© 0,1 " & ScriptName & " Setup 4,1©4,14©4,15©4,0sts4,15©4,14©4,1©" 

TU vSock, " 4,1©4,14©4,15©4,0 sts 4,15©4,14©4,1© 1,1___||________________________|__4,1©4,14©4,15©4,0sts4,15©4,14©4,1©" 

TU vSock, " "  

TU vSock, "Willkommen im Setup vom " & Version & "!" 

TU vSock, "Du befindest dich im Hauptmenü." 

TU vSock, " " 

TU vSock, "0,1Ticker Channels:" 

Dummy = Split(Channels, " ") 

For i = LBound(Dummy) To UBound(Dummy) 

TU vSock, "14 - " & Dummy(i) 

Next 

TU vSock, " " 

TU vSock, " - chan add #channel um einen Channel der Liste hinzuzufügen" 

TU vSock, " - chan del #channel um einen Channel aus Liste zu löschen" 

TU vSock, "" 

TU vSock, " - 0 um zurück auf die Partyline zu kommen." 

SetSockTag vSock, "MainMenuOption" 

Case "mainmenuoption" 

Select Case LCase(Param(Line, 1)) 

Case "chan" 

If LCase(Param(Line, 2)) = "add" Then 

Channels = Trim3(Channels & " " & Param(Line, 3)) 

WriteINIString "Settings", "Channels", Channels, INIFile 

TU vSock, "3*** Channel " & LCase(Param(Line, 3)) & " wurde hinzugefügt" 

SetSockTag vSock, "MainMenu" 

StatusSetup vSock, RegUser, Flags, "" 

ElseIf LCase(Param(Line, 2)) = "del" Then 

Channels = Trim3(Replace(LCase(Channels), LCase(Param(Line, 3)), "")) 

WriteINIString "Settings", "Channels", Channels, INIFile 

TU vSock, "3*** Channel " & LCase(Param(Line, 3)) & " wurde entfernt" 

SetSockTag vSock, "MainMenu" 

StatusSetup vSock, RegUser, Flags, "" 

Else 

TU vSock, "5*** Syntax: chan <add | del> <#channel>" 

End If 

End Select 

End Select 

End Sub 

Sub GetNews() 

vSock = SockConnect(Host, 80, "SockEvent") 

If vSock = 0 Then 

If DebugIt Then SpreadFlagMessage 0, "+m", "5*** " & Host & ": Couldn't create socket" 

TimedCommand "GetNews", 120 

End If 

End Sub 

Sub SockEvent(vSock, SEvent, SData) 

Dim Header2 

Select Case SEvent 

Case SE_ConnectFailed 

If DebugIt Then SpreadFlagMessage 0, "+m", "5*** " & ScriptName & ": Connection to " & Host & " failed" 

TimedCommand "GetNews", CheckTime 

Case SE_Connected 

If Proxy = vbNullString Then 

Header = "GET /sterne/horoskop.html" 

Else 

Header = "GET http://" & Host & "/sterne/horoskop.html" 

End If 

SockWrite vSock, Header & " HTTP/1.0" & vbCrLf & Header2 & _ 

"Accept: text/html"  & vbCrLf & _ 

"User-Agent: AnGeL-Bot " & LongBotVersion & " (www.AnGelBot.dyndns.org)" & vbCrLf & _ 

"Host: " & Host & vbCrLf & _ 

"Pragma: no-cache" & vbCrLf & _ 

"Connection: close" & vbCrLf & vbCrLf 

Case SE_Read 

Recieved = Recieved & SData 

Case SE_Closed 

If InStr(1, Recieved, "Widder") > 0 Then 

Recieved = ReplaceHTMLCode(Recieved) 

If DebugIt Then SpreadFlagMessage 0, "+m", "Zeichen: " & Capitalize(Zeichen) 

Dummy = Capitalize(Zeichen) & " <b>"

Recieved = Right(Recieved, Len(Recieved) - InStr(1, Recieved, Dummy) - Len(Dummy) + 1)  

tmp_Horrorskop = Left(Recieved, InStr(1, Recieved, "</p>") - 1 ) 

Sendline "PrivMsg " & Channel & " : " & Capitalize(Zeichen) & ":",3

Sendline "PrivMsg " & Channel & " : " & tmp_Horrorskop,3 

End If 

End Select 

End Sub 

Function Trim3(Text) 

Trim3 = Replace(Replace(Trim(Text), "   ", " "), "  ", " ") 

End Function 

Function ReplaceHTMLCode(Text) 

Text = Replace(Text, vbCr,"") 

Text = Replace(Text, VbCrLf,"") 

Text = Replace(Text, vbFormFeed,"") 

Text = Replace(Text, vbLf,"") 

Text = Replace(Text, vbNewLine,"") 

Text = Replace(Text, vbNullChar,"") 

Text = Replace(Text, vbTab,"") 

Text = Replace(Text, vbVerticalTab,"") 

ReplaceHTMLCode = Text 

End Function 

Function Capitalize(Line) 

Capitalize = UCase(Left(Line, 1)) & LCase(Mid(Line, 2)) 

End Function

Na das haste ja soweit fein hinbekommen :D :D :D

Hab es nun noch etwas verfeinert und der störende fehler ist auch weg.

Code:

'+-------------------------------------+ 

'| Horoskop-Script 1.1 © by sts 

'| THX @ Sp33d 4 Capitalize Function!! 

'| Don`t change the author! 

'| 

'| Website : www.angelbot.dyndns.org 

'|-------------------------------------+ 

'| PartyLine Setup ------------[x] 

'| Anlegung einer INI-Datei ---[x] 

'| Channeleinstellungen ------ [x] 

'|-------------------------------------+ 

'##############Einstellungen################## 

Const DebugIt = False      'Erweiterte Meldungen 

Const Trigger = "horoskop"      'Konfigurationtrigger auf der Partyline 

'###############Don't Change!!################ 

Const Host = "bz.berlin1.de" 

Const Sternzeichen = " widder stier zwillinge krebs löwe jungfrau waage skorpion schütze steinbock wassermann fische " 

Const INIFile = "horoskop.ini" 

Const ScriptVersion = "Horoskop-Script 1.0 © by sts" 

Const ScriptName = "Horoskop-Script 1.0 © by sts" 

Dim Channels, LastNews, Recieved, Zeichen, Channel 

Sub Init() 

SpreadFlagMessage 0, "+m", "3 " & ScriptVersion 

Hook "Commands" 

Hook "Chan_Msg" 

AddCommand ". " & Trigger, Cl_Mas, "+m", "2*** ." & Trigger & "##14Zeigt das " & ScriptName & " Setup in dem die Channels,##14in denen der Horoskop-Script aktiv sein soll verändert##14werden können." 

ReloadChannels 

SpreadFlagMessage 0, "+m", "3Um das Script zu konfigurieren gib nun ." & Trigger & " ein." 

End Sub 

Sub ReloadChannels() 

Channels = ReadINIString("Settings", "Channels", "", INIFile) 

End Sub 

Sub Commands(vSock, RegUser, Flags, Line) 

If LCase(Param(Line, 1)) = "." & Trigger Then 

GrabUser vSock, "" & ScriptName & " Setup", "StatusSetup" 

SetSockTag vSock, "MainMenu" 

StatusSetup vSock, RegUser, Flags, "" 

End If 

End Sub 

Sub Chan_Msg(Chan, Nick, RegUser, Line) 

If InStr(1, Channels, Chan) > 0 Then 

If LCase(Param(Line,1)) = "!horoskop" Then 

If InStr(1, Sternzeichen, LCase(Param(Line,2))) > 1 Then 

Zeichen = Param(Line,2) 

Channel = Chan 

GetNews 

Else 

Sendline "PRIVMSG " & Chan & " :Folgende Sternzeichen stehen zur Verfügung:",3 

Sendline "PRIVMSG " & Chan & " :Widder, Stier, Zwillinge, Krebs, Löwe, Jungfrau, Waage, Skorpion, Schütze, Steinbock, Wassermann, Fische",3    

End If 

End If 

End If 

End Sub  

Sub StatusSetup(vSock, RegUser, Flags, Line) 

If Param(Line, 1) = "0" Then 

TU vsock, "10*** Saving settings..." 

ReleaseUser vSock 

Exit Sub 

End If 

Select Case LCase(Param(GetSockTag(vSock), 1)) 

Case "mainmenu" 

TU vSock, " 4,1©4,14©4,15©4,0 sts 4,15©4,14©4,1© 1,1___||________________________|__4,1©4,14©4,15©4,0sts4,15©4,14©4,1©" 

TU vSock, " 4,1©4,14©4,15©4,0 sts 4,15©4,14©4,1© 0,1 " & ScriptName & " Setup 4,1©4,14©4,15©4,0sts4,15©4,14©4,1©" 

TU vSock, " 4,1©4,14©4,15©4,0 sts 4,15©4,14©4,1© 1,1___||________________________|__4,1©4,14©4,15©4,0sts4,15©4,14©4,1©" 

TU vSock, " "  

TU vSock, "Willkommen im Setup vom " & Version & "!" 

TU vSock, "Du befindest dich im Hauptmenü." 

TU vSock, " " 

TU vSock, "0,1Ticker Channels:" 

Dummy = Split(Channels, " ") 

For i = LBound(Dummy) To UBound(Dummy) 

TU vSock, "14 - " & Dummy(i) 

Next 

TU vSock, " " 

TU vSock, " - chan add #channel um einen Channel der Liste hinzuzufügen" 

TU vSock, " - chan del #channel um einen Channel aus Liste zu löschen" 

TU vSock, "" 

TU vSock, " - 0 um zurück auf die Partyline zu kommen." 

SetSockTag vSock, "MainMenuOption" 

Case "mainmenuoption" 

Select Case LCase(Param(Line, 1)) 

Case "chan" 

If LCase(Param(Line, 2)) = "add" Then 

Channels = Trim3(Channels & " " & Param(Line, 3)) 

WriteINIString "Settings", "Channels", Channels, INIFile 

TU vSock, "3*** Channel " & LCase(Param(Line, 3)) & " wurde hinzugefügt" 

SetSockTag vSock, "MainMenu" 

StatusSetup vSock, RegUser, Flags, "" 

ElseIf LCase(Param(Line, 2)) = "del" Then 

Channels = Trim3(Replace(LCase(Channels), LCase(Param(Line, 3)), "")) 

WriteINIString "Settings", "Channels", Channels, INIFile 

TU vSock, "3*** Channel " & LCase(Param(Line, 3)) & " wurde entfernt" 

SetSockTag vSock, "MainMenu" 

StatusSetup vSock, RegUser, Flags, "" 

Else 

TU vSock, "5*** Syntax: chan <add | del> <#channel>" 

End If 

End Select 

End Select 

End Sub 

Sub GetNews() 

vSock = SockConnect(Host, 80, "SockEvent") 

If vSock = 0 Then 

If DebugIt Then SpreadFlagMessage 0, "+m", "5*** " & Host & ": Couldn't create socket" 

TimedCommand "GetNews", 120 

End If 

End Sub 

Sub SockEvent(vSock, SEvent, SData) 

Dim Header2 

Select Case SEvent 

Case SE_ConnectFailed 

If DebugIt Then SpreadFlagMessage 0, "+m", "5*** " & ScriptName & ": Connection to " & Host & " failed" 

TimedCommand "GetNews", CheckTime 

Case SE_Connected 

If Proxy = vbNullString Then 

Header = "GET /sterne/horoskop.html" 

Else 

Header = "GET http://" & Host & "/sterne/horoskop.html" 

End If 

SockWrite vSock, Header & " HTTP/1.0" & vbCrLf & Header2 & _ 

"Accept: text/html"  & vbCrLf & _ 

"User-Agent: AnGeL-Bot " & LongBotVersion & " (www.AnGelBot.dyndns.org)" & vbCrLf & _ 

"Host: " & Host & vbCrLf & _ 

"Pragma: no-cache" & vbCrLf & _ 

"Connection: close" & vbCrLf & vbCrLf 

Case SE_Read 

Recieved = Recieved & SData 

Case SE_Closed 

If InStr(1, Recieved, "Widder") > 0 Then 

Recieved = ReplaceHTMLCode(Recieved) 

If DebugIt Then SpreadFlagMessage 0, "+m", "Zeichen: " & Capitalize(Zeichen) 

Dummy = Capitalize(Zeichen) & " <b>"

Recieved = Right(Recieved, Len(Recieved) - InStr(1, Recieved, Dummy) - Len(Dummy) - 16)  

tmp_Horoskop = Left(Recieved, InStr(1, Recieved, "</p>") - 1 ) 

Sendline "PrivMsg " & Channel & " :0" & Capitalize(Zeichen) & ":",3 

Sendline "PrivMsg " & Channel & " :15 " & tmp_Horoskop,3 

End If 

End Select 

End Sub 

Function Trim3(Text) 

Trim3 = Replace(Replace(Trim(Text), "   ", " "), "  ", " ") 

End Function 

Function ReplaceHTMLCode(Text) 

Text = Replace(Text, vbCr,"") 

Text = Replace(Text, VbCrLf,"") 

Text = Replace(Text, vbFormFeed,"") 

Text = Replace(Text, vbLf,"") 

Text = Replace(Text, vbNewLine,"") 

Text = Replace(Text, vbNullChar,"") 

Text = Replace(Text, vbTab,"") 

Text = Replace(Text, vbVerticalTab,"") 

ReplaceHTMLCode = Text 

End Function 

Function Capitalize(Line) 

Capitalize = UCase(Left(Line, 1)) & LCase(Mid(Line, 2)) 

End Function

Code:

Recieved = Right(Recieved, Len(Recieved) - InStr(1, Recieved, Dummy) - Len(Dummy) - 16)

Da hätte ich auch drauf kommen können Rolling Eyes

Naja das kommt davon wenn man halt nur ab und zu rumwurschtelt und eigentlich keinen Plan hat Wink

Auf jeden Fall gehts jetzt einwandfrei, supi und Thx!

Ganz gut nur

Code:

[11:21:33] 12|5&Phoenix[BOT]12| 0Skorpion:

[11:21:34] 12|5&Phoenix[BOT]12| 15 b> Venus läßt Ihre Hormone tanzen. Die Sterne servieren dazu erotische Häppchen. Ihr Liebesleben ist ein einziges großes Fest! Seien Sie offen für ganz andere Lebensvorstellungen, d. h. nicht, daß Sie Ihre über Bord werfen sollen. Offenheit genügt!

dieses b> am anfang stört aber sonst saubere Arbeit

andy01

andy01

Christian

Nukleos

andy01

Nukleos

Firefox