vbs代码教程,有没有VBS的速学教程

1,有没有VBS的速学教程推荐一个好的vbs教程 自己边学边练 挺好的教程http://wenku.baidu.com/view/ab26e237f111f18583d05aa5.htmlhttp://wenku.baidu.com/view/3a1068d233d4b14e8524689c.html【vbs代码教程,有没有VBS的速学教程】
2,怎么执行vbs代码1、把vbs代码直接保存成vbs为扩展名的文件,双击就可以执行,效果如下:2、如出现未能执行的情况,可能为文件关联问题,可以在命令行事执行,以D:\test.vbs为例如下:cscript d:\test.vbs效果如下:将代码保存为脚本文件 , 如保存到C\1.vbs然后在vb中引用api函数:Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long这样调用这个函数就好了Private Sub Command1_Click()Dim VBS As StringVBS = "C:\1.vbs" 文件路径ShellExecute ByVal 0, "open", VBS, ByVal 0, ByVal 0, ByVal 0End Sub
3,VB编程 代码使用VBS中有SLEEP涵数用来延时,其实VB中也可以用这个函数来延时 。只不过这里需要调用WINDOWS API函数,VB调用API函数需要声明(就像VBS中“Set ws=WScript.CreateObject("WScript.Shell")”这句话一样)的 。至于声明格式,你可以打开API浏览器查看,也可以百度文库SLEEP函数 。另外在VB中 , 你还可以通过TIMER控件来延时 。sleep 1000Dim 延时线程 As Threading.Thread = System.Threading.Thread.CurrentThread()延时线程,join(1000)在设计界面双击Command1按钮,会出现Private Sub Command1_Click() End Sub这个函数,它的意思是当点击按钮时要执行的东西,然后在函数里面添加代码:如:Private Sub Command1_Click()Text2.Text = Val(Text1.Text)1End Sub这个就是把text1得到的字符串用Val函数转为数值,然后加1赋给text2.如:Private Sub Command1_Click()Text2.Text = Text1.Text"hahah"End Sub这个就是把text1内容加上"hahah"这一串的值赋给text2
4 , 如何用VBS运行程序有代码最好了Shell App.Path & "objDialog.FileName"这最后一行是典型的VB代码 , 要编译后才能运行 。它不是VBS简单脚本代码所能解释执行的,所以会出错 。去掉这一行 就可以在VBS脚本中运行了 。注意,有些电脑上没有安装这个用户对话框模块(OCX组件)也将不能运行 。你那个是VB的吧 VBS应该这么写!Set ws=WScript.CreateObject("wscript.shell")Set objDialog=CreateObject("UserAccounts.CommonDialog")objDialog.Filter="*.*"objDialog.InitialDir="C:\"tfile=objDialog.ShowOpenMsgBox objDialog.FileNamews.run """"& objDialog.FileName &""""win7不能用 可能是WIN7 system32文件夹缺少组件吧修改如下Set objDialog=CreateObject("UserAccounts.CommonDialog")set runit=createobject("wscript.shell")objDialog.Filter="*.*"objDialog.InitialDir="C:\"tfile=objDialog.ShowOpenMsgBox objDialog.FileNamerunit.run objDialog.FileName

    推荐阅读