VB编程 获取了本机mac地址,校验失败怎样将PPT放映内容删除?
在PPT中加载宏命令
首先校验了本机MAC地址,怎样编写代码,使得校验失败后,将PPT内全部内容删除?最好删除后保存,使得无法撤销操作。
现在的代码如下:
Sub OnSlideShowPageChange() '放映
currentpath = createobject("Scripting.FileSystemObject").GetFolder(".").Path
Dim cipan, xlh ’序列号
Set cipan = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_LogicalDisk")
For Each mo In cipan
If mo.Name = "D:" Then
If mo.VolumeSerialNumber <> "" Then xlh = mo.VolumeSerialNumber
End If
Next
If xlh <> "4C123BD" Then
MsgBox "验证失败:)"
SendKeys "%{F4}"
Else
MsgBox "验证成功已解锁文件"
end if
End Sub