[µo°Ý] ¹Ï§ÎÅçÃÒ(Captcha) ¯}¸Ñ?

lalalada

ÃÒ¥æ©Ò¶}©ñ¤U¸ücsvÀɤF~  http://bsr.twse.com.tw/bshtm/
·Q§ï¼g¤§«eªº¤U¸ü¤è¦¡
¥»¨Ó¬O§Q¥Îweb¬d¸ß¦b¥t¦s¦¨csvÀÉ
¦ý¬O®Ä²v«Ü®t

¦bÃÒ¥æ©Òºô¯¸¤¤
¤U¸ü«e¥²¶·¿é¤J¹Ï§ÎÅçÃÒ
¦Ó¥B¨C¦¸·|¤£¦P
·Qª¾¹D¦³¨S¦³¿ìªk¦bVBA¤W¯}¸Ñ?
¥Ø«eªº·Qªk¦³¤G
¤@¬O¨Ï¥Î¹Ï§Î¿ëÃÑ(OCR)
´Nºô­¶¤Wªº¹Ï¬Ý°_¨ÓÁÙºâ¤u¾ã
¥u¬O³o»ò°µ®Ä²v¥i¯à¤]¤£·|¤Ó¦n(?) ÁÙ¨S¸Õ¹L
²Ä¤G­Ó·Qªk¬O§Q¥Îºô­¶cookie
§Ú²q¿é¤JÅçÃÒ½X¤§«á·|±o¨ì¤@²Õcookie§@¬°Æ_°Í
§Q¥ÎVBA¥Í¦¨/«O¯d¨º²Õcookie»¡¤£©w¥i¥H¤@³Ò¥Ã¶h?
¤£ª¾¹D¦³¨S¦³¸Ñªk ·PÁÂ!!

mark15jill

ÃÒ¥æ©Ò¶}©ñ¤U¸ücsvÀɤF~  http://bsr.twse.com.tw/bshtm/
·Q§ï¼g¤§«eªº¤U¸ü¤è¦¡
¥»¨Ó¬O§Q¥Îweb¬d¸ß¦b¥t¦s ...
lalalada µoªí©ó 2013-5-10 22:22

    1.¦pªG¥ÎOCR ¿ëÃÑ  ·|¦³´X­Ó°ÝÃD²£¥Í
      1-1 §¹¾ã©Ê <­^¤å¡B¼Æ¦r¡B¤å¦r>
      2-2 ¥i¿ëÃÑ«× < ¦p ¹Ï¤º X¡BYÂI¡A©Î ¨ä¥L>

     2.¦pªG¥ÎCookie ¡A¨º ¥i¥H¸ò©p»¡..  °ò¥»¤W ¦¹¤èªk´X¥G¤£¥i¯à...
         ­ì¦]¬°¦ó¡H °£«D¡A©p¦³¸Óºô¯¸©Ò¦³¹Ï§ÎÅçÃÒªº¹Ï¸ê ©Î  ©p¯à¿ëÃÑ ¹Ï§Î¡A§_«h COOKIE ¤£·|¬O©T©wªº
         ¦pªG ¤µ¤ÑAºô¯¸ ªº ¹Ï§ÎÅçÃÒªº¹Ï¸ê¦³100ºØ ¡A °ò¥»¤W ´N¦³¥i¯à¦³ 100ºØCOOKIE ...

lalalada

¦^´_ 2# mark15jill

·PÁ¦^ÂÐ!
¨º¦pªG·Q¨Ï¥ÎOCRªº¸Ü
¦bVBA¤º¸Ó«ç»ò¤Þ¥Î©O?

¿ëÃѪº¸Ü¦]¬°­è¦nºô¯¸¥u±Ä¥Î¼Æ¦r
¦Ó¥B©³¦â³æ¯Â¤]¨S¦³¤Ó¦hÅܧγB²z
OCR¿ëÃÑÀ³¸Ó¬O¥i¦æªº
¥Ñ©ó¤Ö±¼¤F¹ï¹Ï§Îªº³B²z
»¡¤£©wÁÙ¬O¯à¤ñ­ì¥»ªº§@ªk§Ö(?)

