VB脚本怎么写啊
1、Private Sub Command1_Click()
Const msg1 As String="请在这里输入你想显示的一段话!"
Const msg2 As String="这里是对话框要显示的标题."
MsgBox msg1,vbOkOnly,msg2'此处代码一定不能添加()
End Sub2、 form1按钮点击事件:
form2.show
form1.hide 3、
启动VB程序，在窗体上放置6个命令按钮，三个标签，一个公用对话框、一个进度条、一个状态栏和一个计时器，窗本的布置请参考附图按钮"Open MP3 File"是用来打开对话框选择MP3文件，其他5个按钮分别为Play(播放)、Pause(暂停)、Stopplay(停止播放)、Back(向后跳跃)、Prew(向前跳跃)。Label1用来表示歌曲当前时间；label2放在时度条的最左边，Caption属性为"00：00"；lable3放在时度条的右边，用来表示歌曲总长。下面就可以编写代码了。首先在窗体的"通用声明"部分声明函数
Private Declare Function mciSendString Lib"winmm.dll" Alias"mciSendStringA"(ByVal lpstrCommand As String, ByVal lpstrRetumString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Dim mfn As String
下面就是各个对象的代码了:
Private Sub Form_load()
mfn=""
play.Enabled= False
pause.Enabled= False
stopplay.Enabled= False
back.Enabled= False
prew.Enabled= False
Timer1.Enabled= False
Timer1.Interval= 500
End Sub
Private Sub open_Click()
On Error GoTo err
With CommonDialog1
.CancelError= True
.Filter="音乐文件|*.mp3;*.wav;*.mid"
.Flags= cdlOFNNoChangeDir And cdlOFNPathMustExist
.Action= 1
stopplay_Click'停止按钮同时可以设备初始化
mfn=.FileName'这个程序中文件名一定不能带空格
Form1.Caption=.FileName
play.Enabled= True
End With
play_Click
Exit Sub
err:
End Sub
Private Sub play_Click()
On Error Resume Next
Dim t As Long
t= mciSendString("open"+ mfn, 0&, 0, 0)'Open后边的空格一定不能丢
Dim ret As String* 128
t= mciSendString("status"+ mfn+" length", ret, 128, 0)
'显示歌曲总长
ret= Left(ret, 8)
If ret<>"" Then
ProgressBar1.min= 0
ProgressBar1.Max= Val(ret)
Label3.Caption= Gettime(Val(ret))
End If
play.Enabled= False
pause.Enabled= True
stopplay.Enabled= True
back.Enabled= True
prew.Enabled= True
t= mciSendString("status"+ mfn+" mode", ret, 128, 0)
'得到设备的当前状态，是播放还是暂停等等
ret= Left(ret, 8)
StatusBar1.Panels(1).Text= ret
'在状态栏显示播放状态
t= mciSendString("play"+ mfn+" form"+ Str(ProgressBar1.Value), 0&, 0, 0)
'开始播放
Timer1.Enabled= True
End Sub
Private Sub pause_Click()
t%= mciSendString("pause"+ mfn, 0&, 0, 0)
'发出暂停的命令
play.Enable= True
pause.Enabled= False
stopplay.Enabled= True
back.Enabled= False
prew.Enabled= False
End Sub
Private Sub stopplay_Click()
t%= mciSendString("stop"+ mfn, 0&, 0, 0)
t%= mciSendString("close"+ mfn, 0&, 0, 0)
'停止播放
play.Enabled= True
pause.Enabled= False
stopplay.Enabled= False
back.Enabled= False
prew.Enabled= False
End Sub
Private Sub back_Click()
t%= mciSendString("play"+ mfn+" from"+ Str(ProgressBar1.Value-(ProgressBar1.Max\ 10)), 0&, 0, 0)'向后跳一小段再播放
End Sub
Private Sub prew_Click()
t%= mciSendString("play"+ mfn+" from"+ Stri(ProgressBar1.Value+(ProgressBar1.Max\ 10)), 0&, 0, 0)'向前跳一小段再播放
End Sub
Private Sub Timer1_Timer()
Dim t As Long
Dim ret As String* 128
t= mciSendString("status"+ mfn+" position", ret, 0, 0)
'得到当前播放位置
ret= Left(ret, 8)
ProgressBar1.Value= Val(ret)
Label1.Caption= Gettime(Val(ret))
'显示歌曲当前时间
If ProgressBar1.Value= ProgressBar1.Max Then
stopplay_Click
End If
t= mciSendString("status"+ mfn+" mode", ret, 128, 0)
ret= Left(ret, 8)
StatusBar1.Panels(1).Text= ret
End Sub
Private Sub Form_Unload(Cacel As Integer)
t%= mciSendString("stop"+ mfn, 0&, 0, 0)
t%= mciSendString("close"+ mfn, 0&, 0, 0)
End Sub
Private Function Gettime(position As Long) As String
'这个函数的功能是把以长整型表示的时间转换为电子钟式的"**:**"
Dim min, sec
min= position/ 1000
min= min/ 60
sec= min- Int(min)
min= Int(min)
sec= 60* sec/ 100
sec= Int(sec* 100)
Gettime= Str(min)+":"+ Str(sec)
End Function
VBS脚本怎么用
要使用VBS（Visual Basic Scripting Edition）脚本，首先可以通过简单步骤实现。在Windows的开始菜单中，找到并点击"运行"选项，输入"notepad"后按回车键，打开记事本程序。接下来，你需要在记事本中键入以下代码：
Msgbox"This is a file for VBScript."
完成代码输入后，将文件内容保存为扩展名为".vbs"的文件，例如命名为"1.vbs"。最后，直接双击你刚刚创建的".vbs"文件，即可运行VBS脚本。VBS的语法和VB（Visual Basic）语言相似，所以如果你对VB有所了解，上手VBS会相对容易些。
总的来说，VBS脚本的使用就是通过记事本编写代码，保存后双击执行，其核心在于理解基础的语法结构和指令。通过这样的基本操作，你可以开始探索和编写自己的VBS程序了。
asp里面的vb脚本,为什么要叫VB脚本
在ASP中使用脚本语言
在服务器端使用脚本语言是 ASP的特色，那么什么是脚本语言呢？它和 HTML和编程语言又有什么不同呢？
脚本语言介于 HTML和 Java, C++以及 Visual Basic等编程语言之间。 HTML通常用于格式化和链结文本。而编程语言通常用于向机器发出一系列复杂的指令。脚本语言介于两者之间但它的函数与编程语言更为相象一些。它与编程语言之间最大的区别是后者的语法和规则更为严格和复杂一些。
在服务器端使用脚本语言，需要在服务器端安装脚本引擎。脚本引擎是用于处理脚本的 COM（组件对象模型）对象。 ASP为脚本引擎提供主机环境并把.asp文件中的脚本交给脚本引擎处理。对于.asp文件中使用的每种脚本语言，都要将他们相应的脚本引擎安装在 Web服务器上。 ASP中缺省语言是 VBScript，所以你不用担心要去安装 VBScript的脚本引擎，当你安装完 Active Server Pages时，他就已存在了。使用 JScript也不必有同样的担心。但是要使用一些不太常用的脚本语言的话，可能需要安装相应的脚本引擎。
ASP使 Web开发者可以用各种脚本语言编写程序而不用担心浏览器是否支持。实际上，在一个.asp文件中就可以使用多种脚本语言，只要你在每段脚本程序开始处用 HTML标签标明所用的脚本语言。
VBScript是缺省的主脚本语言。主脚本语言用在定界符<%和%>之内，你可以在定界符之内使用任何有效的 VBScript命令， ASP会按 VBScript处理这些命令。其实，你可以将任一种脚本语言设为主脚本语言。你可以不厌其烦的一页一页的设置，也可以将某一种脚本语言设为你的 Web服务器上所有页的主脚本语言。如果你想在某一页中将一种脚本语言设为主角本语言，只要在.asp文件开始处加上如下的命令就可以了。
<%@ LANGUAGE= ScriptingLanguage%>其中， ScriptingLanguage代表你想设置的主脚本语言。如若你想将某一种脚本语言设为你的 Web服务器上所有页的主脚本语言，你就需要动用功能强大的 Register Editor（注册编辑器, regedit.exe）, ASP注册参数的注册路径如下：
HKEY_LOCAL_MACHINE\SYSTEM
\CurrentControlSet
\Services
\W3SVC
\ASP
\Parameters
其中，注册表项 DefaultScriptLanguage的缺省值是"VBScript"，将其改为欲设置的脚本语言即可。例如，若想将 JScript设为主角本语言，则将注册表项 DefaultScriptLanguage的值改为"JScript"就行了。在同一个.asp文件中混合使用不同的脚本语言是 ASP迷人的特色之一。这样，你就可以发挥各种不同的脚本语言在不同方面的优势。你可以用不同的脚本语言编写不同的脚本程序来完成不同的工作。
脚本程序实际上就是一组执行特定任务的脚本命令。如果你经常要执行某一组特定任务，你就可以将之定义成程序，然后重复调用。程序要按特定的脚本语言的规则写在标签< SCRIPT>和</SCRIPT>之间。当然，如果你用主脚本语言写程序的话，写在定界符<%和%>之间也可以。如果你的程序只在某一页内调用的话，把它放在这一页内就行了，如果你在多页中都要调用某些程序的话，你可以把这些程序放在一个单独的.asp文件中，然后在每个要调用这些程序的.asp页中将那个.asp文件包含进来。
要在.asp页中包含其他文件，使用以下的语法：
<!--#INCLUDE VIRTUAL|FILE="filename"-->
其中， filename是你要包含的文件。关键字 VIRTUAL和 FILE任选其一， VIRTUAL表示要包含的文件在一个虚拟目录内（该目录为 Web共享目录）， FILE表示要包含的文件在一个当前文件相关目录内。例示如下：假设你有两个 Web共享目录 Dir1和 Dir2,目录 Dir1内有文件 file11.asp和 file12.asp,目录 Dir2下有文件 file2,若要在文件 file11.asp中包含 file2.asp，则将如下命令加入到文件 file11.asp中：
<!--INCLUDE VIRTUAL="Dir2/file2.asp"-->
若要在 file11.asp中包含 file12.asp，则将如下命令加入到文件 file11.asp中：
<!--INCLUDE FILE="file12.asp"-->
或者使用如下命令亦可：
<!--INCLUDE VIRTUAL="Dir1/file12.asp"-->
程序写好了，怎么调用它哪？如果你用的脚本语言是 VBScript，只要一个简单的关键字 Call再加上程序名就可以了。如果你要调用的程序有参数，要把参数用括号括起来。如果你省略关键字 Call，括号也要省略。下面例示了在同一 ASP页中用两种不同的脚本语言（ VBScript和 JScript）创建和调用程序。
< HTML>
< HEAD>
< TITLE>Use different script in same page</TITLE>
</HEAD>
< BODY bgcolor="#FFFFFF">
< TABLE>
<% Call Echo%>
</TABLE>
<% Call PrintDate%>
</BODY>
</HTML>
< SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Echo
Response.Write _
"< TR>< TD>Name</TD>< TD>Value</TD></TR>"
Set Params= Request.QueryString
For Each p in Params
Response.Write"< TR>< TD>"& p&"</TD>< TD>"& _
Params(p)&"</TD></TR>"
Next
End Sub
</SCRIPT>
< SCRIPT LANGUAGE=JScript RUNAT=Server>
function PrintDate()
{
var x
x= new Date()
Response.Write(x.toString())
}
</SCRIPT>
在服务器端使用 VBScript时，有两个 VBScript的特性不能使用。因为脚本在服务器端执行， VBScript中提供用户界面的 InputBox和 MsgBox就不支持了。另外， VBScript的函数 CreateObject和 GetObject也不支持。
因为所有的 ASP脚本都在服务器端执行，就不需要象使用客户端脚本时那样为不支持脚本的浏览器用 HTML注释标记将脚本隐藏起来。所有的脚本命令都会在将内容送往浏览器之前处理。但你可以在脚本命令之间或程序中使用注释。象 Basic一样，在 VBScript中有两种形式的注释可用： REM或单引号。如下例所示：
<%
REM This line and the following line are comments
' Print greeting in green
greeting="How are you!"
< font color="GREEN"><%= greeting%>
%>
在 JScript中注释用“//”，如下例所示：
<% Call PrintDate%>
< SCRIPT LANGUAGE=JScript RUNAT=Server>
function PrintDate()
{
var x
x= new Date()
Response.Write(x.getDate())
}
// This is a definition for the procedure PrintDate.
// This procedure will send the current date
// to the client-side browser.
</SCRIPT>