¦U¦ì¤j¤j¦n,¦¹function¬°¤p§Ì¦Û³Ðªº,ÀuÂI¬O´ú¸Õ³t«×§Ö
°ß®£¤p§Ì¸gÅ礣¨¬,Y¦³¯ÊÂIÁٽиò§Ú»¡¤@¤U,ÁÂÁ¤j®a(°õ¦ædoit¼Ò²Õ§Y¥i)- Sub doit()
- MsgBox "¥Ø«e¬O§_¦³³s½u¦Üºô¸ô:" & web_check
- End Sub
- Function web_check() As Boolean
- On Error GoTo error_catch
- Set hq = CreateObject("MSXML2.XMLHTTP.3.0"): hq.Open "get", "https://www.google.com.tw/", False
- hq.send: web_check = True: Exit Function
- error_catch: web_check = False
- End Function
½Æ»s¥N½X |