[B! VBScript] babydaemonsã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯

babydaemons id:babydaemons

VBScriptã«é–¢ã™ã‚‹babydaemonsã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ (42)

${{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}}

.NET ã§ Windows Script Components ã‚’å‘¼ã³å‡ºã™( ã‚¹ã‚¿ãƒ³ãƒã‚¤çŠ¶æ…‹ã«ã™ã‚‹ )
ã€VBS & PHPã€‘ã‚¹ã‚¯ãƒªãƒ—ãƒˆã‹ã‚‰ã‚¹ã‚¿ãƒ³ãƒã‚¤çŠ¶æ…‹ã«ã™ã‚‹ ã§ä½œæˆã—ãŸ Windows Script Components ã‚’ .NET ã‹ã‚‰å‘¼ã³å‡ºã—ã¾ã™ Windows Script Components ã¯ã€COM ã§ã¯ã‚ã‚Šã¾ã™ãŒã€ã‚¿ã‚¤ãƒ—ãƒ©ã‚¤ãƒ–ãƒ©ãƒªã‚’ä½¿ç”¨ã—ã¦ .NET ã®ã‚³ãƒ³ãƒãƒ¼ãƒãƒ³ãƒˆã¨ã—ã¦å‘¼ã³å‡ºã™ã®ã¯ç„¡ç†ãŒã‚ã‚‹ã®ã§ã€ ãã‚Œãžã‚Œã®è¨€èªžã®ç‰¹æ€§ã‚’ãµã¾ãˆã¦å‘¼ã³å‡ºã—å‡¦ç†ã‚’è¨˜è¿°ã—ã¾ã™ã€‚ VB.NET ã‚‚ã¨ã‚‚ã¨ãŒ VBScript ãªã®ã§æœ€ã‚‚è¦ªå’Œæ€§ãŒé«˜ãã€ CreateObject ã§ç°¡å˜ã«å‘¼ã³å‡ºã™äº‹ãŒã§ãã¾ã™ã€‚ ã“ã‚Œã¯ã€é€šå¸¸ã® Microsoft ã® COM ã‚‚åŒæ§˜ã§ã™ã€‚ Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles
babydaemons 2023/04/29
VBScript

WSH

COM

C#
ãƒªãƒ³ã‚¯
JRA IPATã§æƒ…å ±ã‚’å–å¾— 8.2 é–‹å‚¬åœ°ãƒ»ç«¶é¦¬å ´å˜ä½ã§ãƒ«ãƒ¼ãƒ—ã•ã›ã‚‹ - ä¸‰æµå› ken3ã®memoç½®ãå ´
æ¬¡ã¯ã€é–‹å‚¬åœ°ã€ç«¶é¦¬å ´å˜ä½ã§ãƒ«ãƒ¼ãƒ—ã•ã›ã¦ã¿ã¾ã™ã€‚ å ´åã‚’è¦šãˆãŸå¾Œã«ãƒ«ãƒ¼ãƒ—ã•ã›ã¦ã¿ã¾ã™ã€‚ 'ç«¶é¦¬å ´ãƒ»é–‹å‚¬åœ°ã§ãƒ«ãƒ¼ãƒ—ã™ã‚‹ã€‚ jã®ãƒ«ãƒ¼ãƒ— For j = 0 To nJYO - 1 'â†‘ä¸Šã§ä¿å˜ã—ãŸnJYOã®åˆ†ã ã‘å›žã‚‹ ã§ãƒ«ãƒ¼ãƒ—ã‚’ä½œã‚Šã€ 'name=m ã® ã‚ªãƒ—ã‚·ãƒ§ãƒ³ã®jç•ªç›®ã‚’é¸æŠžã™ã‚‹ objSELECT.It em("m").OPTIONs(j).selected = True 'å˜ç´”ã«jç•ªç›®ã‚’selected Trueã§ã‚»ãƒ¬ã‚¯ãƒˆçŠ¶æ…‹ã«ã™ã‚‹ ã§é¸æŠžå¾Œã€æ±ºå®šã‚’æŠ¼ã—ã€ Call IE_INPUT_Click_VALUE(objIE, "æ±ºå®š") 'æ±ºå®šã‚’æŠ¼ã—ã€é–‹å‚¬åœ°ã‚’åˆ‡ã‚Šæ›¿ãˆã‚‹ 'è¡¨ç¤ºã‚’å¾…ã¤â€»ç«¶é¦¬å ´ãƒ»é–‹å‚¬åœ°ã®åˆ‡ã‚Šæ›¿ãˆã‚’å¾…ã¤ Call IE_WAIT 1R-12Rã®ãƒ¬ãƒ¼ã‚¹ çµ‚äº†å¾Œã€ ãƒ¡ã‚¤ãƒ³ãƒ¡ãƒ‹ãƒ¥ãƒ¼ã¸æˆ»ã‚‹ã®ã‚’å¿˜ã‚Œãšã«ã€‚ ãƒ†ã‚¹ãƒˆçµæžœãƒ»ä½œæ¥å‹•ç”» : http://www.youtube.com/watch?v
babydaemons 2016/05/05
é¢å€’ãã•ãã†ã€‚ã€‚ã€‚

JRA

IPAT

ç«¶é¦¬

