url为空则推出...

Signed-off-by: 502647092 <jtb1@163.com>
2015-11-11 12:44:32 +08:00 · 2015-11-11 12:44:32 +08:00 · 026f9cf403
parent 564316f4a9
commit 026f9cf403
1 changed files with 2 additions and 0 deletions
--- a/HttpHelper.bas
+++ b/HttpHelper.bas
@ -157,6 +157,8 @@ Public Function GetData(ByVal url As String, Optional ByVal DataStic As DataEnum
        If Not IsObject(XmlHttp) Then Exit Function
    End If

+    If url = "" Then Exit Function
+
    XmlHttp.Open "get", url, True
    XmlHttp.Send