{"published":"2012-01-31 00:00:01","version":"1.0","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fblog.systemjp.net%2Fentry%2F20120131%2Fp1\" title=\"VBS CScript\u3067\u6642\u9593\u5f85\u3061 - shikaku&#39;s blog\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","width":"100%","type":"rich","description":"3\u79d2\u5f8c\u306b\u7d42\u4e86\u3002cscript\u3067\u5b9f\u884c\u3057\u3066\u306d\u3002 Option Explicit Const INTERVAL = 3 'As Long WScript.Echo CStr(INTERVAL) & \"\u79d2\u5f8c\u306b\u7d42\u4e86\u3057\u307e\u3059\u3002\" CountDown INTERVAL WScript.Quit Private Sub CountDown(argInterval) Dim cntSec 'As Long cntSec = 0 Do While(cntSec < argInterval) WScript.Echo \"\u3042\u3068\" & CStr(argInterval - cntSec) & \"\u79d2\" WScript.Sl\u2026","provider_url":"https://hatena.blog","blog_url":"https://blog.systemjp.net/","provider_name":"Hatena Blog","height":"190","author_name":"shikaku","blog_title":"shikaku's blog","url":"https://blog.systemjp.net/entry/20120131/p1","title":"VBS CScript\u3067\u6642\u9593\u5f85\u3061","image_url":null,"author_url":"https://blog.hatena.ne.jp/shikaku/","categories":["WSH"]}