vbs中set Option Explicit

最新推荐文章于 2019-08-14 16:36:22 发布
最新推荐文章于 2019-08-14 16:36:22 发布
阅读量842 收藏
点赞数
CC 4.0 BY-SA版权
文章标签： c
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.youkuaiyun.com/cxzhq2002/article/details/2106421
本文展示了一个使用 VBScript 创建的简单脚本示例。该脚本使用了 Scripting.FileSystemObject 对象来获取磁盘驱动器名称，并通过 MsgBox 显示了常量和驱动器名称的信息。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

 <script language="vbs">
Option Explicit '强制显示声明变量
dim fso
 Set fso = CreateObject("Scripting.FileSystemObject") '对象
Dim d
set d="aaa" '常量
  msgbox(d)
  msgbox(fso.GetDriveName("c:/")) 
</script> 
cxzhq2002
关注
撤销EXCLE工作表保护密码
←か淡定☆ ヾ 的博客
08-14 741
撤销工作表密码保护有时工作簿太长时间没用，可能会忘掉工作表的保护密码以致无法编辑，本代码能快速有效解决此问题 有时工作簿太长时间没用，可能会忘掉工作表的保护密码以致无法编辑，本代码能快速有效解决此问题 Option Explicit Public Sub AllInternalPasswords() ' 中断工作表和工作簿结构密码 ' 算法创始人Bob McCormick ' Norman Harker / JE McGimpsey 2002年12月27日（1.1版） '
从 Option Explicit 开始的零碎知识点
u010007868的博客
01-26 481
这两天一直在围着 Visual Basic 转，敲了一些例子，记录了一些零碎的知识点，自己都觉得自己有点小幼稚，不过还好啦，至少没有放弃！     Option Explicit '定义变量X Dim x Private Sub Form_Load() '弹出窗口以及窗口上的文字 x = Val(InputBox("请输入0-100中的数值：", "成绩等级"))
VBS教程：VBscript语句-Option Explicit 语句
leechoy
08-14 1648
Option Explicit 语句 强制要求显式声明脚本中的所有变量 如果使用 Option Explicit，该语句必须出现在脚本的任何其他语句之前。 使用 Option Explicit 语句时，必须使用 Dim、Private、Public 或 ReDim 语句显式声明所有变量。如果试图使用未经声明的变量名，则会出现错误。 提示 可用 Option Explicit 避免拼错已存在的变量名...
Option Explicit
weixin_34163553的博客
11-28 226
Option Explicit 语句 在模块级别中使用，强制显式声明模块中的所有变量。语法Option Explicit说明如果使用，Option Explicit 语句必须写在模块的所有过程之前。如果模块中使用了 Option Explicit，则必须使用 Dim、Private、Public、ReDim 或 Static 语句来显式声明所有的变量。如果使用了未声明的变量名...
破解excel密码保护
蜗牛跑的快
12-06 1399
Option Explicit Public Sub AllInternalPasswords() Const DBLSPACE As String = vbNewLine & vbNewLine Const AUTHORS As String = DBLSPACE & vbNewLine & _ "Adapted from Bob McCormick base code by" & _ "Norm
Excel工作表保护破解(Excel试验版本为2003)
琉璃仙境
03-21 3832
网上流传有一个宏，可以解除工作表保护的密码。 Option Explicit Public Sub AllInternalPasswords()  Breaks worksheet and workbook structure passwords. Bob McCormick  probably originator of base code algorithm modified 
取消excel 工作保护 密码的宏
weixin_33738578的博客
06-25 320
Option Explicit Public Sub AllInternalPasswords() ' Breaks worksheet and workbook structure passwords. Bob McCormick ' probably originator of base code algorithm modified for coverage ' of workbo...
VBS中通过调用CAPICOM对象实现SHA1&MD5加密
09-05
Option Explicit Dim objFSO, objFile, HashedData, FileContent Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile(WScript.Arguments(0), 1) HashedData = ...
VBS实现截图功能
09-03
Option Explicit Dim objWord Set objWord = CreateObject("Word.Application") objWord.Visible = True SendKeys "{PRTSC}" objWord.Documents.Add objWord.Selection.Paste objWord.Selection....
从VBS中的文本文件读取行中的字符串
04-06
Option Explicit ' 定义文件路径 Dim filePathIn, filePathOut filePathIn = "input.tsv" filePathOut = "output.csv" ' 打开输入文件并创建输出文件 Dim fso, inputFile, outputFile Set fso = CreateObject(...
wincc中通过vbs写excel的方式
04-15
Option Explicit Function action Dim objExcelApp, objExcelBook, objExcelSheet Dim tagsHijian, sheetName, userName, zhushi Dim tagDay Dim a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, ...
vbs获取软件列表.zip
11-14
Option Explicit Dim objShell, objReg, strKeyPath, arrSubKeys, i, strAppName, strAppVersion Set objShell = WScript.CreateObject("WScript.Shell") strKeyPath = "HKLM\SOFTWARE\Microsoft\Windows\Current...
excel密码破解说明
05-23
excel密码破解详细教程，Public Sub AllInternalPasswords() ' Breaks worksheet and workbook structure passwords. Bob McCormick ' probably originator of base code algorithm modified for coverage ' of workbook structure / windows passwords and for multiple passwords ' ' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1) ' Modified 2003-Apr-04 by JEM: All msgs to constants, and ' eliminate one Exit Sub (Version 1.1.1) ' Reveals hashed passwords NOT original passwords Const DBLSPACE As String = vbNewLine & vbNewLine Const AUTHORS As String = DBLSPACE & vbNewLine & _ "Adapted from Bob McCormick base code by" & _ "Norman Harker and JE McGimpsey" Const HEADER As String = "AllInternalPasswords User Message" Const VERSION As String = DBLSPACE & "Version 1.1.1 2003-Apr-04" Const REPBACK As String = DBLSPACE & "Please report failure " & _ "to the microsoft.public.excel.programming newsgroup." Const ALLCLEAR As String = DBLSPACE & "The workbook should " & _ "now be free of all password protection, so make sure you:" & _ DBLSPACE & "SAVE IT NOW!" & DBLSPACE & "and also" & _ DBLSPACE & "BACKUP!, BACKUP!!, BACKUP!!!" & _ DBLSPACE & "Also, remember that the password was " & _ "put there for a reason. Don't stuff up crucial formulas " & _ "or data." & DBLSPACE & "Access and use of some data " & _ "may be an offense. If in doubt, don't." Const MSGNOPWORDS1 As String = "There were no passwords on " & _ "sheets, or workbook structure or windows." & AUTHORS & VERSION Const MSGNOPWORDS2 As String = "There was no protection to " & _ "workbook structure or windows." & DBLSPACE & _ "Proceeding to unprotect sheets." & AUTHORS & VERSION Const MSGTAKETIME As String = "After pressing OK button this " & _ "will take some time." & DBLSPACE & "Amount of time " & _ "depends on how many different passwords, the " & _ "passwords, and your computer's specification." & DBLSPACE & _ "Just be patient! Make me a coffee!" & AUTHORS & VERSION Const MSGPWORDFOUND1 As String = "You had a Worksheet " & _ "Structure or Windows Password set." & DBLSPACE & _ "The password found was: " & DBLSPACE & "$$" & DBLSPACE & _ "Note it down for potential future use in other workbooks by " & _ "the same person who set this password." & DBLSPACE & _ "Now to check and clear other passwords." & AUTHORS & VERSION Const MSGPWORDFOUND2 As String = "You had a Worksheet " & _ "password set." & DBLSPACE & "The password found was: " & _ DBLSPACE & "$$" & DBLSPACE & "Note it down for potential " & _ "future use in other workbooks by same person who " & _ "set this password." & DBLSPACE & "Now to check and clear " & _ "other passwords." & AUTHORS & VERSION Const MSGONLYONE As String = "Only structure / windows " & _ "protected with the password that was just found." & _ ALLCLEAR & AUTHORS & VERSION & REPBACK Dim w1 As Worksheet, w2 As Worksheet Dim i As Integer, j As Integer, k As Integer, l As Integer Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer Dim PWord1 As String Dim ShTag As Boolean, WinTag As Boolean Application.ScreenUpdating = False With ActiveWorkbook WinTag = .ProtectStructure Or .ProtectWindows End With ShTag = False For Each w1 In Worksheets ShTag = ShTag Or w1.ProtectContents Next w1 If Not ShTag And Not WinTag Then MsgBox MSGNOPWORDS1, vbInformation, HEADER Exit Sub End If MsgBox MSGTAKETIME, vbInformation, HEADER If Not WinTag Then MsgBox MSGNOPWORDS2, vbInformation, HEADER Else On Error Resume Next Do 'dummy do loop For i = 65 To 66: For j = 65 To 66: For k = 65 To 66 For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66 For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66 For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 With ActiveWorkbook .Unprotect Chr(i) & Chr(j) & Chr(k) & _ Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _ Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) If .ProtectStructure = False And _
破解EXCEL工具区保护的宏【转】
眼界决定世界 奋斗成就梦想
06-15 2020
Option Explicit Public Sub AllInternalPasswords() Breaks worksheet and workbook structure passwords. Bob McCormick probably originator of base code algorithm modified for coverage of workbook
Option Explicit的作用
热门推荐
wangchangchun_0418的博客
03-16 2万+
    在VBScript中经常可以看到代码的最上面会出现“Option Explicit”，那么它的作用到底是干什么的呢？    VBScript中并不要求显示定义变量，即变量可以不经定义直接使用，这样很方便，但是也很容易出现问题；    比如先定义一个变量名为“var9”并赋值，但是下方使用的时候错误的将变量名写为“varg”，如下图代码，这样不会程序执行的时候不会出现异常，但却会导致处理结果...
VB6.0中关于option explicit的语法
qq_18671205的博客
10-16 3581
如果使用Option Explicit语句必须写在模块的所有过程之前。 如果模块中使用了Option Explicit，则必须使用 Dim、Private、Public、ReDim 或 Static语句来显式声明所有的变量。如果使用了未声明的变量名在编译时间会出现错误。 如果没有使用Option Explicit语句，除非使用 Deftype 语句指定了缺省类型，否则所有未声明的变量都是Varia...
取得TextBox、RichTextBox光标所在的行和列(支持中文)修正
ASPBIT的专栏
01-24 1782
************************************************************功能：取得TextBox、RichTextBox光标所在的行和列支持中文，一个汉字算一列有问题请给我写邮件作者：Matrix邮件：ASPBIT@163.COM2003-01-24修正了马虎的错误*********************************
密码保护
weixin_30716725的博客
12-22 131
1.更新User对象，设置对内的_password class User(db.Model): __tablename__ = 'user' _password = db.Column(db.String(200), nullable=False) #内部使用 class User(db.Model): __tablename__ = 'user_...
VBA 声明 Option Explicit，让代码更规范
sun0322
08-03 1万+
Option Explicit Option Explicit 语句在模块级别中使用，强制显示声明模块中的所有变量。 Option Explicit 语句必须写在模块的所有过程之前。 如果模块中使用了 Option Explicit， 则必须使用 Dim、Private、Public、ReDim 或 Static 语句来显式声明所有的变量。 explicit 英 [ɪ
goto line在vbs中的使用方法
最新发布
07-23
Option Explicit Dim number number = CInt(InputBox("请输入一个整数:")) ' 检查数字范围 If number > 100 Then Goto LargeNumber ElseIf number Goto NegativeNumber Else Goto ValidNumber End If ' 标签...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值