ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] Ãö©óºô­¶­ì©lÀÉ®×-¸ê®ÆÅª¨ú

¦^´_ 1# uf023630
  1. Option Explicit
  2. Private Sub Ex()
  3.     Dim S, URL As String
  4.     URL = "http://?????"
  5.     With CreateObject("Microsoft.XMLHTTP")
  6.         .Open "get", URL, False
  7.        .send
  8.         '.responseText-> "­ì©l½X"¡A
  9.        S = Split(.responseText, "ÃöÁä¦r") '­ì©l½X¥H"ÃöÁä¦r"¬°°}¦C
  10.        S = Split(S(1), "¦¨­ûÃöÁä¦r")      '¤À³Î¨ú±o§A­nªº¤º³¡ºô¯¸20¦ì­û¸ê®Æªº°}¦C
  11.     End With
  12. End Sub
½Æ»s¥N½X
¤]¥i¦p¦¹
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¦³´¼¼z¤~¯à¤À¿ëµ½´c¨¸¥¿¡F¦³Á¾µê¤~¯à«Ø¥ß¬üº¡¤H¥Í¡C
ªð¦^¦Cªí ¤W¤@¥DÃD