Hi,

Can I change the wallpaper using VBscript ?

Thanks

Chris

Re: how to Script ? by Michael

Michael
Mon Jan 19 10:31:15 CST 2004

chris wrote:
> Hi,
>
> Can I change the wallpaper using VBscript ?
>

You can do that and many other things. Click on the link below for hundreds
of script examples.

--
Regards,

Michael Holzemer
No email replies please - reply in newsgroup

Learn script faster by searching here
http://www.microsoft.com/technet/treeview/default.asp?url=/technet/scriptcenter/default.asp




Re: how to Script ? by Roland

Roland
Mon Jan 19 11:14:38 CST 2004

"chris" wrote:
: Can I change the wallpaper using VBscript ?

Hi Chris...

Sometimes it's easier and faster to search the group, or google first before
posing a question. Had you searched this NG, you would have found this same
question was asked pretty recently and it should have all the information
you require, although not sure what your level of experience is.

Post back if you have issues.

news:uV%23yqYhtDHA.3492@TK2MSFTNGP11.phx.gbl...

--
Roland

This information is distributed in the hope that it will be useful, but
without any warranty; without even the implied warranty of merchantability
or fitness for a particular purpose.
-Technet Knowledge Base-
http://support.microsoft.com/default.aspx?scid=fh;EN-US;kbhowto&sd=TECH&ln=EN-US&FR=0
-Technet Script Center-
http://www.microsoft.com/technet/treeview/default.asp?url=/technet/scriptcenter/default.asp
-WSH 5.6 documentation download-
http://www.microsoft.com/downloads/details.aspx?FamilyId=01592C48-207D-4BE1-8A76-1C4099D7BBB9&displaylang=en
-MSDN Library-
http://msdn.microsoft.com/library/default.asp




Re: how to Script ? by Robert

Robert
Mon Jan 19 15:06:23 CST 2004

a bookmark I live by:

http://www.google.com/advanced_group_search?hl=en

Advanced Group Search

type *vbscript or *scripting* in the newsgroup name and enter any works in
top and you will find all your answers. You can even find the meaning of
life:

http://www.google.com/groups?as_q=meaning%20of%20life&safe=images&ie=UTF-8&o
e=UTF-8&as_ugroup=*vbscript&lr=&hl=en

--
Robert Cohen
A legend in his own mind
--

"Roland Hall" <nobody@nowhere> wrote in message
news:ewLiPrq3DHA.632@TK2MSFTNGP12.phx.gbl...
> "chris" wrote:
> : Can I change the wallpaper using VBscript ?
>
> Hi Chris...
>
> Sometimes it's easier and faster to search the group, or google first
before
> posing a question. Had you searched this NG, you would have found this
same
> question was asked pretty recently and it should have all the information
> you require, although not sure what your level of experience is.
>
> Post back if you have issues.
>
> news:uV%23yqYhtDHA.3492@TK2MSFTNGP11.phx.gbl...
>
> --
> Roland
>
> This information is distributed in the hope that it will be useful, but
> without any warranty; without even the implied warranty of merchantability
> or fitness for a particular purpose.
> -Technet Knowledge Base-
>
http://support.microsoft.com/default.aspx?scid=fh;EN-US;kbhowto&sd=TECH&ln=E
N-US&FR=0
> -Technet Script Center-
>
http://www.microsoft.com/technet/treeview/default.asp?url=/technet/scriptcen
ter/default.asp
> -WSH 5.6 documentation download-
>
http://www.microsoft.com/downloads/details.aspx?FamilyId=01592C48-207D-4BE1-
8A76-1C4099D7BBB9&displaylang=en
> -MSDN Library-
> http://msdn.microsoft.com/library/default.asp
>
>
>



Re: how to Script ? by Torgeir

Torgeir
Mon Jan 19 16:23:39 CST 2004

chris wrote:

> Can I change the wallpaper using VBscript ?

Hi

Changing the value in registry is easy, the tricky thing is to see the change
without needing to log off and on again, but with a RUNDLL32.EXE trick you
avoid that.

Here is an example:


Set oShell = CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")

sWinDir = oFSO.GetSpecialFolder(0)
sWallPaper = sWinDir & "\Coffee Bean.bmp"

oShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", sWallPaper

oShell.Run _
"%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", _
1, True



A free and small 3rd-party utility (setwallpaper.exe) is also available that
can to this, found at http://www.optimumx.com/


