举个在百度首页填写搜索内容后,提交查询的例子。
打开Delphi, 新建VCL窗口程序。 添加一个 TWebBrowser 组件和 TEdit 文件框在窗口上。 给TWebBrowser改个名字WEB。 在WEB的NavigateComplete2事件中加入如下代码:
procedure TForm1WEBNavigateComplete2(ASender: TObject; const pDisp: IDispatch;
var URL: OleVariant);
var
s, kw: Variant;
t: string;
begin
// 获取页面对象
s := WEBDocument;
// 判断当前页面是不是百度主页
Edit1Text := sURL;
if sURL <> '><!doctype html>
<html lang="en">
<head>
<meta charset="UTF-8">
<title>Document</title>
</head>
<body>
<script src="jquery-211minjs"></script>
<!--记得导jquery-->
<script>
$ajax({
type:'get',
url:"demohtml",//这里是url
success:function(body,heads,status){
consolelog(body); //body就是内容了,也就是url网页中的内容
}
});
</script>
</body>
</html>
重点代码说明:
$ajax({type:"POST",//请求方式为post
url:"orderclassphptype=add",//请求的地址
data:dataFormid,//参数
success: function(mag){
//success指的是请求并成功返回信息
//msg是返回的内容
alert(mag);
}
});
举例
//假如后台返回的是一个JSON格式的字符串,如"{code:0,msg:\"执行成功!\"}"
success: function(data){
var json=evel("("+data+")");
alter(jsonmsg);//会d出执行成功的消息框
}
把输入框放到一个form表单里
<form name="frm">
<input type="text" name=“name” id=“id_name”/>
</form>
这样在js里就可以documentfrmnamevalue就是输入框的值
或者documentgetElementById("id_name")value也是可以的
你试一试用
Ctrl+a键,然后在菜单栏中选
编辑-复制,打开记事本,把复制的内容贴上。
这就等于把页面某一区域内所有的文字都复制下来了,再从中找你需要的内容。
参考资料:
饭客网络
在EXCEL中提取指定字符串我一般采用以下方法:1、有规律的字符串,可以用分列来完成,可参看下面的动画;2、使用函数截取。常用的字符串取值函数有LEFT/RIHGT/MID; 1)LEFT函数是从文本串左侧开始取指定数量的字符,如=LEFT("ABCD",2)会返回“AB”; 2)RIGHT函数是从文本串右侧开始取指定数量的字符,如:RIGHT("ABCD",2),返回“CD"; 3)MID函数是从指定位置开始取指定的数量的字符,如:=MID("ABCDE",3,2),返回”CD"当然,要想达到取值目标,以上函数还是要配合其它函数一同使用才可以达到灵活运用的目的。
有用又简单的办法:
工具——Internet选项——安全——自定义级别——设置
找到脚本的设置,
即Java小程序脚本、活动脚本和允许通过脚本进行粘贴
设置三个脚本为禁用。(允许通过脚本进行粘贴脚本设置也可为启用)
确定后,刷新网页。一切OK
特别提醒:用完后一定记得要重新将三个脚本设置还原为 启用,要不网页显示会不正常。
以上就是关于谁有delphi 获取动态网页的并且自动填写数据的,提交的示范!全部的内容,包括:谁有delphi 获取动态网页的并且自动填写数据的,提交的示范!、javascript 怎么获取指定url网页中的内容、如何获取网页中的密码和文本输入框的内容等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)