怎么点击Hotmail邮箱里面的链接那
如何点击Hotmail邮箱里面的链接那?
如上图,先点击收件箱 (1),然后点击打开邮件箱里面的邮件
<UL id=MoveTo_dropdown class=c_m onclick=$menu.closeCurrent();>
<LI><A title=收件箱 href="javascript:;"
fid="00000000-0000-0000-0000-000000000001" aId="MoveTo">
<DIV>收件箱</DIV></A>
<LI><A title=垃圾邮件 href="javascript:;"
fid="00000000-0000-0000-0000-000000000005" aId="MoveTo">
onclick="PerfRecorder.startTimer(false, 'VI-LN');" srchKw="" ft="i" fst="INBOX"
fid="00000000-0000-0000-0000-000000000001">
<LI id=00000000-0000-0000-0000-000000000001
class="FolderItemSelected BoldText" fid="fid" d="1" count="1"><A
title="收件箱 (1)" href="javascript:;"><SPAN class=Caption>收件箱 <SPAN
style="DISPLAY: inline">(<SPAN>1</SPAN>)</SPAN></SPAN></A></LI>
<LI id=00000000-0000-0000-0000-000000000005 fid="fid" d="1" count="0"><A
title=垃圾邮件 href="javascript:;"><SPAN class=Caption>垃圾邮件 <SPAN
style="DISPLAY: none">(<SPAN></SPAN>)</SPAN></SPAN></A></LI>
<TBODY
ondblclick="return Control.invoke('MessageList', '_onDblClick', event);"
onclick="return Control.invoke('MessageList', '_onBodyClick', event);">
<TR id=9e508723-c490-4be7-806d-61c78cbe9568 class=InboxContentItemUnread
mad="10|0|8CC7C2268718640||" msg="msg">
<TD class=Chk name="msgChkCell" unselectable="on"><INPUT title=选择邮件
type=checkbox name=msgChk></TD>
<TD class=Ico><IMG class=i_new alt=未读
src="http://bl148w.blu148.mail.live.com/mail/clear.gif"></TD>
<TD class=Frm><A>Windows Live Hotmail 成员服务</A></TD>
<TD class=Imp></TD>
<TD class=Att></TD>
<TD class=Sbj><A href="javascript:;">开始使用 Windows Live Hotmail</A></TD>
<TD class=Dat>6:51</TD></TR></TBODY></TABLE></DIV></DIV>
<DIV class="PaginationContainer BorderTop">
<DIV class=PageNavigationMsgRange>1 封邮件</DIV>
网页的部分代码
晕死,原来这个代码点击草稿好用来着,现在又用不了了
Dim aSet As Object
Dim Str1 As String
Dim i
Str1 = "草稿" '判断是否为要点击的A标签的特征字符
'历遍所有A标签,查找含有"发送"字符的A标签并点击
Set aSet = WebBrowser1.Document.All.tags("a")
For i = 0 To aSet.Length - 1
If (InStr(1, aSet(i).innerText, Str1)) Then
aSet(i).onclick
------解决方案--------------------
lz已经折腾很多天了。
很简单的程序为什么搞那么复杂。
如上图,先点击收件箱 (1),然后点击打开邮件箱里面的邮件
<UL id=MoveTo_dropdown class=c_m onclick=$menu.closeCurrent();>
<LI><A title=收件箱 href="javascript:;"
fid="00000000-0000-0000-0000-000000000001" aId="MoveTo">
<DIV>收件箱</DIV></A>
<LI><A title=垃圾邮件 href="javascript:;"
fid="00000000-0000-0000-0000-000000000005" aId="MoveTo">
onclick="PerfRecorder.startTimer(false, 'VI-LN');" srchKw="" ft="i" fst="INBOX"
fid="00000000-0000-0000-0000-000000000001">
<LI id=00000000-0000-0000-0000-000000000001
class="FolderItemSelected BoldText" fid="fid" d="1" count="1"><A
title="收件箱 (1)" href="javascript:;"><SPAN class=Caption>收件箱 <SPAN
style="DISPLAY: inline">(<SPAN>1</SPAN>)</SPAN></SPAN></A></LI>
<LI id=00000000-0000-0000-0000-000000000005 fid="fid" d="1" count="0"><A
title=垃圾邮件 href="javascript:;"><SPAN class=Caption>垃圾邮件 <SPAN
style="DISPLAY: none">(<SPAN></SPAN>)</SPAN></SPAN></A></LI>
<TBODY
ondblclick="return Control.invoke('MessageList', '_onDblClick', event);"
onclick="return Control.invoke('MessageList', '_onBodyClick', event);">
<TR id=9e508723-c490-4be7-806d-61c78cbe9568 class=InboxContentItemUnread
mad="10|0|8CC7C2268718640||" msg="msg">
<TD class=Chk name="msgChkCell" unselectable="on"><INPUT title=选择邮件
type=checkbox name=msgChk></TD>
<TD class=Ico><IMG class=i_new alt=未读
src="http://bl148w.blu148.mail.live.com/mail/clear.gif"></TD>
<TD class=Frm><A>Windows Live Hotmail 成员服务</A></TD>
<TD class=Imp></TD>
<TD class=Att></TD>
<TD class=Sbj><A href="javascript:;">开始使用 Windows Live Hotmail</A></TD>
<TD class=Dat>6:51</TD></TR></TBODY></TABLE></DIV></DIV>
<DIV class="PaginationContainer BorderTop">
<DIV class=PageNavigationMsgRange>1 封邮件</DIV>
网页的部分代码
晕死,原来这个代码点击草稿好用来着,现在又用不了了
Dim aSet As Object
Dim Str1 As String
Dim i
Str1 = "草稿" '判断是否为要点击的A标签的特征字符
'历遍所有A标签,查找含有"发送"字符的A标签并点击
Set aSet = WebBrowser1.Document.All.tags("a")
For i = 0 To aSet.Length - 1
If (InStr(1, aSet(i).innerText, Str1)) Then
aSet(i).onclick
------解决方案--------------------
lz已经折腾很多天了。
很简单的程序为什么搞那么复杂。