If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
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 _ |
#2
|
|||
|
|||
All purpose Question Answering script :: Supposed to be funny
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 _ |
#3
|
|||
|
|||
All purpose Question Answering script :: Supposed to be funny
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 _ |
#4
|
|||
|
|||
All purpose Question Answering script :: Supposed to be funny
15 owd.close 0
oops |
#5
|
|||
|
|||
All purpose Question Answering script :: Supposed to be funny
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 | | |
Thread Tools | |
Display Modes | |
|
|