[B! VBS] tatsu1010ã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯

tatsu1010 id:tatsu1010

VBSã«é–¢ã™ã‚‹tatsu1010ã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ (10)

${{author_name}}$

{{{comment_expanded}}}

{{label}}

{{#is_bookmark}}ãƒªã‚¹ãƒˆ{{/is_bookmark}}{{^is_bookmark}}ãƒªãƒ³ã‚¯{{/is_bookmark}}

${{author_name}}$
{{author_name}}{{created}}
{{ #comment }}{{ comment }}{{ /comment }}
- {{ label }}

${{author_name}}$

{{{comment_expanded}}}

{{label}}

{{#is_bookmark}}ãƒªã‚¹ãƒˆ{{/is_bookmark}}{{^is_bookmark}}ãƒªãƒ³ã‚¯{{/is_bookmark}}

ç¬¬17å›žã€€FileSystemObjectã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆã‚’åˆ©ç”¨ã™ã‚‹ï¼ˆ2ï¼‰
ç¬¬17å›žã€€FileSystemObjectã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆã‚’åˆ©ç”¨ã™ã‚‹ï¼ˆ2ï¼‰ï¼šåŸºç¤Žè§£èª¬ æ¼”ç¿’æ–¹å¼ã§èº«ã«ã¤ã‘ã‚‹ãƒã‚§ãƒƒã‚¯å¼WSHè¶…å…¥é–€ï¼ˆ3/5 ãƒšãƒ¼ã‚¸ï¼‰ â€»ãƒ•ã‚¡ã‚¤ãƒ«ï¼šGetFileOrFolderInfo.vbs Option Explicit Dim objFSO Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") Dim strArgument Dim objIt em Dim strName, strShortName, strPath, strShortPath, strParentFolder, _ strDrive, lngSize, strType, strAttributes, _ dtm Created, dtmLastAccessed, dtmLastModified If WScript.Arguments
tatsu1010 2008/08/02
VBSã§ãƒ•ã‚¡ã‚¤ãƒ«ã‚·ã‚¹ãƒ†ãƒ ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆã‚’åˆ©ç”¨ã™ã‚‹ã€‚

VBS

programming
ãƒªãƒ³ã‚¯
Deep Decryption - VBScript Tips - å†å¸°å‡¦ç†(å‰ç·¨) : ãƒ„ãƒªãƒ¼è¡¨ç¤º
ä»Šå›žã¨æ¬¡å›žã¯å†å¸°å‡¦ç†ã«ã¤ã„ã¦æ›¸ãã¾ã™ã€‚å†å¸°å‡¦ç†è‡ªä½“ã¯åˆ¥ã«VBScript ã«é™ã£ãŸæŠ€æ³•ã§ã‚‚ã‚ã‚Šã¾ã›ã‚“ãŒã€ä»–è¨€èªžã®å ´åˆã¨åŒæ§˜ã€éžå¸¸ã«å¼·åŠ›ãªãƒ†ã‚¯ãƒ‹ãƒƒã‚¯ã§ã‚‚ã‚ã‚Šã¾ã™ã€‚æ›´ã«ã€ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆã®å‡¦ç†ã¨çµ¡ã‚ã‚‹ã¨å¨åŠ›ãŒå€å¢—ã—ã¾ã™ã®ã§ã€VBScript ã§ã‚ã¾ã‚Šä½¿ã‚ã‚Œã¦ã„ãªã„ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆã®ä½¿ã„æ–¹ã¨ã—ã¦ç´¹ä»‹ã™ã‚‹æ„å‘³ã§ã‚‚ã€ä½¿ç”¨æ–¹æ³•ã‚’å–ã‚Šä¸Šã’ã¦ã¿ã¾ã™ã€‚ ã¨ã¯ã„ãˆã€ã„ããªã‚Šé›£ã—ã„ã“ã¨ã‚’ã‚„ã‚‹ã¨å¤§å¤‰ã§ã™ã®ã§ã€ä»Šå›žã¯FAQ ãƒ¬ãƒ™ãƒ«ã«ã‚ªãƒ¼ã‚½ãƒ‰ãƒƒã‚¯ã‚¹ãªå†å¸°å‡¦ç†ã®ã‚µãƒ³ãƒ—ãƒ«ã‚’ã„ãã¤ã‹èª¬æ˜Žã—ã¾ã™ã€‚ æ¬¡å›žã¯æ›´ã«ã€å†å¸°çš„ã«ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆã‚’ç”Ÿæˆã—ã¦ã„ãã‚¹ã‚¯ãƒªãƒ—ãƒˆã«ã¤ã„ã¦èª¬æ˜Žã—ã¾ã™ã€‚ vbscript é–¢ä¿‚ã®FAQã¨ã„ã£ã¦ã‚‚è‰¯ã„ãã‚‰ã„ã®è³ªå•ã§ ã€Œxxx ãƒ•ã‚©ãƒ«ãƒ€ä»¥ä¸‹ã®å…¨ãƒ•ã‚¡ã‚¤ãƒ«ã‚’è¡¨ç¤ºã™ã‚‹ã«ã¯ã©ã†ã™ã‚Œã°ã‚ˆã„ã§ã™ã‹ã€ ã¨ã‹ã€ ã€Œæ·±ã„éšŽå±¤ã®ãƒ•ã‚©ãƒ«ãƒ€ã‚’ä½œæˆã™ã‚‹ã«ã¯ã©ã†ã™ã‚Œã°ã‚ˆã„ã§ã™ã‹ã€ ã¨ã„ã†ã‚‚ã®ãŒã‚ã‚Šã¾ã™ã€‚ ã‚‚ã¡ã‚ã‚“å¤–éƒ¨ã‚³ãƒžãƒ³ãƒ‰ã‚’å‘¼ã³
tatsu1010 2007/06/01
éžå¸¸ã«å‚è€ƒã«ãªã‚Šã¾ã—ãŸã€‚

VBS

development

reference

tips
ãƒªãƒ³ã‚¯
ã‚¯ãƒ¬ã‚¸ãƒƒãƒˆã‚«ãƒ¼ãƒ‰ç¾é‡‘åŒ–ã®é«˜é‚„å…ƒçŽ‡ã®å„ªè‰¯åº—ã‚’é¸ã¶ãŸã‚ã«ã¯
ã‚¯ãƒ¬ã‚¸ãƒƒãƒˆã‚«ãƒ¼ãƒ‰ç¾é‡‘åŒ–ã®é«˜é‚„å…ƒçŽ‡ã®å„ªè‰¯åº—ã‚’é¸ã¶ãŸã‚ã«ã¯ ã‚¯ãƒ¬ã‚¸ãƒƒãƒˆã‚«ãƒ¼ãƒ‰ç¾é‡‘åŒ–ã®å„ªè‰¯åº—ã‚’é¸ã¶ãƒã‚¤ãƒ³ãƒˆã¯ã€æ›é‡‘çŽ‡ã‚„ã‚¹ãƒ”ãƒ¼ãƒ‰ã‚‚ã‚ã‚Šã¾ã™ãŒã€ãã®ã»ã‹ã«ã‚‚è¦‹ã¦ãŠããŸã„ãƒã‚¤ãƒ³ãƒˆã‚‚ã‚ã‚Šã¾ã™ã€‚ ãŠé‡‘ã«åŽ³ã—ã„äººãŒåˆ©ç”¨ã—ã¾ã™ã®ã§ã€æ‰‹æ•°æ–™ã‚„ã‚ãƒ£ãƒ³ãƒšãƒ¼ãƒ³ã®æœ‰ç„¡ã€ä¾¡æ ¼äº¤æ¸‰ãŒã§ãã‚‹æ¥è€…ã¨ã„ã†ã“ã¨ã¯è¦‹ã¦ãŠããŸã„ã¨ã“ã‚ã§ã™ã€‚ ãã‚Œãžã‚Œã©ã®ã‚ˆã†ãªå†…å®¹ãªã®ã§ã—ã‚‡ã†ã‹ã€‚ æ‰‹æ•°æ–™ãŒç„¡æ–™ã§ã‚ã‚‹ã‚¯ãƒ¬ã‚¸ãƒƒãƒˆã‚«ãƒ¼ãƒ‰ç¾é‡‘åŒ–ã®æ¥è€…ã«ã¯ã€æ‰‹æ•°æ–™ã‚’ã™ã¹ã¦ç„¡æ–™ã§ã—ã¦ãã‚Œã‚‹ã¨ã“ã‚ãŒã‚ã‚Šã¾ã™ã€‚ æ¥è€…ã«ã‚ˆã£ã¦ã¯ã€å˜ç´”ã«æ‰‹æ•°æ–™ã¨ã„ã†åç›®ã§æ¥è€…å´ã®åˆ©ç›ŠãŒã¨ã‚‰ã‚Œã¦ã„ãŸã‚Šã€æŒ¯è¾¼æ‰‹æ•°æ–™ã€äº‹å‹™æ‰‹æ•°æ–™ã¨ã„ã†åç›®ã§å°‘é¡ãªãŒã‚‰ãŠé‡‘ãŒã‹ã‹ã‚‹ã“ã¨ãŒã‚ã‚Šã¾ã™ã€‚ ã›ã£ã‹ãé«˜ã„æ›é‡‘çŽ‡ãŒè¨˜è¼‰ã•ã‚Œã¦ã„ã¦ã‚‚ã€æ‰‹æ•°æ–™ã®åˆ†ãŒå·®ã—å¼•ã‹ã‚Œã‚‹ã“ã¨ã§ã€æã‚’ã—ãŸã‚ˆã†ãªæ°—æŒã¡ã«ãªã£ãŸã‚Šå¾Œã‹ã‚‰æ°—ã¥ãã“ã¨ã‚‚ã‚ã‚Šã¾ã™ã€‚ ã“ã‚Œã‚‰ã®æ‰‹æ•°æ–™ã¯æœ€åˆã‹ã‚‰å…¬å¼ãƒ›ãƒ¼ãƒ ãƒšãƒ¼ã‚¸ã«è¨˜è¼‰ãŒã‚ã‚‹å ´åˆã¯äº†æ‰¿ã—ãŸã†ãˆã§ç”³ã—è¾¼ã¿ã‚‚ã§ã
tatsu1010 2007/06/01
VBSã«ã‚ˆã‚‹ãƒ•ã‚¡ã‚¤ãƒ«æƒ…å ±å–å¾—ã€‚

VBS

development

reference

script
ãƒªãƒ³ã‚¯
VBScript Tips (Tips0082)
[ãƒ•ã‚©ãƒ«ãƒ€ã®å†…å®¹ã‚’å†å¸°çš„ã«å–å¾—ã™ã‚‹] ã‚·ã‚¹ãƒ†ãƒ ãƒ•ã‚©ãƒ«ãƒ€ã®ä¸‹ã‚’å†å¸°çš„ã«æ¤œç´¢ã—ã¦ã„ã¾ã™ã€‚ ã€ã‚½ãƒ¼ã‚¹ã‚³ãƒ¼ãƒ‰ã€‘ [tips0082.vbs] Option Explicit On Error Resume Next ' ãƒ•ã‚©ãƒ«ãƒ€æ¤œç´¢é–¢æ•° Sub FindFolder(ByVal objMainFolder, ByVal strTab) Dim objSubFolder ' ã‚µãƒ–ãƒ•ã‚©ãƒ«ãƒ€ For Each objSubFolder In objMainFolder.SubFolders WScript.Echo strTab & "ã€€+ " & objSubFolder.Name FindFolder objSubFolder, "ã€€ã€€" & strTab Next End Sub Dim objFSO ' FileSystemObject Dim objWinFolder ' ã‚¦ã‚£ãƒ³ãƒ‰ã‚¦ã‚ºãƒ•ã‚©ãƒ«ãƒ€
tatsu1010 2007/06/01
VBSã«ã‚ˆã‚‹ãƒ•ã‚¡ã‚¤ãƒ«æƒ…å ±å–å¾—ã€‚

VBS

reference
ãƒªãƒ³ã‚¯
ASP/VBS ã‚µãƒ³ãƒ—ãƒ«é–¢æ•°ï¼šã€Žæ—¥ä»˜ã®ãƒ•ã‚©ãƒ¼ãƒžãƒƒãƒˆé–¢æ•°ã€
èª¬æ˜Ž ASP/VBSã«ã¯ã€æ—¥ä»˜ã‚’ãƒ•ã‚©ãƒ¼ãƒžãƒƒãƒˆã—ã¦å‡ºåŠ›ã—ã¦ãã‚Œã‚‹ä¾¿åˆ©ãªé–¢æ•°ãŒã‚ã‚Šã¾ã›ã‚“ã€‚ VBãªã‚‰Formaté–¢æ•°ã§ç°¡å˜ã«ãƒ•ã‚©ãƒ¼ãƒžãƒƒãƒˆã§ãã‚‹ã‚“ã§ã™ãŒãƒ»ãƒ»ãƒ»ã€‚ ã¾ãã€ç„¡ã„ãªã‚‰ã°ã€è‡ªåˆ†ã§ä½œã‚‹ã—ã‹ã‚ã‚Šã¾ã›ã‚“ãã€‚
tatsu1010 2007/06/01
VBSã®è‡ªä½œformaté–¢æ•°ã€‚

VBS

reference
ãƒªãƒ³ã‚¯
VBScript ã§ãƒã‚¤ãƒŠãƒªãƒ•ã‚¡ã‚¤ãƒ«ã®èªã¿è¾¼ã¿: ã‚ã‚‹ nakagami ã®æ—¥è¨˜
Set obj = CreateObject("basp21") adoRs("photo") = obj.BinaryRead(objFile.Path) ã¨ã—ã¦ã„ãŸã¨ã“ã‚ã‚’ Const adTypeBinary = 1 Set obj = CreateObject("ADODB.Stream") obj.Open obj.Type = adTypeBinary obj.LoadFromFile(obj.Path) adoRs("photo") = obj.Read() ã¨æ›¸ãæ›ãˆã¦ã‚‚å‹•ã„ãŸã€‚ ã‹ãªã‚Šã†ã‚Œã—ã„ã€‚
tatsu1010 2007/05/31
å‚è€ƒã¾ã§ã«ã€‚

VBS

reference

tips
ãƒªãƒ³ã‚¯
DOMã‚’ä½¿ã£ã¦ç›®çš„ã®æƒ…å ±ã¸ãƒ€ãƒƒã‚·ãƒ¥
XPathå¼ã®åˆ©ç”¨ XPathã®æ›¸å¼ã‚’ç”¨ã„ã¦å–å¾—ã—ãŸã„è¦ç´ ã‚„å±žæ€§ï¼ˆAttributeï¼‰ã‚’æŒ‡å®šã™ã‚‹ã“ã¨ã§ã€ã‚ˆã‚Šå°‘ãªã„ã‚³ãƒ¼ãƒ‰é‡ã§æ±‚ã‚ã‚‹å€¤ã‚’å–å¾—ã™ã‚‹ã“ã¨ãŒã§ãã‚‹ã‚ˆã†ã«ãªã‚Šã¾ã™ã€‚å…ˆã»ã©ã®ä¾‹ã¨åŒã˜ã‚ˆã†ã«ã€booksè¦ç´ ã®é…ä¸‹ã«ã‚ã‚‹it emè¦ç´ å†…ã®titleè¦ç´ ã®å€¤ã‚’å–å¾—ã—ãŸã„ã¨ã„ã†ã‚ˆã†ãªå ´åˆã®ã‚³ãƒ¼ãƒ‰ã‚’è¦‹ã¦ã¿ã¾ã—ã‚‡ã†ã€‚ 01 : Dim objDOM, rtResult, nodeList, obj 02 : Set objDOM = WScript.CreateObject("MSXML2.DOMDocument") 03 : rtResult = objDOM.load("Sample.xml") 04 : If rtResult = True Then 05 : Set nodeList = objDOM.documentElement.selectNodes("/books/it em/titl
tatsu1010 2007/05/12
ã‚ã¨ã§ã‚³ãƒ¼ãƒ‰æ›¸ã„ã¦è©¦ã—ã¦ã¿ã‚‹ã€‚

vbs

xml

xpath
ãƒªãƒ³ã‚¯
DOMã‚’ä½¿ã£ã¦ç›®çš„ã®æƒ…å ±ã¸ãƒ€ãƒƒã‚·ãƒ¥
DOMã‚’åˆ©ç”¨ã—ã¦ãƒ‡ãƒ¼ã‚¿ã¸ã‚¢ã‚¯ã‚»ã‚¹ ã‚¿ãƒ¼ã‚²ãƒƒãƒˆã¨ãªã£ã¦ã„ã‚‹ãƒ‡ãƒ¼ã‚¿ã¸ã®ã‚¢ã‚¯ã‚»ã‚¹æ–¹æ³•ã¯ã€å¹¾ã¤ã‹ã®æ–¹æ³•ãŒæŒ™ã’ã‚‰ã‚Œã¾ã™ã€‚1ã¤ã¯ã€å‰å›žç´¹ä»‹ã—ãŸã‚ˆã†ã«è¦ç´ å†…ã‚’æ¤œç´¢ã—ã€ç›®çš„ã¨ãªã‚‹ãƒ‡ãƒ¼ã‚¿ã‚’æŽ¢ã—ã¦å¾—ã‚‹æ–¹æ³•ã§ã™ã€‚ 01 : Dim objDOM, rtResult 02 : 03 : Set objDOM = WScript.CreateObject("MSXML2.DOMDocument") 04 : rtResult = objDOM.load("Sample.xml") 04': 'æ–‡å—åˆ—ãƒ‡ãƒ¼ã‚¿ã‹ã‚‰å–å¾—ã™ã‚‹å ´åˆã¯ã€ä»¥ä¸‹ã®ã¨ãŠã‚Š 04': 'ãªãŠã€strXMLDocumentã«ã¯ã€æ–‡å—åˆ—ã¨ã—ã¦XMLãƒ‰ã‚ãƒ¥ãƒ¡ãƒ³ãƒˆãŒ 04': 'æ ¼ç´ã•ã‚Œã¦ã„ã‚‹ã¨ä»®å®šã—ã¾ã™ã€‚ 05 : rtResult = objDOM.loadXML(strXMLDocument) 06 : If rtResult = True Then 0
tatsu1010 2007/05/12
NodeTypeã£ã¦ãã†ã„ã†ã“ã¨ã‹ã€‚

programming

tips

vbs

xml
ãƒªãƒ³ã‚¯
ç„¡æ–™ã®VBScriptã§XMLãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°
DOMã‚’ä½¿ã£ã¦XMLæ–‡æ›¸ã‚’æ“ä½œã™ã‚‹ Windows Scripting Hostï¼ˆä»¥ä¸‹ã€WSHï¼‰ã¯ã€VBScriptã‚„JScriptã¨ã„ã£ãŸã‚¹ã‚¯ãƒªãƒ—ãƒˆã®å®Ÿè¡Œç’°å¢ƒã¨ã—ã¦ç”¨æ„ã•ã‚Œã¦ã„ã‚‹ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã§ã™ã€‚ã“ã®WSHãŒå°Žå…¥ã•ã‚Œã¦ã„ã‚‹ã¨ã€æ‹¡å¼µå.vbsã‚„.jsã¨ã„ã£ãŸãƒ•ã‚¡ã‚¤ãƒ«ã«ã‚¹ã‚¯ãƒªãƒ—ãƒˆã‚’è¨˜è¿°ã—ã¦ãŠãã“ã¨ã§ã€ç°¡å˜ãªã‚¢ãƒ—ãƒªã‚±ãƒ¼ã‚·ãƒ§ãƒ³ã‚’è¨˜è¿°ã—ã¦ã„ãã“ã¨ãŒã§ãã‚‹ã‚ˆã†ã«ãªã‚Šã¾ã™ã€‚ã“ã“ã§ã¯ã€VBScriptã®åˆ©ç”¨ã‚’ä¸å¿ƒã«ã—ã¦ã€XMLã‚’åˆ©ç”¨ã—ãŸã‚¢ãƒ—ãƒªã‚±ãƒ¼ã‚·ãƒ§ãƒ³ã®ä½œæˆæ–¹æ³•ã‚’é †ã«å¦ã‚“ã§ã„ãã“ã¨ã«ã—ã¾ã—ã‚‡ã†ã€‚ å˜ç´”ã«XMLã‚’Webãƒ–ãƒ©ã‚¦ã‚¶ä¸Šã«è¡¨ç¤ºã—ã¦ã¿ã‚‹ Internet Explorerã«ã¯ã€XMLæ–‡æ›¸ã‚’ãƒ–ãƒ©ã‚¦ã‚¶ä¸Šã«è¡¨ç¤ºã•ã›ã‚‹ã“ã¨ãŒã§ãã¾ã™ã€‚ã¾ãšã¯ã€ä»Šå›žã®ã‚¿ãƒ¼ã‚²ãƒƒãƒˆã¨ãªã‚‹ãƒ‡ãƒ¼ã‚¿ï¼ˆãƒªã‚¹ãƒˆ1ï¼‰ã‚’å®Ÿéš›ã«è¡¨ç¤ºã•ã›ã¦ã¿ã‚‹ã“ã¨ã«ã—ã¾ã—ã‚‡ã†ã€‚ ã™ã‚‹ã¨ã€ç”»é¢1ã®ã‚ˆã†ã«ãƒ–ãƒ©ã‚¦ã‚¶ä¸Šã«è¡¨ç¤ºã•ã‚Œã¾ã™ã€‚ â€»ãƒªã‚¹ãƒˆ1ã¯UTF-8ã§ã‚¨ãƒ³ã‚³ãƒ¼ãƒ‡ã‚£ãƒ³
tatsu1010 2007/05/12
å‹‰å¼·ãŒã¦ã‚‰ã€‚

programming

tips

vbs

xml
ãƒªãƒ³ã‚¯
XMLæ–‡æ›¸ã‚’èªã¿è¾¼ã‚€ï½œVBScript Tips
ãƒ•ã‚¡ã‚¤ãƒ«èªã¿è¾¼ã¿ã®å ´åˆã¯ load ãƒ¡ã‚½ãƒƒãƒ‰ æ–‡å—åˆ—ã¨ã—ã¦ã®èªã¿è¾¼ã¿ã¯ loadXML ãƒ¡ã‚½ãƒƒãƒ‰ã‚’ä½¿ç”¨ã—ã¾ã™ã€‚ ï¼œload ãƒ¡ã‚½ãƒƒãƒ‰ï¼ž 'â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡ ' ãƒ•ã‚¡ã‚¤ãƒ«ã¨ã—ã¦XMLæ–‡æ›¸ãŒä¸Žãˆã‚‰ã‚ŒãŸå ´åˆ 'â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡ Dim objDOM, rtResult Set objDOM = WScript.CreateObject("MSXML2.DOMDocument") rtResult = objDOM.load("FileName.xml") MsgBox rtResult, vbInformation, "å®Ÿè¡Œçµæžœ" 'â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡ ' æ–‡å—åˆ—ãƒ‡ãƒ¼ã‚¿ï¼ˆå¤‰æ•°ãªã©ï¼‰ã¨ã—ã¦XMLæ–‡æ›¸ãŒä¸Žãˆã‚‰ã‚ŒãŸå ´åˆ 'â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡â–¡
tatsu1010 2007/05/12
ã¡ã‚‡ã£ã¨å‹‰å¼·ãŒã¦ã‚‰ã€‚

tips

vbs

xml
ãƒªãƒ³ã‚¯
1