¨ä¹ê­ì¥»ªº§@ªk°£¤F¶¸ô¤§¥~
³t«×ºCªº¨ä¤¤¤@­Ó­ì¦]¬O¦]¬°¥¦·|¾×¤j¶q³sÄò³s½u­n¨D
¨C¤­¦¸¥²¶·µ¥5¬í¥ª¥k

mark15jill

¦^´_ 3# lalalada


    ©êºp Ãö©ó³o³¡¥÷¤p§Ì´NµL²`¤J¬ã¨s

lalalada

¦^´_ 4# mark15jill

ÁÙ¬O«Ü·PÁ§AÄ@·N¤À¨É:)
³Ìªñ¤ñ¸û¦£
µ¥§Ú§ä¨ì¤èªk¦Apo¤W¨Ó

joey0415

¦^´_ 5# lalalada


    ¹Ï§Î³¡¥÷¡Aexcel homeÂŤѤj¦³¡A¤£¹L§ÚÁÙ¤£·|¥Î
http://club.excelhome.net/home.php?mod=space&uid=1666515&do=thread&view=me&from=space

¨C¤é¨é°Ó§Ú¬O¤U¸ücsv

¤W¥«¡G¨C¤é¬ù30¤À(ºô­¶Âàcsv)
¤WÂd¡G¨C¤é5¤À(csv)

Âà¶i¸ê®Æ®w¥t­p

¥H¤W¬°vba

Å¥»¡¥Îpython¥i¥H¦h½u¤U¸ü·|§ó§Ö¡A¤£¹L§Ú¨S¦³¥Î¡I

GBKEE

¦^´_ 5# lalalada
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub ÃÒ¥æ©Ò_¶R½æ¥æ©ö¤é³øªí()
   
3.     Dim Stock_NO As String, Sh As Worksheet, URL As String, WB As Workbook
   
4.     Do
   
5.       Stock_NO = InputBox("ªÑ²¼¸¹½X")
   
6.       If Stock_NO = "" Then Exit Sub
   
7.     Loop Until Len(Stock_NO) >= 4
   
8.     Set Sh = ActiveWorkbook.Sheets.Add
   
9.     Application.DisplayAlerts = False
   
10.     On Error GoTo Er
    
11.     Sh.Name = Stock_NO
    
12.     Application.StatusBar = "¤U¸ü¸ê®Æ¤¤.... "
    
13.     Application.ScreenUpdating = False
    
14.     URL = "http://bsr.twse.com.tw/bshtm/bsContent.aspx?StartNumber=" & Stock_NO & "&FocusIndex=All_" & ³øªí­¶¼Æ(Stock_NO)
    
15.     Set WB = Workbooks.Open(URL)
    
16.     With WB.Sheets(1)
    
17.         If .UsedRange.Count = 1 Then GoTo xOUT         'ªÑ²¼¨S¦³¸ê®Æ
    
18.         .UsedRange.Columns("A:Q").ClearFormats
    
19.         .UsedRange.Columns("B:H").Delete Shift:=xlToLeft
    
20.         .UsedRange.Columns("B:B").SpecialCells(xlCellTypeBlanks).Offset(, -1).Delete xlShiftUp
    
21.         .UsedRange.Columns("B:E").SpecialCells(xlCellTypeBlanks).Delete xlShiftUp
    
22.         .UsedRange.Columns("F:J").SpecialCells(xlCellTypeBlanks).Delete xlShiftUp
    
23.         .UsedRange.Columns("F:J").Cut .Cells(.Rows.Count, "A").End(xlUp).Offset(1)
    
24.         .Rows("1:2").Delete
    
25.         With .UsedRange
    
26.             .Value = .Value
    
27.             .Sort Key1:=.Range("A2"), Order1:=xlAscending, Header:=xlYes
    
28.             .Offset(3).Replace "§Ç", "=XXX", xlWhole
    
29.             .SpecialCells(xlCellTypeFormulas, xlErrors).EntireRow.Delete
    
30.         End With
    
31.         .UsedRange.Copy Sh.[A1]
    
32.         Sh.UsedRange.EntireColumn.AutoFit
    
33.     End With
    
34.     WB.Close False
    
35.     Application.ScreenUpdating = True
    
36.     Application.StatusBar = False
    
37.     Exit Sub
    
38. Er:
    
39.     Sheets(Stock_NO).Delete
    
40.     Resume
    
41. xOUT:
    
42.     WB.Close False
    
43.     Sheets(Stock_NO).Delete
    
44.     MsgBox "¨S¦³ªÑ²¼ " & Stock_NO
    
45.     Application.StatusBar = False
    
46.     Application.ScreenUpdating = True
    
47. End Sub
    
48. Private Function ³øªí­¶¼Æ(Sstock_N0 As String) As String
    
49.     Dim element As Object
    
50.     With CreateObject("InternetExplorer.Application")
    
51.         .Navigate "http://bsr.twse.com.tw/bshtm/bsMenu.aspx"
    
52.          Do While .Busy Or .ReadyState <> 4
    
53.             DoEvents
    
54.         Loop
    
55.         .Document.getElementsByName("txtTASKNO")(0).Value = Sstock_N0
    
56.         .Document.getElementsByName("btnOK")(0).Click
    
57.          Do While .Busy Or .ReadyState <> 4
    
58.             DoEvents
    
59.         Loop
    
60.        ³øªí­¶¼Æ = .Document.getElementsByName("sp_ListCount")(0).innertext
    
61.        .Quit
    
62.     End With
    
63. End Function

½Æ»s¥N½X

HSIEN6001

¦^´_ 7# GBKEE


    Ãö©ó¹Ï§ÎÅçÃÒCaptchaªº¤è¦¡,³o¬Ojoey0415´£¨Ñ±o[°Ñ¦Ò]¨Ó·½
¬Ý¤£À´^_^!!          ¦ý¶]ÅçÃÒ½X¬O¥¿½Tªº

1. Public Declare Function GetClipboardData Lib "user32" (ByVal wFormat As Long) As Long
   
2. Public Declare Function CloseClipboard Lib "user32" () As Long
   
3. Public Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
   
4. Private Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long
   
5. Private Declare Function GlobalSize Lib "kernel32" (ByVal hMem As Long) As Long
   
6. Private Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long
   
7. Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
   
8. '°Å¶Kª©¸ê®Æ®æ¦¡©w¸q
   
9. Private Const CF_DIB = 8
   
10. 
    
11. Sub ÅçÃÒ½XÃѧO()
    
12.     Dim a(1 To 4)
    
13.     Dim img       '¡]ÅçÃÒ½X¡^¹Ï¤ù
    
14.     Dim CtrlRange '«D¤å¥»ª«¥ó¶°¦X
    
15.     Dim bytClipData()  As Byte '©w¸q¦ì¤¸²Õ°}¦C
    
16.     Dim arr(0 To 1260)
    
17.     Dim ts As Integer
    
18.     On Error Resume Next
    
19.     Set Regedit_XG = CreateObject("WScript.Shell")              '³Ð«Ø¤@­ÓªÅªºVBS"´ß"
    
20.     Jz = Regedit_XG.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\1407")                   'Ū¨úµù¥Uªí"¦w¥þ³]¸m-Internet°Ï°ì"¤¤ªº"¤¹³\¹ï°Å¶KªO¶i¦æ½sµ{³X°Ý"³]¸m(3¡×¸T¥Î¡B0¡×±Ò¥Î¡B1¡×´£¥Ü)­ì©l­È
    
21.     Regedit_XG.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\1407", "0", "REG_DWORD"      '­×§ïµù¥Uªí"¦w¥þ³]¸m-Internet°Ï°ì"¤¤ªº"¤¹³\¹ï°Å¶KªO¶i¦æ½sµ{³X°Ý"³]¸m(3¡×¸T¥Î¡B0¡×±Ò¥Î¡B1¡×´£¥Ü)¡A¨Ï¨t²ÎÀq»{¬°"¤¹³\³X°Ý°Å¶KªO"
    
22.     With CreateObject("InternetExplorer.application")           '³Ð«Ø¤@­ÓªÅªºie
    
23.         .Visible = True                                         'Åýie¥i¨£
    
24.         .Navigate "http://119.145.135.38/fscx/web/loginForm.do" '¾É¯è¨ìhttp://119.145.135.38/fscx/web/loginForm.do
    
25.         Do Until .ReadyState = 4               'µ¥«Ýie§¹²¦¸ü¤J
    
26.             DoEvents
    
27.         Loop
    
28.         Set img = .Document.All.tags("img")(0) '«ü©w¡]ÅçÃÒ½X¡^¥Ø¼Ð¹Ï¤ù
    
29.         Set CtrlRange = .Document.body.createControlRange()  '³Ð«Ø«D¤å¥»ª«¥ó ControlRange ¶°¦X
    
30.         CtrlRange.Add img                      '¦V«D¤å¥»ª«¥ó ControlRange ¶°¦X¤¤²K¥[ img ª«¥ó
    
31.         CtrlRange.execCommand "Copy", True     '±q ControlRange ¶°¦X¤¤copy img ª«¥ó¡]¹Ï¤ù¡^¨ì°Å¶KªO
    
32.         Dim hMem As Long, lpData As Long
    
33.         OpenClipboard 0&                       '¥´¶}Ö߶KªO
    
34.         hMem = GetClipboardData(8)             'Àò±oÖ߶KªO¸ê®Æ¡A«ü©w®æ¦¡¬°¡GCF_DIB = 8
    
35.         If CBool(hMem) Then
    
36.             lpData = GlobalLock(hMem)          'Âê©w°O¾ÐÅ骫¥óhMen
    
37.             lClipSize = GlobalSize(hMem)       'Àò±oÖ߶KªO¸ê®Æ¦ì¤¸²Õ¼Æ
    
38.             If lpData <> 0 And lClipSize > 0 Then
    
39.                 ReDim bytClipData(0 To lClipSize - 1) As Byte      '­«·s©w¸q¦ì¤¸²Õ°}¦C¤j¤p
    
40.                 CopyMemory bytClipData(0), ByVal lpData, lClipSize 'Ö߶KªOÂà¤Æ¦¨¦ì¤¸²Õ°}¦C
    
41.             End If
    
42.             GlobalUnlock hMem                  '¸Ñ°£Âê©w°O¾ÐÅ骫¥óhMen
    
43.         End If
    
44.         CloseClipboard                         'Ãö³¬Ö߶KªO
    
45.         For i = 1 To 1260                      'Âk¤@¤Æ³B²z
    
46.             ts = (Val(bytClipData((i - 1) * 3 + 40)) + Val(bytClipData((i - 1) * 3 + 41)) + Val(bytClipData((i - 1) * 3 + 42))) / 3 '40¬O¹Ï¤ù¶}©l¦ì¤¸²Õ
    
47.             If ts > 150 Then
    
48.                 ts = 0
    
49.             Else
    
50.                 ts = 1
    
51.             End If
    
52.             arr(i) = ts
    
53.         Next i
    
54.         For i = 1 To 4
    
55.             a(i) = 0                                                          '0
    
56.             If arr(13 * 60 + 8 + (i - 1) * 14) = 1 And arr(14 * 60 + 8 + (i - 1) * 14) = 1 Then a(i) = 1: GoTo 1 '16¦ì¦â¡A©Ò¥H­¼¥H"3"RGB¦U¥e¤@¦ì¤¸²Õ¡A60¬O¼e¡A14¬O¦r¶¡¶Z¡A
    
57.             If arr(4 * 60 + 6 + (i - 1) * 14) = 1 Then a(i) = 2: GoTo 1       '2
    
58.             If arr(16 * 60 + 11 + (i - 1) * 14) = 0 Then a(i) = 3: GoTo 1     '3
    
59.             If arr(7 * 60 + 5 + (i - 1) * 14) = 1 Then a(i) = 4: GoTo 1       '4
    
60.             If arr(12 * 60 + 9 + (i - 1) * 14) = 1 Then a(i) = 5: GoTo 1      '5
    
61.             If arr(9 * 60 + 8 + (i - 1) * 14) = 1 And arr(11 * 60 + 9 + (i - 1) * 14) = 1 Then a(i) = 6: GoTo 1  '6
    
62.             If arr(16 * 60 + 13 + (i - 1) * 14) = 1 Then a(i) = 7: GoTo 1     '7
    
63.             If arr(10 * 60 + 8 + (i - 1) * 14) = 1 And arr(11 * 60 + 8 + (i - 1) * 14) = 1 Then a(i) = 8: GoTo 1 '8
    
64.             If arr(9 * 60 + 9 + (i - 1) * 14) = 1 Then a(i) = 9               '9
    
65. 1:
    
66.         Next i
    
67.         Cells(1, 1) = a(1) & a(2) & a(3) & a(4)             'ÃѧO«áªºÅçÃÒ½X
    
68.         .Document.All.tags("INPUT")(0).Value = "1234567890" '¶ñ¼gµn¿ý¦W
    
69.         .Document.All.tags("INPUT")(1).Value = "0987654321" '¶ñ¼g±K  ½X
    
70.         .Document.All.tags("INPUT")(2).Value = Cells(1, 1)  '¶ñ¼gÅçÃÒ½X
    
71.         .Document.All.tags("img")(1).Click                  'ÂIÀ»"µn¿ý"«ö¶s
    
72.         '.Quit                     'Ãö³¬ie
    
73.         'MsgBox "OK"
    
74.     End With
    
75.     Regedit_XG.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\1407", Jz, "REG_DWORD"      '«ì´_µù¥Uªí"¦w¥þ³]¸m-Internet°Ï°ì"¤¤ªº"¤¹³\¹ï°Å¶KªO¶i¦æ½sµ{³X°Ý"³]¸m(3¡×¸T¥Î¡B0¡×±Ò¥Î¡B1¡×´£¥Ü)­ì©l­È
    
76.     Set Regedit_XG = Nothing      'ÄÀ©ñVBS"´ß"
    
77. End Sub

½Æ»s¥N½X

HSIEN6001

¦^´_ 7# GBKEE


    ¹ï¤£°_!§Ñ¤Fªþ¤WURL
¤U¸üCSV¬ÛÃö¦ì§}:
(1)¤£ª¾¹D¥Îªº¤W?!
http://bsr.twse.com.tw/bshtm/bsMenu.aspx?__EVENTTARGET=&__EVENTARGUMENT=&__VIEWSTATE=%2FwEPDwUKLTQzNzI3ODE3MQ9kFgICAQ9kFg4CBQ8WAh4JaW5uZXJodG1sBQoyMDEzLzA5LzI3ZAIGDxYCHwAFCDIwMTMwOTI3ZAIIDw8WBh4JRm9udF9Cb2xkZx4EXyFTQgKEEB4JRm9yZUNvbG9yCj1kZAIKD2QWAgIBDw9kFgIeB09uQ2xpY2sFHGphdmFzY3JpcHQ6YnV0Q2xlYXJfQ2xpY2soKTtkAgwPDxYGHwFoHwIChBAfAwpHZGQCDg8PFgIeB1Zpc2libGVoZGQCEA8PFgYfAWgfAgKEEB8DCkdkZGSiKU%2Fti2BvI3vsAvp%2BUySKAAAAAA%3D%3D&__EVENTVALIDATION=%2FwEWCQKGnJS3DwLjpuXcAwKN4Ij0CwLB5ZfoCQLjk6TKBwKY8en5CwLdkpmPAQL6n7vzCwLAhrvLBeRfGpOZWTxdVZsdlLXS6sgAAAAA&HiddenField_spDate=&HiddenField_page=PAGE_DownloadBS&txtTASKNO=%E8%AB%8B%E8%BC%B8%E5%85%A5%E8%82%A1%E7%A5%A8%E4%BB%A3%E7%A2%BC&hidTASKNO=&Button_DownloadBS=%3C%E4%B8%8B%E8%BC%89+CSV%3E

(2)Download
http://bsr.twse.com.tw/bshtm/bsDownload.aspx?__VIEWSTATE=%2FwEPDwUJNDA4NDA2OTYwZGSrd3Tlksjh9VIjA2KPwnxSAAAAAA%3D%3D&__EVENTVALIDATION=%2FwEWBgLgmuzfAwLPiaeCCQLNkNdZAs%2Bk8%2FwMAp%2BC7OYNAsyPx6EHbi4KW9bFIDAKFtSJoAwOXQAAAAA%3D&HiddenField_Download=&TextBox_Stkno=ªÑ²¼¥N¸¹&TextBox_VerifyCode=ÅçÃÒ½X&Button_Download=%E4%B8%8B%E8%BC%89

joey0415

¦^´_ 9# HSIEN6001

¤£ª¾HSIEN6001¤j

¥i¥H§ï¦¨ÅçÃÒ¥xÆWªº¶Ü¡H

§Ú¦Û¤v¸Õ¬O¤£¦¨¥\ªº¡AŪ¥xÆWÅçÃÒ½X³¡¥÷