AnGelBot-Portal² / PasteIt / Eintrag #212

[-]
PasteIt Eintrag #212
Autor: eXploder
Titel: CHIP.de Script v1.1 by paradoxon
Beschreibung: http://www.angelbot-portal.de/chip-de-script-v1-0-by-paradoxon-t-3232.html#pid17217
 

[-]
Auf diesen Beitrag gibt es folgende 2 Antworten:

Code
  1. Const AktivChan = "#channel"
  2. Const Version = "v1.1"
  3. Dim sResBuffer
  4. Dim Begriff
  5. Dim RequestChan
  6.  
  7. Sub Init()
  8.   Script "1,0 «4•1» 4[ CHIP ]1 Script 4[ " & Version & " ]1 by 4[ paradoxon ] 1«4•1» "
  9.   Hook "Chan_Msg"
  10.   SpreadFlagMessage 0, "+m", "1,0 «4•1» 4[ CHIP ]1 Script 4[ " & Version & " ]1 by 4[ paradoxon ]1 loaded 1«4•1» "
  11. End Sub
  12.  
  13. Sub Chan_Msg(Chan, Nick, RegUser, Line)
  14. Dim lRes
  15.   If InStr(AktivChan,Chan) Then
  16.     If LCase(Param(Line,1)) = CommandPrefix & "chip" Then
  17.       RequestChan = Chan
  18.       Begriff = Param(Line, 2)
  19.       lRes = SockConnect("suche.chip.de", 80, "HTTPEvent")
  20.         If lRes <= 0 Then
  21.           SpreadFlagMessage 0, "+m", "#4*** HTTPDownload: Konnte kein Socket erstellen# - Host: www.chip.de"
  22.         End If
  23.     End If
  24.   End If
  25. End Sub
  26.  
  27. Const DebugMode = False
  28.  
  29. Sub HTTPEvent(vSock, SEvent, SData)
  30. Dim i
  31.   Select Case SEvent
  32.     Case SE_ConnectFailed
  33.       Sendline "PRIVMSG " & RequestChan & " :" & "HTTP CHIP Script - Verbindung fehlgeschlagen", 2
  34.     Case SE_Connected
  35.       SockWrite vSock, "GET /" & Begriff & ".html?it=1 HTTP/1.1" & vbCrLf & _
  36.       "Host: suche.chip.de" & vbCrLf & _
  37.       "Connection: close" & vbCrLf & _
  38.       "Pragma: no-cache" & vbCrLf & _
  39.       "Useragent: Mozilla/4.0 (IE compat; AB " & LongBotVersion & "; www.angelbot-portal.de)" & vbCrLf & vbCrLf
  40.     Case SE_Read
  41.       sResBuffer = sResBuffer & SData
  42.       sResBuffer = Replace(sResBuffer, "<a title=""", "Titel: ")
  43.       sResBuffer = Replace(sResBuffer, """ href=""", " - Link: ")
  44.       sResBuffer = Replace(sResBuffer, """ >", "")
  45.     Case SE_Closed
  46.       Dim ii, strTitle, strContent
  47.       strTitle = sResBuffer
  48.       ii = InStr(1, strTitle, "<h2>", vbTextCompare)
  49.       If ii > 0 Then
  50.         strTitle = Mid(strTitle, ii + Len("<h2>"))
  51.         ii = InStr(strTitle, "</a>")
  52.         If ii > 0 Then
  53.           strTitle = Left(strTitle, ii - 1)
  54.         End If
  55.         SendLine "PRIVMSG " & RequestChan & " :9Gefunden: " & strTitle & "", 3   
  56.       Else
  57.         SendLine "PRIVMSG " & RequestChan & " :4Fehler. Nich gefunden.", 3'
  58.         If DebugMode = True Then
  59.           SpreadFlagMessage 0, "+m", sResBuffer
  60.         End If
  61.       End If
  62.         sResBuffer = ""
  63.   End Select
  64. End Sub


Kontakt | AnGelBot-Portal | Nach oben | Zum Inhalt | Archiv-Modus | RSS-Synchronisation