国产探花免费观看_亚洲丰满少妇自慰呻吟_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 

  

  

以上都是基礎,今天就寫到這里吧,好累哦,呵呵呵 如有轉載注明出處。明天給大家講文件系統吧。 
發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 余江县| 建宁县| 阿拉善左旗| 沧州市| 交城县| 海林市| 怀宁县| 商城县| 保山市| 德安县| 宣汉县| 绥德县| 体育| 汾阳市| 天水市| 磐安县| 泸水县| 灵山县| 新丰县| 通渭县| 平乐县| 浑源县| 丹阳市| 易门县| 镇康县| 吉木乃县| 乌鲁木齐市| 鲁山县| 永修县| 涿州市| 洪洞县| 中宁县| 揭西县| 固始县| 宜良县| 巩留县| 大石桥市| 安溪县| 阿拉善左旗| 澎湖县| 山东|