不知道为什么，在点击前面FTP上传按钮后，再点击OCR识别证件时会弹出

OCR识别证件按钮代码如下：

Dim sffo As String
sffo = ProjectPath & "Attachments\\sdb.cfg"
Dim txt As WinForm.Label = e.Form.Controls("Label1")
If FileSys.FileExists(sffo) Then
    Dim Info As String
    Info = FileSys.ReadAllText(sffo) \'读取生成的文本文件
    info = info.Replace(vbcrlf,vblf) \'将回车换行替换为换行
    Dim pars() As String = Info.Split(vblf) \'将读取的信息拆分为数组
    Dim tsq1 As String
    Dim tsq2 As String
    Dim tsq3 As String
    Dim jzf1 As String = pars(0).SubString(6)
    Dim jzf3 As String = pars(1).SubString(7)
    Dim jzf5 As String = pars(2).SubString(10)
    tsq1 = jzf1.Trim()
    tsq2 = jzf3.Trim()
    tsq3 = jzf5.Trim()
    Vars.Add("AppID",Gettype(String),tsq1)
    Vars.Add("APIKey",Gettype(String),tsq2)
    Vars.Add("SecretKey",Gettype(String),tsq3)
    Dim File As String = "d:\\Temp.jpg"
    Dim pic1 As WinForm.PictureBox = e.Form.Controls("证件图1")
    pic1.Image.Save(File)
    Dim r As Row = Tables("员工信息_员工信息").Current
    try
        Dim client As new Baidu.Aip.Ocr.Ocr(Vars("APIKey"), Vars("SecretKey")) \'初始化接口类,传入创建的应用的API Key,Secret Key
        client.Timeout = 60000 \'设置超时时间
        Dim data() As Byte = System.IO.File.ReadAllBytes(File)\'dlg.FileName) \'把图片文件字节流加载进来,
        Dim options As new Dictionary(of String, object) \'使用字典传递参数
        \'options.Add("detect_direction","true") \'是否检测图像朝向,默认不检测
        options.Add("detect_risk","true")
        Dim jo = client.Idcard(data,"front", options) \'调用接口开始识别,返回值为JObject对象
        If jo("error_code") IsNot Nothing AndAlso jo("error_code") <> 0 Then
            txt.text = "识别失败: " & vbcrlf & jo("error_msg").Tostring
        Else
            Dim sbu As new StringBuilder
            sbu.AppendLine( "--------************-----------")
            sbu.AppendLine( "状态:" & jo("image_status").Tostring)
            If jo("risk_type") IsNot Nothing Then sbu.AppendLine("风险类型:" & jo("risk_type").Tostring)
            If jo("edit_tool") IsNot Nothing Then sbu.AppendLine("编辑状态:" & jo("edit_tool").Tostring)
            sbu.AppendLine( "--------************-----------")
            sbu.AppendLine( "识别出" & jo("words_result_num").Tostring & "条信息:")
            If jo("words_result")("公民身份号码") IsNot Nothing Then sbu.AppendLine( "--公民身份号码:" & jo("words_result")("公民身份号码")("words").ToString)
            If jo("words_result")("出生") IsNot Nothing Then sbu.AppendLine( "--出生日期:" & jo("words_result")("出生")("words").ToString)
            If jo("words_result")("姓名") IsNot Nothing Then sbu.AppendLine( "--姓名:" & jo("words_result")("姓名")("words").ToString)
            If jo("words_result")("性别") IsNot Nothing Then sbu.AppendLine( "--性别:" & jo("words_result")("性别")("words").ToString)
            If jo("words_result")("民族") IsNot Nothing Then sbu.AppendLine( "--民族:" & jo("words_result")("民族")("words").ToString)
            If jo("words_result")("住址") IsNot Nothing Then sbu.AppendLine( "--住址:" & jo("words_result")("住址")("words").ToString)
            r("原籍地址") = jo("words_result")("住址")("words").ToString
            If FileSys.FileExists(File) Then \'如果指定的文件存在
                FileSys.DeleteFile(File,2,2) \'则彻底删除之
            End If
        End If
    catch ex As exception
        txt.Visible = True
        txt.text = txt.text & vbcrlf & "识别接口调用失败,错误描述: " &  vbcrlf & ex.message
        txt.ForeColor = Color.Red
    End try
Else
    Dim frm As WinForm.Form
    frm = Forms("百度AI开发接口数据配置")
    frm.Open()
End If

这是窗口文件，帮我看一下吧