y.cmdz ob`t@ ..
417:ftHgΜΌ³΅³ρ
19/10/04 12:18:00.19 mgLzdBVB.net
θͺΖ€²΄’ά·
Function Prompt(Text,Default)
WScript.Echo(Text)
Set WshShell = CreateObject("WScript.Shell")
'Set oExec = WshShell.exec("cmd /c title " & Replace(Replace(Text,vbCr,""),vbLf,"") & " && type con")
Set oExec = WshShell.exec("cmd /c cmd /c findstr /R . < con")
Prompt = oExec.stdout.ReadLine()
oExec.terminate
End Function
msgbox LEN(Prompt("test dayo",""))
ΕβιΖ8190ΕιΜΕmsgboxΜ\¦§ΐΑΫ’Ε·
γΐͺ512©η8190άΕ¦ά΅½τ
y[W±«π\¦1π\¦ΕVX\¦XbhΜυήXκbθΜj
[X¨ά©ΉXg₯IvVπ\¦ΙΒΤ΅2ch
302ϊOΙXV/294 KB
S:undef