502647092/VBFunctionBas
1
0
Fork 0
mirror of https://e.coding.net/circlecloud/VBFunctionBas.git synced 2024-11-23 02:18:50 +00:00
Code Releases Activity

url为空则推出...

Browse Source 
Signed-off-by: 502647092 <jtb1@163.com>
This commit is contained in:
502647092 2015-11-11 12:44:32 +08:00
parent 564316f4a9
commit 026f9cf403
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
HttpHelper.bas
View File

@ -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