--
torgeir
Microsoft MVP Scripting and WMI, Porsgrunn Norway
Administration scripting examples and an ONLINE version of the 1328 page
Scripting Guide: http://www.microsoft.com/technet/scriptcenter



Re: how to Script ? by Alex

Alex
Mon Jan 19 19:33:37 CST 2004

Robert Cohen wrote:
> a bookmark I live by:
>
> http://www.google.com/advanced_group_search?hl=en
>
> Advanced Group Search
>
> type *vbscript or *scripting* in the newsgroup name and enter any works
> in top and you will find all your answers. You can even find the
> meaning of life:
>
>
http://www.google.com/groups?as_q=meaning%20of%20life&safe=images&ie=UTF-8&o
> e=UTF-8&as_ugroup=*vbscript&lr=&hl=en


And now for something not-so-completely-different...

My group Googling HTA...

My apologies for the limited range of authors; I should remove myself Real
Soon Now. :)

<html><head><title>Google Advanced Groups Search</title>
<style>
BODY
{
background-color: buttonface;
font-family: Helvetica;
font-size: 8pt;
margin-top: 10px;
margin-left: 10px;
margin-right: 10px;
margin-bottom: 10px;
}


.button
{
font-family: Helvetica;
font-size: 8pt;
}

.button_strings
{
font-family: Helvetica;
font-size: 8pt;
width: 75px;
}

textarea
{
font-family: arial;
font-size: 8pt;
margin-left: 3px;
}

select
{
font-family: arial;
font-size: 8pt;
margin-left: 0px;
}
TABLE { xfont-family:"Arial";
xfont-size:8pt;
font:menu;
padding:0pt;
border:0pt;
}
IFrame {
height:expression(document.body.clientHeight-MenuTable.clientHeight);
<!-- width:100%; -->
}
<!-- TD { border:"1px solid Menu";}
.submenu {position:absolute;top=20;
background-color:Menu;
border="2px outset";}
.MenuIn {border:'1px inset';}
.Menuover {border:'1px outset';}
.Menuout {border:'1px solid';}
.Submenuover {background-color:highlight;color:highlighttext;}
.Submenuout {background-color:Menu;color:MenuText;} -->
</style>
<script><!--
function setFocus() {
document.f.as_q.focus(); }
function daterange(i) {
document.f.as_drrb[i].checked = true; }
function esc(x){
x = escape(x).replace(/\+/g, "%2b"); return x;}
function collecturl(target) {
var p = new Array();var i = 0;var url="";var z = document.f;
if (z.as_q.value.length) {p[i++] = 'as_q=' + esc(z.as_q.value);}
if (z.as_epq.value.length) {p[i++] = 'as_epq=' + esc(z.as_epq.value);}
if (z.as_oq.value.length) {p[i++] = 'as_oq=' + esc(z.as_oq.value);}
if (z.as_eq.value.length) {p[i++] = 'as_eq=' + esc(z.as_eq.value);}
if (z.as_ugroup.value.length) {p[i++] = 'as_ugroup=' +
esc(z.as_ugroup.value);}
if (z.as_usubject.value.length) {p[i++] = 'as_usubject=' +
esc(z.as_usubject.value);}
if (z.as_uauthors.value.length) {p[i++] = 'as_uauthors=' +
esc(z.as_uauthors.value);}
if (z.as_umsgid.value.length) {p[i++] = 'as_umsgid=' +
esc(z.as_umsgid.value);}
if ((z.as_drrb[0].checked) &&
(z.as_qdr.options[z.as_qdr.selectedIndex].value != '')){p[i++] = 'as_drrb=q'
+ '&as_qdr=' + z.as_qdr.options[z.as_qdr.selectedIndex].value;}
if (z.as_drrb[1].checked) {p[i++] = 'as_drrb=b' + '&as_mind=' +
z.as_mind.options[z.as_mind.selectedIndex].value + '&as_minm=' +
z.as_minm.options[z.as_minm.selectedIndex].value + '&as_miny=' +
z.as_miny.options[z.as_miny.selectedIndex].value + '&as_maxd=' +
z.as_maxd.options[z.as_maxd.selectedIndex].value + '&as_maxm=' +
z.as_maxm.options[z.as_maxm.selectedIndex].value + '&as_maxy=' +
z.as_maxy.options[z.as_maxy.selectedIndex].value;}
if (z.num.options[z.num.selectedIndex].value != "10") {p[i++] = 'num=' +
z.num.options[z.num.selectedIndex].value;}
if (z.as_scoring.options[z.as_scoring.selectedIndex].value != "r"){p[i++]
= 'as_scoring=' + z.as_scoring.options[z.as_scoring.selectedIndex].value;}
p[i++] = 'hl=en'
if (p.length > 0) {
url = p[0];
for (var j = 1; j < p.length; j++) { url += "&" + p[j]; }}
location.href = target + '?' + url;
}
// --></script>

