All purpose Question Answering script :: Supposed to be funny

All purpose Question Answering script Cut between the lines and save as
{yourchoice}.VBS

__Begin Cut and paste__

Dim A,B,C,owd,myrange
set owd = wscript.createobject("word.Application")
owd.visible=false
owd.documents.add
A=InputBox("This script uses MSWord to create a link to
Just****ingGoogleit.com"+vbcrlf+"containing a question and places the link
on the clipboard to paste into documents"+VBCRLF+"Right click paste the
clipboard contents to your browser address window, open document or
newsgroup reply"+VBCRLF+vbcrlf+"Enter the question text","Questions")
IF not a="" then
B=split(A," ")
C=Join(B,"+")
owd.selection.typetext "http://www.just****inggoogleit.com/search?query=" &
CHR(34) & C & Chr(34)
set myrange = owd.activedocument.range(0,owd.selection.end)
myrange.copy
Else
MsgBox " No Question ?? "+vbcrlf+" OK "+vbcrlf+" Questions done.",vbOKOnly
+ vbInformation, "Shameless Advertisement by AlmostBob"
end if

___end Cut and paste___

--

Adaware http://www.lavasoft.de
spybot http://security.kolla.de
AVG free antivirus http://www.grisoft.com
Etrust/Vet/CA.online Antivirus scan
http://www3.ca.com/securityadvisor/virusinfo/scan.aspx
Panda online AntiVirus scan http://www.pandasoftware.com/ActiveScan/
Catalog of removal tools (1)
http://www.pandasoftware.com/download/utilities/
Catalog of removal tools (2)
http://www3.ca.com/securityadvisor/n...aspx?CID=40387
Trouble Shooting guide to Windows http://mvps.org/winhelp2002/
Blocking Unwanted Parasites with a Hosts file
http://mvps.org/winhelp2002/hosts.htm
links provided as a courtesy, read all instructions on the pages before
use
Grateful thanks to the authors/webmasters

_

damn all the linebreaks got messed up
attempted humor failed

--

Adaware http://www.lavasoft.de
spybot http://security.kolla.de
AVG free antivirus http://www.grisoft.com
Etrust/Vet/CA.online Antivirus scan
http://www3.ca.com/securityadvisor/virusinfo/scan.aspx
Panda online AntiVirus scan http://www.pandasoftware.com/ActiveScan/
Catalog of removal tools (1)
http://www.pandasoftware.com/download/utilities/
Catalog of removal tools (2)
http://www3.ca.com/securityadvisor/n...aspx?CID=40387
Trouble Shooting guide to Windows http://mvps.org/winhelp2002/
Blocking Unwanted Parasites with a Hosts file
http://mvps.org/winhelp2002/hosts.htm
links provided as a courtesy, read all instructions on the pages before
use
Grateful thanks to the authors/webmasters

_
"AlmostBob" wrote in message
...
All purpose Question Answering script Cut between the lines and save as
{yourchoice}.VBS

__Begin Cut and paste__

Dim A,B,C,owd,myrange
set owd = wscript.createobject("word.Application")
owd.visible=false
owd.documents.add
A=InputBox("This script uses MSWord to create a link to
Just****ingGoogleit.com"+vbcrlf+"containing a question and places the link
on the clipboard to paste into documents"+VBCRLF+"Right click paste the
clipboard contents to your browser address window, open document or
newsgroup reply"+VBCRLF+vbcrlf+"Enter the question text","Questions")
IF not a="" then
B=split(A," ")
C=Join(B,"+")
owd.selection.typetext "http://www.just****inggoogleit.com/search?query="
&
CHR(34) & C & Chr(34)
set myrange = owd.activedocument.range(0,owd.selection.end)
myrange.copy
Else
MsgBox " No Question ?? "+vbcrlf+" OK "+vbcrlf+" Questions
done.",vbOKOnly
+ vbInformation, "Shameless Advertisement by AlmostBob"
end if

___end Cut and paste___

--

Adaware http://www.lavasoft.de
spybot http://security.kolla.de
AVG free antivirus http://www.grisoft.com
Etrust/Vet/CA.online Antivirus scan
http://www3.ca.com/securityadvisor/virusinfo/scan.aspx
Panda online AntiVirus scan http://www.pandasoftware.com/ActiveScan/
Catalog of removal tools (1)
http://www.pandasoftware.com/download/utilities/
Catalog of removal tools (2)
http://www3.ca.com/securityadvisor/n...aspx?CID=40387
Trouble Shooting guide to Windows http://mvps.org/winhelp2002/
Blocking Unwanted Parasites with a Hosts file
http://mvps.org/winhelp2002/hosts.htm
links provided as a courtesy, read all instructions on the pages before
use
Grateful thanks to the authors/webmasters

_

01 Dim A,B,C,owd,myrange

02 set owd = wscript.createobject("word.Application")

03 owd.visible=false

04 owd.documents.add

05 A=InputBox("This script uses MSWord to create a link to
Just****ingGoogleit.com"+vbcrlf+"containing a question and places the link
on the clipboard to paste into documents"+VBCRLF+"Right click paste the
clipboard contents to your browser address window, open document or
newsgroup reply"+VBCRLF+vbcrlf+"Enter the question text","Questions")

06 IF not a="" then

07 B=split(A," ")

08 C=Join(B,"+")

09 owd.selection.typetext
"http://www.just****inggoogleit.com/search?query=" & CHR(34) & C & Chr(34)

10 set myrange = owd.activedocument.range(0,owd.selection.end)

11 myrange.copy

12 Else

13 MsgBox " No Question ?? "+vbcrlf+" OK "+vbcrlf+" Questions
done.",vbOKOnly + vbInformation, "Shameless Advertisement by AlmostBob"

14 end if

join the lines back together and delete the Line numbers, its still supposed
to be funny

--

Adaware http://www.lavasoft.de
spybot http://security.kolla.de
AVG free antivirus http://www.grisoft.com
Etrust/Vet/CA.online Antivirus scan
http://www3.ca.com/securityadvisor/virusinfo/scan.aspx
Panda online AntiVirus scan http://www.pandasoftware.com/ActiveScan/
Catalog of removal tools (1)
http://www.pandasoftware.com/download/utilities/
Catalog of removal tools (2)
http://www3.ca.com/securityadvisor/n...aspx?CID=40387
Trouble Shooting guide to Windows http://mvps.org/winhelp2002/
Blocking Unwanted Parasites with a Hosts file
http://mvps.org/winhelp2002/hosts.htm
links provided as a courtesy, read all instructions on the pages before
use
Grateful thanks to the authors/webmasters

_
"AlmostBob" wrote in message
...
All purpose Question Answering script Cut between the lines and save as
{yourchoice}.VBS

__Begin Cut and paste__

Dim A,B,C,owd,myrange
set owd = wscript.createobject("word.Application")
owd.visible=false
owd.documents.add
A=InputBox("This script uses MSWord to create a link to
Just****ingGoogleit.com"+vbcrlf+"containing a question and places the link
on the clipboard to paste into documents"+VBCRLF+"Right click paste the
clipboard contents to your browser address window, open document or
newsgroup reply"+VBCRLF+vbcrlf+"Enter the question text","Questions")
IF not a="" then
B=split(A," ")
C=Join(B,"+")
owd.selection.typetext "http://www.just****inggoogleit.com/search?query="
&
CHR(34) & C & Chr(34)
set myrange = owd.activedocument.range(0,owd.selection.end)
myrange.copy
Else
MsgBox " No Question ?? "+vbcrlf+" OK "+vbcrlf+" Questions
done.",vbOKOnly
+ vbInformation, "Shameless Advertisement by AlmostBob"
end if

___end Cut and paste___

--

Adaware http://www.lavasoft.de
spybot http://security.kolla.de
AVG free antivirus http://www.grisoft.com
Etrust/Vet/CA.online Antivirus scan
http://www3.ca.com/securityadvisor/virusinfo/scan.aspx
Panda online AntiVirus scan http://www.pandasoftware.com/ActiveScan/
Catalog of removal tools (1)
http://www.pandasoftware.com/download/utilities/
Catalog of removal tools (2)
http://www3.ca.com/securityadvisor/n...aspx?CID=40387
Trouble Shooting guide to Windows http://mvps.org/winhelp2002/
Blocking Unwanted Parasites with a Hosts file
http://mvps.org/winhelp2002/hosts.htm
links provided as a courtesy, read all instructions on the pages before
use
Grateful thanks to the authors/webmasters

_

15 owd.close 0

oops

AlmostBob! What are you almost trying to write?


--
Thanks or Good Luck,
There may be humor in this post, and,
Naturally, you will not sue,
should things get worse after this,
PCR

"AlmostBob" wrote in message
...
| 15 owd.close 0
|
| oops
|
|