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

[µo°Ý] VBA ÂI¿ï div class «ö¶s

[µo°Ý] VBA ÂI¿ï div class «ö¶s

½Ð°Ý¦p¦ó¥Hvbaµn¤Jºô­¶«á¡AÂI¿ïºô­¶³sµ²«ö¶s(¦@¨â¼h)¡A¦ý¦]ºô­¶¬°¤½¥q¤ººôµLªk´£¨Ñ¡AÁٽкô¤jÀ°¦£¬Ý¬Ý¬O§_¦³¸Ñ¡AÁÂÁ¡C
(¥Ø«eµn¤Jºô­¶¤w¾Ç·|¡A¦ýÂI¿ï«ö¶s´ú¸Õ¤@ª½¥¢±Ñ)
(¤½¥q¹q¸£win7¡BIE8(­­¨î¤É¯Å))


Dim p As Object
Set myIE = CreateObject("InternetExplorer.Application")
With myIE
.Visible = True
.Navigate "¤½¥qºô§}"


Do While Busy Or .ReadyState <> 4: DoEvents: Loop


Set p = .Document.all.tags("INPUT")
.Document.all.txtUsername.innerText = "xxxxxx" 'µn¤J±b¸¹
.Document.all.txtPassword.innerText = "xxxxxx" 'µn¤J±K½X
.Document.all.ImageButton2.Click 'µn¤J


Do While Busy Or .ReadyState <> 4: DoEvents: Loop

ÂI¿ï²Ä¤@¼h«ö¶s
ÂI¿ï²Ä¤G¼h«ö¶s

End With


²Ä¤@¼h«ö¶s
<div class="panel-header accordion-header" style="width: 163px; height: 15px;" jQuery1528952991125="290" sizcache="3" sizset="0">
<div class="panel-title panel-with-icon">
¤å¦r - ³B²z¤¤¤ß

²Ä¤@¼h«ö¶s.PNG
2018-6-14 13:36


²Ä¤@¼h«ö¶s(ºô­¶½X).JPG
2018-6-14 13:36


²Ä¤G¼h«ö¶s
<a class="easyui-accordion-a" href="#" rel="../InboundTrace/CC_inboundRecordListNew.aspx" ref="439" jQuery1528952991125="201">
<span class="nav">
¤å¦r - ¨Ó¹q¤º®e°O¿ý(·s)

²Ä¤G¼h«ö¶s.PNG
2018-6-14 13:37


²Ä¤G¼h«ö¶s(ºô­¶½X).JPG
2018-6-14 13:37

*¦v¤k¤@ªTµL»~*

¥ý¬d­ì©l½X§ä¥X«ö¶sªº¦WºÙ
¦A¿é¤JSet oHTML_Element = ie.document.getElementsByName("«ö¶sªº¦WºÙ")(0)

   If Not oHTML_Element Is Nothing Then oHTML_Element.Click

TOP

¦^´_ 1# msmplay


    ¦pªG...
¼ÐÅÒa rel="../InboundTrace/CC_inboundRecordListNew.aspx"
³o¤£¬OJavaScriptªº¸Ü§Ú·|¸õ¹L³o¨â­Ó«ö¶s(¨S¦³¹ê»Ú¾Þ§@ºô­¶¤£¯à½T©w)
ª½±µ¦b.Navigate­«·s¿é¤Jºô§}(¬Ý°_¨Ó¬O»Ý­nÅçÃÒ¤~¯à¨ìªººô§}¡A²¦³º§A«e­±¤w¸gLogin¤F¡A©Ò¥H§Ú¿ï¾Ü¸õ¹L³o¨â­Ó¨BÆJ)
´Nª½±µ¨ì¹FÂI¿ïªººô­¶¤F¡C
¤@¤À§V¤O¡A¤@¤À¦¬Ã¬¡C
µo°ÝÃD«e¥i¥H¥ý·j¯Á¤º¤å¬O§_¦³¬ÛÃö½d¨Ò¡C

TOP

        ÀR«ä¦Û¦b : ¨Ã«D¦³¿ú¾{¬O§Ö¼Ö¡A°Ý¤ßµL·\¤ß³Ì¦w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD