Foxtable(狐表)用户栏目专家坐堂 → 请教:DecryptText的问题


  共有2668人关注过本帖树形打印复制链接

主题:请教:DecryptText的问题

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/10/12 22:38:00 [显示全部帖子]

If xsjls>50
    Dim flag As Boolean
    Try
        If  DecryptText(zcm,"成功网络","www.chengon.com") = dwmc Then '如果注册码正确
            flag = True
        Else
            flag = False
        End If
    catch ex As Exception
        Forms("软件注册错误格式提示").show()
    finally
        If flag = False Then Forms("注册提示窗口").show()     
    End try
End If


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/10/13 11:13:00 [显示全部帖子]

 退出试试这样写

 

System.Diagnostics.Process.GetProcessesByName("Foxtable")(0).Kill


 回到顶部