eXploder schrieb:

Code:

'#################################################
'### Google Script Version 1.0 (Beta) by Spiky ###
'#################################################

Dim vChan, vSearch, HTML, vGet, Dummy, Temp, vFound

Const vHost = "www.google.de"

Sub Init()
  Script "Google Script"
  Hook "Chan_Msg"
End Sub

Sub Chan_Msg(Chan, Nick, RegUser, Line)
  If LCase(Param(Line, 1)) = CommandPrefix & "google" Then
    If Not LCase(Param(Line,2)) = vbNullString Then
      vChan = Chan
      vSearch = Replace(LCase(GetRest(Line,2)), " ", "+")
      vSock = SockConnect(vHost, 80, "SockEvent")
      If vSock = 0 Then
        SpreadFlagMessage 0, "+s", "4*** " & vHost & ": Couldn't create socket"
      End If
    End If
  End If
End Sub

Sub SockEvent(vSock, SEvent, SData)
  Select Case SEvent
    Case SE_ConnectFailed
      SpreadFlagMessage 0, "+s", "4*** Connection to " & vHost & " failed"
    Case SE_Connected
      SockWrite vSock, "GET /search?hl=de&q=" & vSearch & "&btnG=Suche&meta= HTTP/1.0"& vbCrLf & _
                       "Accept: text/html"  & vbCrLf & _
                       "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)" & vbCrLf & _
                       "Host: " & vHost & vbCrLf & _
                       "Pragma: no-cache" & vbCrLf & _
                       "Connection: close" & vbCrLf & vbCrLf
    Case SE_Read
      HTML = HTML & SData
    Case SE_Closed
      HTML = Replace(Replace(Replace(HTML, " ", vbNullString), vbCr, vbNullString), vbLf, vbNullString)
      If Not InStr(1, HTML, "Es wurden keine mit Ihrer Suchanfrage", VBTextCompare) > 0 Then
         Dummy = "<li class=g><h3 class=r><a href"
        Temp = Right(HTML, Len(HTML) - InStr(1, HTML, Dummy, VBTextCompare) - Len(Dummy) - 1)
        vFound = Left(Temp, InStr(1, Temp, "class=l", VBTextCompare) - 3)
        Say vChan, "1,0 «4•1»1 Google 4[ " & vFound & " ] 1«4•1» "
        HTML = vbNullString: Temp = vbNullString: Dummy = vbNullString: vGet = vbNullString
       Else
        Say vChan, "1,0 «4•1»1 Google 4[ Not Found ] 1«4•1» "
        HTML = vbNullString: Temp = vbNullString: Dummy = vbNullString: vGet = vbNullString
      End If
  End Select
End Sub

Sub Say(Chan, Line)
  If MatchFlags(Param(ChanMode(ChanNum(Chan)), 1), "+c") Then
    Line = Strip(Line)
  End If
    Sendline "PRIVMSG " & Chan & " :" & Line, 3
End Sub

ja wie gesagt: .google test darauf folgt ca 5min arbeiten des bots. in dieser zeit führt der bot auch keine anderen befehle mehr aus. und raus kommt nichts ^^
das selbe problem beim wikipedia script

Kann eXploder nur zustimmen, habs auch gerade getestet und funktioniert nicht mehr. Auch MIT dem bugfix von Hirni.

mein Script:

Wääh, sorry, mein Fehler...


ersetzen durch:


Vll könnt man das "http://www.google.de" vorm /search auch weglassen..kanns grad nich testen, schaden tuts jedenfalls nich.

Sorry, hatte ewig rumprobiert bis das lief und darüber vergessen, dass ich das auch noch geändert hatte.

Ich häng das laufende Script mal an

Hirni schrieb:Wääh, sorry, mein Fehler...

Code:

SockWrite vSock, "GET /search?hl=de&q=" & vSearch & "&btnG=Suche&meta= HTTP/1.0"& vbCrLf & _

ersetzen durch:

Code:

SockWrite vSock, "GET http://www.google.de/search?ie=UTF-8&oe=UTF-8&hl=de&btnI=Auf%20gut%20Gl%FCck!&q=" & vSearch & vbCrLf & _

Vll könnt man das "http://www.google.de" vorm /search auch weglassen..kanns grad nich testen, schaden tuts jedenfalls nich.

Sorry, hatte ewig rumprobiert bis das lief und darüber vergessen, dass ich das auch noch geändert hatte.

Ich häng das laufende Script mal an

danke dir funktioniert einwandfrei und schnell. aber könntest du noch einbauen, dass der bot wieder 3 treffer ausgibt anstatt nur einem ?
wäre toll

Gruß

Hirni schrieb:Vll könnt man das "http://www.google.de" vorm /search auch weglassen..kanns grad nich testen, schaden tuts jedenfalls nich.

muss man sogar eigentlich

HTTP ist nicht so ganz meine Welt, du hast natürlich recht
Hab das angehängte Script im letzten Post aktualisiert.

Zitat:aber könntest du noch einbauen, dass der bot wieder 3 treffer ausgibt anstatt nur einem ?

Öhh..gabs sowas schonmal? Meine beschränkten Scriptingkenntnisse reichen vll aus um was bestehendes wieder zum Laufen zu kriegen..aber selbst schreiben ist im Moment doch deutlich über meinen Fähigkeiten

hi all.
kann mir wer sagen warum es bei mir nicht funkt?
dieses Script hab ich gespeichert:

'#################################################
'### Google Script Version 1.0 (Beta) by Spiky ###
'#################################################

Dim vChan, vSearch, HTML, vGet, Dummy, Temp, vFound

Const vHost = "www.google.de"

Sub Init()
Script "Google Script"
Hook "Chan_Msg"
End Sub

