June 08, 2013

Windows7¡§¥É¥í¥Ã¥×¤·¤¿¥Õ¥©¥ë¥À¡¼¤òÀßÄꤷ¤¿°ÌÃ֤ȥµ¥¤¥º¤Ç³«¤¯¥¹¥¯¥ê¥×¥È(VBS)

Teikoku Logo
º£Ç¯¤«¤é¿¦¾ì¤Ç»È¤¤»Ï¤á¤¿ Windows7 ¤Ç¡¢ºÇÂç¤ÎÉÔËþ¤ò²ò¾Ã¡ª¡Ä¤È¤Þ¤Ç¤Ï¹Ô¤«¤Ê¤¤¤±¤É¡¢¤Ê¤ó¤È¤«²æËý¤Ç¤­¤ëÄøÅ٤ˤϲþÁ±¤Ç¤­¤¿¡£

Windows7¤Ç¥¦¥£¥ó¥É¥¦¤ò³«¤¯¥¹¥¯¥ê¥×¥È¤Ë¤Ä¤¤¤Æ¥Ä¥¤¡¼¥È¤·¤¿¤Î¤¬2/14¡Ä¡¢£±·î¤ËWindows7¤ò»È¤¤»Ï¤á¤Æ¤«¤é£±¥ö·î¤Ç;¤ê¤Ç¡¢¤½¤Î»È¤¤¾¡¼ê¤Î¤¢¤Þ¤ê¤Î°­¤µ¤Ë¡¢¤Ä¤¤¤Ë²æËý½ÐÍè¤Ê¤¯¤Ê¤Ã¤¿¤Î¤«¡Äw



»²¹Í¤Ë¤·¤¿¤Î¤Ï Microsoft Communitiy¤Î ¥¨¥¯¥¹¥×¥í¡¼¥é¡¼¤ò»È¤¦»þ¤Î¥µ¥¤¥º¡¢°ÌÃÖ¡¢¥ì¥¤¥¢¥¦¥È¤ò³Æ¥Õ¥©¥ë¥À¤Ç¸ÄÊ̤˵­²±¤µ¤»¤¿¤¤ ¤Î²óÅú¤ËºÜ¤Ã¤Æ¤¤¤¿¥¹¥¯¥ê¥×¥È¡Öhoge.vbs¡×

--
hoge.vbs
--
Set ie=GetObject("new:{C08AFD90-F2A1-11D1-8455-00A0C91F3880}")
ie.Top=100
ie.Left=200
ie.Height=500
ie.Width=700
ie.Visible=True
ie.Navigate2 "shell:my pictures" '¥Õ¥©¥ë¥À¥Ñ¥¹
Do While ie.Busy Or ie.ReadyState<>4
WScript.Sleep 100
Loop
ie.Document.CurrentViewMode=4 '4-¾ÜºÙ
--

Windows¤Î¡Ö¥á¥âÄ¢¡×¤ËŽ¤êÉÕ¤±¡¢¥Õ¥¡¥¤¥ë̾¡Öhoge.vbs¡×¤ÇÊݸ¤·¤Æ¡¢½ÐÍ褿¡Öhoge.vbs¡×¤ò¥À¥Ö¥ë¥¯¥ê¥Ã¥¯¡£¸«»ö¡ª¡Ö¥Þ¥¤¥Ô¥¯¥Á¥ã¡×¤Î¥¦¥£¥ó¥É¥¦¤¬¡¢¥¹¥¯¥ê¥×¥ÈÆâ¤Ç»ØÄꤵ¤ì¤¿¡Ö¾å¤«¤é100¥É¥Ã¥È¡¢º¸¤«¤é200¥É¥Ã¥È¡¢¹â¤µ500¥É¥Ã¥È¡¢Éý700¥É¥Ã¥È¡×¤Ç³«¤¤¤¿¡ªÁÇÀ²¤é¤·¤¤¡ª¡ª

¡Ö'¥Õ¥©¥ë¥À¥Ñ¥¹¡×¤Î¼êÁ°¤Î¥À¥Ö¥ë¥¯¥©¡¼¥Æ¡¼¥·¥ç¥ó¤Ç°Ï¤Þ¤ì¤¿½ê¤Ë¥Õ¥©¥ë¥À¡¼¤Î¥Ñ¥¹¤òÆþ¤ì¤ë¤À¤±¤Ç»È¤¨¤ÆÊØÍø¡£
Î㤨¤Ð¥í¡¼¥«¥ë¤Î¡ÖD:\FolderName¡×¤È¤«¡¢¥µ¡¼¥Ð¡¼¾å¤Î¡Ö\\ServerName\FolderName¡×¤È¤«¡¢»Å»ö¤ÇÎɤ¯»È¤¦¥Õ¥©¥ë¥À¡¼Ëè¤Ë²¿¸Ä¤¬ºî¤ë¤È³ÊÃʤËÊØÍø¤Ë¤Ê¤Ã¤¿¡£

¤³¤¦¤Ê¤ë¤ÈÍߤ¬¤Ç¤Æ¡¢¥¹¥¯¥ê¥×¥È¥Õ¥¡¥¤¥ë¤Ë¥É¥é¥Ã¥°¡õ¥É¥í¥Ã¥×¤·¤¿¥Õ¥©¥ë¥À¡¼¤ò¡¢·è¤Þ¤Ã¤¿°ÌÃ֤ȥµ¥¤¥º¤Ç³«¤¤¤Æ¤¯¤ì¤ë¤ÈÊØÍø¡ª¤È»×¤¤¡¢VBS¤Î¥ê¥Õ¥¡¥ì¥ó¥¹¤È¤«¥µ¥ó¥×¥ë¤Î¥¹¥¯¥ê¥×¥È¤ò¥°¥°¤Ã¤Æ¤Ê¤ó¤È¤«ºî¤Ã¤Æ¤ß¤¿¡£
[more...]

15:31:43 | 3k1 | comments(0) | TrackBacks