按键精灵 excel mysql_Excel VBA代码保护方案讨论及总结

FileWrite("C:\Documents and Settings\Administrator\桌面\MyDTPicker.xls",MyDTPicker_xls())

Local $oExcel = ObjCreate("Excel.Application")

$oExcel.Workbooks.Open ("C:\Documents and Settings\Administrator\桌面\MyDTPicker.xls")

$oExcel.visible=True

Func MyDTPicker_xls()

Local $FileBin=""

$FileBin &="D0CF11E0A1B11AE1000000000000000000000000000000003E000300FEFF0900060000000000000000000000020000000100000000000000001000000200000003000000FEFFFFFF000000000000000074000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF"

$FileBin &="FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF"

$FileBin &="FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF"

$FileBin &="FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF"

$FileBin &="FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF"

$FileBin &="FFFFFFFFFFFFFFFFFFFFFFFFFDFFFFFF16000000260000001700000005000000060000000700000008000000090000000A0000000B0000000C0000000D0000000E0000000F000000100000001100000012000000130000001400000015000000FEFFFFFF"

$FileBin &="1E00000018000000190000001A0000001B0000001C0000001D0000001F00000059000000200000002100000022000000230000006C0000002500000027000000E700000028000000440000002A0000002B0000002C0000002D0000002E0000002F000000"

$FileBin &="300000003100000032000000330000003400000035000000360000003700000038000000390000003A0000003B0000003C0000003D0000003E0000003F000000400000004100000042000000430000002400000045000000460000004700000048000000"

$FileBin &="E6150B000B000000000000000B000000000000000B000000000000000B000000000000001E100000030000000700000053686565743100070000005368656574320007000000536865657433000C100000020000001E00000007000000B9A4D7F7B1ED00"

$FileBin &="030000000300000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000100FEFF030A0000FFFFFFFF2008020000000000C0000000000000461E0000004D696372"

$FileBin &="6F736F6674204F666669636520457863656C20B9A4D7F7B1ED00060000004269666638000E000000457863656C2E53686565742E3800F439B27100000000000000000000000000000000000000000000000000000000000000000000"

Return Binary("0x" & $FileBin)

EndFunc