<script language="vbscript"><!--

sub window_onload

end sub
' --></script>

</head>


<body>
<form method=GET onsubmit="collecturl('http://groups.google.com/groups');
return false;" action="http://groups.google.com/groups" name=f>

<table width=99% border=0 cellpadding=0 cellspacing=2><tr><td rowspan=2
width=1%>
<table cellpadding=0 cellspacing=0 border=0><tr><td align=right
valign=bottom></td><td valign=bottom></td><td
valign=bottom></td></tr><tr><td align=right valign=top
class=h><b>Groups</b></td><td valign=top></td><td valign=top></td></tr>
</table>
</td><td valign=bottom align=right><a
href=http://groups.google.com/googlegroups/help.html>Groups
Help</a></td></tr><tr><td valign=top>
<table cellspacing=2 cellpadding=2 border=0
width=100%><tr><td><b>&nbsp;Advanced&nbsp;Groups&nbsp;Search</td></tr>
</table></td></tr>
</table>

<table cellspacing=0 cellpadding=3 width=99%><tr><td>
<table width=100% cellspacing=0 cellpadding=0><tr><td>
<table width=100% cellspacing=0 cellpadding=2><tr><td valign=top
width=15%><br><b>Find messages</b></td><td width=85%>
<table width=100% cellpadding=2 cellspacing=0><tr><td>with <b>all</b>
of the words</td><td><input type=text value="" name=as_q size=45>
<script>document.f.as_q.focus();</script>
</td><td valign=middle align=center rowspan=4><select name=num><option
value="10">10 messages<option value="20">20 messages<option value="30">30
messages<option value="50">50 messages<option value="100" selected>100
messages</select> <select name=as_scoring><option value=r>Sort by
relevance<option value=d selected>Sort by date</select><input type=submit
name=btnG value="Google Search"></td></tr><tr><td nowrap>with the <b>exact
phrase</b></td><td><input type=text size=25 value=""
name=as_epq></td></tr><tr><td nowrap>with <b>any</b> of the
words</td><td><input type=text size=25 value="" name=as_oq></td></tr><tr><td
nowrap><b>without</b> the words</td><td><input type=text size=25 value=""
name=as_eq></td></tr>
</table>

</td></tr>
</table>
</td></tr><tr ><td>

<table width=100% cellspacing=0 cellpadding=2><tr><td height=55
width=20%><b>Newsgroup</b></td><td width=40% nowrap>Return only messages
from the <b>newsgroup</b></td><td><input size=50
value="microsoft.public.scripting.*" name=as_ugroup><br></td></tr><tr><td
width=20%><b>Subject</b></td><td width=40% nowrap>Return only messages where
the <b>subject</b> contains</td><td><input size=50 value=""
name=as_usubject></td></tr><tr><td width=20%><b>Author</b></td><td width=40%
nowrap>Return only messages where the <b>author</b> is</td><td><input
size=50 value="" name=as_uauthors></td></tr><tr><td width=20%><b>Message
ID</b></td><td width=40% nowrap>Find the message with <b>message
ID</b></td><td><input size=50 value="" name=as_umsgid><br></td></tr>
<!-- <tr><td><b>Language</b></td><td width=1%>Return messages written
in</td><td width=50%><select name=lr
onchange="javascript:collecturl('http://groups.google.com/advanced_group_sea
rch');"><option value="lang_en" selected>English</select></td></tr>
-->
<INPUT TYPE="hidden" NAME=lr VALUE="lang_en">

