スクリーンセーãƒã®èµ·å‹•ã‚’抑制ã™ã‚‹ - vbsãƒãƒ¼ã‚¸ãƒ§ãƒ³ - Qiitaã¯ã˜ã‚ã« ã†ã¡ã®ä¼šç¤¾ã®PCã¯10分ã§ã‚¹ãƒªãƒ¼ãƒ³ã‚»ãƒ¼ãƒãŒèµ·å‹•ã—ã¦ã—ã¾ã†ã€‚ãã®åº¦ã«ãƒ‘スワードを入力ã—ã¦è§£é™¤ã™ã‚‹ã®ãŒé¢å€’ãªãŸã‚ã€ã‚¹ã‚¯ãƒªãƒ¼ãƒ³ã‚»ãƒ¼ãƒã‚’抑制ã™ã‚‹ãŸã‚ã®VBScriptを作æˆã—ãŸã€‚ ç°¡å˜ã«æ›¸ã㨠"VBScriptã§ä¸€å®šé–“éš”ã§SHIFTã‚ーを押ã™" ã ã‘ã®ã“ã¨ã§ã™ã€‚ 用æ„ã™ã‚‹ã‚‚ã® VBScriptã¯Microsoft OfficeãŒå¿…è¦ã§ã—ãŸã£ã‘? VBSãŒå‹•ä½œã™ã‚‹ç’°å¢ƒãŒå¿…è¦ã«ãªã‚Šã¾ã™ã€‚ プãƒã‚°ãƒ©ãƒ 起動プãƒã‚°ãƒ©ãƒ ' ' "シフトã‚ーを押ã™vbaを一定間隔ã§å‘¼ã³å‡ºã—ã™ã‚‹ã‚¹ã‚¯ãƒªãƒ—ト ' Option Explicit WScript.Echo "Shift Key.vbsを開始ã—ã¾ã™ã€‚" '起動用ã®ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆã‚’ç”Ÿæˆ Dim objWsh Set objWsh = WScript.CreateObject("WScript.Shell") Dim I For I = 1 To 20 'vb
ã¯ã¦ãªã‚°ãƒ«ãƒ¼ãƒ—ã®çµ‚了日を2020å¹´1月31æ—¥(金)ã«æ±ºå®šã—ã¾ã—㟠- ã¯ã¦ãªã®å‘ŠçŸ¥
{{#tags}}- {{label}}
{{/tags}}