根据byzx的《划时代的技术革新--小海尔当遥控测码器用》
原文地址：[url]http://bbs.lcdhome.net/read-htm-tid-90154.html[/url]
做的一个小工具（测试版）
现手里没有小海尔的机器，欢迎大家测试！有问题可跟帖！ [p_w_upload=97961]
在开机时摁住面板上除了菜单键之外的任意一键（因为菜单键是强升键序列的第一键），即可进入测码程序（此时面板显示111），测完后，按面板上任意一个非初始的键，即可退出测码程序（此时面板显示222），继续收看电视节目。
如果开机时什么键都不摁，和本程序不存在一样，直接启动应用程序，进入看电视状态。
文章出处：LCDHOME论坛网[url]WWW.LCDHOME.NET[/url] 原文地址：[url]http://bbs.lcdhome.net/read-htm-tid-90154.html[/url]
源码
Private Sub Command1_Click()
FileCopy s, App.Path & "flash.bin"
Dim strFileName1 As String '第一个文件
Dim strFileName2 As String '第二个文件
Dim strOutput As String '合并后的文件
Dim aryContent() As Byte '用来读取文件的数组，每次读取前要重定义
strFileName1 = App.Path & "UPD_UPD.BIN"
strFileName2 = s
strOutput = App.Path & "flash.bin"
'注意下面三个Open语句都是用Binary模式打开的
Open strOutput For Binary As #100
Open strFileName1 For Binary As #1
Open strFileName2 For Binary As #2
ReDim aryContent(1 To LOF(1))
Get #1, , aryContent() '取得第一文件的内容到数组
Put #100, &H401, aryContent() '把第一文件的内容写到H401文件中
'关闭文件
Close #1
Close #2
Close #100
MsgBox "BIN制作完成"
End Sub
