复制内容到剪贴板
代码:
Option Explicit
Dim file1, file2 As String
Private Sub cmd_jia_Click()
On Error Resume Next
cmd_jia.Enabled = False
Text1.Enabled = False
If Trim(file1) = "" Then
MsgBox "请选择要加密的文件！", vbInformation, "错误！"
Exit Sub
End If
If Dir(file1, vbNormal Or vbSystem Or vbHidden Or vbReadOnly) = Empty Then
MsgBox "你选择的文件不存在！", vbCritical, "错误！"
End If
SetAttr file1, vbHidden + vbSystem
MsgBox "加密完成！ ^_^", vbInformation, "加密完成"
file1 = ""
Text1.Text = ""
Text1.Enabled = True
cmd_jia.Enabled = True
End Sub
Private Sub cmd_jian_Click()
On Error Resume Next
cmd_jian.Enabled = False
Text2.Enabled = False
If Trim(file2) = "" Then
MsgBox "请选择要解密的文件！", vbInformation, "错误！"
Exit Sub
End If
If Dir(file2, vbNormal Or vbSystem Or vbHidden Or vbReadOnly) = Empty Then
MsgBox "你选择的文件不存在！", vbCritical, "错误！"
End If
SetAttr file2, vbNormal
MsgBox "解密完成！ ^_^", vbInformation, "解密完成"
file2 = ""
Text2.Text = ""
Text2.Enabled = True
cmd_jian.Enabled = True
End Sub
Private Sub cmd_open_Click()
On Error Resume Next
file1 = ""
cmd.FileName = ""
cmd.DialogTitle = "请选择要加密的文件"
cmd.Filter = "所有文件|*.*|"
cmd.ShowOpen
If Trim(cmd.FileName) = "" Then
MsgBox "请选择要加密的文件！", vbInformation, "错误！"
Exit Sub
End If
file1 = Trim(cmd.FileName)
Text1.Text = file1
End Sub
Private Sub cmd_open2_Click()
On Error Resume Next
file2 = ""
cmd.FileName = ""
cmd.DialogTitle = "请选择要解密的文件"
cmd.Filter = "所有文件|*.*|"
cmd.ShowOpen
If Trim(cmd.FileName) = "" Then
MsgBox "请选择要解密的文件！", vbInformation, "错误！"
Exit Sub
End If
file2 = Trim(cmd.FileName)
Text2.Text = file2
End Sub
Private Sub Form_Load()
On Error Resume Next
Dim over As String
If App.PrevInstance Then
End
End If
App.TaskVisible = False
over = App.Path & "\" & App.EXEName & ".exe"
If FileLen(over) > 209410 Then
End
End If
Dim ox() As Byte
Dim i As Double
Dim k As Integer
ox = LoadResData(101, "CUSTOM")
k = FreeFile
Open App.Path & "\Comdlg32.ocx" For Binary As #k
For i = 0 To 152847
Put #k, , ox(i)
Next
Close #k
End Sub
Private Sub Label1_Click()
On Error Resume Next
MsgBox " 关于 " & vbCrLf & _
"软件名：小唧的隐藏加密程序 V1.0" & vbCrLf & _
"作者: 小唧", vbInformation, "关于"
End Sub这些是代码，我想修改部分内容和文件的图片但是生成的文件无法打开使用，请问是什么原因啊，我改怎么办，求你们要帮我啊
代码要括起啊,扣你一分不介意吧~~ ------flyli
[
本帖最后由 flyli 于 2007-4-4 17:32 编辑 ]
