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
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
-
- Posts: 96
- Joined: 2003-04-18 05:57
- Location: Oporto, Portugal
- Contact:
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