AnGelBot-Portal² - script für chip.de ?

könnte jemand mal ein script für chip.de posten wäre sehr nett !

nur wenn zeit und lusst vorhanden ist Confused
:

mfg bang
Code:

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

'¦ Chip.de NewsTicker 1.0 © by sts 

'¦

'¦ Don`t change the author! 

'¦ 

'¦ Website : www.angel-bot.org 

'¦ Script Archive: www.angel-bot.org/system/anypage/index.php?id=2

'¦

'¦-------------------------------------+

'¦ PartyLine Setup ------------[x] 

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

'¦ Channeleinstellungen ------ [x]

'¦-------------------------------------+

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

Const ChipFile = "ini_chip.ini"

Const DebugIt = False          'Erweiterte Meldungen

'##############Don't change!!!#################

Const Version = "Chip.de Ticker 1.0 by sts"

Const Host = "www.chip.de" 

Dim Channels, LastNews, Recieved

Sub Init()

  Script Version

  Hook "Commands"

  Hook "Chan_Msg"

  AddCommand "chip", Cl_Mas, "+m", "2*** .chip##14Zeigt das Chip.de-Ticker Setup in dem die Channel,##14in denen der Ticker angezeigt werden soll verändert##14werden können."

  ReloadChannels

  GetNews

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

End Sub

Sub Chan_Msg(Chan, Nick, RegUser, Line) 

  If LCase(Param(Line, 1)) =  "!chip.de" Then

    Sendline "PrivMSG " & Chan & " : " & ReadINIString("Update", "last", "", ChipFile),3

  End If

End Sub

Sub ReloadChannels()

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

End Sub

Sub Commands(vSock, RegUser, Flags, Line)

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

    GrabUser vSock, "Chip.de-Ticker Setup", "ChipSetup"

    SetSockTag vSock, "MainMenu"

    ChipSetup vSock, RegUser, Flags, ""

  End If

End Sub

Sub ChipSetup(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, " 11,0,%0,11%'12,11,%11,12%'2,12,%12,2%'1,2,%2,1%'1,1____________________​___2,1'%1,2%,12,2'%2,12%,11,12'%12,11%,0,11'%11,0%,"

      TU vSock, "11,0,%0,11%'12,11,%11,12%'2,12,%12,2%'1,2,%2,1%'1,1_0,1 Chip.de-Ticker Setup 1,1_2,1'%1,2%,12,2'%2,12%,11,12'%12,11%,0,11'%11,0%,"

      TU vSock, " 11,0,%0,11%'12,11,%11,12%'2,12,%12,2%'1,2,%2,1%'1,1____________________​___2,1'%1,2%,12,2'%2,12%,11,12'%12,11%,0,11'%11,0%,"

      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, " - 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, ChipFile

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

            SetSockTag vSock, "MainMenu"

            ChipSetup vSock, RegUser, Flags, ""

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

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

            WriteINIString "Settings", "Channels", Channels, ChipFile

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

            SetSockTag vSock, "MainMenu"

            ChipSetup vSock, RegUser, Flags, ""

          Else

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

          End If

        Case Else

          TU vSock, "5*** Ungültiger Befehl"

      End Select

  End Select

End Sub

Sub GetNews()

  If Trim(Channels) <> "" Then

    If Proxy = vbNullString Then

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

    Else

      vSock = SockConnect(Proxy, ProxyPort, "SockEvent")

    End If

    If vSock = 0 Then SpreadFlagMessage 0, "+m", "5*** Chip.de-Ticker: Couldn't create socket"

  End If

End Sub

Sub SockEvent(vSock, SEvent, SData)

  Dim Header2

  Select Case SEvent

    Case SE_ConnectFailed

      If DebugIt Then SpreadFlagMessage 0, "+m", "5*** Chip.de-Ticker: Connection to " & Host & " failed"

      TimedCommand "GetNews", 30

    Case SE_Connected

      If Proxy = vbNullString Then

        Header = "GET /c_navseite_8842581.html?tid1=9226"

      Else

        Header = "GET http://" & Host & "/c_navseite_8842581.html?tid1=9226"

      End If

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

                      "Accept: text/html"  & vbCrLf & _

                      "User-Agent: AnGeL-Bot " & LongBotVersion & " (www.Saug-Hilfe-Fuer-Alle.de)" & 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, "<div class=list-h0>") > 0 Then

        Recieved = Replace(Recieved, vbCrLf, vbNullString)

        Dummy = "<div class=list-h0><a href="

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

        tmp_Dummy = Left(Recieved, InStr(1, Recieved, ">") - 1 )

        tmp_URL = "http://" & Host & "" & tmp_Dummy & ""

        If DebugIt Then SpreadFlagMessage 0, "+m", "Name: " & tmp_Dummy

        If DebugIt Then SpreadFlagMessage 0, "+m", "URL: " & tmp_URL

        Dummy = "" & tmp_Dummy & "><b>"

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

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

        If DebugIt Then SpreadFlagMessage 0, "+m", "Ttiel: " & tmp_Name

        Dummy = "1,0» 2www.Chip.de - News »» " & tmp_Name & " --> URL: " & tmp_URL & " « "

        If Dummy <> LastNews Then

          If DebugIt Then SpreadFlagMessage 0, "+m", "New news!"

          LastNews = Dummy

          Dummy = Split(Channels, " ")

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

            If DebugIt Then SpreadFlagMessage 0, "+m", "Sending to " & Dummy(i) & " :" & "PRIVMSG " & Dummy(i) & " :" & LastNews

            SendLine "PRIVMSG " & Dummy(i) & " : " & LastNews, 2

            WriteINIString "Update", "last", "15>> Last News: " & LastNews & "", ChipFile

          Next

        End If

      Else

        If DebugIt Then SpreadFlagMessage 0, "+m", "5*** Chip-Ticker: Couldn't recieve HTML page..."

      End If

      Recieved = vbNullString

      TimedCommand "GetNews", 30

  End Select

End Sub

Function Trim3(Text)

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

End Function
MfG sts
mega danke das war ja sau schnell

du schläfst hier aufen board *fg*

nee im ernst vielen dank

MfG
bang
hehe, ne net ganz. Ich habs im IRC gesehen und ich hatte es rumliegen ;>

sts
kann nur wieder holen Respekt und vielen dank

und funzt einwandfrei

MfG
Bang