Prev: Will VBScript continue to be supported?
Next: VBScript on Windows 64 Bit?
From: MarceepooNu on 5 Aug 2010 20:53
Hi Mayayana.

I can't tell you how much I have appreciated your forthright and clear
answers to questions I've posed. For example, when you helped me understand
that there were things like "quirks mode" and other silliness-type
complexities, and how to deal with them. Your frankness made Microsoft
products more accessible. Shutting down the criticism will only push people
away. But that behavior is alas typical of bullies, who can't see the harm
they are doing to themselves - while trying to dominate others.

1. Did I understand correctly that you'll be appearing in
listserves?/newsgroups?/qqch? on the domain: eternal-september.org?

2. How can I modify the following sub (which you gave me the knowledge I
needed to create it) so that I could get the Hwnd of the window the sub
creates?

Sub subShowInHtmlWindow(strWindowPassThruBodyTexte, strWindowPassThruTitlee,
blnVisibleTFe)
Dim strText

strWindowPassThruBodyText = strWindowPassThruBodyTexte
strWindowPassThruTitle = strWindowPassThruTitlee
blnVisibleTF = blnVisibleTFe

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")

Set objDoc = objIE.Document.Body
strHTML = strWindowPassThruBodyText
objDoc.InnerHTML = strHTML
objIE.Document.Title = strWindowPassThruTitle
objIE.
' While blnDataHarvested = False
' fnSleep(1)
' Wend
'MsgBox strText

'MsgBox objIE.FullName
strMsgBoxMsg = objIE.LocationName & vbCrLf & _
objIE.LocationURL '& vbCrLf & _
'objIE.Document(
'MsgBox strMsgBoxMsg
objIE.Visible = blnVisibleTF ' False True ' False

objIE.statusbar = True ' False True ' False
'objIE.StatusBar = 0
objIE.addressbar = True ' False True ' False
'objIE.ToolBar = 0
objIE.ToolBar = False ' False True ' False
objIE.resizable = True ' False True ' False
objIE.height = 230
objIE.width = 400
'subAppActivateWindow("Date String")

End Sub 'subShowInHtmlWindow

thanks again,
marceepoonu


--
MarceepooNu


"Mayayana" wrote:

> | Larsen the pest I mean
>
> I think Microsoft is gone by now. Most of the
> newsgroups have already been shut down on
> the MS server. Have you not seen the notices
> posted here? The msnews.microsoft.com NNTP
> server is closing down. Microsoft wants to control
> the discussion of their products. They've set up
> [unusable] web forums where people are required
> to get a LiveID "tracking collar, and Microsoft
> employees are in charge of directing and deleting
> the discussion as they see fit. (Some of the groups,
> like VB programming, are just being dumped altogether.
> I'm not sure if there's a group specifically for VBS
> in the new forums.)
>
> The groups still exist on most servers because
> Usenet is decentralized, but people going through
> msnews must switch to another server. I'm using
> eternal-september.org, which is continuing to carry
> Microsoft groups. Many ISPs still continue to carry
> them. (It looks like you're going through your ISP
> and probably won't have to worry about it.)
>
> I think we just have to count our blessings. We may
> be stuck with the Kenneth A Larsens of the world,
> but at least we're free to discuss.
>
> Come to think of it, maybe "Kenneth A Larsen" is an
> attempt by MS lackeys to make the newsgroups unpleasant.
> On the bright side, he doesn't post anything of relevance
> so there's no need to check his posts at all.
>
>
> .
>
From: MarceepooNu on 5 Aug 2010 22:08
I found the answer to the Hwnd problem, and posted it in my reply to Tom
Lavedas' last posting in
How to "harvest" the contents of a hidden or "about blank" webpage in
Windows Scripting Host

Thanks again for your help. You're great!

MarceepooNu
--
MarceepooNu


"MarceepooNu" wrote:

> Hi Mayayana.
>
> I can't tell you how much I have appreciated your forthright and clear
> answers to questions I've posed. For example, when you helped me understand
> that there were things like "quirks mode" and other silliness-type
> complexities, and how to deal with them. Your frankness made Microsoft
> products more accessible. Shutting down the criticism will only push people
> away. But that behavior is alas typical of bullies, who can't see the harm
> they are doing to themselves - while trying to dominate others.
>
> 1. Did I understand correctly that you'll be appearing in
> listserves?/newsgroups?/qqch? on the domain: eternal-september.org?
>
> 2. How can I modify the following sub (which you gave me the knowledge I
> needed to create it) so that I could get the Hwnd of the window the sub
> creates?
>
> Sub subShowInHtmlWindow(strWindowPassThruBodyTexte, strWindowPassThruTitlee,
> blnVisibleTFe)
> Dim strText
>
> strWindowPassThruBodyText = strWindowPassThruBodyTexte
> strWindowPassThruTitle = strWindowPassThruTitlee
> blnVisibleTF = blnVisibleTFe
>
> Set objIE = CreateObject("InternetExplorer.Application")
> objIE.Navigate("about:blank")
>
> Set objDoc = objIE.Document.Body
> strHTML = strWindowPassThruBodyText
> objDoc.InnerHTML = strHTML
> objIE.Document.Title = strWindowPassThruTitle
> objIE.
> ' While blnDataHarvested = False
> ' fnSleep(1)
> ' Wend
> 'MsgBox strText
>
> 'MsgBox objIE.FullName
> strMsgBoxMsg = objIE.LocationName & vbCrLf & _
> objIE.LocationURL '& vbCrLf & _
> 'objIE.Document(
> 'MsgBox strMsgBoxMsg
> objIE.Visible = blnVisibleTF ' False True ' False
>
> objIE.statusbar = True ' False True ' False
> 'objIE.StatusBar = 0
> objIE.addressbar = True ' False True ' False
> 'objIE.ToolBar = 0
> objIE.ToolBar = False ' False True ' False
> objIE.resizable = True ' False True ' False
> objIE.height = 230
> objIE.width = 400
> 'subAppActivateWindow("Date String")
>
> End Sub 'subShowInHtmlWindow
>
> thanks again,
> marceepoonu
>
>
> --
> MarceepooNu
>
>
> "Mayayana" wrote:
>
> > | Larsen the pest I mean
> >
> > I think Microsoft is gone by now. Most of the
> > newsgroups have already been shut down on
> > the MS server. Have you not seen the notices
> > posted here? The msnews.microsoft.com NNTP
> > server is closing down. Microsoft wants to control
> > the discussion of their products. They've set up
> > [unusable] web forums where people are required
> > to get a LiveID "tracking collar, and Microsoft
> > employees are in charge of directing and deleting
> > the discussion as they see fit. (Some of the groups,
> > like VB programming, are just being dumped altogether.
> > I'm not sure if there's a group specifically for VBS
> > in the new forums.)
> >
> > The groups still exist on most servers because
> > Usenet is decentralized, but people going through
> > msnews must switch to another server. I'm using
> > eternal-september.org, which is continuing to carry
> > Microsoft groups. Many ISPs still continue to carry
> > them. (It looks like you're going through your ISP
> > and probably won't have to worry about it.)
> >
> > I think we just have to count our blessings. We may
> > be stuck with the Kenneth A Larsens of the world,
> > but at least we're free to discuss.
> >
> > Come to think of it, maybe "Kenneth A Larsen" is an
> > attempt by MS lackeys to make the newsgroups unpleasant.
> > On the bright side, he doesn't post anything of relevance
> > so there's no need to check his posts at all.
> >
> >
> > .
> >
From: Mayayana on 5 Aug 2010 22:09

| I can't tell you how much I have appreciated your forthright and clear
| answers....

Thank you. It's nice to feel useful.

| 1. Did I understand correctly that you'll be appearing in
| listserves?/newsgroups?/qqch? on the domain: eternal-september.org?
|

The deal is that Microsoft is discontinuing the hosting of
their own newsgroups. Many are already gone from
news.microsoft.com. By October they plan to shut down
the server altogether. Some topics are being dropped
altogether. With other topics MS is creating web forums,
but those are moderated and the web forum format is not
very usable. So the long and the short of it is that MS is
dropping support for public sharing/discussion between
their customers.

But since Usenet is decentralized, it probably won't matter
that Microsoft is shutting down. The microsoft.* groups will
probably remain on most Usenet servers. Only the server
news.microsoft.com will be gone.

I can get the groups through my ISP, but for a long time I had
been going directly to news.microsoft.com. Meanwhile, a lot of ISPs
have been dropping the groups due to lack of awareness/interest.

In the VB group all of this has been discussed quite a bit and
someone came up with eternal-september.org as an option. It's
a free news server. One has to join, but identity is kept private and
there is no charge. (I don't know how or if the operation makes
money.) So rather than go back to my ISP I just joined
eternal-september.org and now use their server. As a result I
still see all Microsoft groups, regardless of whether or not MS has
shut them down.

| 2. How can I modify the following sub (which you gave me the knowledge I
| needed to create it) so that I could get the Hwnd of the window the sub
| creates?
|

The IE object has an hWnd property. So you just
need objIE.hwnd

Note, though, that you should do a loop after loading
the page, because you can't access a valid document
until the load is finished:

objIE.Navigate("about:blank")
Do while objie.readystate <> 4
Loop


| Sub subShowInHtmlWindow(strWindowPassThruBodyTexte,
strWindowPassThruTitlee,
| blnVisibleTFe)
| Dim strText
|
| strWindowPassThruBodyText = strWindowPassThruBodyTexte
| strWindowPassThruTitle = strWindowPassThruTitlee
| blnVisibleTF = blnVisibleTFe
|
| Set objIE = CreateObject("InternetExplorer.Application")
| objIE.Navigate("about:blank")
|
| Set objDoc = objIE.Document.Body
| strHTML = strWindowPassThruBodyText
| objDoc.InnerHTML = strHTML
| objIE.Document.Title = strWindowPassThruTitle
| objIE.
| ' While blnDataHarvested = False
| ' fnSleep(1)
| ' Wend
| 'MsgBox strText
|
| 'MsgBox objIE.FullName
| strMsgBoxMsg = objIE.LocationName & vbCrLf & _
| objIE.LocationURL '& vbCrLf & _
| 'objIE.Document(
| 'MsgBox strMsgBoxMsg
| objIE.Visible = blnVisibleTF ' False True ' False
|
| objIE.statusbar = True ' False True ' False
| 'objIE.StatusBar = 0
| objIE.addressbar = True ' False True ' False
| 'objIE.ToolBar = 0
| objIE.ToolBar = False ' False True ' False
| objIE.resizable = True ' False True ' False
| objIE.height = 230
| objIE.width = 400
| 'subAppActivateWindow("Date String")
|
| End Sub 'subShowInHtmlWindow
|
| thanks again,
| marceepoonu
|
|
| --
| MarceepooNu
|
|
| "Mayayana" wrote:
|
| > | Larsen the pest I mean
| >
| > I think Microsoft is gone by now. Most of the
| > newsgroups have already been shut down on
| > the MS server. Have you not seen the notices
| > posted here? The msnews.microsoft.com NNTP
| > server is closing down. Microsoft wants to control
| > the discussion of their products. They've set up
| > [unusable] web forums where people are required
| > to get a LiveID "tracking collar, and Microsoft
| > employees are in charge of directing and deleting
| > the discussion as they see fit. (Some of the groups,
| > like VB programming, are just being dumped altogether.
| > I'm not sure if there's a group specifically for VBS
| > in the new forums.)
| >
| > The groups still exist on most servers because
| > Usenet is decentralized, but people going through
| > msnews must switch to another server. I'm using
| > eternal-september.org, which is continuing to carry
| > Microsoft groups. Many ISPs still continue to carry
| > them. (It looks like you're going through your ISP
| > and probably won't have to worry about it.)
| >
| > I think we just have to count our blessings. We may
| > be stuck with the Kenneth A Larsens of the world,
| > but at least we're free to discuss.
| >
| > Come to think of it, maybe "Kenneth A Larsen" is an
| > attempt by MS lackeys to make the newsgroups unpleasant.
| > On the bright side, he doesn't post anything of relevance
| > so there's no need to check his posts at all.
| >
| >
| > .
| >


From: Kenneth A. Larsen on 8 Aug 2010 10:48

"MarceepooNu" <mbh2010(a)aol.com> wrote in message
news:7B8CC2AB-DA9A-4D57-BDD1-0A67FED272C3(a)microsoft.com...
>I found the answer to the Hwnd problem, and posted it in my reply to Tom
> Lavedas' last posting in
> How to "harvest" the contents of a hidden or "about blank" webpage in
> Windows Scripting Host
>
> Thanks again for your help. You're great!
>
> MarceepooNu
> --
> MarceepooNu
>
>
> "MarceepooNu" wrote:
>
>> Hi Mayayana.
>>
>> I can't tell you how much I have appreciated your forthright and clear
>> answers to questions I've posed. For example, when you helped me
>> understand
>> that there were things like "quirks mode" and other silliness-type
>> complexities, and how to deal with them. Your frankness made Microsoft
>> products more accessible. Shutting down the criticism will only push
>> people
>> away. But that behavior is alas typical of bullies, who can't see the
>> harm
>> they are doing to themselves - while trying to dominate others.
>>
>> 1. Did I understand correctly that you'll be appearing in
>> listserves?/newsgroups?/qqch? on the domain: eternal-september.org?
>>
>> 2. How can I modify the following sub (which you gave me the knowledge I
>> needed to create it) so that I could get the Hwnd of the window the sub
>> creates?
>>
>> Sub subShowInHtmlWindow(strWindowPassThruBodyTexte,
>> strWindowPassThruTitlee,
>> blnVisibleTFe)
>> Dim strText
>>
>> strWindowPassThruBodyText = strWindowPassThruBodyTexte
>> strWindowPassThruTitle = strWindowPassThruTitlee
>> blnVisibleTF = blnVisibleTFe
>>
>> Set objIE = CreateObject("InternetExplorer.Application")
>> objIE.Navigate("about:blank")
>>
>> Set objDoc = objIE.Document.Body
>> strHTML = strWindowPassThruBodyText
>> objDoc.InnerHTML = strHTML
>> objIE.Document.Title = strWindowPassThruTitle
>> objIE.
>> ' While blnDataHarvested = False
>> ' fnSleep(1)
>> ' Wend
>> 'MsgBox strText
>>
>> 'MsgBox objIE.FullName
>> strMsgBoxMsg = objIE.LocationName & vbCrLf & _
>> objIE.LocationURL '& vbCrLf & _
>> 'objIE.Document(
>> 'MsgBox strMsgBoxMsg
>> objIE.Visible = blnVisibleTF ' False True ' False
>>
>> objIE.statusbar = True ' False True ' False
>> 'objIE.StatusBar = 0
>> objIE.addressbar = True ' False True ' False
>> 'objIE.ToolBar = 0
>> objIE.ToolBar = False ' False True ' False
>> objIE.resizable = True ' False True ' False
>> objIE.height = 230
>> objIE.width = 400
>> 'subAppActivateWindow("Date String")
>>
>> End Sub 'subShowInHtmlWindow
>>
>> thanks again,
>> marceepoonu
>>
>>
>> --
>> MarceepooNu
>>
>>
>> "Mayayana" wrote:
>>
>> > | Larsen the pest I mean
>> >
>> > I think Microsoft is gone by now. Most of the
>> > newsgroups have already been shut down on
>> > the MS server. Have you not seen the notices
>> > posted here? The msnews.microsoft.com NNTP
>> > server is closing down. Microsoft wants to control
>> > the discussion of their products. They've set up
>> > [unusable] web forums where people are required
>> > to get a LiveID "tracking collar, and Microsoft
>> > employees are in charge of directing and deleting
>> > the discussion as they see fit. (Some of the groups,
>> > like VB programming, are just being dumped altogether.
>> > I'm not sure if there's a group specifically for VBS
>> > in the new forums.)
>> >
>> > The groups still exist on most servers because
>> > Usenet is decentralized, but people going through
>> > msnews must switch to another server. I'm using
>> > eternal-september.org, which is continuing to carry
>> > Microsoft groups. Many ISPs still continue to carry
>> > them. (It looks like you're going through your ISP
>> > and probably won't have to worry about it.)
>> >
>> > I think we just have to count our blessings. We may
>> > be stuck with the Kenneth A Larsens of the world,
>> > but at least we're free to discuss.
>> >
>> > Come to think of it, maybe "Kenneth A Larsen" is an
>> > attempt by MS lackeys to make the newsgroups unpleasant.
>> > On the bright side, he doesn't post anything of relevance
>> > so there's no need to check his posts at all.
>> >


I admit your command.
>> >
>> > .
>> >


From: MarceepooNu on 10 Aug 2010 19:48
Hi Mayayana:

I have another question.....

Assume ScriptA sends data to hidden window, and then
sends the hidden window' Hwnd and Window title to ScriptB.

Then, ScriptB harvests the data in the innertext of the hIdden window.

Can ScriptB replace the innertext of the hidden window
(while retaining the same window title and hwnd)?

Thanks again,
marceepoonu
--
MarceepooNu


"Mayayana" wrote:

>
> | I can't tell you how much I have appreciated your forthright and clear
> | answers....
>
> Thank you. It's nice to feel useful.
>
> | 1. Did I understand correctly that you'll be appearing in
> | listserves?/newsgroups?/qqch? on the domain: eternal-september.org?
> |
>
> The deal is that Microsoft is discontinuing the hosting of
> their own newsgroups. Many are already gone from
> news.microsoft.com. By October they plan to shut down
> the server altogether. Some topics are being dropped
> altogether. With other topics MS is creating web forums,
> but those are moderated and the web forum format is not
> very usable. So the long and the short of it is that MS is
> dropping support for public sharing/discussion between
> their customers.
>
> But since Usenet is decentralized, it probably won't matter
> that Microsoft is shutting down. The microsoft.* groups will
> probably remain on most Usenet servers. Only the server
> news.microsoft.com will be gone.
>
> I can get the groups through my ISP, but for a long time I had
> been going directly to news.microsoft.com. Meanwhile, a lot of ISPs
> have been dropping the groups due to lack of awareness/interest.
>
> In the VB group all of this has been discussed quite a bit and
> someone came up with eternal-september.org as an option. It's
> a free news server. One has to join, but identity is kept private and
> there is no charge. (I don't know how or if the operation makes
> money.) So rather than go back to my ISP I just joined
> eternal-september.org and now use their server. As a result I
> still see all Microsoft groups, regardless of whether or not MS has
> shut them down.
>
> | 2. How can I modify the following sub (which you gave me the knowledge I
> | needed to create it) so that I could get the Hwnd of the window the sub
> | creates?
> |
>
> The IE object has an hWnd property. So you just
> need objIE.hwnd
>
> Note, though, that you should do a loop after loading
> the page, because you can't access a valid document
> until the load is finished:
>
> objIE.Navigate("about:blank")
> Do while objie.readystate <> 4
> Loop
>
>
> | Sub subShowInHtmlWindow(strWindowPassThruBodyTexte,
> strWindowPassThruTitlee,
> | blnVisibleTFe)
> | Dim strText
> |
> | strWindowPassThruBodyText = strWindowPassThruBodyTexte
> | strWindowPassThruTitle = strWindowPassThruTitlee
> | blnVisibleTF = blnVisibleTFe
> |
> | Set objIE = CreateObject("InternetExplorer.Application")
> | objIE.Navigate("about:blank")
> |
> | Set objDoc = objIE.Document.Body
> | strHTML = strWindowPassThruBodyText
> | objDoc.InnerHTML = strHTML
> | objIE.Document.Title = strWindowPassThruTitle
> | objIE.
> | ' While blnDataHarvested = False
> | ' fnSleep(1)
> | ' Wend
> | 'MsgBox strText
> |
> | 'MsgBox objIE.FullName
> | strMsgBoxMsg = objIE.LocationName & vbCrLf & _
> | objIE.LocationURL '& vbCrLf & _
> | 'objIE.Document(
> | 'MsgBox strMsgBoxMsg
> | objIE.Visible = blnVisibleTF ' False True ' False
> |
> | objIE.statusbar = True ' False True ' False
> | 'objIE.StatusBar = 0
> | objIE.addressbar = True ' False True ' False
> | 'objIE.ToolBar = 0
> | objIE.ToolBar = False ' False True ' False
> | objIE.resizable = True ' False True ' False
> | objIE.height = 230
> | objIE.width = 400
> | 'subAppActivateWindow("Date String")
> |
> | End Sub 'subShowInHtmlWindow
> |
> | thanks again,
> | marceepoonu
> |
> |
> | --
> | MarceepooNu
> |
> |
> | "Mayayana" wrote:
> |
> | > | Larsen the pest I mean
> | >
> | > I think Microsoft is gone by now. Most of the
> | > newsgroups have already been shut down on
> | > the MS server. Have you not seen the notices
> | > posted here? The msnews.microsoft.com NNTP
> | > server is closing down. Microsoft wants to control
> | > the discussion of their products. They've set up
> | > [unusable] web forums where people are required
> | > to get a LiveID "tracking collar, and Microsoft
> | > employees are in charge of directing and deleting
> | > the discussion as they see fit. (Some of the groups,
> | > like VB programming, are just being dumped altogether.
> | > I'm not sure if there's a group specifically for VBS
> | > in the new forums.)
> | >
> | > The groups still exist on most servers because
> | > Usenet is decentralized, but people going through
> | > msnews must switch to another server. I'm using
> | > eternal-september.org, which is continuing to carry
> | > Microsoft groups. Many ISPs still continue to carry
> | > them. (It looks like you're going through your ISP
> | > and probably won't have to worry about it.)
> | >
> | > I think we just have to count our blessings. We may
> | > be stuck with the Kenneth A Larsens of the world,
> | > but at least we're free to discuss.
> | >
> | > Come to think of it, maybe "Kenneth A Larsen" is an
> | > attempt by MS lackeys to make the newsgroups unpleasant.
> | > On the bright side, he doesn't post anything of relevance
> | > so there's no need to check his posts at all.
> | >
> | >
> | > .
> | >
>
>
> .
>
First  |  Prev  |  Next  |  Last
Pages: 1 2 3 4
Prev: Will VBScript continue to be supported?
Next: VBScript on Windows 64 Bit?