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
Google script
Moderator: Moderators
-
Atomic Jo
- Posts: 62
- Joined: 2003-01-04 08:50
- Location: Québec, Canada
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 10:57
- Location: Oporto, Portugal
-
Atomic Jo
- Posts: 62
- Joined: 2003-01-04 08:50
- Location: Québec, Canada
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...
Who is online
Users browsing this forum: Google [Bot] and 0 guests