vbs asctype(byval st vbs asc

发布日期：2020-10-16

vbs中是否有byval 和 byref关键字？

如果没安装excel或excel为绿色版，运行脚本会说无法创建对象。

好像不是上面的。

给你个vbs错误对照表 Microsoft VBScript语法错误（0x800A03E9）-->内存不足 Microsoft VBScript语法错误（0x800A03EA）-->语法错误 Microsoft VBScript语法错误（0x800A03EB）-->缺少 "：" Microsoft VBScript语法错误（0x800A03ED）-->缺少 "（" Microsoft VBScript语法错误（0x800A03EE）-->缺少 "）" Microsoft VBScript语法错误（0x800A03EF）-->缺少 "]" Microsoft VBScript语法错误（0x800A03F2）-->缺少标识符 Microsoft VBScript语法错误（0x800A03F3）-->缺少 "=" Microsoft VBScript语法错误（0x800A03F4）-->缺少 "If" Microsoft VBScript语法错误（0x800A03F5）-->缺少 "To" Microsoft VBScript语法错误（0x800A03F6）-->缺少 "End" Microsoft VBScript语法错误（0x800A03F7）-->缺少 "Function" Microsoft VBScript语法错误（0x800A03F8）-->缺少 "Sub" Microsoft VBScript语法错误（0x800A03F9）-->缺少 "Then" Microsoft VBScript语法错误（0x800A03FA）-->缺少 "Wend" Microsoft VBScript语法错误（0x800A03FB）-->缺少 "Loop" Microsoft VBScript语法错误（0x800A03FC）-->缺少 "Next" Microsoft VBScript语法错误（0x800A03FD）-->缺少 "Case" Microsoft VBScript语法错误（0x800A03FE）-->缺少 "Select" Microsoft VBScript语法错误（0x800A03FF）-->缺少表达式 Microsoft VBScript语法错误（0x800A0400）-->缺少语句 Microsoft VBScript语法错误（0x800A0401）-->语句未结束 Microsoft VBScript语法错误（0x800A0402）-->缺少整型常数 Microsoft VBScript语法错误（0x800A0403）-->缺少 "While" 或 "Until" Microsoft VBScript语法错误（0x800A0404）-->缺少 "While", "Until" 或语句未结束 Microsoft VBScript语法错误（0x800A0405）-->缺少 "With" Microsoft VBScript语法错误（0x800A0406）-->标识符过长 Microsoft VBScript语法错误（0x800A0407）-->无效数字 Microsoft VBScript语法错误（0x800A0408）-->无效字符 Microsoft VBScript语法错误（0x800A0409）-->未结束的字符串常量 Microsoft VBScript语法错误（0x800A040A）-->注释未结束 Microsoft VBScript语法错误（0x800A040D）-->无效使用 "Me" 关键字 Microsoft VBScript语法错误（0x800A040E）-->"loop" 语句缺少 "do" Microsoft VBScript语法错误（0x800A040F）-->无效的 "exit" 语句 Microsoft VBScript语法错误（0x800A0410）-->循环控制变量 "for" 无效 Microsoft VBScript语法错误（0x800A0411）-->名称重定义 Microsoft VBScript语法错误（0x800A0412）-->必须是行中的第一个语句 Microsoft VBScript语法错误（0x800A0413）-->不能为 non-ByVal 参数赋值 Microsoft VBScript语法错误（0x800A0414）-->调用子程序时不能使用括号 Microsoft VBScript语法错误（0x800A0415）-->缺少文字常数 Microsoft VBScript语法错误（0x800A0416）-->缺少 "In" Microsoft VBScript语法错误（0x800A0417）-->缺少 "Class" Microsoft VBScript语法错误（0x800A0418）-->必须在一个类的内部定义 Microsoft VBScript语法错误（0x800A0419）-->在属性声明中缺少 Let , Set 或 Get Microsoft VBScript语法错误（0x800A041A）-->缺少 "Property" Microsoft VBScript语法错误（0x800A041B）-->在所有属性的规范中，变量的数目必须一致 Microsoft VBScript语法错误（0x800A041C）-->在一个类中不允许有多个缺省的属性/方法 Microsoft VBScript语法错误（0x800A041D）-->类的初始化或终止程序没有参数 Microsoft VBScript语法错误（0x800A041E）-->属性的 set 或 let 必须至少有一个参数 Microsoft VBScript语法错误（0x800A041F）-->错误的 "Next" Microsoft VBScript语法错误（0x800A0420）-->"Default" 只能在 "Property" , "Function" 或 "Sub" 中指定 Microsoft VBScript语法错误（0x800A0421）-->指定 "Default" 时必须同时指定 "Public" ＂) Microsoft VBScript语法错误（0x800A0422）-->只能在 Property Get 中指定 "Default" Microsoft VBScript 运行时错误（0x800A0005）-->无效的过程调用或参数 Microsoft VBScript 运行时错误（0x800A0006）-->溢出 Microsoft VBScript 运行时错误（0x800A0007）-->内存不足 Microsoft VBScript 运行时错误（0x800A0009）-->下标越界 Microsoft VBScript 运行时错误（0x800A000A）-->该数组为定长的或临时被锁定 Microsoft VBScript 运行时错误（0x800A000B）-->被零除 Microsoft VBScript 运行时错误（0x800A000D）-->类型不匹配 Microsoft VBScript 运行时错误（0x800A000E）-->字符串空间不够 Microsoft VBScript 运行时错误（0x800A0011）-->不能执行所需的操作 Microsoft VBScript 运行时错误（0x800A001C）-->堆栈溢出 Microsoft VBScript 运行时错误（0x800A0023）-->未定义过程或函数 Microsoft VBScript 运行时错误（0x800A0030）-->加载 DLL 时出错 Microsoft VBScript 运行时错误（0x800A0033）-->内部错误 Microsoft VBScript 运行时错误（0x800A0034）-->错误的文件名或号码 Microsoft VBScript 运行...

