控制所有WebBrowser元件包括已經開啟的網頁內的圖片
来源:互联网 发布:mac 散热 键盘 编辑:程序博客网 时间:2024/06/10 17:39
當然可以呀:
//使用一個AP的Button登入WebBrowser的帳號================
procedure TForm1.Button1Click(Sender: TObject);
var
Docs, Edits : OleVariant;
begin
Docs :=WebBrowser1.Document;
(*此處只適用於http://tw.login.yahoo.com/cgi-bin/login.cgi?srv=www&from=http://tw.yahoo.com/該網頁的輸入*)
Edits :=Docs.GetElementByID('login');
Edits.Value :='你的KIMO帳號';
Edits :=Docs.GetElementByID('passwd');
Edits.Value :='你的KIMO密碼';
//登入
WebBrowser1.OleObject.Document.GetElementByID('submit').Click;
end;
//使用一個AP的Button登入WebBrowser的帳號================
//列出所有影像檔的位置======================
procedure TForm1.Label3Click(Sender: TObject);
var
Document: IHtmlDocument2;
str: string;
begin
Form1.ListBox2.Clear;
for i := 0 to WebBrowser1.OleObject.Document.Images.Length - 1 do
begin
Document := WebBrowser1.Document as IHtmlDocument2;
Str := (Document.Images.Item(i, 0) as IHTMLImgElement).href;
Form1.ListBox2.Items.Add(Str); //列出這個網站內所有的影像檔位置
//改變網頁中的圖檔=========================
if Pos('pscnet_login_10.gif', Str) <> 0 then
begin
(Document.Images.Item(i, 0) as IHTMLImgElement).Set_src(Form1.Edit2.Text); //Form1.Edit2.Text放要改變的圖檔路徑=======
end;
//改變網頁中的圖檔=========================
end;
end;
//列出所有影像檔的位置======================
//使用一個AP的Button登入WebBrowser的帳號================
procedure TForm1.Button1Click(Sender: TObject);
var
Docs, Edits : OleVariant;
begin
Docs :=WebBrowser1.Document;
(*此處只適用於http://tw.login.yahoo.com/cgi-bin/login.cgi?srv=www&from=http://tw.yahoo.com/該網頁的輸入*)
Edits :=Docs.GetElementByID('login');
Edits.Value :='你的KIMO帳號';
Edits :=Docs.GetElementByID('passwd');
Edits.Value :='你的KIMO密碼';
//登入
WebBrowser1.OleObject.Document.GetElementByID('submit').Click;
end;
//使用一個AP的Button登入WebBrowser的帳號================
//列出所有影像檔的位置======================
procedure TForm1.Label3Click(Sender: TObject);
var
Document: IHtmlDocument2;
str: string;
begin
Form1.ListBox2.Clear;
for i := 0 to WebBrowser1.OleObject.Document.Images.Length - 1 do
begin
Document := WebBrowser1.Document as IHtmlDocument2;
Str := (Document.Images.Item(i, 0) as IHTMLImgElement).href;
Form1.ListBox2.Items.Add(Str); //列出這個網站內所有的影像檔位置
//改變網頁中的圖檔=========================
if Pos('pscnet_login_10.gif', Str) <> 0 then
begin
(Document.Images.Item(i, 0) as IHTMLImgElement).Set_src(Form1.Edit2.Text); //Form1.Edit2.Text放要改變的圖檔路徑=======
end;
//改變網頁中的圖檔=========================
end;
end;
//列出所有影像檔的位置======================
- 控制所有WebBrowser元件包括已經開啟的網頁內的圖片
- 贴片元件的焊接
- SMD贴片元件的封装尺寸
- 贴片元件的焊接方法
- 标准贴片IC元件的焊接方法
- 0201元件对SMT贴片设备的影响
- Proteus的所有元件分类及子类
- 控制WebBrowser控件的滚动
- 屏蔽元件的鼠标控制事件
- 托动容器包括子级元件的例子
- 自动关闭webBrowser弹出的所有窗口
- 贴片元件的封装中名字后缀的 L N M的含义
- 控制 WebBrowser 控件的外观和行为
- 控制 WebBrowser 控件的外观和行为
- WebBrowser如何控制Frame下面的元素
- 控制面板内的所有运行命令包括添加删除应用程序等
- 一种简捷、可靠、廉价的贴片元件焊接方法——拉焊
- 各路高手谈谈手工焊接贴片元件的方法、经验
- html--行隐藏
- sohu it频道博客主页 更新速度让我惊讶
- 联通客服的瑕疵
- 公共行业短信平台的费用问题
- 可笑的WAPI产业联盟
- 控制所有WebBrowser元件包括已經開啟的網頁內的圖片
- 固网短信"瞎想"
- 恋爱中的设计模式 之 Composite模式 (合成模式)
- 手机垃圾短信功能设想
- 《庄子》
- 利用WebBorwser和MSHTML.tlb做广告过滤器完全源码公开
- 信息化的几个话题
- 电信运营与强势品牌合作研讨会
- 什么是VPN