第2页_msgbox - 程序员之家

算阶乘的vbs小程序

2020-02-16 标签:阶乘,vbs,程序,dim,n,ans,i,inputbox,170,ext,msgbox

dim n,ans,i n=inputbox("n(0<=n<=170)=") ans=1 for i=1 to n ans=ans*i next msgbox(ans)

vbs引用另一个vbs的代码

2020-02-16 标签:vbs,引用,另一个,代码,第一个,页面,html,head,script,language,vbscript,sub,hello,document,myscriptlet,end,body,onload,object,id

第一个页面： Sub Hello() Document.All.myScriptlet.Hello End Sub 2.htm里的源码： Sub public_Hello() MsgBox "Hello World!" End Sub

首页

VBS备忘录启动代码

2020-02-16 标签:vbs,备忘录,启动,代码,实现,如下,msg,array,解除,电话,57,服务器,处理,流量,有没有,大流,今天,完成

实现代码如下：msg = Array("解除电话 #57#", "服务器处理", "流量图看有没有大流量", "今天要完成哪些任务")'msgbox join(msg,vbcrlf)For i = 0 To UBound(msg)MsgBox msg(i)Next

首页

vbs判读盘符被双击的脚本

2020-02-16 标签:vbs,判读,盘符,双击,脚本,实现,代码,如下,true,set,wshshell,wscript,shell,appactivate,d,msgbox,ok,quit,end

实现代码如下：do while trueset WshShell = WScript.CreateObject("WScript.Shell")IF WshShell.AppActivate("D:\") ThenMsgBox "ok"wscript.quitEnd Ifloop 试都不要试，就知道

VBScript基础编程教程 (第6篇)

2020-02-16 标签:vbs,基础,编程,教程,一篇,新家,不错,mm,开心,跟着,高兴,今天,学习,部分,自定义,函数,过程

最后一篇：新家不错, MM开心, 我也就跟着高兴了 : ), 今天我们学习基础篇的最后一个部分:自定义函数和过程. 我们每天都在和函数打交道, inputbox()是函数, msgbox()是函数, int()也是函数...这些函数都是系统内建的, 我们只能用不能改. 今天, 我就教大家怎样自己制作

ASP

asp编程中常用的javascript辅助代码

2020-02-16 标签:asp,编程,中常,用的,javascript,辅助,代码,常用,点击,返回,上页,form,p,input,type,button,value,一步,onclick,history

一些常用的辅助代码点击返回上页代码: 弹出警告框代码: 点击打开新窗口删除记录时弹出确认框： a=msgbox("真的要删除该记录吗？",1,"注意") if a=1 then location="Dodelete.asp?id=" //指向执行删除的页面Dodelete.a

JavaScript

利用mshta调用运行javascript或vbs的

2020-02-16 标签:利用,mshta,调用,运行,js,vbs,命令行,实现,代码,如下,javascript,window,execscript,msgbox,hello,youniao,close,vbscript,alert

命令行下：实现代码如下：mshta javascript:window.execScript("msgBox('hello youniao'):window.close","vbs");mshta vbscript:window.execScript("alert('hello youniao')

JavaScript

与 msgbox 相关的软件列表