- crdutoan đã viết:
- Ai cần khóa mềm dự toán Acitt 2009 liên hệ 0978783428. Chi phí gần như Free. Vui là chính
Khóa mềm của cậu có khử được thằng này không? Nếu được tớ đặt cọc VND luôn
Function MsgboxErr(ByVal ErrNum As Integer)
'Error Code
Select Case ErrNum
'Global Const ERR_SUCCESS = 0 'SuccessCase 0
MsgBox "Success", 16, "Dự toán ACITT"
'Global Const ERR_NO_PARALLEL_PORT = 1 'No parallel port on the computer Case 1
MsgBox "No parallel port on the computer", 16, "Dự toán ACITT"
'Global Const ERR_NO_DRIVER = 2 'No install drivers Case 2
MsgBox "No install drivers", 16, "Dự toán ACITT"
'Global Const ERR_NO_ROCKEY = 3 'No rockey dongle Case 3
MsgBox "No rockey dongle", 16, "Dự toán ACITT"
'Global Const ERR_INVALID_PASSWORD = 4
'Found rockey dongle, but base password is wrongCase 4
MsgBox "Found rockey dongle, but base password is wrong", 16, "Dự toán ACITT"
'Global Const ERR_INVALID_PASSWORD_OR_ID = 5 'Wrong password or rockey HID Case 5
MsgBox "Wrong password or rockey HID", 16, "Dự toán ACITT"
'Global Const ERR_SETID = 6 'Set rockey HID wrong Case 6
MsgBox "Set rockey HID wrong", 16, "Dự toán ACITT"
'Global Const ERR_INVALID_ADDR_OR_SIZE = 7 'Read/Write address is wrong Case 7
MsgBox "Read/Write address is wrong", 16, "Dự toán ACITT"
'Global Const ERR_UNKNOWN_COMMAND = 8 'No such command Case 8
MsgBox "No such command", 16, "Dự toán ACITT"
'Global Const ERR_NOTBELEVEL3 = 9 'Inside error Case 9
MsgBox "Inside error", 16, "Dự toán ACITT"
'Global Const ERR_READ = 10 'Read error Case 10
MsgBox "Read error", 16, "Dự toán ACITT"
'Global Const ERR_WRITE = 11 'Write error Case 11
MsgBox "Write error", 16, "Dự toán ACITT"
'Global Const ERR_RANDOM = 12 'Random error Case 12
MsgBox "Random error", 16, "Dự toán ACITT"
'Global Const ERR_SEED = 13 'Seed Code error Case 13
MsgBox "Seed Code error", 16, "Dự toán ACITT"
'Global Const ERR_CALCULATE = 14 'Calculate error Case 14
MsgBox "Calculate error", 16, "Dự toán ACITT"
'Global Const ERR_NO_OPEN = 15 'No open dongle before operate dongle Case 15
MsgBox "No open dongle before operate dongle", 16, "Dự toán ACITT"
'Global Const ERR_OPEN_OVERFLOW = 16 'Too more open dongle(>16) Case 16
MsgBox "Too more open dongle", 16, "Dự toán ACITT"
'Global Const ERR_NOMORE = 17 'No more dongle Case 17
MsgBox "No more dongle", 16, "Dự toán ACITT"
'Global Const ERR_NEED_FIND = 18 'No Find before FindNext Case 18
MsgBox "No Find before FindNext", 16, "Dự toán ACITT"
'Global Const ERR_DECREASE = 19 'Decrease error Case 19
MsgBox "Decrease error", 16, "Dự toán ACITT"
'Global Const ERR_AR_BADCOMMAND = 20 'Arithmetic instruction error Case 20
MsgBox "Arithmetic instruction error", 16, "Dự toán ACITT"
'Global Const ERR_AR_UNKNOWN_OPCODE = 21 'Arithmetic operator error Case 21
MsgBox "Arithmetic operator error", 16, "Dự toán ACITT"
'Global Const ERR_AR_WRONGBEGIN = 22
'Const number can't use on first arithmetic instruction
Case 22
MsgBox "Const number can't use on first arithmetic instruction", 16, "Dự toán ACITT"
'Global Const ERR_AR_WRONG_END = 23
'Const number can't use on last arithmetic instruction
Case 23
MsgBox "Const number can't use on last arithmetic instruction", 16, "Dự toán ACITT"
'Global Const ERR_AR_VALUEOVERFLOW = 24 'Const number > 63 Case 24
MsgBox "Const number > 63", 16, "Dự toán ACITT"
'Global Const ERR_UNKNOWN = &HFFFF 'Unknown error Case &HFFFF
MsgBox "Unknown error", 16, "Dự toán ACITT"
'Global Const ERR_RECEIVE_NULL = &H100 'Receive null Case &H100
MsgBox "Receive null", 16, "Dự toán ACITT"
'Global Const ERR_PRNPORT_BUSY = &H101 'Parallel busy Case &H101
MsgBox "Parallel busy", 16, "Dự toán ACITT"
'Global Const ERR_UNKNOWN_SYSTEM = &H102 'Unknown operate system Case &H102
MsgBox "Unknown operate system", 16, "Dự toán ACITT"
End Select
Cancel_Exit = True
End Function
'Option Explicit
http://www.4shared.com/document/emw6gnuj/DutoanACITT.html