[求助]企业微信可信域名校验 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

参考：https://work.weixin.qq.com/help?doc_id=14346

1、HttpServer.WebPath = "d:\web"

如果是这样设置目录，校验文件要放到比如："d:\web\WW_verify_lLUDnB6wgNiIHdN1.txt"

1、如果是设置了通用事件头，要加上扩展名txt，文件同样要放到："d:\web\WW_verify_lLUDnB6wgNiIHdN1.txt"

'通用事件头,用于发送已经存在的常见文件
Dim fl As String = "d:\web\" & e.path
If filesys.FileExists(fl)
    Dim idx As Integer = fl.LastIndexOf(".")
    Dim ext As String = fl.SubString(idx)
    Select Case ext
        Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar",".txt"
            e.WriteFile(fl)
            Return '这里必须返回
    End Select
End If

主题：[求助]企业微信可信域名校验