馃 杩樺湪澶嶅埗绮樿创鍒版€€鐤戜汉鐢燂紵

姣忓ぉ鐩潃缃戦〉澶嶅埗鍑犵櫨鏉℃暟鎹紝鎵嬮€熼兘缁冩垚鐢电珵閫夋墜浜嗘槸鍚э紵涓婁釜鏈堝府妤间笅鎵撳嵃搴楄€佹澘濞樼敤VBS鎶撳晢鍝佷环鏍硷紝鎰ｆ槸鎶婂ス鐨勫姞鐝椂闂翠粠3灏忔椂鐮嶅埌10鍒嗛挓銆備粖澶╁挶灏辨妸杩欏帇绠卞簳鐨勫姛澶姈钀藉嚭鏉ワ紝淇濆噯浣犵湅瀹屽氨鑳戒笂鎵嬶紒

馃洜锔?鍑嗗宸ヤ綔锛氬埆鎬ョ潃鍐欎唬鐮?/h3>

鈥?strong>鈥嬩綘浠ヤ负瑕佽鍟ラ珮绾ц蒋浠讹紵鈥?/strong>鈥?鏍规湰涓嶇敤锛佸彧瑕佷綘鐨勭數鑴戞槸Windows绯荤粺锛圶P閮借锛夛紝鎸塛in+R杈撳叆notepad灏辫兘寮€骞层€備笉杩囨湁淇╁紑鍏冲繀椤绘鏌ワ細

1. 鎺у埗闈㈡澘鈫扞nternet閫夐」鈫掑畨鍏ㄢ啋鑷畾涔夌骇鍒噷锛屾妸鈥?strong>鈥嬫墍鏈堿ctiveX閫夐」鈥?/strong>鈥嬮兘鍚敤
2. 鎶奍E娴忚鍣ㄥ浘鏍囬拤鍒颁换鍔℃爮锛堝埆闂负鍟ワ紝绛変笅浣犲氨鐭ラ亾浜嗭級

涓婂懆鏈変釜鍝ヤ滑姝绘椿杩愯涓嶄簡鑴氭湰锛屾渶鍚庡彂鐜版槸鏉€姣掕蒋浠舵妸ActiveX缁欐嫤鎴簡銆傛墍浠ュ晩锛屸€?strong>鈥嬪厛鎶?60浠€涔堢殑鍏虫帀鈥?/strong>鈥嬶紝杩欑帺鎰忓効鍙瘮IE闅惧浠樺浜嗐€?/p>

---

馃幆 绗竴鎷涳細鐓у闀滄姄鍙栨硶锛堢簿鍑嗗畾浣嶏級

鈥?strong>鈥嬮€傜敤鍦烘櫙鈥?/strong>鈥嬶細瑕佹姄鐨勬暟鎹湁鍥哄畾ID鏍囩

vbscript澶嶅埗
Set ie = CreateObject("InternetExplorer.Application")
ie.Navigate "https://鐩爣缃戠珯"
Do While ie.Busy : Loop '绛夊姞杞界殑鐜勫浠ｇ爜
'馃憞閲嶇偣鏉ヤ簡锛?
浠锋牸 = ie.document.getElementById("price").innerText
瑙勬牸 = ie.document.getElementsByClassName("specs")(0).innerHTML

鈥?strong>鈥嬩紭缂虹偣瀵规瘮鈥?/strong>鈥嬶細

鈥?strong>鈥嬭浜鸿瘽鈥?/strong>鈥嬶細
杩欐嫑灏卞儚鎷跨潃鏀惧ぇ闀滄壘铓傝殎鈥斺€斿噯鏄噯锛屼絾缃戠珯鍓嶇绋嶅井鏀圭偣浠ｇ爜灏卞簾浜嗐€傚幓骞寸敤杩欐柟娉曟姄鏌愮數鍟嗘暟鎹紝缁撴灉浜哄鎶?code>id="price"鏀规垚class="price"锛岀洿鎺ュ鑷磋剼鏈墤琛椼€傛墍浠ュ晩锛屸€?strong>鈥嬭寰楀畾鏈熸鏌ュ厓绱犳爣绛锯€?/strong>鈥嬶紒

馃寪 绗簩鎷涳細娓旂綉寮忔崟鎹烇紙鏁撮〉閫氬悆锛?/h3>

鈥?strong>鈥嬮€傜敤鍦烘櫙鈥?/strong>鈥嬶細瑕佹姄鏁翠釜琛ㄦ牸鎴栧垪琛?/p>

vbscript澶嶅埗
Set table = ie.document.getElementsByTagName("table")(0)
For i = 0 To table.rows.Length - 1
    浜у搧鍚?= table.rows(i).cells(0).innerText
    搴撳瓨閲?= table.rows(i).cells(3).innerText
Next

鈥?strong>鈥嬫晥鐜囧疄娴嬧€?/strong>鈥嬶細
鎶撳彇100琛屾暟鎹紝鎵嬪姩澶嶅埗鈮?5鍒嗛挓锛岃剼鏈繍琛屸増8绉掋€備笉杩囪娉ㄦ剰鈥?strong>鈥嬪埆鎵嬭幢涔卞姩榧犳爣鈥?/strong>鈥嬶紒鏈夋娴嬭瘯鏃朵笉灏忓績鐐逛簡娴忚鍣紝缁撴灉鑴氭湰瀹氫綅閿欎贡锛屾姄鍥炴潵涓€鍫嗕贡鐮?..

---

馃攧 绗笁鎷涳細娴佹按绾夸綔涓氾紙鑷姩缈婚〉锛?/h3>

鈥?strong>鈥嬫牳蹇冪璇€鈥?/strong>鈥嬶細