<tr><td width=20%><b>Message Dates</b></td><td colspan=2 nowrap
valign=top><input name=as_drrb type=radio value=q checked> Return messages
posted
<select name=as_qdr onchange=daterange(0)>
<option value="" selected>anytime
<option value="d">in the last 24 hours
<option value="w">in the last week
<option value="m">in the last month
<option value="y">in the last year
</select>
</td></tr>
<tr><td width=20%>&nbsp;</td><td colspan=2 valign=top nowrap><input
name=as_drrb type=radio value=b> Return messages posted between <select
name=as_mind onchange=daterange(1)><option value="1">1<option
value="2">2<option value="3">3<option value="4">4<option value="5">5<option
value="6">6<option value="7">7<option value="8">8<option value="9">9<option
value="10">10<option value="11">11<option value="12">12<option
value="13">13<option value="14">14<option value="15">15<option
value="16">16<option value="17">17<option value="18">18<option
value="19">19<option value="20">20<option value="21">21<option
value="22">22<option value="23">23<option value="24">24<option
value="25">25<option value="26">26<option value="27">27<option
value="28">28<option value="29">29<option value="30">30<option
value="31">31</select> <select name=as_minm onchange=daterange(1)><option
value="1">Jan<option value="2">Feb<option value="3">Mar<option
value="4">Apr<option value="5">May<option value="6">Jun<option
value="7">Jul<option value="8">Aug<option value="9">Sep<option
value="10">Oct<option value="11">Nov<option value="12">Dec</select> <select
name=as_miny onchange=daterange(1)>
<option value="1977">1977
<option value="1978">1978
<option value="1979">1979
<option value="1980">1980
<option value="1981">1981
<option value="1982">1982
<option value="1983">1983
<option value="1984">1984
<option value="1985">1985
<option value="1986">1986
<option value="1987">1987
<option value="1988">1988
<option value="1989">1989
<option value="1990">1990
<option value="1991">1991
<option value="1992">1992
<option value="1993">1993
<option value="1994">1994
<option value="1995">1995
<option value="1996">1996
<option value="1997">1997
<option value="1998">1998
<option value="1999">1999
<option value="2000">2000
<option value="2001">2001
<option value="2002">2002
<option value="2003">2003
<option value="2004">2004
</select> and <select name=as_maxd onchange=daterange(1)>
<option value="1">1
<option value="2">2
<option value="3">3
<option value="4">4
<option value="5">5
<option value="6">6
<option value="7">7
<option value="8">8
<option value="9">9
<option value="10">10
<option value="11">11
<option value="12">12
<option value="13">13
<option value="14">14
<option value="15">15
<option value="16">16
<option value="17">17
<option value="18">18
<option value="19">19
<option value="20">20
<option value="21">21
<option value="22">22
<option value="23">23
<option value="24">24
<option value="25">25
<option value="26">26
<option value="27">27
<option value="28">28
<option value="29">29
<option value="30">30
<option value="31">31
<option value="" selected>
</select>
<select name=as_maxm onchange=daterange(1)>
<option value="1">Jan
<option value="2">Feb
<option value="3">Mar
<option value="4">Apr
<option value="5">May
<option value="6">Jun
<option value="7">Jul
<option value="8">Aug
<option value="9">Sep
<option value="10">Oct
<option value="11">Nov
<option value="12">Dec
<option value="" selected>
</select>
<select name=as_maxy onchange=daterange(1)>
<option value="1977">1977
<option value="1978">1978
<option value="1979">1979
<option value="1980">1980
<option value="1981">1981
<option value="1982">1982
<option value="1983">1983
<option value="1984">1984
<option value="1985">1985
<option value="1986">1986
<option value="1987">1987
<option value="1988">1988
<option value="1989">1989
<option value="1990">1990
<option value="1991">1991
<option value="1992">1992
<option value="1993">1993
<option value="1994">1994
<option value="1995">1995
<option value="1996">1996
<option value="1997">1997
<option value="1998">1998
<option value="1999">1999
<option value="2000">2000
<option value="2001">2001
<option value="2002">2002
<option value="2003">2003
<option value="2004">2004
<option value="" selected>
</select>
</td>
</tr>