VBScript
ãƒªãƒ³ã‚¯
ãƒˆãƒ©ã‚¹ãƒˆãƒ¡ãƒ¢ï¼ ãƒ–ãƒã‚°ã€€[VBScript] ä»–ã®vbsãƒ•ã‚¡ã‚¤ãƒ«ã‚’ã‚¤ãƒ³ã‚¯ãƒ«ãƒ¼ãƒ‰ã™ã‚‹
VBScriptãƒ•ã‚¡ã‚¤ãƒ«æ¯Žã«å…¨å‡¦ç†ã‚’è¨˜è¿°ã™ã‚‹ã¨ãƒ•ã‚¡ã‚¤ãƒ«ã‚µã‚¤ã‚ºãŒå¤§ãããªã‚Šã€åŒã˜é–¢æ•°ã‚’ãã‚Œãžã‚Œã®VBScriptãƒ•ã‚¡ã‚¤ãƒ«ã«è¨˜è¿°ã™ã‚‹ã®ã¯ã‚¹ãƒžãƒ¼ãƒˆã§ã¯ãªã„ã€‚ VBScriptæ¨™æº–ã§ã¯å¤–éƒ¨ãƒ•ã‚¡ã‚¤ãƒ«ã‚’ã‚¤ãƒ³ã‚¯ãƒ«ãƒ¼ãƒ‰ã™ã‚‹æ©Ÿèƒ½ã¯ãªã„ã®ã§ã‚¤ãƒ³ã‚¯ãƒ«ãƒ¼ãƒ‰ã™ã‚‹é–¢æ•°ã‚’ä½œæˆã—ãŸã€‚ ãŸã ã—ã€ã“ã®ã‚¤ãƒ³ã‚¯ãƒ«ãƒ¼ãƒ‰ã®é–¢æ•°ã¯å…±é€šåŒ–ã§ããªã„ã€‚ ä¾‹ãˆã°å…ˆã«è¨˜è¼‰ã—ãŸEncode.vbsã‚’ã‚¤ãƒ³ã‚¯ãƒ«ãƒ¼ãƒ‰ã™ã‚‹å ´åˆã¯ä»¥ä¸‹ã®ã‚ˆã†ã«è¨˜è¿°ã™ã‚‹ã€‚ Dim objFSO Dim objStream Dim strPath Dim strDir 'è‡ªèº«ã®ãƒ•ã‚¡ã‚¤ãƒ«ãƒ‘ã‚¹ã‚’å–å¾— strPath = WScript.ScriptFullName 'è¦ªãƒ‡ã‚£ãƒ¬ã‚¯ãƒˆãƒªã‚’å–å¾— Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") strDir = objFSO.GetFile(strPath).P
babydaemons 2013/04/22
ã‚ãƒ¼ã€ã‚‚ã†ã€ã“ã®ç³žè¨€èªžã€æ°ãï¼

VBScript
ãƒªãƒ³ã‚¯
wshã§DOSã‚³ãƒžãƒ³ãƒ‰ã‚’åˆ©ç”¨ã™ã‚‹ã«ã¯ã€‚ã€€ãƒ‘ã‚¤ãƒ—å‡¦ç† - OKWAVE
http://www.okweb.ne.jp/kotaeru.php3?q=305516 ã®ç¶šãã§ã™ã€‚ wshã§DOSã‚³ãƒžãƒ³ãƒ‰ã®netstat -nã®å€¤ã‚’ãƒ¡ãƒƒã‚»ãƒ¼ã‚¸ãƒœãƒƒã‚¯ã‚¹ã§è¡¨ç¤ºã™ã‚‹ã«ã¯ã€æ¬¡ã®ã‚¹ã‚¯ãƒªãƒ—ãƒˆã®â€ã‚³ãƒžãƒ³ãƒ‰â€ã®éƒ¨åˆ†ã«netstat -nã‚’å…¥ã‚Œã‚‹ã“ã¨ã§å¯èƒ½ã§ã™ã€‚ ï¼ˆFlossenEngelã€€æ§˜ä½œæˆï¼‰ ------------------------------------- Set WshShell = WScript.CreateObject("WScript.Shell") Set objExec = WshShell.Exec("ã‚³ãƒžãƒ³ãƒ‰") Do While objExec.Status = 0 WScript.Sleep(100) Loop sout = "" Do While Not objExec.StdOut.AtEndOfStream sout = sout & o
babydaemons 2013/02/15
"Execã¯æ¨™æº–å…¥åŠ›ã€æ¨™æº–å‡ºåŠ›ã€æ¨™æº–ã‚¨ãƒ©ãƒ¼å‡ºåŠ›ã‚’ãƒˆãƒ©ãƒƒãƒ—ã—ã¾ã™ã€‚æ¨ªå–ã‚Šã—ã¡ã‚ƒã†ã‚“ã§ã™ã€‚ã ã‹ã‚‰StdOutã§å–ã‚Šå‡ºã›ã‚‹"

