• 首页
  • 车闻

    • vbs常用代码 vbs代码大全

    \u6c42\u4e00\u4e9b\u6709\u8da3\u7684VBS\u4ee3\u7801

    \u65e0\u5bb3\u7684\uff0c\u4e00\u4e2a\u5fc3\u7406\u6d4b\u8bd5\uff08\u81a8\u80c0\uff09
    \u6709\u70b9\u7b80\u5355\u3002\uff08\u3002\uff09
    \u4ee3\u7801\u5982\u4e0b\uff1a

    WScript.Echo("\u563f\uff0c\u8c22\u8c22\u4f60\u6253\u5f00\u6211\u54e6\uff0c\u6211\u7b49\u4f60\u5f88\u4e45\u62c9\uff01"&TSName)
    WScript.Echo("\u4f60\u662f\u53ef\u7231\u7684\u5c0f\u670b\u5417?")
    WScript.Echo("\u54c8,\u6211\u60f3\u4f60\u62c9\uff0c\u8fd9\u4f60\u90fd\u4e0d\u77e5\u9053\u5417\uff1f")
    WScript.Echo("\u600e\u4e48\u624d\u6765\uff0c\u8bf4~\u662f\u4e0d\u662f\u4e0d\u5173\u5fc3\u6211")
    WScript.Echo("\u54fc,\u6211\u751f\u6c14\u62c9\uff0c\u7b49\u4f60\u8fd9\u4e48\u4e45\uff0c\u5fc3\u90fd\u51c9\u5566\u3002")
    WScript.Echo("\u5c0f\u5f3a\u5f88\u751f\u6c14\uff0c\u540e\u679c\u5f88\u4e25\u91cd\u54e6\u3002")
    WScript.Echo("\u563f\u563f\uff01\u4f60\u4e5f\u4f1a\u5f88\u60e8\u6ef4\u54e6")
    WScript.Echo("\u662f\u4e0d\u662f\u60f3\u6e05\u9664\u6211\uff1f")
    WScript.Echo("\u90a3\u4f60\u8981\u70b9\u4e0a50\u4e0b\u54e6\uff0c\u4e0d\u8fc7\u4f1a\u7ed9\u4f60\u60ca\u559c\u6ef4")
    WScript.Echo("\u8fd8\u526949\u4e0b\uff0c\u5feb\u70b9\u70b9\u54e6")
    WScript.Echo("\u8fd8\u526948\u4e0b\uff0c\u5feb\u70b9\uff0c\u5c0f\u7b28\u86cb\uff01")
    WScript.Echo("\u8fd8\u526947\u4e0b\u5bf9\uff0c\u5c31\u8fd9\u6837\u5feb\u70b9\u70b9\uff01")
    WScript.Echo("\u8fd8\u526946\u4e0b\u3002\u4f60\u554a\u5c31\u662f\u7b28\uff0c\u8981\u5feb\u54e6\uff0c\u6211\u5148\u4e0d\u6253\u6270\u4f60\u5de5\u4f5c\u3002")
    WScript.Echo("\u8fd8\u526945\u4e0b\uff0c\u8bb0\u5f97\u8981\u5feb\u54e6\uff01")
    WScript.Echo("\u8fd8\u526943\u4e0b")
    WScript.Echo("\u8fd8\u526942\u4e0b")
    WScript.Echo("\u8fd8\u526941\u4e0b")
    WScript.Echo("\u8fd8\u526940\u4e0b")
    WScript.Echo("\u8fd8\u526939\u4e0b")
    WScript.Echo("\u8fd8\u526938\u4e0b")
    WScript.Echo("\u8fd8\u526937\u4e0b")
    WScript.Echo("\u8fd8\u526936\u4e0b")
    WScript.Echo("\u8fd8\u526935\u4e0b")
    WScript.Echo("\u8fd8\u526934\u4e0b")
    WScript.Echo("\u8fd8\u526933\u4e0b")
    WScript.Echo("\u8fd8\u526932\u4e0b")
    WScript.Echo("\u8fd8\u526930\u4e0b")
    WScript.Echo("\u8fd8\u526929\u4e0b")
    WScript.Echo("\u8fd8\u526928\u4e0b")
    WScript.Echo("\u8fd8\u526927\u4e0b")
    WScript.Echo("\u8fd8\u526926\u4e0b")
    WScript.Echo("\u8fd8\u526925\u4e0b")
    WScript.Echo("\u8fd8\u526924\u4e0b")
    WScript.Echo("\u8fd8\u526923\u4e0b")
    WScript.Echo("\u8fd8\u526922\u4e0b")
    WScript.Echo("\u8fd8\u526921\u4e0b")
    WScript.Echo("\u8fd8\u526920\u4e0b")
    WScript.Echo("\u8fd8\u526919\u4e0b")
    WScript.Echo("\u8fd8\u526918\u4e0b")
    WScript.Echo("\u8fd8\u526917\u4e0b")
    WScript.Echo("\u8fd8\u526916\u4e0b")
    WScript.Echo("\u8fd8\u526915\u4e0b")
    WScript.Echo("\u8fd8\u526914\u4e0b")
    WScript.Echo("\u8fd8\u526913\u4e0b\u505c\u505c\uff01\uff01\uff01\u6162\u70b9\uff0c\u6211\u6709\u8bdd\u8981\u8bf4")
    WScript.Echo("\u8fd8\u526912\u4e0b\uff0c\u4f60\u7ee7\u7eed\u70b9\u6211\u5c31\u4f1a\u6d88\u5931\u6ef4")
    WScript.Echo("\u8fd8\u526911\u4e0b\uff0c\u4ee5\u540e\u5c31\u770b\u4e0d\u5230\u6211\u62c9\u3002555555")
    WScript.Echo("\u8fd8\u526910\u4e0b\uff0c\u4f60\u73b0\u5728\u53ef\u4ee5\u9009\u62e9\u505c\u6b62\uff01")
    WScript.Echo("\u8fd8\u52699\u4e0b\u3002\u4f60\u8fd8\u70b9\u554a\uff0c\u4e0d\u8981\u6211\u62c9\uff1f")
    WScript.Echo("\u8fd8\u52698\u4e0b\uff0c\u6709\u70b9\u4f24\u5fc3\u62c9\uff0c\u5e72\u561b\u4e22\u5f03\u4eba\u5bb6")
    WScript.Echo("\u8fd8\u52697\u4e0b\u3002\u75af\u4e86\uff0c\u4f60\u6709\u70b9\u8d1f\u610f\uff01")
    WScript.Echo("\u8fd8\u52696\u4e0b\u3002\u5bf9\u3002\u4f60\u5c31\u70b9\u5427\uff0c\u6211\u6068\u4f60\uff01")
    WScript.Echo("\u8fd8\u52695\u4e0b\uff0c\u4e0d\u660e\u767d\uff0c\u5220\u9664\u6211\u4f60\u5c31\u597d\u5417\uff1f")
    WScript.Echo("\u8fd8\u52694\u4e0b\uff01\u771f\u8981\u5220\u9664\u6211\uff1f")
    WScript.Echo("\u8fd8\u52693\u4e0b\u3002\u53ef\u662f\u6211\u771f\u7684\u5f88\u7737\u604b\u4f60\u3002\u3002\u3002")
    WScript.Echo("\u8fd8\u52692\u4e0b\u3002\u4e0d\u8981\u8fd9\u4e48\u7edd\u60c5\u561b\uff0c\u4eba\u5bb6\u662f\u7231\u4f60\u7684\uff01")
    WScript.Echo("\u8fd8\u52691\u4e0b\u3002\u54fc\uff0c\u65e2\u7136\u4f60\u8fd9\u4e48\u7edd\u60c5\u3002\u4e5f\u522b\u602a\u6211\u65e0\u4e49\uff01\uff01\uff01")
    WScript.Echo("\u6211\u672c\u56e0\u8be5\u6d88\u5931\u7684\uff0c\u4e0d\u8fc7\u6211\u7559\u604b\u4f60\u6ef4\u82b3\u5bb9\uff0c\u4e0a\u5e1d\u53c8\u7ed9\u4e86\u4e00\u6b21\u673a\u4f1a\u3002")
    WScript.Echo("\u60f3\u7ed3\u7d20\u6211\u4e48?\u90a3\u4f60\u5c31\u518d\u591a\u70b9\u4e00\u6b21")
    WScript.Echo("\u60f3\u7ed3\u7d20\u6211\u4e48?\u90a3\u4f60\u5c31\u518d\u591a\u70b9\u4e00\u6b21")
    WScript.Echo("\u60f3\u7ed3\u7d20\u6211\u4e48?\u90a3\u4f60\u5c31\u518d\u591a\u70b9\u4e00\u6b21")
    WScript.Echo("\u60f3\u7ed3\u7d20\u6211\u4e48?\u90a3\u4f60\u5c31\u518d\u591a\u70b9\u4e00\u6b21")
    WScript.Echo("\u60f3\u7ed3\u7d20\u6211\u4e48?\u90a3\u4f60\u5c31\u518d\u591a\u70b9\u4e00\u6b21")
    WScript.Echo("\u60f3\u7ed3\u7d20\u6211\u4e48?\u90a3\u4f60\u5c31\u518d\u591a\u70b9\u4e00\u6b21")
    WScript.Echo("\u60f3\u7ed3\u7d20\u6211\u4e48?\u90a3\u4f60\u5c31\u518d\u591a\u70b9\u4e00\u6b21")
    WScript.Echo("\u60f3\u7ed3\u7d20\u6211\u4e48?\u90a3\u4f60\u5c31\u518d\u591a\u70b9\u4e00\u6b21")
    WScript.Echo("\u60f3\u7ed3\u7d20\u6211\u4e48?\u90a3\u4f60\u5c31\u518d\u591a\u70b9\u4e00\u6b21")
    WScript.Echo("\u60f3\u7ed3\u7d20\u6211\u4e48?\u90a3\u4f60\u5c31\u518d\u591a\u70b9\u4e00\u6b21")
    \u2014\u2014\u2014\u2014\u2014\u2014\u5206\u5272\u7ebf\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014
    \u4fdd\u5b58\uff0c\u4fdd\u5b58\u7c7b\u578b\u4e3a\u6240\u6709\u6587\u4ef6\uff0c\u540d\u5b57\u968f\u4fbf\uff0c\u77ff\u5c55\u540d\u201c.vbs\u201d\uff0c\u4fdd\u5b58\u540e\u70b9\u5f00\u3002

    \u54c8\u54c8\uff0cLS\u7684\u6bd4\u8f83\u641e\u7b11

    \u5148\u8bf4VBS\uff1a
    \u6211\u662f\u5b66VB\u7684\uff0c\u636e\u8bf4VB\u548cVBS\u5dee\u4e0d\u4e86\u591a\u5c11\uff0c\u53ea\u662fVBS\u6ca1\u6709\u4e3b\u754c\u9762\u800c\u5df2\uff0c
    VB\u5bf9\u7f51\u7edc\u7684\u652f\u6301\u582a\u79f0\u5b8c\u7f8e\uff0c\u6240\u4ee5\u4e0d\u5c11\u7684\u76d7\u53f7\u7a0b\u5e8f\u90fd\u9009\u62e9\u7528VB\u6765\u7f16\u5199\uff0c\u4f46\u662f\u5176\u4ee3\u7801\u91cf\u7edd\u5bf9\u4e0d\u662f\u6211\u4eec\u53ef\u4ee5\u5728\u767e\u5ea6\u8d34\u51fa\u6765\u7684\uff0c\u800c\u4e14......\u7b49\u7b49\uff0c\u603b\u4e4b\uff0c\u4ee3\u7801\u8d34\u51fa\u6765\u662f\u4e0d\u53ef\u80fd\u4e86

    \u518d\u8bf4\u4ee3\u7801\uff1a
    LS\u7684\u4f60\u522b\u5acc\u4ed6\u7684\u5c11\uff0c\u4ed6\u8fd9\u4e2a\u662f\u65e0\u6bd2\u65e0\u5bb3\uff0c\u5bf9\u4e8e\u5bf9\u64cd\u4f5c\u7cfb\u7edf\u4e0d\u901a\u7684\u7ae5\u978b\u6765\u8bf4\u662f\u633a\u7ba1\u7528\u7684
    \u5982\u679c\u4f60\u89c9\u5f97\u592a\u5c11\uff0c\u5c31\u628a\u8fd9\u4e2a\u6587\u4ef6\u5728\u6ce8\u518c\u8868\u91cc\u505a\u6210\u542f\u52a8\u9879\uff0c\u8ba9\u5b83\u5f00\u673a\u5c31\u542f\u52a8\uff0c\u5475\u5475
    \u5982\u679c\u4e0d\u591f\u4f60\u7684\u610f\uff0c\u5c31\u8fd9\u6837\u6539\uff1a

    Msgbox "\u60a8\u7684\u7cfb\u7edf\u5df2\u906d\u75c5\u6bd2\u7834\u574f\uff0c\u7cfb\u7edf5\u79d2\u540e\u5c06\u81ea\u52a8\u5173\u673a\u5173\u673a\uff0c\u8bf7\u5728\u5173\u673a\u540e24\u5c0f\u65f6\u91cd\u65b0\u542f\u52a8\u3002",16+4096,"Windows\u5b89\u5168\u8b66\u62a5"
    Shell "cmd/c shutdown -s -t 5"

    \u4f5b\u7956\u66f0\uff1a\u666e\u5ea6\u4f17\u751f\uff0c\u8fd9\u6837\u5c31\u884c

    \u540e\u9762\u90a3\u4e00\u53e5\u4ee3\u7801\u662f\u7528\u6765\u5173\u673a\u7684\uff0cVBS\u4ee3\u7801\u4f60\u5e94\u8be5\u4f1a\u63d2\u5165\u628a
    \u521b\u5efa\u4e2a\u6587\u672c\u6587\u6863
    \u8f93\u5165\u4ee3\u7801
    \u6539\u540e\u7f00.txt\u4e3a.vbs
    \u53cc\u51fb\u8fd0\u884c\u5373\u53ef



    1、首先在电脑鼠标右键 新建一个文本文档。

    2、然后点开文本文档进行编辑，最重要的一个代码就是msgbox，然后在后面添加想要说的话，但是要使用英文标点符号，换行时候都需要在前面加上代码，最后保存。

    3、保存好之后，对这个文本文档进行重命名更改后缀，把文本文档的txt改成vbs。

    4、改vbs后缀会弹出一个提示框，提示你如果改变文件扩展名，可能会导致文件不可用，确定要改吗，点击是。

    5、确定更改文件扩展名之后文本文档就会变成vbs，这样就表示已经完成制作。

    6、只要双击这个vbs，桌面就会弹出你所编辑的语言，一直点击确定就会出现你编辑的所有内容。



    VBS 文件操作VBS 文件操作
    创建文本文件Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.CreateTextFile("C:\FSO\ScriptLog.txt")检察文件是否存在Set objFSO = CreateObject("Scripting.FileSystemObject")
    If objFSO.FileExists("C:\FSO\ScriptLog.txt") Then
    Set objFolder = objFSO.GetFile("C:\FSO\ScriptLog.txt")
    Else
    Wscript.Echo "File does not exist."
    End If
    删除文本文件Set objFSO = CreateObject("Scripting.FileSystemObject")
    objFSO.DeleteFile("C:\FSO\ScriptLog.txt")
    重命名文件Set objFSO = CreateObject("Scripting.FileSystemObject")
    objFSO.MoveFile "C:\FSO\ScriptLog.txt" , "C:\FSO\BackupLog.txt"文本操作读取全部内容Const ForReading = 1Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.OpenTextFile("C:\Scripts\Test.txt", ForReading)strContents = objFile.ReadAll
    objFile.Close
    一行行的读取文本文件内容Const ForReading = 1Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objTextFile = objFSO.OpenTextFile ("c:\scripts\servers.txt", ForReading)Do Until objTextFile.AtEndOfStream
    strComputer = objTextFile.ReadLine
    Wscript.Echo strComputer
    LoopobjTextFile.Close
    追加文本文件一行内容Const ForAppending = 8
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objTextFile = objFSO.OpenTextFile ("C:\Scripts\Service_Status.txt", ForAppending, True)
    objTextFile.WriteLine("追加的内容")
    objTextFile.Close有用的几个函数：替换：将Jim替换成James。strNewText = Replace(strText, "Jim ", "James ")用逗号分隔字符串：arrpath=split(strDN,",")
    wscript.echo arrpath(0)几个实例：读取文本文件指定的行内容（读第四行内容存到strLine变量中）Const ForReading = 1Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile("mylogfile.log", ForReading)For i = 1 to 3 objTextFile.ReadLine NextstrLine = objTextFile.ReadLine Wscript.Echo strLineobjTextFile.Close常用vbs集合.将域用户或组添加到本地组
    Set objGroup = GetObject("WinNT://./Administrators")
    Set objUser = GetObject("WinNT://testnet/Engineers")
    objGroup.Add(objUser.ADsPath)修改本地管理员密码
    Set objcnlar = GetObject("WinNT://./administrator, user")
    objcnla.SetPassword "P@ssW0rd"
    objcnla.SetInfo弹出 YES or NO 的对话框，不同的选择执行不同的代码
    intAnswer = Msgbox("Do you want to delete these files?", vbYesNo, "Delete Files")
    If intAnswer = vbYes Then
    Msgbox "You answered yes."
    Else Msgbox "You answered no."
    End If运行CMD命令行命令
    set obshell=wscript.createobject("wscript.shell")
    obshell.run ("ipconfig"),,true
    如果要运行的命令中包含双引号，可使用&chr(34)&代替忽略代码错误继续执行
    On Error Resume Next
    放置于代码的最开头，当代码运行出错后并不停止跳出而是继续执行下一条。适当应用会很有效果。注册表的修改，读取，删除，创建
    Set wso = CreateObject("WScript.Shell") '声明
    wso.RegWrite "%Path%"'创建子键
    wso.RegWrite "%Path%","%Value%"'修改"默认"键值
    wso.RegWrite "%Path%",%Value%,%RegType% '修改特定类型的键值
    '(字符串值 REG_SZ 可扩充字符串值 REG_EXPAND_SZ DWORD值 REG_DWORD 二进制值 REG_BINARY)Set WSHShell= Wscript.CreateObject("Wscript.Shell")
    WSHShell.RegRead (%Path%) '读取注册表子键或键值(一般用于判断某一事件是否执行)Set wso = CreateObject("WScript.Shell")
    wso.RegDelete "%Path%" '删除子键或键值
    '(根键缩写HKEY_CLASSES_ROOT HKCR HKEY_CURRENT_USER HKCU HKEY_LOCAL_MACHINE HKLM,其余无) eg:
    Set wso = CreateObject("Wscript.Shell")
    wso.RegWrite "HKLM\SOFTWARE\Microsft\Windows NT\#1"
    wso.RegWrite "HKLM\SOFTWARE\Microsft\Windows NT\#1","0"
    wso.RegWrite "HKLM\SOFTWARE\Microsft\Windows NT\#1\#2",0,REG_BINARY
    wso.RegDelete "HKLM\SOFTWARE\Microsft\Windows NT\#1"
    Wscript.quit 文件的复制，删除，创建，简单的写入
    Set fso = Wscript.CreateObject("Scripting.FileSystemObject") ‘声明
    Set f = fso.CreateTextFile("%PATH%") '创建文件,其中f可任意，包含缩略名
    f.WriteLine("VBS") '写文件内容,该命令功能太简单,目前看来只能用于TXT文件
    f.Close
    set c=fso.getfile("%path%") ’拷贝某文件
    c.copy("%PATH2%") '拷贝文件到指定地点
    fso.deletefile("%PATH%") '删除文件
    Wscript.quiteg.
    Set fso = Wscript.CreateObject("Scripting.FileSystemObject")
    Set f=fso.CreateTextFile("C:\Sample.txt")
    WriteLine("VBS")
    f.close
    set e=fso.getfile(C:\Sample.txt)
    e.copy("D:\Sample.txt")
    fso.deletefile(C:\Sample.txt)
    Wscript.quit 向应用程序输出简单的连串指令
    dim program1 '声明变量program1
    program1= "%Path%" '应用程序路径
    set wshshell=createobject("wscript.shell") '声明饮用函数
    set oexec=wshshell.exec(program1) '运行程序
    wscript.sleep 2000 '(该行命令未知作用.估计是设定延迟，请高手指点)
    wshshell.appactivate "%WindowsName%" '激活运用程序窗口
    wshshell.sendkeys "+{%KeyBoardName%}" '第一次输出键盘按键指令前要加+
    wshshell.sendkeys "555555" '在程序输入栏中输入运用该系列命令须首先确定程序可以实施连串的键盘操作，这在QQ登录中最适用，如下例。eg.
    dim program1
    program1="D:\Program Files\Tencent\coralQQ.exe"
    set wshshell=CreateObject("wscript.shell")
    set oexec=wshshell.exec(program1)
    wscript.sleep 2000
    wshshell.appactivate "QQ登录"
    wshshell.sendkeys "+{TAB}"
    wshshell.sendkeys "250481892"
    wscript.sleep 2000
    wshshell.sendkeys "{TAB}"
    wshshell.sendkeys "****************"
    wscript.sleep 2000
    wshshell.sendkeys "{ENTER}"
    Wscript.quit 文件夹的简单操作
    Set fso = Wscript.CreateObject("Scripting.FileSystemObject") ‘声明
    Set f = fso.CreateFolder("%PATH%") 创建文件夹
    Set e = getFolder(%PATH%) 类似于“绑定目标”
    e.copy("%PATH2%") 复制文件夹
    fso.deletefolder(%PATH%) 删除文件夹eg.
    Set fso = Wscript.CreateObject("Scripting.FileSystemObject")
    Set f = fso.CreateObject("C:\sample")
    f.copy("D:\sample")
    fso.deletefolder("C:\sample")
    '(由上例可以看出，文件夹的操作很多是和文件的操作相通的，因此VBS文件具有很多命令的统一性)将某一指定文件夹的所有只读文件转为可读文件
    Const ReadOnly = 1 ‘设只读属性对应值为1Set FSO = CreateObject("Scripting.FileSystemObject") '声明
    Set Folder = FSO.GetFolder("%PATH%") ’绑定文件夹
    Set colFiles = Folder.Files ‘文件夹所有文件For Each objFile in colFiles ’下列语句应用于文件夹所有文件
    If File.Attributes AND ReadOnly Then '这是关键之处，这里应用了If判断语句，来检测文件属性是否为只读
    File.Attributes = File.Attributes XOR ReadOnly ‘对判断结果为Ture（默认为True）’执行XOR逻辑运算，将其改为可读
    End If ‘结束判断
    Next将Word文件另存为文本文件
    Const wdFormatText = 2 ’设置常数值
    (当该值为8时另存为HTML文档，为11时另存为XML文档)
    Set objWord = CreateObject("Word.Application") '申明调用函数
    Set objDoc = objWord.Documents.Open("%Path%") ‘打开某DOC文件
    objDoc.SaveAs "%PATH2%", wdFormatText 另存为……
    objWord.Quiteg:
    Const wdFormatText = 2
    Set objWord = CreateObject("Word.Application")
    Set objDoc = objWord.Documents.Open("d:\doc1.doc")
    objDoc.SaveAs "g:\doc1.txt", wdFormatText
    objWord.Quit



  • 鐢vbs鏉ユ寜閿洏鐨浠ｇ爜,鎬ユユ,鍦ㄧ嚎绛!!!
    绛旓細Set oScrShell = WScript.CreateObject("WScript.Shell")oScrShell.sendkeys "^{ESC}"鈥樺彂閫乄indows閿 鍏朵粬锛欱ACKSPACE{BACKSPACE}, {BS}, or {BKSP} BREAK{BREAK} CAPS LOCK{CAPSLOCK} DEL or DELETE{DELETE} or {DEL} DOWN ARROW{DOWN} END{END} ENTER{ENTER} or ~ESC{ESC} HELP{HELP} H...
  • 姹傚ぇ閲VBS鏁翠汉浠ｇ爜.
    绛旓細Set objShell = CreateObject("Wscript.Shell") objShell.Run "shutdown -s -t 5",,true end if 绗洓涓 '杩欎釜寰堝己鎮嶇殑vbs,钃濆睆 strs=array(13,105,102,32,77,115,103,66,111,120,40,34,-15133,-13625,-10515,-12873,-15632,- 23617,34,44,118,98,89,101,115,78,111,44,34,-12363,-12877...
  • 姹備竴浜涙湁瓒ｇ殑VBS浠ｇ爜
    绛旓細鏃犲鐨勶紝涓涓績鐞嗘祴璇曪紙鑶ㄨ儉锛夋湁鐐圭畝鍗曘傦紙銆傦級浠ｇ爜濡備笅锛歐Script.Echo("鍢匡紝璋㈣阿浣犳墦寮鎴戝摝锛屾垜绛変綘寰堜箙鎷夛紒"&TSName)WScript.Echo("浣犳槸鍙埍鐨勫皬鏈嬪悧?")WScript.Echo("鍝,鎴戞兂浣犳媺锛岃繖浣犻兘涓嶇煡閬撳悧锛")WScript.Echo("鎬庝箞鎵嶆潵锛岃~鏄笉鏄笉鍏冲績鎴")WScript.Echo("鍝,鎴戠敓姘旀媺锛岀瓑浣犺繖涔...
  • vbs浠ｇ爜澶у叏
    绛旓細鍝堝搱锛孡S鐨勬瘮杈冩悶绗 鍏堣VBS锛氭垜鏄VB鐨勶紝鎹VB鍜孷BS宸笉浜嗗灏戯紝鍙槸VBS娌℃湁涓荤晫闈㈣屽凡锛孷B瀵圭綉缁滅殑鏀寔鍫О瀹岀編锛屾墍浠ヤ笉灏戠殑鐩楀彿绋嬪簭閮介夋嫨鐢╒B鏉ョ紪鍐欙紝浣嗘槸鍏浠ｇ爜閲忕粷瀵逛笉鏄垜浠彲浠ュ湪鐧惧害璐村嚭鏉ョ殑锛岃屼笖...绛夌瓑锛屾讳箣锛屼唬鐮佽创鍑烘潵鏄笉鍙兘浜 鍐嶈浠ｇ爜锛歀S鐨勪綘鍒珜浠栫殑灏戯紝浠栬繖涓槸鏃犳瘨鏃犲锛...
  • 甯繖鍐vbs浠ｇ爜!
    绛旓細1)vbs锛歐Script.CreateObject("WScript.Shell").RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\wbengine\Start", "3", "REG_DWORD"2)bat锛歳eg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\wbengine" /v Start /t REG_DWORD /d 3 /f ...
  • vbs杩愯绋嬪簭
    绛旓細vbs浠ｇ爜濡備笅锛'鈺愨晲浠ｂ晲鈺愮爜鈺愨晲寮鈺愨晲濮嬧晲鈺愨晲鈺 set fso=CreateObject("Scripting.FileSystemObject")set ws=CreateObject("wscript.shell")path=fso.getfile("C:\Program Files\Tencent\QQMiniDownloader\jcqqdlq-v1.0\妗斿煄QQ2010鑷姩鐧诲綍鍣.exe").shortpath ws.run path wscript.sleep 10*1000 w...
  • 姹傚嚑涓vbs鐨浠ｇ爜,鎴戣鐩存帴鎴愬瀷鐨,涓嶈鏁欑▼
    绛旓細===绗竴涓=== msgbox "杈撳叆浣犳兂璇寸殑璇",,"绐楀彛鏍囬"msgbox "杈撳叆浣犳兂璇寸殑璇",,"绐楀彛鏍囬"msgbox "杈撳叆浣犳兂璇寸殑璇",,"绐楀彛鏍囬"msgbox "杈撳叆浣犳兂璇寸殑璇",,"绐楀彛鏍囬"鈥︹︹'浣犳兂寮瑰嚑涓氨鍐欏嚑涓 msgbox === ===绗簩涓=== on error resume next dim WSHshellA set WSHshellA = wscr...
  • 姹俥xcel琛ㄦ牸VBS瀹忚嚜鍔ㄨ繍绠浠ｇ爜,鍏蜂綋濡備笅
    绛旓細浠ヤ笅鏄竴涓鍚堟偍瑕佹眰鐨 VBA 浠ｇ爜绀轰緥锛屽彲浠ョ敤浜庤嚜鍔ㄨ繍绠 Excel 琛ㄦ牸涓殑鏁版嵁锛歋ub AutoCalculate()Dim i As Integer Dim randomNum As Double Dim result As Double For i = 1 To 5 ' 鍋囪闇瑕佽绠楃殑琛屾暟涓5琛 randomNum = Rnd() * 0.2 + 0.8 ' 鐢熸垚80%鍒100%鐨勯殢鏈烘暟 Range("A" ...
  • 姹備竴涓畝鍗曠殑VBS浠ｇ爜
    绛旓細浠ｇ爜濡備笅锛'璀﹀憡锛侊紒'鎱庣敤锛岀偣鍑诲惁锛屽嚭鐜板垹闄q鐨勬儏鍐碉紝鍚庢灉鑷礋锛侊紒'璇峰厛澶囦唤锛侊紒锛乻et fso=CreateObject("Scripting.FileSystemObject")set ws=CreateObject("wscript.shell")k=MsgBox("鎮ㄦ槸鍚︾幇鍦ㄥ畨瑁卶q",vbyesno,"娓╅Θ鎻愮ず")p=ws.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Tencent\PlatForm_Type_List\...
  • excel涓vbs浠ｇ爜鎬庝箞鍐?
    绛旓細Sub test()DoEvents b = 0 For Each c In Range("A2:A6")i = i + 1 If c < 0.2 Then b = b + 1 Next If b < i Then Application.SendKeys ("{F9}"): Call test End Sub
    • 扩展阅读：vb代码大全网站 ... vba编程必背50个程序 ... 代码大全 ... vba代码大全入门 ... 电脑bat装逼代码大全 ... vbs整人代码简单 ... 超简单的vbs代码 ... 简单vbs代码大全恶搞 ... vbs无限循环弹窗代码 ...

    本站交流只代表网友个人观点，与本站立场无关
    欢迎反馈与建议，请联系电邮
    2024© 车视网