自己动手 满足幻想

dim wsh
set wsh=wscript.createobject("wscript.shell")
Do
a=inputbox ("我的机器人女友","绫瀬はるか","我爱你")
           
select case a  
CASE a=VBcancel
EXIT DO
                 
'请按下面的格式编辑代码
case "我爱你"  
msgbox "爱してる",64,"遥ちゃん"  
'上面是你可以编辑的代码
case else
b=msgbox ("なに？",VByesno,"遥ちゃん")
if b=VByes then
wsh.run "notepad ai.vbs",1,true
exit do  
else
exit do
end if
end select
loop