</table>
<table><tr><td>
<input class="button" type="button" onclick='vbscript:as_ugroup.value=""'
value="All">
<input class="button" type="button"
onclick='vbscript:as_ugroup.value="microsoft.public.*"' value="All
Microsoft">
<input class="button" type="button"
onclick='vbscript:as_ugroup.value="microsoft.public.scripting.*"'
value="Scripting">
<input class="button" type="button"
onclick='vbscript:as_ugroup.value="microsoft.public.win2000.cmdprompt.admin"
' value="CMD">
<input class="button" type="button"
onclick='vbscript:as_ugroup.value="microsoft.public.win32.programmer.wmi"'
value="WMI">
<input class="button" type="button"
onclick='vbscript:as_ugroup.value="microsoft.public.windowsnt.terminalserver
.*"' value="NT-TS">
<input class="button" type="button"
onclick='vbscript:as_ugroup.value="microsoft.public.win2000.termserv.*"'
value="Win2k-TS">
<input class="button" type="button"
onclick='vbscript:as_ugroup.value="microsoft.public.adsi.general"'
value="ADSI">
<input class="button" type="button"
onclick='vbscript:as_ugroup.value="microsoft.public.dotnet.languages.csharp"
' value="C#">
<input class="button" type="button"
onclick='vbscript:as_ugroup.value="microsoft.public.softwareupdatesvcs"'
value="SUS">
<input class="button" type="button"
onclick='vbscript:as_ugroup.value="microsoft.public.win32.programmer.*"'
value="Win32 Prog">
</td></tr><tr><td>
<input class="button" type="button"
onclick='vbscript:as_ugroup.value="microsoft.public.wbem"' value="WBEM">
<input class="button" type="button"
onclick='vbscript:as_ugroup.value="alt.msdos.batch.nt"' value="batch.nt">
<input class="button" type="button"
onclick='vbscript:as_ugroup.value="microsoft.public.dotnet.*"' value=".NET">
<input class="button" type="button"
onclick='vbscript:as_ugroup.value="comp.lang.basic.visual.misc"'
value="vb.misc">
<input class="button" type="button"
onclick='vbscript:as_ugroup.value="microsoft.public.vb.*"' value="MS-VB">
<input class="button" type="button"
onclick='vbscript:as_ugroup.value="comp.lang.python.*"' value="Python">
<input class="button" type="button"
onclick='vbscript:as_ugroup.value="microsoft.public.inetsdk.*"'
value="INet-SDK">
<input class="button" type="button"
onclick='vbscript:as_ugroup.value="microsoft.public.word.vba.*"'
value="Word-VBA">
<input class="button" type="button"
onclick='vbscript:as_ugroup.value="microsoft.public.vc.*"' value="C">
<input class="button" type="button"
onclick='vbscript:as_ugroup.value="microsoft.public.outlook.*"'
value="Outlook">
</td></tr><tr><td>
<input class="button" type="button"
onclick='vbscript:as_ugroup.value="microsoft.public.frontpage.*"'
value="FP">
<input class="button" type="button"
onclick='vbscript:as_ugroup.value="microsoft.public.windowsxp.*"'
value="Windows XP">
<input class="button" type="button"
onclick='vbscript:as_ugroup.value="vmware.*"' value="VMWare">
<input class="button" type="button"
onclick='vbscript:as_ugroup.value="microsoft.public.win2000.msi"'
value="MSI">
<input class="button" type="button"
onclick='vbscript:as_ugroup.value="microsoft.public.windows.inetexplorer.ie6
_outlookexpress"' value="OE6">
<input class="button" type="button"
onclick='vbscript:as_ugroup.value="microsoft.public.msn.messenger"'
value="MSN Msgr">
</td></tr><tr><td>
<input class="button" type="button"
onclick='vbscript:as_ugroup.value="microsoft.public.*":as_uauthors.value="Ha
rris"' value="Au:Harris">
<input class="button" type="button"
onclick='vbscript:as_ugroup.value="microsoft.public.*":as_uauthors.value="Ba
kken"' value="Au:Bakken">
<input class="button" type="button"
onclick='vbscript:as_ugroup.value="microsoft.public.*":as_uauthors.value="An
gelopoulos"' value="Au:AKA">
</td></tr></table>
</form>
</body>
</html>



Re: how to Script ? by Torgeir

Torgeir
Mon Jan 19 19:46:14 CST 2004

"Alex K. Angelopoulos [MVP]" wrote:

> And now for something not-so-completely-different...
>
> My group Googling HTA...
>
> My apologies for the limited range of authors; I should remove myself Real
> Soon Now. :)
>
> <html><head><title>Google Advanced Groups Search</title>
> (snip)
> <input class="button" type="button"
> onclick='vbscript:as_ugroup.value="microsoft.public.*":as_uauthors.value="Ha
> rris"' value="Au:Harris">
> <input class="button" type="button"
> onclick='vbscript:as_ugroup.value="microsoft.public.*":as_uauthors.value="Ba
> kken"' value="Au:Bakken">
> <input class="button" type="button"
> onclick='vbscript:as_ugroup.value="microsoft.public.*":as_uauthors.value="An
> gelopoulos"' value="Au:AKA">
> </td></tr></table>

I feel honored, and I see no reason for your removal :)

--
torgeir
Microsoft MVP Scripting and WMI, Porsgrunn Norway
Administration scripting examples and an ONLINE version of the 1328 page
Scripting Guide: http://www.microsoft.com/technet/scriptcenter



