stillfish00

¦^´_ 3# Hunt01
onclick «á³]©w¤F¤@°ï­È¡AµM«á©I¥s ajax1
§A­n¤ÀªR´N­n¦A¥h§äºô­¶¤¤ªº³o­Ó ajax1 functionªº¤º®e
¥¦¸Ì­±·|¦A¦V¥t¤@­Óºô­¶POST½Ð¨D¡Apost °Ñ¼Æ¨Ó¦Û­è­è³]©w¨º¨Ç­È¡C
©Ò¥H§A­n±q
"document.fm_t05sr01_1.SEQ_NO.value='1';document.fm_t05sr01_1.SPOKE_TIME.value='114100';document.fm_t05sr01_1.SPOKE_DATE.value='20160105';document.fm_t05sr01_1.COMPANY_NAME.value='?E??';document.fm_t05sr01_1.COMPANY_ID.value='2317';document.fm_t05sr01_1.skey.value='2317201601051';document.fm_t05sr01_1.hhc_co_name.value='?E??';ajax1(this.form,'table01');"

³o¦r¦ê¤¤´£¨ú¥X§A­nªº°Ñ¼Æ¡A¦A¥Î xmlhttp ¦V¥t¤@­Óºô­¶POST½Ð¨D¡A

stillfish00

¦^´_ 5# Hunt01
by xmlhttp

1. Sub Test()
   
2.     Dim oXmlhttp As Object: Set oXmlhttp = CreateObject("msxml2.xmlhttp")
   
3.     Dim oRegexp As Object: Set oRegexp = CreateObject("vbscript.regexp")
   
4.     Dim oHtmldoc As Object: Set oHtmldoc = CreateObject("htmlfile")
   
5.     Dim oClip As Object: Set oClip = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") 'or DataObject
   
6.    
   
7.     With oXmlhttp
   
8.         .Open "GET", "http://mops.twse.com.tw/mops/web/t05sr01_1", False
   
9.         .Send
   
10.         oHtmldoc.write .responseText
    
11.     End With
    
12.    
    
13.     Dim oTable As Object, oRow As Object, sParse As String, sPost As String
    
14.     Set oTable = oHtmldoc.getelementbyid("table01").getelementsbytagname("form")(1).getelementsbytagname("table")(0)
    
15.    
    
16.     sParse = oTable.Rows(1).Cells(5).innerhtml '¥u¨ú²Ä¤@¦æ¸Ô²Ó¸ê®Æ
    
17.     With oRegexp
    
18.         .Pattern = ".*?SEQ_NO\.value='(.*?)'" & _
    
19.                    ".*?SPOKE_TIME\.value='(.*?)'" & _
    
20.                    ".*?SPOKE_DATE\.value='(.*?)'" & _
    
21.                    ".*?COMPANY_ID\.value='(.*?)'" & _
    
22.                    ".*?skey\.value='(.*?)'.*"
    
23.         sPost = .Replace(sParse, "encodeURIComponent=1&TYPEK=all&step=1&skey=$5&COMPANY_ID=$4&SPOKE_DATE=$3&SPOKE_TIME=$2&SEQ_NO=$1")
    
24.     End With
    
25.    
    
26.     With oXmlhttp
    
27.         .Open "POST", "http://mops.twse.com.tw/mops/web/ajax_t05sr01_1", False
    
28.         .SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    
29.         .SetRequestHeader "Content-Length", Len(sPost)
    
30.         .Send (sPost)
    
31.         oHtmldoc.Close    'Set oHtmldoc = CreateObject("htmlfile")
    
32.         oHtmldoc.write .responseText
    
33.     End With
    
34.     With oClip
    
35.         .SetText oHtmldoc.body.innerhtml
    
36.         .PutInClipboard
    
37.     End With
    
38.     Sheets.Add().PasteSpecial NoHTMLFormatting:=True
    
39. End Sub

½Æ»s¥N½X