if spath.replace(".htm","") 函数存在，则执行以下代码

     Functions.Execute(spath.replace(".htm",""),e)

如果输入网址不对的话，会弹出错误，能不能加入一个判断上去。

            try
                Functions.Execute(spath.replace(".htm",""),e)
            catch ex As exception
                PopMessage(0)
            End try

老师，我试过这样，也不行。

如何遍历自定义函数！

你无需佩服我，我只是一个小白，大家都知道你是论坛的大咖，自从我进论坛以来，你的帖子我看了无数遍，

以下是代码，如果别人输入错误的网址，则会提示没有找到相关的函数，这样系统会假死在那里，你说有没有必须去判断？

Dim spath As String = e.Path
If spath.Contains("http:\\\\") Then spath = spath.Replace("http:\\\\sg.vipgz2.idcfengye.com\\","")
Dim wb As New weui
wb.AddPageTitle("","pageheader","2020","春节联欢晚会")

        If spath.Contains(".htm") Then
            try
                Functions.Execute(spath.replace(".htm",""),e)
            catch ex As exception
                With wb.AddMsgPage("","msgpage1","错误提示", "错误404:你输入的网址有误!")
                    .icon = "warn"
                    With .AddButton("btn2","返回")
                        .kind = 2
                        .Attribute = ""
                    End With
                End With
                e.WriteString(wb.Build) \'生成网页
            End try
        Else
            With wb.AddMsgPage("","msgpage1","错误提示", "错误404:你输入的网址有误!")
                .icon = "warn"
                With .AddButton("btn2","返回")
                    .kind = 2
                    .Attribute = ""
                End With
            End With
            e.WriteString(wb.Build) \'生成网页
        End If