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

½Ð°Ý¦p¦ó±Nºô­¶ªº¹Ï¤ù¦sÀÉ

¦^´_ 6# GBKEE
½Ð°Ý ª©¤j³o¬O¨º¸Ì¥X¿ù
ÁÂÁÂ

2014-12-13_114055.jpg (98.46 KB)

2014-12-13_114055.jpg

¬¡­¶Ã¯1.rar (15.6 KB)

TOP

¦^´_ 9# GBKEE

GBKEE ¤j
°õ¦æ¦³¶}±ÒIE
¿ù맽X¦p¤U¡AÁÙ¬O§Ú¦³¨º¤@¨B°µ¤F¡AÁÂÁÂ

Àɦw¦P©ñD:\ ®Ú¥Ø¤U

2014-12-13_143120.jpg (111.53 KB)

2014-12-13_143120.jpg

2014-12-13_143151.jpg (36.57 KB)

2014-12-13_143151.jpg

¬¡­¶Ã¯1.rar (23.84 KB)

TOP

¦^´_ 11# GBKEE
GBKEE ¤j¤j
2010ª©ªº§ä¤£¨ì¹Ï¤ù¦p¦ó§ó¦W¡A
³oµ{¦¡¬O­n¥ý¬Ý¹Ï¤ùªº¦r¦A¿é¤J F2 ©M f4 ¤~¥i¿é¥X¶Ü
µ{¦¡ÁÙ¤£²M·¡¡A¬ã¨s¬Ý¬Ý ¤£·|¦A½Ð±Ð ¤j¤j
ÁÂÁ  GBKEE ª©¤j

¬¡­¶Ã¯1.rar (29.42 KB)

TOP

¦^´_ 11# GBKEE

ÁÂÁÂ GBKEE ¤j¤j
* ¨Ï¥Îø¹Ïªº¹Ï¤ù
¥i¥H¤F ^_^

2014-12-13_192543.jpg (70.4 KB)

2014-12-13_192543.jpg

TOP

¦^´_ 14# GBKEE

­ì¨Ó´N¦b­±«e «¢
ÁÂÁÂ GBKEE ¤j¤j

TOP

¥»©«³Ì«á¥Ñ wufonna ©ó 2014-12-14 15:09 ½s¿è

¦^´_ 14# GBKEE


    ½Ð°Ý ¤j¤j ²Ä¤@¬q¹ïÀ³ªº¬O³oµ{¦¡½X¶Ü¡A¨º²Ä¤G¬qªº§Ú³o¼Ë§ï¬°¦ó¬dµL¸ÓªÑ²¼¥N½X¸ê®Æ
½Ñ°Ý ¤j¤j ¦p¦ó¦³»~¡A§ï¦p¦ó°µ½m²ß¡AÁÂÁÂ


<button type="submit" class="btn btn-default"><span class="glyphicon glyphicon-search" aria-hidden="true"></span>&nbsp;¬d¸ß</button>

      Set a = .Document.ALL.tags("BUTTON")
        For Each e In a
            If Trim(e.innertext) = "¬d¸ß" And e.ID = "" Then
            e.Click
            Exit For
            End If
        Next

<input type="radio" id="rdo_search_stk" tabindex="14" name="rdo_search" value="1" class="input-radio-search" checked><span>­ÓªÑ¬d¸ß</span>
<button id="header_search_btn" tabindex="17" class="input-button ui-corner-all" tabindex="13">·j´M</button>       

Sub test()
Dim e As Object, a As Object
    Set IE = CreateObject("InternetExplorer.Application")
   
    With IE
        .Visible = True
        '¨é°Ó¶R½æÃÒ¨é¤é³øªí¬d¸ß¨t²Î¡]¤@¯ë¥æ©ö¡^
        .Navigate "http://www.gretai.org.tw/web/stock/aftertrading/broker_trading/brokerBS.php?l=zh-tw"
        Do While .Busy Or .readyState <> 4: DoEvents: Loop
        .Document.ALL.tags("INPUT")("rdo_search_stk").Value = 1
        .Document.ALL.tags("INPUT")("input_search_site").Value = Trim(1258)
        Set a = .Document.ALL.tags("BUTTON")
        For Each e In a
        If e.ID = "header_search_btn" Then
            e.Click
            Exit For
        End If
        Next
    End With
End Sub

TOP

¦^´_ 14# GBKEE


    ÁÂÁ GBKEE ª©¤j
   ¬O§Ú¬Ý¿ù¤F
   
        .Document.ALL.tags("INPUT")("input_search_stk").Value = Trim(1258)

TOP

        ÀR«ä¦Û¦b : ¡i®É¤é²öªÅ¹L¡j¤@­Ó¤H¦b¥@¶¡°µ¤F¦h¤Ö¨Æ¡A´Nµ¥©ó¹Ø©R¦³¦hªø¡C¦]¦¹¥²¶·»P®É¶¡Ävª§¡A¤Á²ö¨Ï®É¤éªÅ¹L¡C
ªð¦^¦Cªí ¤W¤@¥DÃD