VBScript
ãƒªãƒ³ã‚¯
2009-03-07
Windowsç®¡ç†ã®ä»•äº‹ãŒå…¥ã£ã¦ããã†ã§ä»Šå¹´ã«å…¥ã£ã¦ã‹ã‚‰VBScriptã®ã“ã¨ã‚’ã„ã‚ã„ã‚ã¨èª¿ã¹ã¦ã¿ãŸã€‚MicrosoftãŒå‡ºã—ã¦ã„ã‚‹ã“ã“(http://www.microsoft.com/japan/msdn/scripting/)ã®ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã§ã»ã¨ã‚“ã©äº‹è¶³ã‚Šã‚‹ã®ã ã‘ã‚Œã©ã€ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã®ç›®ç«‹ãŸãªã„ç®‡æ‰€ã«è¨˜è¼‰ã•ã‚Œã¦ã„ãŸã‚Šã‚ã‚‹ã„ã¯è¨˜è¿°ãŒãªã‹ã£ãŸã‚Šã™ã‚‹ãƒžã‚¤ãƒŠãƒ¼ãªæ©Ÿèƒ½ã‚‚ã‚ã‚‹ã®ã§ã€è£œè¶³ã—ã¦ã¿ã‚‹ã€‚ äºˆç´„èªžã‚’å¤‰æ•°åã‚„é–¢æ•°åã¨ã—ã¦ä½¿ã† []ã§æ‹¬ã‚‹ã¨Classã‚„Propertyã®ã‚ˆã†ãªäºˆç´„èªžã‚’å¤‰æ•°åã‚„é–¢æ•°åã¨ã—ã¦ä½¿ãˆã‚‹ã€‚ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã«ã¯è¨˜è¼‰ãªã—ã€‚ã‚‚ã¨ã‚‚ã¨Visual Basicã®æ©Ÿèƒ½ã‚‰ã—ã„ã€‚ Classã§è‡ªåˆ†è‡ªèº«ã‚’å‚ç…§ã™ã‚‹ Javaã‚„C++ãªã‚‰thisã€Rubyãªã‚‰selfã€Perlã‚„Pythonãªã‚‰ãƒ¡ã‚½ãƒƒãƒ‰ã®ç¬¬1å¼•æ•°ã ãŒã€VBScriptã§ã¯Meã¨ã„ã†ã‚ãƒ¼ãƒ¯ãƒ¼ãƒ‰ã‚’ä½¿ã†ã€‚ã“ã‚Œã‚‚ã‚‚ã¨ã‚‚ã¨Visual Bas
babydaemons 2013/01/24
ã“ã‚“ãªã¨ã“ã‚ã«ã‚‚æ‚²ã—ã„æˆ¦ã„ã‚’ã—ã¦ãŸäººãŒå±…ã‚‹ï¼

VBScript
ãƒªãƒ³ã‚¯
ã‚µãƒ¼ãƒ“ã‚¹çµ‚äº†ã®ãŠçŸ¥ã‚‰ã›
ã‚µãƒ¼ãƒ“ã‚¹çµ‚äº†ã®ãŠçŸ¥ã‚‰ã› ã„ã¤ã‚‚Yahoo! JAPANã®ã‚µãƒ¼ãƒ“ã‚¹ã‚’ã”åˆ©ç”¨ã„ãŸã ãèª ã«ã‚ã‚ŠãŒã¨ã†ã”ã–ã„ã¾ã™ã€‚ ãŠå®¢æ§˜ãŒã‚¢ã‚¯ã‚»ã‚¹ã•ã‚ŒãŸã‚µãƒ¼ãƒ“ã‚¹ã¯æœ¬æ—¥ã¾ã§ã«ã‚µãƒ¼ãƒ“ã‚¹ã‚’çµ‚äº†ã„ãŸã—ã¾ã—ãŸã€‚ ä»Šå¾Œã¨ã‚‚Yahoo! JAPANã®ã‚µãƒ¼ãƒ“ã‚¹ã‚’ã”æ„›é¡§ãã ã•ã„ã¾ã™ã‚ˆã†ã€ã‚ˆã‚ã—ããŠé¡˜ã„ã„ãŸã—ã¾ã™ã€‚
babydaemons 2013/01/17
atan2(x, y)ãŒç„¡ã„VBScripté†œã™ãŽã€‚ï¼ƒã¾ãã€ã“ã‚“ãªè¨€èªžã§æ•°å€¤è¨ˆç®—ã‚„GISã¨ã‹ãµã¤ãƒ¼ã‚„ã‚‰ãªã„ã‹w

VBScript
ãƒªãƒ³ã‚¯
CByte é–¢æ•°ï½œVBScripté–¢æ•°ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹
ASP ã®é–‹ç™ºã‚„ SQLServer ã® DTS ã‚’ä½œæˆã™ã‚‹éš›ã€ã©å¿˜ã‚Œã—ãŸVBScripté–¢æ•°ã‚’ç°¡å˜ã«æŽ¢ã›ã‚‹ã‚ˆã†ã«æ§‹æˆã—ç›´ã—ã¾ã—ãŸã€‚ VBScripté–¢æ•°åã¯åˆ†ã‹ã£ã¦ã„ã¦ã€ä½¿ã„æ–¹ã‚„å¼•æ•°ãŒæ€ã„å‡ºã›ãªã„æ™‚ãªã©ã¯æ™®é€šã®VBScriptãƒ˜ãƒ«ãƒ—ã§èª¿ã¹ã‚‰ã‚Œã¾ã™ãŒã€VBScripté–¢æ•°åãŒå‡ºã¦ã“ãªã„ã€â—‹â—‹ã‚’ã™ã‚‹VBScripté–¢æ•°ã£ã¦ã‚ã£ãŸã£ã‘ï¼Ÿã€ã¨ã„ã†å ´åˆã¯ã¨ã¦ã‚‚ä¾¿åˆ©ã§ã™ã€‚ CByte(expression) æŒ‡å®šã•ã‚ŒãŸè§’åº¦ã®ã‚¿ãƒ³ã‚¸ã‚§ãƒ³ãƒˆã‚’è¿”ã—ã¾ã™ã€‚ å¼•æ•° expression ä»»æ„ã®å¼ã‚’æŒ‡å®šã—ã¾ã™ã€‚ è§£èª¬ ã‚ã‚‹æ“ä½œçµæžœã‚’æ—¢å®šã®ãƒ‡ãƒ¼ã‚¿åž‹ã§ã¯ãªãã€ç‰¹å®šã®ãƒ‡ãƒ¼ã‚¿åž‹ã¨ã—ã¦è¡¨ã™å¿…è¦ãŒã‚ã‚‹å ´åˆã«ã¯ã€é€šå¸¸ã€å†…éƒ¨å‡¦ç†å½¢å¼å¤‰æ›é–¢æ•°ã‚’ä½¿ã£ã¦ã‚³ãƒ¼ãƒ‰ã‚’è¨˜è¿°ã—ã¾ã™ã€‚CByte é–¢æ•°ã‚’ä½¿ã†ã¨ã€é€šå¸¸ã€é€šè²¨åž‹ (Currency)ã€å˜ç²¾åº¦æµ®å‹•å°æ•°ç‚¹æ•°åž‹ (Single)ã€å€ç²¾åº¦æµ®å‹•å°æ•°ç‚¹æ•°åž‹ (Double) ã‚’ä½¿ã†è¨ˆç®—ã®ä¸ã§ã€ãƒ
babydaemons 2013/01/09
ã‚·ãƒ¥ãƒ¼ãƒ«ãªé–“é•ã„è¦‹ã¤ã‘ãŸw ï¼ž "CByte é–¢æ•° CByte(expression) æŒ‡å®šã•ã‚ŒãŸè§’åº¦ã®ã‚¿ãƒ³ã‚¸ã‚§ãƒ³ãƒˆã‚’è¿”ã—ã¾ã™ã€‚ "

VBScript
ãƒªãƒ³ã‚¯
ASP(VBScript) ã€Œã‚³ãƒ³ãƒ‘ã‚¤ãƒ« ã‚¨ãƒ©ãƒ¼ ã‚¨ãƒ©ãƒ¼ â€˜800a0409â€™ã€ã®å›žé¿ç–
ä¹…ã—ã¶ã‚Šã«ãƒãƒžã‚Šã¾ã—ãŸãƒ»ãƒ»ãƒ» HTML ãƒ•ã‚¡ã‚¤ãƒ«ã‚’èªã¿è¾¼ã‚“ã§ç‰¹å®šã® HTML ã®ã‚³ãƒ¡ãƒ³ãƒˆ  ã‚’ç½®ãæ›ãˆã‚‹ã‚¹ã‚¯ãƒªãƒ—ãƒˆã‚’ä½œã£ã¦ãŸã‚“ã§ã™ãŒã€ä»¥ä¸‹ã®ã‚ˆã†ãªã‚¨ãƒ©ãƒ¼ãŒç™ºç”Ÿã—ã¦å‹•ãã¾ã›ã‚“ã€‚ Microsoft VBScript ã‚³ãƒ³ãƒ‘ã‚¤ãƒ« ã‚¨ãƒ©ãƒ¼ ã‚¨ãƒ©ãƒ¼ â€˜800a0409â€™ çµ‚äº†ã—ã¦ã„ãªã„æ–‡å—åˆ—åž‹ã®å®šæ•°ã§ã™ã€‚ ãªã«ã“ã‚Œï¼Ÿ ã‚½ãƒ¼ã‚¹ã¯ä»¥ä¸‹ã®ã‚ˆã†ãªæ„Ÿã˜ãªã‚“ã§ã™ãŒã€ã‚¨ãƒ©ãƒ¼ã«ãªã£ã¦ã—ã¾ã„ã¾ã™ã€‚ str = Replace(str_html, "", "å¤‰æ›å¾Œ") ã€Œçµ‚äº†ã—ã¦ã„ãªã„æ–‡å—åˆ—åž‹ã®å®šæ•°ã§ã™ã€‚ã€ã£ã¦ â€ ã‚’é–‰ã˜å¿˜ã‚Œã¦ã„ãŸã‚Šã™ã‚‹æ™‚ã«å‡ºã‚‹ã‚¨ãƒ©ãƒ¼ãªã®ã§ç‰¹æ®Šæ–‡å—ï¼ˆã‚¨ã‚¹ã‚±ãƒ¼ãƒ—æ–‡å—ï¼‰ãŒå«ã¾ã‚Œã¦ã‚‹ã®ã‹ã¨æ€ã£ãŸã‚“ã§ã™ãŒã€ã©ã†ã‚„ã‚‰é•ã†ã‚ˆã†ã§ã™ã€‚ è¦ã¯ã€<!â€“ ãŒæ‚ªã„ã¿ãŸã„ã€‚ ç¢ºã‹ã« script ã‚¿ã‚°å†…ã§ã‚‚åˆ©ç”¨ã§ãã‚‹ã®ã§ã€æ€ªã—ã„ã¨ã„ãˆã°æ€ªã—ã„ã§ã™ãŒï½¥ï½¥ï½¥ å±•é–‹ã•ã‚Œã‚‹ã®ï¼Ÿï¼Ÿ
babydaemons 2013/01/07
ã‚ãƒ¼ã€ç³žãƒ¬ã‚¬ã‚·ãƒ¼ASPã‚ãƒ¼ã£ï¼

VBScript

ASP
ãƒªãƒ³ã‚¯
VBScript ã§ã€UTF-8ã§ã‚¨ãƒ³ã‚³ãƒ¼ãƒ‰ã™ã‚‹ã«ã¯ã©ã†ã—ãŸã‚‰ã‚ˆã„ã§ã—ã‚‡ã†ã‹ï¼Ÿâ€¦
VBScript ã§ã€UTF-8ã§ã‚¨ãƒ³ã‚³ãƒ¼ãƒ‰ã™ã‚‹ã«ã¯ã©ã†ã—ãŸã‚‰ã‚ˆã„ã§ã—ã‚‡ã†ã‹ï¼Ÿ ã“ã®ã‚µã‚¤ãƒˆã®ã‚ˆã†ãªå¤‰æ›ãŒã—ãŸã„ã§ã™ã€‚ http://home.kendomo.net/board/decode/ ä¾‹ï¼š ã€Œãƒ†ã‚¹ãƒˆã€â†’ã€Œ%E3%83%86%E3%82%B9%E3%83%88ã€
babydaemons 2013/01/07
é‚ªé“ã˜ã‚ƒãªã„ã¨ä½¿ã„ç‰©ã«ç³žè¨€èªžãªã‚“ã§ã™ã‚ˆï¼žVBScript "å°‘ã—é‚ªé“ã§ã™ãŒã€VBScript ã‹ã‚‰ JScript ã® encodeURI é–¢æ•°ã‚’å‘¼ã³å‡ºã™ã¨ã„ã†æ–¹æ³•ãŒã‚ã‚‹ã‚ˆã†ã§ã™ã€‚"

VBScript
ãƒªãƒ³ã‚¯
vbsã®é…åˆ—ã‚’å°‘ã—ã ã‘ä½¿ã„ã‚„ã™ãã™ã‚‹ãŸã‚ã«é…åˆ—Classã‚’ä½œã£ã¦ã¿ãŸã€‚ - harryâ€™s memorandum
rubyã‚„perlã‚’ä½¿ã£ãŸå¾Œã«vbsã‚’ä½¿ã†ã¨é¢å€’ã§ä»•æ–¹ãŒãªã„ã€‚ ã›ã‚ã¦é…åˆ—ãã‚‰ã„ã¯ã€LLã£ã½ãã§ããªã„ã‚‚ã®ã‹ã¨æ€ã„å°‘ã—è©¦ã—ã¦ã¿ãŸã€‚æ°—ã®ã›ã„ã‹ã‚‚ã—ã‚Œãªã„ãŒã‚‚ã—ã‹ã—ãŸã‚‰vbsã‚‚ã‚„ã‚Œã°ã§ãã‚‹åã‹ã‚‚ã—ã‚Œãªã„ã¨æ€ã£ãŸã€‚ ã§ããŸClassã€‚é…åˆ—ã®ã‚ˆã†ã«æ‰±ã†ã‘ã©ä¸èº«ã¯Hash(Dictionary)ã€‚ Option Explicit Class CustomArray Public x, it ems Sub Class_Initialize() Set it ems = CreateObject("Scripting.Dictionary") x = 0 End Sub Sub Class_Terminate() it ems.removeall End Sub Public Function push(ByVal it em) it ems.it em(x) = it em x = x + 1 End Funct
babydaemons 2012/12/18
Rubyã‚„Perlã£ã½ã„ã‚ªãƒ¬ã‚ªãƒ¬é…åˆ—

VBScript
ãƒªãƒ³ã‚¯
Studio ODIN - blogé¢¨å°ãƒã‚¿é›† > VB6/VBS ã§ã€ã‚¯ãƒ©ã‚¹ã®ãƒ‡ãƒ•ã‚©ãƒ«ãƒˆãƒ—ãƒãƒ‘ãƒ†ã‚£ã‚’å®šç¾©ã™ã‚‹
Java ãªã©ã§ã¯ã€toString ãƒ¡ã‚½ãƒƒãƒ‰ãŒã‚ã‚Š ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆã‚’è¡¨ç¾ã™ã‚‹æ–‡å—åˆ—ã‚’è¿”ã™ã“ã¨ãŒã§ãã¾ã™ã€‚ VB6 ã‚„ VBS ã§ã€åŒã˜ã‚ˆã†ã«ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆã‚’ãƒ¡ã‚½ãƒƒãƒ‰ç„¡ã—ã§ æŒ‡å®šã—ãŸæ™‚ã«ã€ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆã®å€¤ã‚’å‡ºåŠ›ã™ã‚‹ã“ã¨ãŒã§ãã‚Œã° ãƒ‡ãƒãƒƒã‚¯ãªã©ã«å½¹ã«ç«‹ã¡ãã†ã§ã™ã€‚ VB6 ã‚„ VBS ã®å ´åˆã€ æ¬¡ã®ä¾‹ã®ã‚ˆã†ã« Default ã‚’æŒ‡å®šã—ã¦ Get ãƒ—ãƒãƒ‘ãƒ†ã‚£ã‚’ä½œæˆã—ã¾ã™ã€‚ ï¼ˆåå‰ã¯ä½•ã§ã‚‚OKã§ã™ï¼‰ Class Test Public Default Property Get ToString() ToString = "Test Class" End Property End Class ä¸‹ã®ã‚ˆã†ã«ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆã‚’ãƒ¡ã‚½ãƒƒãƒ‰ãªã—ã§æŒ‡å®šã™ã‚Œã°ã€ ã€ŒTest Classã€ã¨è¡¨ç¤ºã•ã‚Œã¾ã™ã€‚ Dim t Set t = New Test Msgbox t
babydaemons 2012/12/18
ã„ã¾ã•ã‚‰ãªæ„ŸãŒå‰å›žã ãŒã€ToString()ãŒå®Ÿè£…ã§ãã‚‹ã®ã¯ä¾¿åˆ©w

VBScript

VB6
ãƒªãƒ³ã‚¯
Parsing XML file with VBScript
babydaemons 2012/12/13
"è¦ç´ ãŒ1ã¤ã ã‘ã§ã‚ã‚‹ã“ã¨ãŒã‚ã‹ã£ã¦ã„ã‚‹å ´åˆã¯ã€selectSingleNode ãƒ¡ã‚½ãƒƒãƒ‰ã§ãã®ãƒŽãƒ¼ãƒ‰ã®å‚ç…§ã‚’å–å¾—ã§ãã‚‹"ã§.textãƒ—ãƒãƒ‘ãƒ†ã‚£ã‚’å‚ç…§ ï¼ƒVBScriptãªã‚“ã¦å«Œã„ã ã€‚orz

VBScript

XML

DOM
ãƒªãƒ³ã‚¯
http://japan.internet.com/developer/20051005/28.html
babydaemons 2012/12/11
MSXML

VBScript
ãƒªãƒ³ã‚¯
DOMã‚’åˆ©ç”¨ã—ã¦XMLãƒ‡ãƒ¼ã‚¿ã¸ã‚¢ã‚¯ã‚»ã‚¹
Dim objDOM, rtResult Set objDOM = WScript.CreateObject("MSXML2.DOMDocument") rtResult = objDOM.load("Sample.xml") If rtResult Then procDispDatas objDOM.childNodes Else MsgBox "XMLã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆã®ä½œæˆã«å¤±æ•—ã—ã¾ã—ãŸã€‚" End If Set objDOM = Nothing Sub procDispDatas(objNode) Dim obj For Each obj In objNode If obj.nodeType = 3 and obj.parentNode.nodeName = "title" Then MsgBox obj.parentNode.nodeName & " : " & obj.nodeVal
babydaemons 2012/12/11
VBScript

DOM

XML
ãƒªãƒ³ã‚¯
On Error Resume Nextã®æ£ã—ã„ä½¿ã„æ–¹ - Windows Script Programming
ã‚ˆãã€On Error Resume Nextã‚’å…ˆé ã«ç½®ã„ãŸã‚¹ã‚¯ãƒªãƒ—ãƒˆã‚’è¦‹ã‹ã‘ã¾ã™ãŒã€ ã¾ã‚‹ã§ã€Option Explicitã‚’ã‚¹ã‚¯ãƒªãƒ—ãƒˆã®å…ˆé ã«ç½®ãã‚ˆã†ãªæ„Ÿè¦šã§ã€ ã€Œé©å½“ã«ã‚¨ãƒ©ãƒ¼ã‚’ãƒªã‚«ãƒã‚‹ã‚ªãƒ—ã‚·ãƒ§ãƒ³ã€ã®ã‚ˆã†ãªèª¤è§£ãŒã‚ã‚‹ã®ã§ã¯ãªã„ã§ã—ã‚‡ã†ã‹ã€‚ On Error Resume Nextã®æ„å‘³ã¯ã€è¨€ã‚ã°ã€ ã€Œã‚¨ãƒ©ãƒ¼ãŒã‚ã£ã¦ã‚‚ç„¡è¦–ã—ã¦ã€ã©ã†ãªã£ã¦ã‚‚ã„ã„ã‹ã‚‰æš´èµ°ã—ã‚ã€ã§ã™ã‹ã‚‰ã€ ãã‚“ãªã€è‡ªæš´è‡ªæ£„ã«èµ°ã‚‰ãªãã¦ã‚‚ã€ã¨æ€ã£ã¦ã—ã¾ã„ã¾ã™ã€‚ ã§ã¯ã€ã©ã†æ›¸ãã®ãŒæ¸…ãã€æ£ã—ãã€å®‰å…¨ã‹ã€ã¨ã„ã†ã¨ã€ ä¾‹ãˆã°ã€ãƒªãƒãƒ¼ãƒ ã€ Set fo=fso.GetFile(filename) fo.Name=newName ã¯ã€åŒã˜åå‰ãŒã‚ã‚‹ã¨ã‚¨ãƒ©ãƒ¼ã«ãªã‚Šã¾ã™ã€‚ ãã“ã§ã€ã¾ãšã€ Set fo=fso.GetFile(filename) Sub Rename(fo,newName) On Error Resume Next fo.N
babydaemons 2012/12/07
"å› ã¿ã«ã€JScriptã®try catché¢¨ã‚’VBScriptã§ãŠæœ›ã¿ã®å ´åˆ"

VBScript

ã‚ã¨ã§è©¦ã™
ãƒªãƒ³ã‚¯
ãƒ¬ã‚¬ã‚·ãƒ¼ASPç”¨ã®Log4jã£ã½ã„å¥´ã‚’æ›¸ã„ã¦ã¿ãŸ - babydaemonsâ€™ blog
æ•¢ãˆã¦å‘½åã™ã‚‹ã¨ã€ Log4aspã§ã™ã‹ãã€‚å®‰ç›´ã§ã™ãŒã€‚ ã‚½ãƒ¼ã‚¹ã‚³ãƒ¼ãƒ‰ã‚’æ™’ã—ã¦ãŠã 'ãƒã‚°å‡ºåŠ›ãƒ¬ãƒ™ãƒ«è¨å®š Private Const LEVEL_DEBUG = 0 Private Const LEVEL_INFO = 1 Private Const LEVEL_WARN = 2 Private Const LEVEL_ERROR = 3 Private Const LEVEL_FATAL = 4 'ã‚·ãƒ³ã‚°ãƒ«ãƒˆãƒ³ã®Loggerã‚¤ãƒ³ã‚¹ã‚¿ãƒ³ã‚¹ã‚’è¿”ã™ Dim singleton_logger__ Function Logger_getLogger If IsEmpty(singleton_logger__) Then Set singleton_logger__ = New Logger Set Logger_getLogger = singleton_logger__ End Function
babydaemons 2011/06/08
ASP

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

VBScript

ASP
ãƒªãƒ³ã‚¯
Deep Decryption - VBScript Tips - é…åˆ—å†è€ƒ
Vector ã‚¯ãƒ©ã‚¹ã¨Iterator ã‚¯ãƒ©ã‚¹ã‚’ä½œã£ã¦ã‹ã‚‰ã¯VBScript çµ„ã¿è¾¼ã¿ã®é…åˆ—ã‚’ä½¿ã†ã“ã¨ãŒã‚ã£ãã‚Šå°‘ãªããªã£ã¦ã—ã¾ã„ã¾ã—ãŸã€‚ä¸€æ–¹ã§Vector ã‚¯ãƒ©ã‚¹ã®èª¬æ˜Žè¨˜äº‹ã«ã€æ¤œç´¢ã‚¨ãƒ³ã‚¸ãƒ³ã‹ã‚‰é€šå¸¸ã®é…åˆ—ã®èª¬æ˜Žã‚’æ±‚ã‚ã¦ã“ã‚‰ã‚Œã‚‹æ–¹ã‚‚å¤šã„ã¿ãŸã„ãªã®ã§ã€ã“ã“ã§çµ„ã¿è¾¼ã¿ã®é…åˆ—ã«ã¤ã„ã¦ã¾ã¨ã‚ã¦ãŠã“ã†ã¨æ€ã„ã¾ã™ã€‚ ãŸã ã¾ã¨ã‚ã‚‹ã ã‘ãªã‚‰ã‚ã¾ã‚Šé¢ç™½ãã¯ãªã„ã®ã§ã€å¾ŒåŠã¯ãƒ˜ãƒ«ãƒ—ã«è¼‰ã£ã¦ã„ãªã„å†…å®¹ã‚’æ›¸ãã¾ã™ã€‚ãªãŠã€ãã®å¾ŒåŠã«ã¤ã„ã¦ã¯VBScript ã®ãƒã‚¿ã«ã¯ãªã‚Šã¾ã™ãŒã€å®Ÿç”¨åº¦ã¯ã¾ã‚‹ã§ã‚ã‚Šã¾ã›ã‚“ã€‚ã‚ã‚‰ã‹ã˜ã‚ãŠæ–ã‚Šã—ã¦ãŠãã¾ã™ã€‚ é…åˆ—ã®å®šç¾©ï¼š ã¾ãšã¯é…åˆ—ã®å®£è¨€ã‹ã‚‰ã€‚ Dim testArray(5) ã¨ã™ã‚‹ã¨ã€0ã€œ5 ã®ã€Œ6å€‹ã€ã®å¤‰æ•°ãŒä½¿ç”¨ã§ãã¾ã™ã€‚0ç•ªç›®ã®è¦ç´ ã«ã‚¢ã‚¯ã‚»ã‚¹ã™ã‚‹ãŸã‚ã«ã¯ ä»¥ä¸‹ã®ã‚ˆã†ã«æ›¸ãã¾ã™ã€‚
babydaemons 2011/05/30
VBScript

asp
ãƒªãƒ³ã‚¯
VBSã®ã‚¯ãƒ©ã‚¹ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆ - FSWikiLite
VBScriptã§ã¡ã‚‡ã£ã¨ã ã‘ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆæŒ‡å‘ã«è§¦ã‚Œã‚‹ã¨ã„ã†ä¼ç”»ã‚‚ã®ã§ã™ã€‚VBScriptã®Classã¯æ©Ÿèƒ½ãŒã‚·ãƒ³ãƒ—ãƒ«ã§ã™ãŒã€ã†ã¾ãä½¿ãˆã‚‹ã‚ˆã†ã«ãªã‚‹ã¨ãã‚Œãªã‚Šã«åŠ¹æžœçš„ã§ã™ã€‚ã›ã£ã‹ãã§ã™ã®ã§ã€VBScriptã§ã‚¯ãƒ©ã‚¹ã‚’ä½¿ã£ãŸã‚¹ãƒ¼ãƒ‘ãƒ¼ãƒ†ã‚¯ãƒ‹ãƒƒã‚¯ãªã©ã‚’ç´¹ä»‹ã—ã‚ˆã†ã¨æ€ã„ã¾ã™ã€‚ VBSã®ã‚¯ãƒ©ã‚¹ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆåˆ©ç”¨ãƒ¡ãƒ¢ã®ç›®æ¬¡ VBSã®ã‚¯ãƒ©ã‚¹ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆåˆ©ç”¨ãƒ¡ãƒ¢ã®ç›®æ¬¡ ã‚¯ãƒ©ã‚¹å®£è¨€ ãƒ¡ã‚½ãƒƒãƒ‰ ãƒ—ãƒãƒ‘ãƒ†ã‚£ ã‚³ãƒ³ã‚¹ãƒˆãƒ©ã‚¯ã‚¿ã€ãƒ‡ã‚¹ãƒˆãƒ©ã‚¯ã‚¿ ã‚¯ãƒ©ã‚¹å¤‰æ•°ã€ã‚¯ãƒ©ã‚¹ãƒ¡ã‚½ãƒƒãƒ‰ ä½œæˆã—ãŸã‚¯ãƒ©ã‚¹ã‚’ãƒ‘ãƒƒã‚±ãƒ¼ã‚¸åŒ–ã™ã‚‹ ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆã®é…åˆ— ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆé…åˆ—ã‚’ä½¿ã£ãŸãƒ†ã‚¯ãƒ‹ãƒƒã‚¯ ç¶™æ‰¿ ã‚¯ãƒ©ã‚¹å®£è¨€ Classã¨ã¯ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆã®è¨è¨ˆå›³ã§ã™ã€‚ã©ã‚“ãªãƒ‡ãƒ¼ã‚¿ã¨æ©Ÿèƒ½ã‚’ã¾ã¨ã‚ãŸã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆã«ã™ã‚‹ã‹ï¼Ÿã‚’Classã‚’ä½¿ã£ã¦å®šç¾©ã—ã¾ã™ã€‚ ä¾‹ãˆã°ã€Œæœ¬ã€ã‚’ç®¡ç†ã™ã‚‹ãƒ—ãƒã‚°ãƒ©ãƒ ã‚’æ›¸ãã¨ã—ã¦ã€ã€Œã‚¿ã‚¤ãƒˆãƒ«ã€ã¨ã€Œä¾¡æ ¼ã€ã®ãƒ‡ãƒ¼ã‚¿ã‚’æ‰±ã„ãŸã„ãªã‚‰ã€ä»¥ä¸‹ã®ã‚ˆã†ã«ã‚¯ãƒ©ã‚¹å®šç¾©ã—ã¾ã™ã€‚
babydaemons 2011/05/30
ã“ã‚Œæ“¬ä¼¼çš„ã«ã‚¯ãƒ©ã‚¹ã®ç¶™æ‰¿ã‚’å®Ÿç¾ã—ã¦ã‚‹ã£ã¦æ›¸ã„ã¦ã‚ã‚‹ã‘ã©ã€IS-Aã˜ã‚ƒãªãã¦HAS-Aã®ãƒ‡ãƒªã‚²ãƒ¼ãƒˆãƒ‘ã‚¿ãƒ¼ãƒ³ã ã‚ˆãã€‚ â€»é ‘å¼µã‚Œã°å‡ºæ¥ãªã„ã“ã¨ã‚‚ç„¡ã„ã‘ã©ã€ãƒ“ãƒŸãƒ§ãƒ¼ãªè¨€èªžä»•æ§˜ã ã€‚orz

VBScript

ASP

OOP
ãƒªãƒ³ã‚¯
Loading...
babydaemons 2011/05/30
ã‚ãƒ¼ã€ã‚‚ãƒ¼ã€ãµãã¼ã£ãŸãƒ¼ã«ã—ã‹æƒ…å ±ãŒç„¡ã„ã¨ã‹è¨€èªžæ–‡åŒ–çš„ã«ã‚ã‚Šå¾—ãªã„orz ã•ã™ãŒã€VBScriptï¼ï¼

VBScript

ASP
ãƒªãƒ³ã‚¯
1 2 3 æ¬¡ã®ãƒšãƒ¼ã‚¸