Omg, kakav klik na IE link... ako mislis na neki link na nekoj stranici, onda mozes koristit TWebBrowser wraper za IE u borlandovim alatima, nesto tipa ovako:
Code:
function FillForm(WebBrowser: TWebBrowser; FieldName: String; Value: String): Boolean;
var
I, J: Integer;
FormItem: Variant;
begin
Result := False;
for I := 0 to WebBrowser.OleObject.Document.forms.Length - 1 do
begin
FormItem := WebBrowser.OleObject.Document.forms.Item(I);
for J := 0 to FormItem.Length - 1 do
begin
if FormItem.Item(J).Name = FieldName then
begin
FormItem.Item(J).Value := Value;
Result := True;
Exit;
end;
end;
end;
end;
function SubmitForm(WebBrowser: TWebBrowser; FieldString:string): Boolean;
var
i, j: Integer;
FormItem: Variant;
begin
Result := False;
for I := 0 to WebBrowser.OleObject.Document.forms.Length - 1 do
begin
FormItem := WebBrowser.OleObject.Document.forms.Item(I);
for j := 0 to FormItem.Length - 1 do
begin
if (UpperCase(FormItem.Item(j).Name) = FieldString) then
begin
FormItem.Item(j).focus;
keybd_event( Ord(' '), MapvirtualKey( Ord(' '), 0), 0, 0 );
keybd_event( Ord(' '), MapvirtualKey( Ord(' '), 0), KEYEVENTF_KEYUP, 0 );
Result := True;
end;
end;
end;
end;
Ili jednostavno da odglumis klik misa, tj. sa FindWindow nadjes handle od IE-a, pa sa Send/PostMessage posaljes WM_LBUTTONDOWN, u wParam stavis vrijednost MK_LBUTTON, a u LOWORD od lParama ide X-koordinata, u HIWORD od lParama ide Y-koordinata!
Ili mozes pak sam da kucas od IUnknown interfejsa OLE komunikaciju sa IE, il nesto pak lakse da potrazis na netu u vezi DDE komunikacije sa IE, pogledaj dokumentaciju sta sve IE podrzava, ili jednostavno da parsiras HTML kod i da nadjes link koji ti treba pa preko Indy fja jednostavno pozoves IdHttp.Get ili .Post, ili pak preko winsocka posaljes connect, pa GET /sajt_blabla.net HTTP/1.0, pa sa recv primis sav html kod... ili pak imas WinInet apije za rad sa HTTP protokolom i ostalim protokolima..
z