登录后怎样查找点击网页的超链接？

gwfzh · 发表于 2012-9-25 11:07

本帖最后由 gwfzh 于 2012-9-25 13:31 编辑

各样老师：在网页登录后，怎样怎样点击如下面网页源码中的一个超链接(如：“疾病监测信息报告管理系统”、“突发公共卫生事件管理信息系统”、“艾滋病综合防治信息系统”、“乙脑监测信息报告管理系统”等)？

<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">

<html>

<head>

var httpRequest ;

var url="http://1.202.129.170:80/SMP/navigation.do?method=ACTION_METHOD_FLAG_LIST";

function go_Href(url){

if(url=="-1"){

alert("无权限访问,请联系管理员！");

return false;

}

if(url==null || url=="") {

alert("请您选择具体的业务系统！");

return;

}

var server=url.substring(requestScheme.length);

server=server.substring(0,server.indexOf("/"));

var temp=currentSrvAndPort.substring(requestScheme.length);

if(server!=temp){

var str=url.substring(requestScheme.length);

var appAlias=str.substring(str.indexOf("appName=")+8);

str=str.substring(0,str.indexOf("/"));

parent.window.location.href=requestScheme+str+"/SMP/?appAlias="+appAlias+"&tgt="+tgt;

}else{

parent.left.location.href=url;

window.parent.document.getElementById('me').cols="258,27,*";

//document.getElementById("arrow").src="../../images/layout/arrow_right.jpg";

}

function runmid()

{

parent.content.location.href="http://1.202.129.170:80/BBS/BulletinboardList.do?fromrow=0&rownum=20&flag=view&userType=1&userID=92167881";

}

function getMenuUrl(url){

if(url=="-1"){

alert("无权限访问,请联系管理员！");

return false;

}

if("" != url && null != url){

var server=url.substring(requestScheme.length);

server=server.substring(0,server.indexOf("/"));

var temp=currentSrvAndPort.substring(requestScheme.length);

if(server!=temp){

var str=url.substring(requestScheme.length);

var appAlias=str.substring(str.indexOf("appName=")+8);

str=str.substring(0,str.indexOf("/"));

parent.window.location=requestScheme+str+"/SMP/?appAlias="+appAlias+"&tgt="+tgt;

}else{

parent.left.location.href = url;

window.parent.document.getElementById('me').cols="258,27,*";

// document.getElementById("arrow").src="../../images/layout/arrow_right.jpg";

}

</script>

var currentSrvAndPort="http://1.202.129.170";

var tgt="TGT-1508-atodTk6HUPGn3VUJreIFsI4HMNoCbgdZhzZDfqjcaIP5GB2pXv-cas";

var requestScheme="http://";

</script>

</head>

<body>

<ul>

<li><a href='javascript:go_Href("http://1.202.129.170/SMP/tree.do?method=ACTION_METHOD_FLAG_LIST&appName=DSRIS")'>疾病监测信息报告管理系统</a></li>

<li><a href='javascript:go_Href("http://1.202.129.170/SMP/tree.do?method=ACTION_METHOD_FLAG_LIST&appName=EPRS")'>突发公共卫生事件管理信息系统</a></li>

<li><a href='javascript:go_Href("http://1.202.129.170:81/SMP/tree.do?method=ACTION_METHOD_FLAG_LIST&appName=AIDS")'>艾滋病综合防治信息系统</a></li>

<li><a href='javascript:go_Href("http://1.202.129.170/SMP/tree.do?method=ACTION_METHOD_FLAG_LIST&appName=INFECT2100")'>乙脑监测信息报告管理系统</a></li>

</ul>

<!--

-->

<option value="">--其他业务系统--</option>

<option value='http://1.202.129.170/SMP/tree.do?method=ACTION_METHOD_FLAG_LIST&appName=INFECT1300'>流脑监测信息报告管理系统</option>

<option value='http://1.202.129.170/SMP/tree.do?method=ACTION_METHOD_FLAG_LIST&appName=INFECT0200'>霍乱监测信息报告管理系统</option>

<option value='http://1.202.129.170/SMP/tree.do?method=ACTION_METHOD_FLAG_LIST&appName=DSAIS'>传染病自动预警信息系统</option>

<option value='http://1.202.129.170:82/SMP/tree.do?method=ACTION_METHOD_FLAG_LIST&appName=ISIS'>中国流感监测信息系统</option>

<option value='http://1.202.129.170/SMP/tree.do?method=ACTION_METHOD_FLAG_LIST&appName=H1N1SIS'>甲型H1N1流感信息管理系统</option>

<option value='http://1.202.129.170/SMP/tree.do?method=ACTION_METHOD_FLAG_LIST&appName=DRIS'>救灾防病信息报告系统</option>

<option value='http://1.202.129.170/SMP/tree.do?method=ACTION_METHOD_FLAG_LIST&appName=BIS'>基本信息系统</option>

<option value='http://1.202.129.170/SMP/tree.do?method=ACTION_METHOD_FLAG_LIST&appName=HDSIS'>健康危害监测信息系统</option>

<option value='http://1.202.129.170/SMP/tree.do?method=ACTION_METHOD_FLAG_LIST&appName=HSRIS'>高温中暑病例报告信息系统</option>

<option value='http://1.202.129.170:87/SMP/tree.do?method=ACTION_METHOD_FLAG_LIST&appName=IIS'>儿童预防接种信息系统</option>

<option value='http://1.202.129.170/SMP/tree.do?method=ACTION_METHOD_FLAG_LIST&appName=SSRIS'>症状监测直报系统</option>

<option value='http://1.202.129.170/SMP/tree.do?method=ACTION_METHOD_FLAG_LIST&appName=REDFIS'>鼠疫防治管理信息系统</option>

<option value='http://1.202.129.170/SMP/tree.do?method=ACTION_METHOD_FLAG_LIST&appName=AFP'>AFP监测信息报告管理系统</option>

<option value="-1" style="color:gray">麻疹监测信息报告管理系统</option>

<option value="-1" style="color:gray">死因登记报告信息系统</option>

<option value="-1" style="color:gray">死因调查系统</option>

<option value="-1" style="color:gray">标准编码管理系统</option>

<option value="-1" style="color:gray">结核病管理信息系统</option>

<option value="-1" style="color:gray">出生登记信息系统</option>

</select>

</div>

</div>

var app='null';

if(app!="" && app!='null'){

go_Href(currentSrvAndPort+"/SMP/tree.do?method=ACTION_METHOD_FLAG_LIST&appName="+app);

}

</script>

</body>

</html>

蓝天630902 · 发表于 2012-9-25 12:42

本帖最后由蓝天630902 于 2012-9-25 12:42 编辑

Sub 点击超链接()
On Error Resume Next
With CreateObject("internetexplorer.application")
      .Visible = True
      .Navigate "http://xxxxxx.html"
      Do Until .ReadyState = 4
         DoEvents
      Loop
      Set r = .document.All.tags("a")
      For i = 0 To r.Length - 1
         If r(i).innerText = "疾病监测信息报告管理系统" Then r(i).Click
      Next i
      .document.All.tags("OPTION")(5).Selected = True '5——甲型H1N1流感信息管理系统；1——流脑监测信息报告管理系统……
End With
End Sub

gwfzh · 发表于 2012-9-25 13:38

蓝天630902 发表于 2012-9-25 12:42
Sub 点击超链接()
On Error Resume Next
With CreateObject("internetexplorer.application")

谢谢蓝天630902老师：将上述“Set r = .document.All.tags("a")
      For i = 0 To r.Length - 1
         If r(i).innerText = "疾病监测信息报告管理系统" Then r(i).Click
      Next i
      .document.All.tags("OPTION")(5).Selected = True '5——甲型H1N1流感信息管理系统；1——流脑监测信息报告管理系统……”
添加到你的http://club.excelhome.net/home.p ... 515&page=1#last代码中还是不行，能否加一个判断是否登录的代码呢？

蓝天630902 · 发表于 2012-9-25 17:19

gwfzh 发表于 2012-9-25 13:38
谢谢蓝天630902老师：将上述“Set r = .document.All.tags("a")
For i = 0 To r.Length - 1
...

Sub test()
On Error Resume Next
With CreateObject("Shell.Application")
      For Each oWin In .Windows
         If LCase(TypeName(oWin.document)) = "htmldocument" Then
            If oWin.LocationURL Like "http://www.xxxxxx.html" Then '把地址栏里面的地址替代红色的部分，利用like可以实现模糊匹配，locationurl换成locationname可以匹配标题，
                  With oWin.document
                     Set r = .All.tags("a")
                     For i = 0 To r.Length - 1
                        If r(i).innerText = "疾病监测信息报告管理系统" Then r(i).Click
                     Next i
                     .All.tags("OPTION")(5).Selected = True '5——甲型H1N1流感信息管理系统；1——流脑监测信息报告管理系统……
                  End With
                  oWin.Quit
                  Exit For
            End If
         End If
      Next
End With
End Sub

jackl123 · 发表于 2018-9-17 16:39

超级链接好好学习一下

		自动登录	找回密码
密码			免费注册

[求助] 登录后怎样查找点击网页的超链接？

评分