Sub Chan_Msg(Chan, Nick, RegUser, Line)
If LCase(Param(Line, 1)) = CommandPrefix & "google" Then
If Not LCase(Param(Line,2)) = vbNullString Then
vChan = Chan
vSearch = Replace(LCase(GetRest(Line,2)), " ", "+")
vSock = SockConnect(vHost, 80, "SockEvent")
If vSock = 0 Then
SpreadFlagMessage 0, "+s", "4*** " & vHost & ": Couldn't create socket"
End If
End If
End If
End Sub

Sub SockEvent(vSock, SEvent, SData)
Select Case SEvent
Case SE_ConnectFailed
SpreadFlagMessage 0, "+s", "4*** Connection to " & vHost & " failed"
Case SE_Connected
SockWrite vSock, "GET http://www.google.de/search?ie=UTF-8&oe=...l%FCck!&q=" & vSearch & vbCrLf & _
"Accept: text/html" & vbCrLf & _
"User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)" & vbCrLf & _
"Host: " & vHost & vbCrLf & _
"Pragma: no-cache" & vbCrLf & _
"Connection: close" & vbCrLf & vbCrLf
Case SE_Read
HTML = HTML & SData
Case SE_Closed
HTML = Replace(Replace(Replace(HTML, " ", vbNullString), vbCr, vbNullString), vbLf, vbNullString)
If Not InStr(1, HTML, "Es wurden keine mit Ihrer Suchanfrage", VBTextCompare) > 0 Then
Dummy = "<div class=g><h2 class=r><a href"
Temp = Right(HTML, Len(HTML) - InStr(1, HTML, Dummy, VBTextCompare) - Len(Dummy) - 1)
vFound = Left(Temp, InStr(1, Temp, "class=l", VBTextCompare) - 3)
Say vChan, "1,0 «4•1»1 Google 4[ " & vFound & " ] 1«4•1» "
HTML = vbNullString: Temp = vbNullString: Dummy = vbNullString: vGet = vbNullString
Else
Say vChan, "1,0 «4•1»1 Google 4[ Not Found ] 1«4•1» "
HTML = vbNullString: Temp = vbNullString: Dummy = vbNullString: vGet = vbNullString
End If
End Select
End Sub

Sub Say(Chan, Line)
If MatchFlags(Param(ChanMode(ChanNum(Chan)), 1), "+c") Then
Line = Strip(Line)
End If
Sendline "PRIVMSG " & Chan & " :" & Line, 3
End Sub

hi Teufels-Kerl,

im anhang findest du eine funktionierende version.

Grüße

läuft super
danke nochmals

Funktioniert auch nichts. Habe die letzte aktuellen datenanhang geladen. aber bei meinen befehlen reagiert er net. mit ! rufe ich auf. Ich habe schon alles gelesen hier und das eingetragen was helfen soll. Vieleicht findet ihr was?

'#################################################
'### Google Script Version 1.0 (Beta) by Spiky ###
'#################################################

Dim vChan, vSearch, HTML, vGet, Dummy, Temp, vFound

Const vHost = "www.google.de"

Sub Init()
Script "Google Script"
Hook "Chan_Msg"
End Sub

Sub Chan_Msg(Chan, Nick, RegUser, Line)
If LCase(Param(Line, 1)) = CommandPrefix & "google" Then
If Not LCase(Param(Line,2)) = vbNullString Then
vChan = Chan
vSearch = Replace(LCase(GetRest(Line,2)), " ", "+")
vSock = SockConnect(vHost, 80, "SockEvent")
If vSock = 0 Then
SpreadFlagMessage 0, "+s", "4*** " & vHost & ": Couldn't create socket"
End If
End If
End If
End Sub

Sub SockEvent(vSock, SEvent, SData)
Select Case SEvent
Case SE_ConnectFailed
SpreadFlagMessage 0, "+s", "4*** Connection to " & vHost & " failed"
Case SE_Connected
SockWrite vSock, "GET http://www.google.de/search?ie=UTF-8&oe=...l%FCck!&q=" & vSearch & vbCrLf & _
"Accept: text/html" & vbCrLf & _
"User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)" & vbCrLf & _
"Host: " & vHost & vbCrLf & _
"Pragma: no-cache" & vbCrLf & _
"Connection: close" & vbCrLf & vbCrLf
Case SE_Read
HTML = HTML & SData
Case SE_Closed
HTML = Replace(Replace(Replace(HTML, "&nbsp;", vbNullString), vbCr, vbNullString), vbLf, vbNullString)
If Not InStr(1, HTML, "Es wurden keine mit Ihrer Suchanfrage", VBTextCompare) > 0 Then
Dummy = "<li class=g><h3 class=r><a href"
Temp = Right(HTML, Len(HTML) - InStr(1, HTML, Dummy, VBTextCompare) - Len(Dummy) - 1)
vFound = Left(Temp, InStr(1, Temp, "class=l", VBTextCompare) - 3)
Say vChan, "1,0 «4•1»1 Google 4[ " & vFound & " ] 1«4•1» "
HTML = vbNullString: Temp = vbNullString: Dummy = vbNullString: vGet = vbNullString
Else
Say vChan, "1,0 «4•1»1 Google 4[ Not Found ] 1«4•1» "
HTML = vbNullString: Temp = vbNullString: Dummy = vbNullString: vGet = vbNullString
End If
End Select
End Sub

Sub Say(Chan, Line)
If MatchFlags(Param(ChanMode(ChanNum(Chan)), 1), "+c") Then
Line = Strip(Line)
End If
Sendline "PRIVMSG " & Chan & " :" & Line, 3
End Sub

script richtig hinzugefügt?