1、加入msgbox定位出错位置;
http://www.foxtable.com/webhelp/scr/1485.htm
2、是不是你这个地址访问有错?我测试无法获取时间的
Dim url1 As String = "http://api.k780.com:88/?app=life.time&appkey=10003&sign=b59bc3ef6191eb9f747dd4e83c99f2a4&format=json"