求高手制作一个vbs窗口
展开全部
Set a=CreateObject("WScript.shell")
set ie=wscript.createobject("internetexplorer.application","event_")
ie.menubar=0
ie.addressbar=0
ie.toolbar=0
ie.statusbar=0
ie.width=400
ie.height=130
ie.resizable=0
ie.navigate "about:blank"
ie.visible=1
with ie.document
.write "<html><TITLE>想明白生命的意义吗？想真正的活着吗？</TITLE><body bgcolor=#cccccc scroll=no>"
.write "<p style='text-align:center'><span style='font-size:12.0pt;color:#0000ff;font-family:楷体_GB2312'>想明白生命的意义吗？想真正的活着吗？</span></p>"
'.write "<p><hr size=4 width=100%></p>"
.write "<p style='text-align:center'><input id=y type=button value=yes>"
.write " <input id=o type=button value=or>"
.write "<input id=n type=button value=no></p>"
.write "</body></html>"
end with
set wnd=ie.document.parentwindow
set id=ie.Document.all
id.y.onclick=getRef("y")
id.o.onclick=getRef("o")
id.n.onclick=GetRef("n")
do while true
wscript.sleep 200
loop
sub event_onquit 'ie退出事件处理过程'
wscript.quit
end sub
sub y
shuju("yes")
End sub
Sub o
shuju("or")
End sub
Sub n
shuju("no")
End sub
Sub shuju(canshu)
MsgBox "你按了："&canshu
End sub‘试试
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
AiPPT
2024-09-19 广告
随着AI技术的飞速发展，如今市面上涌现了许多实用易操作的AI生成工具1、简介：AiPPT: 这款AI工具智能理解用户输入的主题，提供“AI智能生成”和“导入本地大纲”的选项，生成的PPT内容丰富多样，可自由编辑和添加元素，图表类型包括柱状图...
点击进入详情页
本回答由AiPPT提供
展开全部
楼上用html做界面啊，有时候会打不开，楼主最好用VB.
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
msgbox "aaa",4,"bbb"
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
