Private Sub Command1_Click()
Dim name As String
Dim C As Integer
Dim d As Byte
Open "d:\xc.dat" For Binary As #1
name = Text1.Text
For e = 1 To Len(name)
g = Mid(name, e, 1)
d = Asc(g)
Put #1, , d
Next e
Close #1
End Sub
以文本的方式能打开查看。我要怎么做别人才不能用计事本查看