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

[µo°Ý] ½Ð°Ývba­n¦p¦ó§PÂ_ºô­¶¤¤ªºjsªº³¡¥÷¸ü¤J§¹¦¨©O?

[µo°Ý] ½Ð°Ývba­n¦p¦ó§PÂ_ºô­¶¤¤ªºjsªº³¡¥÷¸ü¤J§¹¦¨©O?

«e½ú­Ì¦n
¥Ø«evba§PÂ_ºô­¶¸ü¤J§¹¦¨¬O¥Î¤U¤èµ{¦¡½X
  1. timeOut = Now + TimeSerial(0, 0, 20)        '­¶­±§¹¥þ¥[¸ü§¹¦¨¤§«eµ¥«Ý
  2.         Do While objIE.Busy = True Or objIE.ReadyState <> 4  'Busy¬dºô­¶¬O§_¥¿¦b¥[¸ü¤¤¡Areadystate¬dIE¹ï¶Hªº¤åÀɪº¥[¸üª¬ºA
  3.             DoEvents
  4.             Sleep 1
  5.             If Now > timeOut Then
  6.                 objIE.Refresh
  7.                 timeOut = Now + TimeSerial(0, 0, 20)
  8.             End If
  9.         Loop
  10.         timeOut = Now + TimeSerial(0, 0, 20)
  11.         Do While objIE.Document.ReadyState <> "complete"
  12.             DoEvents
  13.             Sleep 1
  14.             If Now > timeOut Then
  15.                 objIE.Refresh
  16.                 timeOut = Now + TimeSerial(0, 0, 20)
  17.              End If
  18.         Loop
½Æ»s¥N½X
³o­Ó³¡¥÷¨S¦³°ÝÃD¡A¦ý¬O·í¹J¨ìºô­¶¬O¦³jsªºªí³æ®É¡A·|¦³¸ü¤Jªº®É¶¡4~10¬í¡A­n¬Ý¨C­Ó¤Hªº¹q¸£¯à¤O
¦ý¬O¥Î¤W­±ªºµ{¦¡½X¨S¦³°µ¥Î
©Ò¥H·Q°Ý°Ý«e½ú­Ì¡A¬O§_¦³§Oªº¤è¦¡¥i¥H§PÂ_
§Ú¥Î¤FIsObject(objIE.Document.getElementById("noodle-page-title")) = True¨Ó§PÂ_¬O§_¦³«ü©wªºid¥X²{¤F
¤£¹L¨S·Q¨ìjs¦n¹³¬O´N¤w¥ý¦³html½X¡A¥u¬OÁÙ¨S¥[¸ü¥X¨Ó???
¥Ø«e¥u¯à¥ÎApplication.Wait (Now + TimeValue("00:00:07"))¨Ó©µªø®É¶¡
¦ý¤£¬O¤@­Ó¦n¤è¦¡¡A¦]¬°±`±`·|¦³´X¥x¹q¸£­n§ó¤[ªº®É¶¡

        ÀR«ä¦Û¦b : ¦n¨Æ­n´£±o°_¡A¬O«D­n©ñ±o¤U¡A¦¨´N§O¤H§Y¬O¦¨´N¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD