[Asinkrit]

Решил я порадовть ботописателей и выложить исходники бота исключительно в познавательных целях.

Вложение 1629

Программа предназначена для автоматизации игры Большой Город в Вконтакте, работает с любыми браузером, по одному окну на каждый город (то есть, может обрабатывать один или несколько городов)
Писался бот за несколько часов, в два захода, была уйма идей, но жалко тратить больше времени на бота, поэтому работы были прикращены, после написания первого стабильного рабочего варианта, возможны частичные сбои программы (хотя у меня она работала больше суток без сбоев, иногда отваливался один или два города из пяти), так же, в коде осталось очень много артифактов.

Обязательные условия для работы программы (возможно изменить в коде):
Каждый город должен быть в первой созданной вкладке любого браузера.
Все окна браузеров, должны быть развернуты на экране так, что бы была вида рабочая часть флешки, при этои окна могут находиться друг над другом, изначально разрабатывалось под FireFox.

Искомые картинки хранятся в файле Store.dat, так же, выкладываю исходники программки для работы с данным файлом, правда немного старой версии.

Исходник Хранилища битмапов Вложение 1630
Исходник бота Вложение 1628.

Комментарии к наиболее интересному коду:
Получение хэндла GeckoPlugin-а по хендлу окна:
Остальной код, думаю прозрачен.
Будут вопросы, обращайтесь, помогу.

[kynavs]

спасибо за код. Когдато бился над подобным ботом для какойто браузерной космической игрульки - тож заработало но было немного корявее. щас поковыряемся в твоем коде.))) Видел куски твоего кода на программерсфоуме и вот на те - исходник ))) Спасибо !!!

[bistriy]

При компиляции в Delphi 7 ошибка _FileWorkings.dcu not found.
Где взять этот файл или хотя бы _FileWorkings.pas ?

[Asinkrit]

Держи. Вложение 1679

[bistriy]

Опять неувязка вышла. Извини я тебя немножко поругаю. Как ты мог выкладывать исходники , при компиляции которых столько проколов.
Ради бога обясни куда делся идентификатор SetStatusBar из файла _BitMapsStore.pas ?
Проблемма эта возникла при компиляции хранилища картинок.
При компиляции ошибка Не присутствует нужный идентификатор: SetStatusBar.
Я сам лично посмотрел в файл _BitMapsStore.pas и действительно его там не оказалось и даже похожего идентификатора нет.
Выложи пожалуста измененный файл _BitMapsStore.pas со всеми нужными идентификаторами которые ты вписал.
Буду очень благодарен , хочу разобраться в твоих исходниках.

[Asinkrit]

Проверил я исходники, я ненашел никакого вызова SetStatusBar-a, так же, поудалял все пути к библиотекам, и свалил все файлы в кучу и скомпилировал, без ошибок, на всякий случай выкладываю еще раз, если ошика будет повторяться, то напиши в какой строке она появляется.
Вложение 1683

[bistriy]

Проблемму не ту затронул. Я говорил, что проблемма при компиляции исходника хранилища битмапов (вот тут BitmapsStore.rar), а не при компиляции исходника бота.

Код начала и до места возникновения ошибки:

Код:

unit xmain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, _BitMapsStore, Menus, FileCtrl, ComCtrls, AForm;

type
  TxMainForm = class(TForm)
    Image1: TImage;
    Panel1: TPanel;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Panel2: TPanel;
    ListBox1: TListBox;
    Panel3: TPanel;
    DirectoryListBox1: TDirectoryListBox;
    Panel4: TPanel;
    DriveComboBox1: TDriveComboBox;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    StatusBar1: TStatusBar;
    PopupMenu2: TPopupMenu;
    N2: TMenuItem;
    N3: TMenuItem;
    Panel5: TPanel;
    FileListBox1: TFileListBox;
    Image2: TImage;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure FileListBox1DblClick(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure ListBox1KeyPress(Sender: TObject; var Key: Char);
    procedure FileListBox1Click(Sender: TObject);
  private
    FBS:TBitMapsStore;
  public
    procedure ShowPicture;
  end;

var
  xMainForm: TxMainForm;

implementation

{$R *.dfm}

procedure TxMainForm.FormCreate(Sender: TObject);
begin
  ControlStyle:=ControlStyle+[csOpaque];
  FBS:=TBitMapsStore.Create;
  FBS.SetStatusBar(StatusBar1, Application); //Вот тут ошибка при
// компиляции, именно не найден идентификатор SetStatusBar

end;

[Asinkrit]

просто закоментируй эту строку, честно говоря не помню откудо это взялось, но во всех версиях данного файла, у меня SetStatus-а нет, а вообще этот метод показывал какую-то информацию на по хранилищу в статусбаре.

[bistriy]

Отлично . Спасибо автору за идею !!!
Но чесно говоря лучше бы ты их перекомпилировал , переархивировал и выложил в первом посте заново, а то ведь не поймут. Не всем под силу стока терпеть .