vbs脚本怎么在一个窗口下出现两个数据的inputbox函数？

给你举个例子看看就明白了~~~~str=InputBox（＂输入姓名、爱好，用空格隔开＂&Chr(13)&Chr(13)&Chr(13)&Chr(13)&Chr(13)&＂例如：＂，，＂赵云 vbs＂)st=Split(str,＂ ＂)"st(0)就是 赵云"st(1)就是 vbs"UBound(st)就是你输入的个数For i=0 To UBound(st)MsgBox st(i)Next

VBS 如何实现「搜索」功能？

on error resume next Dim keyWord, DirTotal, TimeSpend, FileTotal, Fso, outFile, txtResult, txtPath, sPath Const MY_COMPUTER = &H11& Const WINDOW_HANDLE = 0 Const OPTIONS = 0 Set objShell = CreateObject(＂Shell.Application＂) Set objFolder = objShell.Namespace(My_Computer) Set objFolderItem = objFolder.Self strPath = objFolderItem.Path Set objFolder = objShell.BrowseForFolder(WINDOW_HANDLE， ＂选择你要搜索的文件夹：＂， OPTIONS, strPath) If objFolder Is Nothing Then msgbox ＂您没有选择任何有效目录！＂ wscript.quit else Set objFolderItem = objFolder.Self sPath = objFolderItem.Path txtpath=sPath Set Fso = wscript.CreateObject(＂scripting.filesystemobject＂) FileTotal = 0 DirTotal = 0 "sPath = left(Wscript.ScriptFullName,len(Wscript.ScriptFullName)-len(Wscript.ScriptName)) "txtPath = trim(inputbox（＂你选的目录是＂&sPath，＂文件搜索＂，sPath）) keyWord = LCase(inputbox（＂请输入搜索关键字点Cancel的话会得到目录列表：＂，＂文件搜索＂，＂＂）） set outFile = Fso.createtextfile(sPath & ＂\SearchResult.txt＂) outFile.writeline ＂开始搜索...＂ outFile.writeline ＂起启目录：＂ & txtPath TimeSpend = Timer myFind txtPath TimeSpend = round(Timer - TimeSpend,2) txtResult = ＂搜索完成！＂ & vbCrLf & ＂共找到文件：＂ & FileTotal & ＂个.＂ & vbCrLf & ＂共搜索目录：＂ & DirTotal & ＂个.＂ & vbCrLf & ＂用时：＂ & TimeSpend & ＂秒.＂ outFile.write txtResult msgbox txtResult &＂结果保存在＂&sPath &＂\SearchResult.txt＂ outFile.close set outFile = nothing set Fso = nothing Sub myFind(ByVal thePath) Dim fso, myFolder, myFile, curFolder Set fso = wscript.CreateObject(＂scripting.filesystemobject＂) Set curFolders = fso.getfolder(thePath) DirTotal = DirTotal + 1 If curFolders.Files.Count > 0 Then For Each myFile In curFolders.Files If InStr(1, LCase(myFile.Name), keyWord) > 0 Then outFile.WriteLine FormatPath(thePath) & ＂\＂ & myFile.Name FileTotal = FileTotal + 1 End If Next End If If curFolders.subfolders.Count > 0 Then For Each myFolder In curFolders.subfolders myFind FormatPath(thePath) & ＂\＂ & myFolder.Name Next End If End Sub Function FormatPath(ByVal thePath) thePath = Trim(thePath) FormatPath = thePath If Right(thePath, 1) = ＂\＂ Then FormatPath = Mid(thePath, 1, Len(thePath) - 1) End Function End if

求VBS,运行后在当前位置进行鼠标单击操作

参考代码如下：Private Declare Function PostMessage Lib ＂user32＂ Alias ＂PostMessageA＂ (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As LongPrivate Const WM_LBUTTONDOWN = &H201Private Const WM_LBUTTONUP = &H202Private Sub Command1_Click()MsgBox ＂123＂End SubPrivate Sub Command2_Click()PostMessage Command1.hwnd, WM_LBUTTONDOWN, 0, 0PostMessage Command1.hwnd, WM_LBUTTONUP, 0, 0End Sub

VBS格式文件编程,菜鸟高手都来帮帮忙！

CommandDictionary.Add ＂记事本＂， ＂notepad＂CommandDictionary.Add ＂圣诞祝福＂， ＂＂＂F：\我的文档\Christmas wishing.doc＂＂＂...CommandDictionary.Add ＂你想添加的语音命令＂，＂该语音命令所执行的命令＂"语音命令按这种格式添加上网计算器记事本空当接龙命令结束你想添加的命令这里也要加

【VBS源码】如何读取指定文本中的内容？

byval必选，默认byref，是不能返回变量值的public function Readfile(byval file) "函数名readfile，子变量fileSet fsofile = CreateObject(＂scripting.filesystemobject＂) "创建对象 ＂filesystemobject部件＂readfile=fsofile.opentextfile(file).readall "读取全文end function 函数使用方法， readfile file文件名再给你一个写个函数..Public Function mkFile(ByVal File, ByVal Writes)On Error Resume Next "出错时不中断程序Set fsofile = CreateObject(＂scripting.filesystemobject＂)If Right(File, 1) = ＂/＂ Then "判断变量file右边倒数第一个字符是否有字符串/fs = Replace(File， ＂/＂， ＂＂) "删除变量file的字符串/Read = fsofile.opentextfile(fs).readall "方法一样.都是读取全文If Right(Read, 2) vbCrLf And Len(Read) >0 Then Read = Read & vbCrLf "这里是判断文本追加fsofile.Createtextfile(fs).Writeline Read & Writes "创建并写入文件（会追加到文本尾）Elsefsofile.Createtextfile(File).Write Writes "创建并写入（会覆盖）End IfEnd Function函数用法 mkfile file文件名（字符串最后面如果有/，则追加文本.没有则覆盖文本），writes写入的字符 function（自定义函数）默认是public（全局声明），可加可不加.end function .以end结束函数

用vbs在文本中第二行添加内容

@echo offset s=我爱你一生一世！for /f ＂tokens=*＂ %%i in ("dir/b/a-d *.txt") do ((for /f ＂tokens=1,2 delims=:＂ %%j in ("findstr /n .* ＂%%i＂") do (if ＂%%j＂==＂1＂ (echo %%k&echo %s%) else echo %%k ))>temp.txtmove /y temp.txt ＂%%i＂) 如果考虑空行的话试试下面的@echo offset s=我爱你一生一世！for /f ＂tokens=*＂ %%i in ("dir/b/a-d *.txt") do ((for /f ＂tokens=1,2 delims=:＂ %%j in ("findstr /n .* ＂%%i＂") do (if ＂%%j＂==＂1＂ (if ＂%%k＂==＂＂ (echo.&echo %s%) else echo %%k&echo %s%) else if ＂%%k＂==＂＂ (echo.) else echo %%k ))>temp.txtmove /y temp.txt ＂%%i＂)

vbs如何检测当前是否有标题为“XXXXX”的窗口

on error resume nexttitle=＂Form1＂ "窗口标题Set ws = CreateObject(＂wscript.shell＂)Set objWord = CreateObject(＂Word.Application＂)Set colTasks = objWord.Tasksdo Set colTasks = objWord.Tasksif colTasks.exists(＂Form1＂) then msgbox ＂窗口存在＂ws.run ＂tskill winword＂,0 "或者 objword.quitwscript.quitend ifwscript.sleep 1000loop