主题：怎么仅打开一个登陆窗口就死机了

怎么仅打开一个登陆窗口就死机了

此主题相关图片如下：微信图片_20200213093556.png


此主题相关图片如下：微信图片_20200213093627.png

打开其他项目可以正常打开

 

打开窗口有问题？还是点击确定按钮后有问题？都有什么代码？

另外一个项目没有问题，昨天还可以正常使用，今天早上就成这样了

 

打开窗口就死机，其他按钮或选项都没有法点

 

Dim n As Integer = Registry.GetValue("HKEY_CURRENT_USER\Software\MyApp","Count",1)
Dim Code As String = Registry.GetValue("HKEY_CURRENT_USER\Software\MyApp", "Register" & ComputerId, "")
Dim Ok As Boolean
If Code > "" AndAlso DecryptText(Code,"123456789","123456789") = ComputerId Then '如果注册码正确
    OK = True
Else
   
    Forms("注册").Open()
    Code = Registry.GetValue("HKEY_CURRENT_USER\Software\MyApp", "Register" & ComputerId, "")
    If Code > "" AndAlso DecryptText(Code,"123456789","123456789") = ComputerId Then '如果注册码正确
        OK = True
    Else
        Syscmd.Project.Exit()
        Return
    End If
 End If
Registry.SetValue("HKEY_CURRENT_USER\Software\MyApp","Count",n + 1)
If OK = False Then
    Syscmd.Project.Exit()
    Return
End If
With FileWatcher
    .Path = ProjectPath & "RemoteFiles\"
    .Filter = "*.*"
    .Delay = 1000
    .Enabled = True
End With

Forms("用户登录").Open()
If _UserName = "" Then
    Syscmd.Project.Exit()
    Return '这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错
End If

If User.Type <> UserTypeEnum.Developer AndAlso _UserName <> "牛合军" Then
    TableCaptionVisible = False
    RibbonTabs("Table").Visible = False
    RibbonTabs("Project").Visible = False
    RibbonTabs("Print").Visible = False
    RibbonTabs("Other").Visible = False
    RibbonTabs.HideTabHeaderRow = True
       basemainform.windowstate = 0
    basemainform.width = SysInfo.WorkingAreaWidth
    basemainform.height = SysInfo.WorkingAreaHeight
 End If

Dim tb As DataTable = DataTables("基本情况")
Dim nms2 As new List (of String )
If tb.find("项目= '开始日期'")("内容") = "" Then
    MessageBox.show("请先打开基本情况窗口设置基本信息","提示")
Else
    For y As Integer = CDate(tb.find("项目= '开始日期'")("内容")).Year To CDate(tb.find("项目= '截止日期'")("内容")).Year
        nms2.Add(y)
    Next
    kuaijiqijian = nms2
End If


With FileWatcher
    .Path = "D:\高拍文件"
    .Delay = 1000
    .Enabled = True
End With

这是afterload里的代码，昨天还正常使用，这里的代码也没有修改，今天突然就不能用了

现在又可以正常登陆了，不知道是什么原因，是不是电脑被控制了