帮忙编写一段小程序

VBS的弹出框什么也不要也不要标题图表文字：想明白生命的真正意义吗?想真正的…..活着吗？选项：YesNo个位帮下忙我弄不出那个YES和NO出来的都是“是”和“否、”... VBS的
弹出框什么也不要也不要标题图表
文字：想明白生命的真正意义吗?想真正的…..活着吗？
选项：Yes No

个位帮下忙我弄不出那个YES 和NO 出来的都是 “是”和“否、” 展开

 我来答

2个回答

#热议# 海关有哪些禁运商品？查到后怎么办？

TroDropper
2009-08-17

知道答主

回答量：19

采纳率：0%

帮助的人：0

我也去答题访问个人页

关注

展开全部

MsgBox做不出来用HTA吧！复制下列代码，保存为"CX.hta"即可（在代码中注明的地方写上VBS代码）：
<html>
<head>

<Script Language="VBScript">
Sub Window_Onload
Self.ResizeTo 400,150
Self.MoveTo 300,200
End Sub

Sub Yes()
'在此写入按下Yes按钮时要执行的操作
End Sub

Sub No()
'在此写入按下No 按钮时要执行的操作
End Sub

'原VBS代码写在这里

</Script>

<HTA:Application
ID="oHTA"
ApplicationName="TroDropper"
Scroll="No"
Caption="Yes"
SingleInstance="Yes"
MaximizeButton="No"
MinimizeButton="Yes"
ShowInTaskBar="Yes"
WindowState="Normal"
Icon="这里是图标地址"
>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />

<title>这里添加标题</title>

<style type="text/css">

</style></head>

<body>
<table width="82" border="0" align="center">
<tr>
<td colspan="2" align="center" valign="middle" nowrap="nowrap"><span class="STYLE1">想明白生命的真正意义吗?想真正的...活着吗？</span></td>
</tr>
<tr>
<td height="20" colspan="2" align="center" valign="middle" nowrap="nowrap"> </td>
</tr>
<tr>
<td width="141" align="center" valign="middle" nowrap="nowrap"><input name="Submit" type="submit" onClick="Yes()" value="Yes" /></td>
<td width="139" align="center" valign="middle" nowrap="nowrap"><input name="Submit2" type="submit" onClick="No()" value="No " /></td>
</tr>
</table>
</body>
</html>

美化的部分我就不做了，自己用网页制作工具美化一下吧！
我的百度空间：http://hi.baidu.com/trodropper
欢迎一起讨论学习VBS——令人兴奋的东西！

本回答由提问者推荐

已赞过 已踩过<

评论收起

MyPrettyLife
2009-08-15 · TA获得超过588个赞

知道小有建树答主

回答量：550

采纳率：0%

帮助的人：772万

我也去答题访问个人页

关注

展开全部

用MsgBox整不出来。

如果悬赏100分（包含）以上的话，哥们愿意帮你模拟出来。

已赞过 已踩过<

评论收起

推荐律师服务：若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询

帮忙编写一段小程序

为你推荐：