【资料图】

1、从图片上看楼主用的是VB吧。

2、VB把汉字转换成内码是很简单的。

3、Private Sub Command1_Click() Text2.Text = Hex(Asc(Text1.Text))End Sub。

本文分享完毕，希望对大家有所帮助。