VB源代码-文本防窥探工具

下载后可任意编辑文本防窥探工具 VB 源代码本软件的 VB 源代码包括两个窗体，两个模块，具体如下：‘Form1’CodePrivate Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long '声明Private Sub Command3_Click()Form2.ShowEnd SubPrivate Sub Form_Load()If Dir(App.Path & "\skin.urf") <> "" ThenDim bRes As Boolean bRes = SkinStart(App.Path & "\skin.urf", 2, "RQPJNW0N0V2QRMAP1KXVBHHDUVVQGUXR", 1, 0, 0) End IfCommand2.Enabled = FalseEnd SubPrivate Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)If Data.Files.Count < 1 Then Exit Sub Dim tFile As String tFile = Data.Files.Item(1) If UCase(Right(tFile, 4)) <> ".TXT" Then MsgBox "拖放的文件不是 TXT 文件", , "提示" Exit Sub End IfDim sA As String * 65400Open Data.Files(1) For Binary As #1Get #1, , sAClose #1Text1.Text = sAEnd SubPrivate Sub Command1_Click()Text2.Text = DeCrypt(Text1.Text, zihao2024)Open App.Path & "\" & "已加密" & ".txt" For Output As #1 Print #1, Text2.Text Close #1 MsgBox "已保存在“已加密.txt”中", , "提示"End Sub下载后可任意编辑Private Sub Command2_Click()Text2.Text = Crypt(Text1.Text, zihao2024)Open App.Path & "\" & "已解密" & ".txt" For Output As #1 Print #1, Mid(Text2.Text, 1, Len(Text1.Text) - 2) Close #1 MsgBox "已保存在“已解密.txt”中", , "提示"End SubPrivate Sub Label2_Click()ShellExecute 0, "open", "http://blog.sina.com.cn/s/blog_92b6d74d01012s3r.html", vbNullString, vbNullString, 3End SubPrivate Sub Text1_Change()If Text1.Text <> "" ThenCommand2.Enabled = TrueEnd IfEnd SubPrivate Sub Timer1_Timer()Static c As Integerc = c + 1Select Case cCase...