偶的小程序,帮忙测试一下,觉的可以的话,偶提供源程序.

Question

给任意EXE文件加口令
http://www.newup.com.cn/software/Exencryptor.rar

Answer 1

我这边用不起来.
有个库好象注册不起来.你所把源码发给我吧.
[email protected]

Answer 2

运行exencryptor.exe，出现：
Component 'DBGRID32.OCX' or one of its dependencies not correctly registered; a file is missing or invalid

Answer 3

重新打包, 把dbgrid32.ocx加上, 我这里运行不了

Answer 4

我下载了一个dbgrid32.ocx
运行后程序怎么没什么反应呢, exe文件照样能打开

Answer 5

重新打包, 把dbgrid32.ocx加上, 我这里运行不了
---------------------------------------------
已经重新压过了,下载地址不变
我下载了一个dbgrid32.ocx
运行后程序怎么没什么反应呢, exe文件照样能打开
-------------------------------------------
请参照readme.doc中的方法进行操作.

Answer 6

请提供源码：
[email protected]

Answer 7

add(成功) -> remove(成功) -> exit(失败)
错误信息:Run-time error '3021':
         无当前记录。

Answer 8

可以提供源代码吗？
[email protected]

Answer 9

add(成功) -> remove(成功) -> exit(失败)
错误信息:Run-time error '3021':
         无当前记录。
--------------------------------------------------------------------
谢谢您的意见,是我程序上的BUG.相关部分源程:Private Sub Form_Unload(Cancel As Integer)
    Data1.Recordset.MoveFirst
    Do While Not Data1.Recordset.EOF
        With Data1.Recordset
            .Edit
            .Fields("flag") = 0
            .Update
        End With
    Data1.Recordset.MoveNext
    Loop
    Data1.Recordset.Close
    Unload Me
    End
End Sub
现在改为:
Private Sub Form_Unload(Cancel As Integer)
    If Data1.Recordset.RecordCount <> 0 Then
        Data1.Recordset.MoveFirst
        Do While Not Data1.Recordset.EOF
            With Data1.Recordset
                .Edit
                .Fields("flag") = 0
                .Update
            End With
        Data1.Recordset.MoveNext
        Loop
    End If
        Data1.Recordset.Close
        Unload Me
        End
End Sub
应该不会出错了,呵呵

Answer 10

没问题啊...
可以提供源码吗?
[email protected]

Answer 11

对此非常感兴趣，能提供源码吗，谢谢！
[email protected]

Answer 12

开始出现注册错误
退出出现run-time error"91"

Answer 13

给我一份
[email protected]
或
[email protected]

Answer 14

给我一份，不过好像和我的问题不符。[email protected]