让文件彻底隐藏的vbs代码

让态丛文件彻底隐藏的vbs代码为。

1、比如要隐藏坦闭春c盘的123.vbs文件代码让耐为。

2、SetFSO=CreateObject("Scripting.FileSystemObject")。

3、ConstHidden=2。

4、Setf=FSO.GetFile("C：\123.vbs")。

5、f.Attributes=f.AttributesOrHidden。

您可以使用VBA代码隐没念闷藏Excel文档的标题栏。以下枯弯是示例代码：

Private Declare Function FindWindowA Lib "user32" _

(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function SetWindowLongA Lib "user32" _

(ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function GetWindowLongA Lib "user32" _

(ByVal hWnd As Long, ByVal nIndex As Long) As Long

Private Const GWL_STYLE = (-16)

Private Const WS_CAPTION = &HC00000

Sub HideTitleBar()

Dim hwnd As Long

hwnd = FindWindowA("XLMAIN", Application.Caption)

If hwnd <>0 Then

SetWindowLongA hwnd, GWL_STYLE, GetWindowLongA(hwnd, GWL_STYLE) And Not WS_CAPTION

End If

End Sub

这段代码通过调用Windows API函数，找到Excel窗口的句柄，然后通高差过设置窗口风格来隐藏标题栏。将代码复制到VBA编辑器中，然后运行HideTitleBar()子过程即可隐藏标题栏。请注意，这会影响到整个Excel应用程序的标题栏，而不仅仅是当前文档的标题栏。

是的，具体显现步骤如下：

1、使用组合键（win键+r）打开运行窗口，输入“notepad”按回车键新建一个记事本。

2、接着将下面的代码复制进记事本中：

for /f “delims=?” %%a in (‘dir /a /b’) do attrib -a -s -h -r “%%a”@echo offpause>nul

exit

然后点击“文件——另存为”选项。

3、在另存为窗口中，点击“桌面”再将保存类型修改为“所有文件（.）”册敬老并将文件名命名为“病毒隐藏文件夹.cmd”最后点击“保存”按钮。

4、此时在桌面上就能够看到一个病毒隐藏文件夹.cmd的文件了，将它拷贝进u盘稿脊根目录，并双击运行程州升序。

5、此时我们就能够看到程序对所有根目录文件执行attrib命令，这样所有被病毒隐藏文件夹就恢复了，刷新即可。

---