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

[µo°Ý] ¦p¦ó¼ÒÀÀ·Æ¹«¥ªÁäÂIÀ»ºô­¶¤å¦r¤è¶ô®ÄªG¡H

[µo°Ý] ¦p¦ó¼ÒÀÀ·Æ¹«¥ªÁäÂIÀ»ºô­¶¤å¦r¤è¶ô®ÄªG¡H

¦U¦ì«e½ú¡A¤j®a¦n¡C

¤p§Ì·Q­n¦Û°Ê¯d¨¥¦ÜFB
¥Ø«e¹J¨ìªº°ÝÃD¬O, ¤£ª¾¹D¦p¦ó¿ï¾Ü"¯d¨¥ªº¤å¦r¤è¶ô"¡]®ÄªG»Ý¦P«ö·Æ¹«¥ªÁäÂIÀ»®ÄªG)
¾É­P«áÄòªº¤å¦rµLªk¶Ç°e¥X¥h...

½Ð¦U¦ì«e½ú«ü±Ð.. ·PÁ¡I
  1. Sub AutoFB()
  2. Dim A
  3. Dim my_url
  4. Dim IE
  5. Dim ck
  6. ck = False
  7. Set IE = CreateObject("InternetExplorer.Application")
  8. my_url = "¬YFB¤å³¹ºô§}"
  9.   With IE
  10.         .Visible = True '
  11.         .navigate my_url
  12.             Do Until .ReadyState = 4
  13.                 DoEvents
  14.             Loop
  15.         Do
  16.         For Each A In .document.getElementsByTagName("textarea")
  17.             If A.Name = "add_comment_text" Then
  18.                         ck = True
  19.                         A.Click '·Q¦b³o¼ÒÀÀ·Æ¹«ÂIÀ»¤å¦r¤è¶ô, ¦ý³o¸Ì¦ü¥GµL®Ä! ½Ð°Ý¸Ó«ç»ò­×§ï¡H
  20.                         A.Value = "³o¬O´ú¸Õ¤å¦r"
  21.                     Application.SendKeys "~", True '¦]¬°«e­±ªºa.clickµL®Ä, ©Ò¥H³o¸Ì¤]¨S¿ìªk¼ÒÀÀ«öEnter¶Ç°e¤å¦r
  22.              End If
  23.         Next
  24.         Loop Until ck = True
  25. End With
  26. End Sub
½Æ»s¥N½X

Â^¨ú_2016_06_02_11_16_07_839.png (1.48 KB)

Â^¨ú_2016_06_02_11_16_07_839.png

        ÀR«ä¦Û¦b : ¯¸¦b¥b¸ô¡A¤ñ¨«¨ì¥Ø¼Ð§ó¨¯­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD