2017年05月09日

発売中!日経PC21 P73〜「できる!10行プログラミング」Windows上で、メモ帳で作る音声時計とWebをニュース読み上げVBSプログラミングは面白かった!

時々、購入する日経PC21ですが、
今回は、「できる!10行プログラミング」を立ち読みしていて
面白そうなので買った次第です。

確かに、私の目に、狂いは無かった!

非常に簡単な割に、面白かったです。
発展させると、まだまだ面白く&便利になりそうなので、
修正していこうと思います。


@test.vbs
Set objSAPI = CreateObject("SAPI.SpVoice")
objSAPI.Rate = -2
For i = 1 to 12
jihou = "ただいま" & Left(Time(), 5) & "です。"
objSAPI.Speak jihou
WScript.Sleep 1000 * 60 * 1
Next
objSAPI.Speak "音声時計が終了します。"


◎日経PC21:円
日経PC21 2017年 6 月号 -
日経PC21 2017年 6 月号 -

A
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate "http://trendy.nikkeibp.co.jp/news/"
while objIE.ReadyState <> 4 Or objIE.Busy = True
WScript.Sleep 100
Wend

theText = objIE.Document.getElementsByClassName("list03")(0).innerText
Set objSAPI = CreateObject("SAPI.SpVoice")
objSAPI.Speak "おはようございます。日経トレンディネットのニュースです。"
objSAPI.Speak theText


◎日経Linux 2017年 06 月号:1,540円
日経Linux 2017年 06 月号 -
日経Linux 2017年 06 月号 -


posted by アンドレアス at 07:26| Comment(0) | TrackBack(0) | 日記 | このブログの読者になる | 更新情報をチェックする
この記事へのコメント
コメントを書く
お名前:

メールアドレス:

ホームページアドレス:

コメント:

※ブログオーナーが承認したコメントのみ表示されます。
この記事へのトラックバックURL
http://blog.seesaa.jp/tb/449714665
※ブログオーナーが承認したトラックバックのみ表示されます。

この記事へのトラックバック