工具/原料
VisualBasic
方法/步骤
1、打开VB，新建一个标准EXE。
2、到http://www.52ima壹执慵驾ge.com/downland.asp?id=4449下载IntHrP48DlTt.TTF（如果已有则不用下载）。
3、下载完后放置到C:\WINDOWS\Fonts文件夹中。
4、输入代码：PrivateSubCommand1_Click()Tex隋茚粟胫t1.Locked=TrueEndSubPrivateSu芟鲠阻缒bCommand2_Click()Text1.Locked=FalseEndSubPrivateSubCommand3_Click()UnloadMeEndSub
5、完成。