Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.07.2012, 17:10   #1
vk-i
Новичок
Джуниор
 
Регистрация: 27.07.2012
Сообщений: 1
По умолчанию Выполнить программно клик js в delphi

Вот код моей программы:
Цитата:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdHTTP, StdCtrls;

type
TForm1 = class(TForm)
edt1: TEdit;
edt2: TEdit;
btn1: TButton;
idhtp1: TIdHTTP;
lbl1: TLabel;
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var
LoginData, Response: TStrings;
begin
LoginData := TStringList.Create;
Response := TStringList.Create;
try
LoginData.Add('login_auth='+edt1.Te xt);
LoginData.Add('passw_auth='+edt2.Te xt);
LoginData.Add('x=0');
LoginData.Add('y=0');
Response.Text := idhtp1.Post('http://mexxbox.105.aboltus.info/rg/index.php',LoginData);
if Pos('logout',Response.Text)>0 then
lbl1.Caption := 'Авторизировались!'
else
lbl1.Caption:='Авторизация не удалась!';
finally
LoginData.Free;
end;
end;
end.
Ниже скрин выложил. При на воде мышкой на кнопку "Файлы", появляется слева внизу код этой кнопки:
javascript:swichCell(3);showMenu(4) ;
Как его программно выполнить в делфи? в коде который указан выше.
Изображения
Тип файла: jpg ошибка.jpg (85.4 Кб, 145 просмотров)
vk-i вне форума Ответить с цитированием
Старый 29.07.2012, 19:57   #2
kakawkin
Форумчанин
 
Регистрация: 21.09.2009
Сообщений: 431
По умолчанию

проснифай какой GET запрос выполянется, или отправляются POST даныне
kakawkin вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
OpenDialog.execut как выполнить программно mutb Мультимедиа в Delphi 6 18.06.2012 02:09
Программно выбрать пункт в Combobox и выполнить... Dux Компоненты Delphi 2 03.09.2011 21:32
Delphi. Двумерные массивы. Не получается выполнить задачи. VinStaP Помощь студентам 1 17.05.2011 00:17
Клик мыши на объекты в Delphi MeGAAkrO Помощь студентам 3 10.04.2010 13:29
Как выполнить код Java из Delphi? ap008 Общие вопросы Delphi 2 22.05.2008 09:51