Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen gezeigt.

Link zu dieser Vergleichsansicht

nettalk:scripting:google-suchscript [2006/12/27 14:01]
192.168.0.50
nettalk:scripting:google-suchscript [2007/12/11 22:48] (aktuell)
mirici angepasst, fuktionirt nun
Zeile 7: Zeile 7:
 <code vb> <code vb>
 #​NewScriptBegin GoogleSearch #​NewScriptBegin GoogleSearch
 + 
 Dim SExpr Dim SExpr
 Dim DataBuff Dim DataBuff
Zeile 14: Zeile 14:
 dim CurrP dim CurrP
 dim PubS dim PubS
 + 
 Sub Load() Sub Load()
   MakeShortcut "",​ "​google",​ "/call GoogleSearch.FindText 0 1 :​$>​0",​ 2   MakeShortcut "",​ "​google",​ "/call GoogleSearch.FindText 0 1 :​$>​0",​ 2
Zeile 20: Zeile 20:
   PageNum=5   PageNum=5
 End Sub End Sub
 + 
 Sub FindText(PubSearch,​ Page, Expr) Sub FindText(PubSearch,​ Page, Expr)
-  Print "~ Verbinden...",​ 0, valcClientMsg+  ​'Print "~ Verbinden...", 0, valcClientMsg 
 +  Print "~ Googlesuche nach " + Expr + ":", 0, valcClientMsg
   CurrP = Page   CurrP = Page
   SExpr = Replace(Expr,"​ ", "​+"​)   SExpr = Replace(Expr,"​ ", "​+"​)
Zeile 37: Zeile 38:
 Sub Serv_Connected(ConnID) Sub Serv_Connected(ConnID)
   if ConnID = MyConn Then   if ConnID = MyConn Then
-    SendData "GET /​search?​q="​ & SExpr & "&​num="​ & PageNum & "&​start="​ & (CurrP-1)*PageNum & " HTTP/​1.0",​ ConnID+    SendData "GET /​search?​q="​ & SExpr & "&​lr=lang_de&​num="​ & PageNum & "&​start="​ & (CurrP-1)*PageNum & " HTTP/​1.0",​ ConnID
     SendData "​User-Agent:​ Mozilla/4.0 (compatible;​ Nettalk " + Version + "; SearchScript)",​ ConnID     SendData "​User-Agent:​ Mozilla/4.0 (compatible;​ Nettalk " + Version + "; SearchScript)",​ ConnID
     SendData "​Connection:​ Close"​+chr(13)+chr(10),​ ConnID     SendData "​Connection:​ Close"​+chr(13)+chr(10),​ ConnID
     DataBuff=""​     DataBuff=""​
-    Print "~ Verbunden, warte auf Daten...",​ 0, valcClientMsg+    ​'Print "~ Verbunden, warte auf Daten...",​ 0, valcClientMsg
   End if   End if
 End Sub End Sub
Zeile 50: Zeile 51:
     i2=0     i2=0
     Do     Do
-      i=instr(i2+1,​Data,"<​a ​class=l")+      i=instr(i2+1,​Data,"​<​br><​div>​<a href=")
       if i > 0 Then       if i > 0 Then
         i2=instr(i+1,​Data,"</​tr>"​)         i2=instr(i+1,​Data,"</​tr>"​)
Zeile 58: Zeile 59:
         Else         Else
           i3=instr(i+20,​Data,​Chr(34))           i3=instr(i+20,​Data,​Chr(34))
-          i5=instr(i3+1,​Data,"<​td class=j>"​)+          i5=instr(i3+1,​Data,"<​td class=" + Chr(34) + "j" + Chr(34) + ">")
           if i5 > 0 Then           if i5 > 0 Then
             i4=instr(i5,​ Data, "<​span"​)             i4=instr(i5,​ Data, "<​span"​)
             if i4=0 Then i4=instr(i5,​ Data, "</​td>"​)             if i4=0 Then i4=instr(i5,​ Data, "</​td>"​)
             if PubS = 1 Then             if PubS = 1 Then
-              Send RemTags(Mid(Data,​i5,​i4-i5))+"​ ("​+Mid(Data,​i+17,i3-(i+17))+"​)",​ FrontFrameID+              Send RemTags(Mid(Data,​i5,​i4-i5))+"​ ("​+Mid(Data,​i+18,i3-(i+18))+"​)",​ FrontFrameID
             else             else
               Print  "- " + RemTags(Mid(Data,​i5,​i4-i5))+ " (", 0, valcText               Print  "- " + RemTags(Mid(Data,​i5,​i4-i5))+ " (", 0, valcText
-              Print Mid(Data,i+17,i3-(i+17)), 0, valcLink, 1+              Print Mid(Data,i+18,i3-(i+18)), 0, valcLink, 1
               Print  ") ", 0, valcText, 1               Print  ") ", 0, valcText, 1
               Print  " ", 0, valcText               Print  " ", 0, valcText
Zeile 84: Zeile 85:
   End if   End if
 End Sub End Sub
 + 
 Sub ScriptLinkClicked(Text,​ Trigger, Button) Sub ScriptLinkClicked(Text,​ Trigger, Button)
   if Trigger="​SearchNextPage"​ Then   if Trigger="​SearchNextPage"​ Then
Zeile 90: Zeile 91:
   End if   End if
 End Sub End Sub
 + 
 Function RemTags(Text) Function RemTags(Text)
   OutText=""​   OutText=""​

Eigene Werkzeuge