- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 257
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-11-27
|
¦^´_ 13# jimmyhk
µo¨¥½Ð¥Î´¶³q¸Ü
¥H¸gÀÙ³¡ªºº¡·N«×½Õ¬dªí¬°¨Ò- Dim MyIe As InternetExplorer, MyDoc As HTMLDocument
- Sub CommandButton2_Click() '¶}±Ò°Ý¨÷
- Set MyIe = CreateObject("InternetExplorer.Application")
- With MyIe
- .Visible = True
- .navigate "http://www.moeasmea.gov.tw/ap.asp?xdURL=sVote/vote01.asp&subjectId=9211&ctNode=654"
- Do Until .readyState = READYSTATE_COMPLETE: Loop
- DoEvents
- Set MyDoc = .document
- End With
- End Sub
- Private Sub CommandButton1_Click() '°e¥X°Ý¨÷«e½Ð¥ý¶ñ§¹°Ý¨÷¦b«ö¦¹Áä°µ°e¥X°Ê§@
- With MyDoc
- .all("form1").submit
- MsgBox "°Ý¨÷½Õ¬dªí¤w°e¥X"
- End With
- MyIe.Quit
- Set MyIe = Nothing
- Set MyDoc = Nothing
- End Sub
½Æ»s¥N½X |
|