vbscript澶嶅埗
Do While True
    '鎶撳彇褰撳墠椤垫暟鎹?
    涓嬩竴椤垫寜閽?= ie.document.getElementsByTagName("a")(3) '鍋囪绗洓涓摼鎺ユ槸涓嬩竴椤?
    If InStr(涓嬩竴椤垫寜閽?innerHTML, "涓嬩竴椤?) > 0 Then
        涓嬩竴椤垫寜閽?Click
        Do While ie.Busy : Loop
    Else
        Exit Do
    End If
Loop

鈥?strong>鈥嬮伩鍧戞寚鍗椻€?/strong>鈥嬶細

1. 缈婚〉鍓嶅姞WScript.Sleep 2000闃插崱姝?/li>
2. 鍑嗗涓簲鎬ュ揩鎹烽敭锛欳trl+Alt+Del寮€浠诲姟绠＄悊鍣?/li>
3. 鎻愬墠娴嬭瘯缈婚〉娆℃暟闄愬埗锛屽埆鎶婁汉瀹剁綉绔欐悶宕╀簡

涓婁釜鏈堟煇鍏徃瀹炰範鐢熺敤杩欐嫑鎶撴暟鎹紝缁撴灉鑴氭湰鍗婂鐙傜炕2000椤佃Е鍙戠綉绔欓槻鎶ゆ満鍒讹紝宸偣琚硶鍔￠儴璇峰枬鑼?..鎵€浠ュ晩锛屸€?strong>鈥嬪姞涓〉鏁伴檺鍒垛€?/strong>鈥嬫渶绋冲Ε锛?/p>

---

馃挕 绐佺劧鎯冲埌锛氶亣鍒伴獙璇佺爜鍜嬫暣锛?/h3>

鍒專鎵庝簡鍏勫紵锛乂BS澶勭悊楠岃瘉鐮佸氨鍍忕敤鍕哄瓙鎸栭毀閬撯€斺€斾笉鏄笉鍙兘锛屽氨鏄お璐瑰姴銆傞潬璋辨柟妗堝氨涓ょ锛?/p>

1. 鑱旂郴缃戠珯鐢宠鏁版嵁鎺ュ彛锛堟垚鍔熺巼1%锛?/li>
2. 鎹㈢敤Python+selenium锛堝涔犳垚鏈?3澶╋級
3. 馃か 鎵嬪姩杈撳叆鍚庤鑴氭湰璁颁綇cookie锛堜翰娴嬫湁鏁堜絾杩濆弽鍗婃暟缃戠珯鏉℃锛?/li>

鏈変釜鍙栧阀鐨勫姙娉曪細鍦ㄨ剼鏈噷鍔犱釜MsgBox "蹇緭楠岃瘉鐮侊紒"锛岀劧鍚庢墜鍔ㄨ緭瀹屽啀缁х画銆傝櫧鐒舵湁鐐筶ow锛屼絾瀵逛粯鍋跺皵鍑虹幇鐨勯獙璇佺爜杩樻尯绠＄敤銆?/p>

---

馃搳 瀹炴垬妗堜緥锛氫环鏍肩洃鎺ц剼鏈?/h3>

缁欐煇瓒呭競鍋氱殑姣斾环宸ュ叿锛?/p>

1. 姣忓ぉ鏃╀笂7鐐硅嚜鍔ㄦ姄鍙?澶у钩鍙颁环鏍?/li>
2. 鍙戠幇宸环瓒呰繃15%灏卞彂閭欢鎻愰啋
3. 鑷姩鐢熸垚Excel鎶ヨ〃

缁撴灉绗竴鍛ㄥ氨鍙戠幇A骞冲彴鏌愭礂鍙戞按鏍囦环閿欒锛岃繛澶滀笅鍗?00鐡跺噣璧氬樊浠凤紙鍚庢潵琚钩鍙板彂鐜颁簡锛岃繖浜嬪効鍜变笉鎻愬€″晩锛夈€傛暟鎹鏄庝竴鍒囷細

• 浜哄伐姣斾环锛?灏忔椂/澶?/li>
• 鑴氭湰杩愯锛?鍒嗛挓/澶?/li>
• 閿欒鐜囷細浠?%闄嶅埌0.3%

---

馃え 璇寸偣鎺忓績绐濈殑璇?/h3>

铏界劧鐜板湪閮?023骞翠簡锛岀敤VBS鎼炴暟鎹姄鍙栧氨鍍忓紑鎵嬪姩鎸¤€佺埛杞︹€斺€旂‘瀹炴湁鐐硅繃鏃讹紝浣嗗畠鏈変釜鑷村懡浼樺娍锛氣€?strong>鈥嬮浂鐜閰嶇疆鈥?/strong>鈥嬶紒瑙佽繃澶鏂版墜鍗″湪Python鐜鍙橀噺璁剧疆锛屾渶鍚庤繕娌″紑濮嬪氨鏀惧純銆備笉杩囪娉ㄦ剰锛孍dge娴忚鍣ㄦ槑骞村氨褰诲簳绉婚櫎IE妯″紡浜嗭紝杩欐墜鑹哄彲鑳界湡瑕佸け浼犲挴...

鏈€鍚庢彁閱掞細鍒敤杩欐妧鏈埇鏁忔劅鏁版嵁锛佸幓骞存湁灏忎紮鍎跨埇浜嗘煇骞冲彴3涓囨潯淇℃伅锛岀粨鏋滄敹鍒板緥甯堝嚱锛岀幇鍦ㄨ繕鍦ㄥ悗鎮斿憿銆傛妧鏈槸鎶婂弻鍒冨墤锛屽挶寰楃敤鍦ㄦ閬撲笂涓嶆槸锛?/p>