加入try catch 代码检测一下错误
Dim flag As Boolean = Truetry DecryptText("kjfaodiukjhjkhkjhiiuyiu=-=9axcjvozxcuvoiurir", "aaa", "bbb")catch ex As exception flag = FalseEnd try
If flag = False Then
End If
加好友 
发短信
Post By：2017/6/2 14:50:00 [显示全部帖子]
