十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
复制来的,与你分析!以下是信息
创新互联公司长期为上1000+客户提供的网站建设服务,团队从业经验10年,关注不同地域、不同群体,并针对不同对象提供差异化的产品和服务;打造开放共赢平台,与合作伙伴共同营造健康的互联网生态环境。为张家口企业提供专业的做网站、网站建设,张家口网站改版等技术服务。拥有十载丰富建站经验和众多成功案例,为您定制开发。
我想楼主是想问用WebBrowser自动点这个链接吧。
Dim Str1 As String
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
' 如果aSet(i).onclick不能点击的话,请试试aSet(i).click
End If
Next i
很简单,用字符串查找函数就可以实现了。 当在StrB查找到StrA字符串时,返回肯定是非0的数,值就是True,找不到为0或者-1,值就是Flase 比如: Dim StrA As String = "Time is Limited" Dim StrB As String = "Time" Dim Stu As Boolean= InStr(StrA, StrB) 这运行段代码,Stu值就是True了。 我觉得这样最简单有效。
不想用点击,直接执行,那么你肯定就不能用onclick事件了。
在网页中JS函数自动执行常用三种方法
在HTML中的Head区域中,有如下函数:
SCRIPT
LANGUAGE="JavaScript"
functionn
MyAutoRun()
{
//以下是您的函数的代码,请自行修改先!
alert("函数自动执行哦!");
}
/SCRIPT
下面,我们就针对上面的函数,让其在网页载入的时候自动运行!
①第一种方法
将如上代码改为:
SCRIPT
LANGUAGE="JavaScript"
functionn
MyAutoRun()
{
//以下是您的函数的代码,请自行修改先!
alert("函数自动执行哦!");
}
window.onload=MyAutoRun();
//仅需要加这一句
/SCRIPT
②第二种方法
修改网页的Body为:
body onLoad="MyAutoRun();"
或者改为:
body onLoad="javascript:MyAutoRun();"
③第三种方法
使用JS定时器来间断性的执行函数:
setTimeout("MyAutoRun()",1000); //隔1000毫秒就执行一次MyAutoRun()函数
实现方法,将最上面的那JS函数,改为:
SCRIPT
LANGUAGE="JavaScript"
functionn
MyAutoRun()
{
//以下是您的函数的代码,请自行修改先!
alert("函数自动执行哦!");
}
setTimeout("MyAutoRun()",1000);
//这样就行拉
/SCRIPT
VB.NET 2013有parentWindow的,
WebBrowser1.Document.DomDocument.parentWindow.execScript才有
方法1:
程序执行
Response.Write("scriptalert('程序执行完毕')/script")
就是会出现白底很不好看
方法2:
程序执行
me.RegisterStartupScript("hello","scriptalert('程序执行完毕')/script");
最常用的
既然引用了COM组件,就可以直接使用了,无需用CreateObject创建。
Dim ScriptControl As New MSScriptControl.ScriptControl
ScriptControl.Language = "JavaScript" '设置语言种类
ScriptControl.AddCode("function TestFunc(){return 'Hello world!'}") '添加脚本代码
MsgBox(ScriptControl.Run("TestFunc")) '显示一下那段脚本的返回值(这里你将看到Hello world!字符)