Re: how to Script ? by Michael

Michael
Mon Jan 19 20:25:45 CST 2004

This is a multi-part message in MIME format.

------=_NextPart_000_0018_01C3DEB9.A72D0F50
Content-Type: text/plain;
charset="Windows-1252"
Content-Transfer-Encoding: 8bit

>
http://www.google.com/groups?as_q=meaning%20of%20life&safe=images&ie=UTF-8&o
>> e=UTF-8&as_ugroup=*vbscript&lr=&hl=en
>
>
> And now for something not-so-completely-different...
>
> My group Googling HTA...
>


As long as we're sharing <g>, here's my searchomatic.hta (attached with an
extra .txt extension)...


--
Michael Harris
Microsoft.MVP.Scripting

Windows 2000 Scripting Guide
Microsoft® Windows®2000 Scripting Guide
http://www.microsoft.com/technet/scriptcenter/scrguide/sagsas_overview.asp

TechNet Script Center Sample Scripts
http://www.microsoft.com/downloads/release.asp?ReleaseID=38942

WSH 5.6 documentation download
http://www.microsoft.com/downloads/details.aspx?FamilyId=01592C48-207D-4BE1-8A76-1C4099D7BBB9&displaylang=en

------=_NextPart_000_0018_01C3DEB9.A72D0F50
Content-Type: text/plain;
name="searchomatic.hta.txt"
Content-Transfer-Encoding: quoted-printable
Content-Disposition: attachment;
filename="searchomatic.hta.txt"

<html>
<head>
<title>Search-o-matic</title>

<script language=3D"vbscript">
moveto 100,100
resizeto 680,305
</script>

<hta:application
id=3D"Searchomatic"
applicationname=3D"Searchomatic"
singleinstance=3D"yes"
windowstate=3D"normal"
caption=3D"yes"
showintaskbar=3D"yes"
sysmenu=3D"yes"
scroll=3D"no"
/>
<script language=3D"vbscript">

sub idSearchGroups_onclick()

sGroup =3D idGroup.options(idGroup.selectedIndex).text
sAuthor =3D idAuthor.options(idAuthor.selectedIndex).text
query =3D idSearch.value=20
if len(trim(idGroupOther.value)) > 0 then=20
query =3D query & " group:" & trim(idGroupOther.value)
elseif len(trim(sGroup)) > 0 then=20
query =3D query & " group:" & sGroup=20
end if
if len(trim(idAuthorOther.value)) > 0 then=20
query =3D query & " author:" & trim(idAuthorOther.value)
elseif len(trim(sAuthor)) > 0 then=20
query =3D query & " author:" &sAuthor
end if
url =3D "http://groups.google.com/groups?q=3D" & query _
& "&num=3D100&scoring=3Dd"
h =3D screen.availHeight
w =3D screen.availWidth-75
with window.open(url,"GoogleGroupsSearch")
.moveto 0,0
'.moveto 75,0
'.resizeto w,h
end with

end sub

sub idSearchWeb_onclick()

sSite =3D idSite.options(idSite.selectedIndex).text
query =3D idSearch.value=20
if len(trim(idSiteOther.value)) > 0 then=20
query =3D query & " site:" & trim(idSiteOther.value)
elseif len(trim(sSite)) > 0 then=20
query =3D query & " site:" & sSite=20
end if
url =3D "http://www.google.com/search?q=3D" & query _
& "&num=3D100&scoring=3Dd"
h =3D screen.availHeight
w =3D screen.availWidth-75
with window.open(url,"GoogleWebSearch")
.moveto 0,0
' .moveto 75,0
' .resizeto w,h
end with
=20
end sub

sub idClear_onclick()
idSite.selectedIndex =3D 0
idSiteOther.value =3D ""
idGroup.selectedIndex =3D 0
idGroupOther.value =3D ""
idAuthor.selectedIndex =3D 0
idAuthorOther.value =3D ""
idSearch.value =3D ""
end sub

