Google script

Which hub software is the best? Where can I find script XXX? Discuss it here...(no, this is not for advertising your hub...)

Moderator: Moderators

Locked
Snooze
Posts: 119
Joined: 2003-01-26 13:42
Location: Denmark
Contact:

Google script

Post by Snooze » 2003-06-21 11:30

Hey guys ...

I'm looking for a google script that will allow users to search on google from the hub ...can it be done ??

/Snooze

BSOD2600
Forum Moderator
Posts: 503
Joined: 2003-01-27 18:47
Location: USA
Contact:

Post by BSOD2600 » 2003-06-21 15:11

Possibly, but the question is why you would want such a thing? Its really not all that hard to open up your browser and go to google.com ;)

Snooze
Posts: 119
Joined: 2003-01-26 13:42
Location: Denmark
Contact:

Post by Snooze » 2003-06-21 15:31

True - its easy to do that ! - But that i knew ....

So back to the question....

Atomic Jo
Posts: 62
Joined: 2003-01-04 03:50
Location: Québec, Canada
Contact:

Post by Atomic Jo » 2003-06-21 15:47

Code: Select all

Sub DataArival(curUser, curData)

  If Left(curData, 1) = "<" Then
    lPos = InStr(1, sCurData, "> ")
    sTheText = Mid(sCurData, lPos + 2)
    If Left(sTheText, 8) = "+google " Then
        Dim Keywords
        Keywords = Replace(Mid(sTheText, 8), " ", "+")
        tmpMsg = vbCrLf + "Double click on this link to see google results  :" + vbCrLf + _
                 "• http://www.google.com/search?lr=lang_us&cr=countryUS&q=" + Keywords
        curUser.PrivateMessage "Google", tmpMsg
        frmHub.DoEventsForMe
        Exit Sub
   End If
 End If
End Sub

Not tested at all, maybe you must setup the link "http://www.google.com/search?lr=lang_us&cr=countryUS&q=" to your google settings.

[PT]Devilishly
Posts: 96
Joined: 2003-04-18 05:57
Location: Oporto, Portugal
Contact:

Post by [PT]Devilishly » 2003-06-21 17:22

Or you don't need to create a script and only type in main chat: /g <search string>

("g" is the default key to use google search in oDC)

Best regards,
[PT]Devilishly

Snooze
Posts: 119
Joined: 2003-01-26 13:42
Location: Denmark
Contact:

Post by Snooze » 2003-06-22 10:29

Hmm...i cant make that script do anything :(
Its not responding to the trigger :)

Atomic Jo
Posts: 62
Joined: 2003-01-04 03:50
Location: Québec, Canada
Contact:

Post by Atomic Jo » 2003-06-22 11:20

Code: Select all

Sub DataArival(curUser, curData) 

  If Left(curData, 1) = "<" Then 
    lPos = InStr(1, CurData, "> ") 
    sTheText = Mid(CurData, lPos + 2) 
    If Left(sTheText, 8) = "+google " Then 
        Dim Keywords 
        Keywords = Replace(Mid(sTheText, 8), " ", "+") 
        tmpMsg = vbCrLf + "Double click on this link to see google results  :" + vbCrLf + _ 
                 "• http://www.google.com/search?lr=lang_us&cr=countryUS&q=" + Keywords 
        curUser.PrivateMessage "Google", cstr(tmpMsg )
        frmHub.DoEventsForMe 
        Exit Sub 
   End If 
End If 
End Sub 
Well, now it's tested, it works (at least for me), but as i can see in the other forum (dc.ww-ei.com), I think it's not the script you search. I suppose you want the hub download the result itself from google, parse it and display it to a PM windows...

Locked