我在桌面上删帖子
'del.vbs
option explicit
dim message,result
dim title,text1,text2
message="请输入要删除帖子的ID"
title="帖子删除"
text1="你取消了操作！"
result =inputbox(message,title,"请输入要删除帖子的ID")
if result ="" then
Wscript.echo text1
elseif isnumeric(result)=false then
Wscript.echo "请输入正确的ID!"
ElseIf trim(cint(result))
Else
dim result1
result1=msgbox("你确定要删除帖子"&result&vbcrlf&"这一操作将删除帖子本身及帖子的所有子贴",48+1+256,"按 确定 删除，按 取消 放弃！")
if result1=vbok then
dim conn
Set conn = Wscript.Creat...[ 查看全文 ]
2016-01-29
标签:
