国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > VBScript > 正文

vbs/js腳本編程教學(1)

2020-06-26 18:03:39
字體:
來源:轉載
供稿:網友
腳本編程教學(1) 

  
論壇上好多朋友都問關于腳本的問題,正好最近對腳本比較有興趣,就寫點東西吧。首先說明一下,我的所有代碼都是 
vbscript,jscript我沒有研究過,不過我想也差不多。 

關于最基礎的語法比如變量的申明,分支,循環,函數的調用,等等這些我就不講了,不懂得自己看一下。 

1、我們的第一個vbs程序:還是那個老得掉牙的冬冬。 

************************hello.vbs************************** 

dim hello 

hello=”hello world!” 

wscript.echo hello 

wscript echo “ this is my first vbs” 

可以看出wscript.echo有兩種用法,這個不難。 

可以直接雙擊運行,可以在當前目錄的命令行輸入: 

cscript hello.vbs 

  

2、在腳本中調用其他的程序: 

使用run()方法,在使用前必須先建立shell的實例 

********************shell.vbs****************************************** 

set ws=wscript.createobject("wscript.shell") 

ret=ws.run ("notepad" ,3,true) 

if ret=0 then 

wscript.echo “succeed!” 

else  

wscript.echo “there is a error,the error number is:” 

wscript.echo  cstr(ret) 

end if  

*************************************************************************** 

這里run 有三個參數,第一個參數是你要執行的程序的路徑 

第二個程序是窗口的形式,0是在后臺運行; 

1表示正常運行 

2表示激活程序并且顯示為最小化 

3表示激活程序并且顯示為最大化 

   一共有10個這樣的參數我只列出了4個最常用的。 

  第三個參數是表示這個腳本是等待還是繼續執行,如果設為了true,腳本就會等待調用的程序退出后再向后執行。 

  注意到沒有,我在run的前面還有一個接受返回值的變量,一般來說如果返回為0,表示成功執行,如果不為0,則這個 
返回值就是錯誤代碼,可以通過這個代碼找出相應的錯誤。 

  

3、inputbox 和msgbox 

會vb的人對著兩個東西應該很熟悉,用法也沒什么差別 

input=inputbox(“please enter you password”,”passwd”) 

if input<>”1234” 

then 

msgbox  “you enter a wrong passwd” 

end if  

當然你也可以給msgbox添加按鈕,用一個變量接受用戶的選擇 

例如:ret=msgbox “continue?”,vbyesnocancel  

返回值和常量對照如下: 

vbok       1 

vbcancel    2 

vbabort     3 

vbretry      4 

vbignore    5 

vbyes       6 

vbno        7 

  

4、錯誤處理 

何vb一樣用on error resume next 

這個沒什么好說的,如果遇到了錯誤就跳過繼續執行下一句 

當然這個方法很弱智,還需要有一個方法,vbscript提供了一個對象err對象 

他有兩個方法clear,raise 

5個屬性:description,helpcontext ,helpfile,number,source 

我們可以利用err.number獲得錯誤號例如 

***********************err.vbs***************************** 

on error resume next 

a=11 

b=0 

c=a/b 

if err.number<>0 then 

wscript.echo err.number & err.description  & err.source 

end if  

我們可以用err.raisel來手工拋出錯誤 

比如我們要產生一個path not found的錯誤 告訴用戶,他填寫的路徑不對 

on error resume next 

err.raise 76 

msgbox  "error :" & err.description 

err.clear 

  

  

以上都是基礎,今天就寫到這里吧,好累哦,呵呵呵 如有轉載注明出處。明天給大家講文件系統吧。 
發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 莱阳市| 安康市| 晴隆县| 赤峰市| 白银市| 辛集市| 茌平县| 黄浦区| 千阳县| 永靖县| 阜康市| 虞城县| 寻乌县| 平舆县| 宜宾市| 陆丰市| 盱眙县| 大名县| 青神县| 安庆市| 大同县| 永平县| 茂名市| 瓦房店市| 达州市| 鄯善县| 中西区| 四子王旗| 绥化市| 鸡西市| 临颍县| 娄烦县| 大埔区| 汉阴县| 寿光市| 铜川市| 永康市| 南宁市| 磴口县| 平昌县| 洛隆县|