说明: Dim c As String 文件记录,大小 WriteFile 把哪个文件写进去,写到哪个文件里面去 Sub WriteFile(AppName As String, AppExeName As String) Dim i As Integer, i2 As Integer, BB() As Byte, CC() As Byte 读出文件1到BB i = FreeFile <weixin_45263359> 上传 | 大小:232kb
说明: 这里是一段准备加密的内容 Private Sub MiDu_Change() On Error Resume Next 防错,这个只要这一句就行了,放在最前面 If MiDu.Text > 255 Then MiDu.Text = MiDu.Text Mod 256 End Sub <weixin_45263359> 上传 | 大小:7kb