马兰谣合唱谱:破解VBA“工程不可查看”VB代码2

来源：百度文库编辑：九乡新闻网时间：2024/04/30 03:59:23

破解VBA“工程不可查看”VB代码2010-05-30 21:38转载自分享最终编辑 ahanbin Private Sub IC_Click()
Dim B     As Byte
Dim index As Double
Dim fso As FileSystemObject '要先添加引用“Microsoft Scripting Runtime”

dlg.ShowOpen
Filename = dlg.Filename

If Len(Filename) = 0 Then Exit Sub
Set fso = CreateObject("Scripting.FileSystemObject")

On Error Resume Next

fso.CopyFile Filename, Filename & ".bak", True

If Err.Number = 70 Then Tip.Text = "文件备份失败..."
Err.Clear

On Error GoTo 0

SetAttr Filename, 0
Open Filename For Binary As #1

DoEvents
index = 1

Do Until EOF(1)
       Get #1, index, B

       If B = 67 Then
         index = index + 1
         Get #1, index, B

         If B = 77 Then
            index = index + 1
            Get #1, index, B

            If B = 71 Then
                   Put #1, index + 1, 10
            End If
         End If

       Else
         index = index + 1
       End If

Loop

Close 1
Open Filename For Binary As #1
index = 1

Do Until EOF(1)
       Get #1, index, B

       If B = 68 Then
         index = index + 1
         Get #1, index, B

         If B = 80 Then
            index = index + 1
            Get #1, index, B

            If B = 66 Then
                   Put #1, index + 1, 10
            End If
         End If

       Else
         index = index + 1
       End If

Loop

Close 1
Open Filename For Binary As #1
index = 1

Do Until EOF(1)
       Get #1, index, B

       If B = 71 Then
         index = index + 1
         Get #1, index, B

         If B = 67 Then
            Put #1, index + 1, 10
         End If

       Else
         index = index + 1
       End If

Loop

Close 1

DoEvents
End Sub
类别：默认分类 |

| 添加到搜藏 | 分享到i贴吧 | 浏览(141) | 评论 (0) 上一篇：优秀驾驶员开车技巧，不妨一看，... 下一篇：Excel VBA工程密码破解程序 (绝...

破解VBA“工程不可查看”VB代码2 VB常用代码2 Excel VBA ADO 问题 - VB / VBA VB实用代码 VB实用代码收藏 VB中画园代码 VB实用代码，收实用的VB代码 VB 多线程实例代码 VB实用代码，收藏！！ 1VB实用代码，收藏！！ VB实用代码，收藏！！fdsf VB实用代码，收藏00 VB代码大收集20110819 VB ADO treeview代码(转) VBA和VB应用程序之异同和相互利用VBA宏代码把Excel单元 Excel VBA编程的常用代码a Excel VBA编程的常用代码22 Excel VBA编程的常用代码1 Excel VBA编程的常用代码 VBA系列讲座(2) VBA数组（2） VBA 基础讲座2