sub idClose_onclick()
window.close
end sub
</script>
<style>
body {
font:x-small verdana;background-color:threedface;
}
</style>
</head>
<body>
<center>
<table border=3D0 cellpadding=3D0>
<tr valign=3Dtop>
<td>
<select id=3DidSite size=3D10 style=3D"width:210px">
<option selected></option>
<option>msdn.microsoft.com</option>
<option>support.microsoft.com</option>
<option>microsoft.com</option>
<option>www.rlmueller.net</option>
<option>cwashington.netreach.net</option>
</select>
</td>
<td>
<select id=3DidGroup size=3D10 style=3D"width:210px">
<option selected></option>
<option>*.scripting</option>
<option>*.scripting.wsh</option>
<option>*.scripting.vbscript</option>
<option>*.scripting.jscript</option>
<option>*.wmi</option>
<option>microsoft.*</option>
<option>*.outlook</option>
<option>*.windows.server.scripting</option>
</select>
</td>
<td>
<select id=3DidAuthor size=3D10 style=3D"width:210px">
<option selected></option>
<option>Michael Harris</option>
<option>Torgeir Bakken</option>
<option>Alex Angelopoulos</option>
<option>Walter Zackery</option>
<option>Tom Lavedas</option>
<option>Mark Pryor</option>
<option>Steve Fulton</option>
<option>Michel Gallant</option>
<option>Richard Mueller</option>
</select>
</td>
</tr>
<tr valign=3Dtop>
<td>
<input type=3Dtext value=3D"" id=3DidSiteOther =
style=3D"width:210px">
</td>
<td>
<input type=3Dtext value=3D"" id=3DidGroupOther =
style=3D"width:210px">
</td>
<td>
<input type=3Dtext value=3D"" id=3DidAuthorOther =
style=3D"width:210px">
</td>
</tr>
<tr valign=3Dtop>
<td colspan=3D3>
<input type=3Dtext value=3D"" id=3DidSearch style=3D"width:100%">
</td>
</tr>
<tr valign=3Dtop>
<td>
<input type=3Dbutton value=3D"Search Web" id=3DidSearchWeb =
style=3D"width:100px">
</td>
<td>
<input type=3Dbutton value=3D"Search Groups" id=3DidSearchGroups =
style=3D"width:100px">
</td>
<td>
<input type=3Dbutton value=3D"Clear" id=3DidClear =
style=3D"width:100px">
<input type=3Dbutton value=3D"Close" id=3DidClose =
style=3D"width:100px">
</td>
</tr>
</table>
</center>
</body>
<!--

-- You have to edit the HTA source to add remove items in the idGroup =
and idAuthor select lists.

-- The top element is blank to let you be non-specific about group or =
author.

-- The text box below each select lets you type in a group/mask and/or =
author override for any given search.

-- The text box to the left of the buttons is for the search string. An =
exact phrase match is just a "quoted string". Words/phrases separated =
by spaces are implied ANDs. To include ORs, enter them at the end of =
the search string separated by OR.

"exact match" this that wiggly OR piggly

equates logically to:

"exact match" AND this AND that AND (wiggly OR piggly)

-- The searches are all sent to an IE window named "GoogleGroupsSearch" =
so that if you run another search with an earlier search results window =
open, the window is reused. If you want to keep the earlier results =
window open when you run the other search, use IE's File/New/Window (or =
the Ctrl+N shortcut). The second copy will have the same results =
displayed and probably has the same "GoogleGroupsSearch" name associated =
with it, but now there are 2 named "GoogleGroupsSearch" and the next =
search (usually) reuses the 1st one that was opened.


-->
</html>

------=_NextPart_000_0018_01C3DEB9.A72D0F50--


Re: how to Script ? by Al

Al
Mon Jan 19 21:08:22 CST 2004


"Michael Harris (MVP)" <mikhar at mvps dot org> wrote in message
news:%23x21byv3DHA.3468@TK2MSFTNGP11.phx.gbl...
> >
>
http://www.google.com/groups?as_q=meaning%20of%20life&safe=images&ie=UTF-8&o
> >> e=UTF-8&as_ugroup=*vbscript&lr=&hl=en
> >
> >
> > And now for something not-so-completely-different...
> >
> > My group Googling HTA...
> >
>
>
> As long as we're sharing <g>, here's my searchomatic.hta (attached with an
> extra .txt extension)...

Cool - but please add a language selection. I did a group search for "input"
and Walter Zackery and had pages and pages of German to wade through until I
found something I could understand!

I'm trying to think of some {whatever}-omatic.hta to write, but am having
thinker's block. What about:

LinearizeHTMLHelpFilesSoYouWillKnowWhenYouHaveSeenItAll.HTA?

or perhaps:


LinkifyLinearDocumentationSoThatYourClientsWillThinkYouDidALotOfWorkForThem.
hta

or perhaps:


ConvertTheEntireInternetIntoAnHTMLHelpFileSoThatPeopleCanReallySay"IHaveTheI
nternetOnMyComputer!".hta

More ideas to follow - implementation, well, that's another thing.

/Al



Re: how to Script ? by Michael

Michael
Mon Jan 19 21:50:11 CST 2004

>> As long as we're sharing <g>, here's my searchomatic.hta (attached
>> with an extra .txt extension)...
>
> Cool - but please add a language selection. I did a group search for
> "input" and Walter Zackery and had pages and pages of German to wade
> through until I found something I could understand!


I did that same search and got no German hits, perhaps because I have my
google global preferences set to search only for pages written in English.


--
Michael Harris
Microsoft.MVP.Scripting

Windows 2000 Scripting Guide
Microsoft® Windows®2000 Scripting Guide
http://www.microsoft.com/technet/scriptcenter/scrguide/sagsas_overview.asp

TechNet Script Center Sample Scripts
http://www.microsoft.com/downloads/release.asp?ReleaseID=38942

WSH 5.6 documentation download
http://www.microsoft.com/downloads/details.aspx?FamilyId=01592C48-207D-4BE1-8A76-1C4099D7BBB9&displaylang=en


Re: how to Script ? by Robert

Robert
Tue Jan 20 11:54:53 CST 2004

see this is the funny thing with scripting. There is an old saying, "If you
ask 10 analysts to analyze some data, you will get 10 different results".
With scripting, you ask 10 scripters how to do something, you get about
30-40 different results :-)

--
Robert Cohen
A legend in his own mind
--

"Al Dunbar [MS-MVP]" <alan-no-drub-spam@hotmail.com> wrote in message
news:#h81sKw3DHA.1404@TK2MSFTNGP11.phx.gbl...
>
> "Michael Harris (MVP)" <mikhar at mvps dot org> wrote in message
> news:%23x21byv3DHA.3468@TK2MSFTNGP11.phx.gbl...
> > >
> >
>
http://www.google.com/groups?as_q=meaning%20of%20life&safe=images&ie=UTF-8&o
> > >> e=UTF-8&as_ugroup=*vbscript&lr=&hl=en
> > >
> > >
> > > And now for something not-so-completely-different...
> > >
> > > My group Googling HTA...
> > >
> >
> >
> > As long as we're sharing <g>, here's my searchomatic.hta (attached with
an
> > extra .txt extension)...
>
> Cool - but please add a language selection. I did a group search for
"input"
> and Walter Zackery and had pages and pages of German to wade through until
I
> found something I could understand!
>
> I'm trying to think of some {whatever}-omatic.hta to write, but am having
> thinker's block. What about:
>
> LinearizeHTMLHelpFilesSoYouWillKnowWhenYouHaveSeenItAll.HTA?
>
> or perhaps:
>
>
>
LinkifyLinearDocumentationSoThatYourClientsWillThinkYouDidALotOfWorkForThem.
> hta
>
> or perhaps:
>
>
>
ConvertTheEntireInternetIntoAnHTMLHelpFileSoThatPeopleCanReallySay"IHaveTheI
> nternetOnMyComputer!".hta
>
> More ideas to follow - implementation, well, that's another thing.
>
> /Al
>
>



Re: how to Script ? by Alex

Alex
Tue Jan 20 18:59:41 CST 2004

Al Dunbar [MS-MVP] wrote:

>
ConvertTheEntireInternetIntoAnHTMLHelpFileSoThatPeopleCanReallySay"IHaveTheI
> nternetOnMyComputer!".hta

:))))

This computer comes with Internet, right? And that's the LATEST version of
Internet, right? :|



Re: how to Script ? by Alex

Alex
Tue Jan 20 19:01:09 CST 2004

Michael Harris (MVP) wrote:

> As long as we're sharing <g>, here's my searchomatic.hta (attached with
> an extra .txt extension)...

nice. I never saw THIS one before.

Michael, care to give us a post about current HTAs you've got? I'm trolling
for ideas, like Al. ;)



Re: how to Script ? by Alex

Alex
Tue Jan 20 19:06:47 CST 2004

And it changes every day, too! We're like a super-fortified version of the
real world. ;)

Robert Cohen wrote:
> see this is the funny thing with scripting. There is an old saying,
> "If you ask 10 analysts to analyze some data, you will get 10 different
> results". With scripting, you ask 10 scripters how to do something, you
> get about 30-40 different results :-)
>
> --
> Robert Cohen
> A legend in his own mind
>
> "Al Dunbar [MS-MVP]" &