Автоматизация и боты

 Помощь      Поиск      Пользователи
Сайт Кибор     Программируемый кликер Кибор     Видео обучение     Заказать бот

 Страниц (6): « 1 2 [3] 4 5 6 »   

> Описание: Отправка и получение ответа на сайты по HTTPS, HTTP протоколу
Kibor
Отправлено: 13 Апреля, 2019 - 18:48:03
Post Id



Администратор
Эксперт


Покинул форум
Сообщений всего: 8091
Дата рег-ции: Март 2013  
Откуда: Одесса
Репутация: 355




Сейчас выведет. Я только что его удалил.
 
 Top
AdryV
Отправлено: 13 Апреля, 2019 - 18:49:55
Post Id



Пользователь
Специалист


Покинул форум
Сообщений всего: 449
Дата рег-ции: Май 2016  
Репутация: 11




ну вывело после того как я написал.....
(Добавление)
кажись работает.... потестирую.... спасиб за фикс
 
 Top
Kibor
Отправлено: 24 Июня, 2019 - 14:13:12
Post Id



Администратор
Эксперт


Покинул форум
Сообщений всего: 8091
Дата рег-ции: Март 2013  
Откуда: Одесса
Репутация: 355




Использование API WinInet, подключая нужные функции.
Скрипт посылающий запрос по https и читающий страницу.

Подробнее о WinInet

CODE:
#define NULL 0
#define FALSE 0
#define INTERNET_OPEN_TYPE_PRECONFIG 0
#define INTERNET_DEFAULT_HTTPS_PORT 443
#define INTERNET_SERVICE_HTTP 3
#define INTERNET_FLAG_SECURE 8388608
#define INTERNET_FLAG_NO_CACHE_WRITE 67108864


external(INT, "InternetOpen", "InternetOpenA", "Wininet.dll");
external(INT, "InternetConnect", "InternetConnectA", "Wininet.dll");
external(INT, "HttpOpenRequest", "HttpOpenRequestA", "Wininet.dll");
external(INT, "HttpSendRequest", "HttpSendRequestA", "Wininet.dll");
external(INT, "InternetReadFile", "InternetReadFile", "Wininet.dll");
external(INT, "InternetCloseHandle", "InternetCloseHandle", "Wininet.dll");


int hInternet = InternetOpen(
"My bot",
INTERNET_OPEN_TYPE_PRECONFIG,
NULL,NULL,
0);

if (hInternet != NULL) // открываем HTTP сессию
{

int hConnect = InternetConnect(
hInternet,
"kibor-bot.com",
INTERNET_DEFAULT_HTTPS_PORT,
NULL,NULL,
INTERNET_SERVICE_HTTP,
0,
1);

if (hConnect != NULL)
{
int hRequest = HttpOpenRequest(
hConnect,
"POST",
"forum",
NULL,
NULL,
0,
INTERNET_FLAG_SECURE | INTERNET_FLAG_NO_CACHE_WRITE,
1);


if (hRequest != NULL) // посылаем запрос
{
int bSend = HttpSendRequest(hRequest,
NULL,
0,
NULL,
0);

string fr="";
char szData[1024];
int dwBytesRead;

loop()
{
int bRead = InternetReadFile(
hRequest,
address(#szData[0]),
sizearray(szData)-1,
address(#dwBytesRead));

fr=fr+format(#szData[0]);

if (bRead == FALSE || dwBytesRead == 0) break;
}

messagebox (fr);
InternetCloseHandle(hRequest);// закрываем запрос
}

InternetCloseHandle(hConnect);// закрываем сессию
}

InternetCloseHandle(hInternet);// закрываем WinInet
}
 
 Top
Zireael
Отправлено: 24 Июня, 2019 - 14:49:53
Post Id



Пользователь
Эксперт


Покинул форум
Сообщений всего: 4385
Дата рег-ции: Нояб. 2017  
Репутация: 580




Вылет при повторном запуске скрипта.
 Цитата:
wwwww1:;

int bRead = InternetReadFile(
hRequest,
address(#szData[0]),
size(#szData[0])-1,
address(#dwBytesRead));

fr=fr+format(#szData[0]);

if (bRead == FALSE || dwBytesRead == 0) goto Fs;

goto wwwww1;

Fs:;
messagebox (fr);

CODE:
int bRead = InternetReadFile(
hRequest,
address(#szData[0]),
sizearray(szData),
address(#dwBytesRead));
messagebox (format(#szData[0]));
 
 Top
Kibor
Отправлено: 24 Июня, 2019 - 14:58:52
Post Id



Администратор
Эксперт


Покинул форум
Сообщений всего: 8091
Дата рег-ции: Март 2013  
Откуда: Одесса
Репутация: 355




 Zireael пишет:
Вылет при повторном запуске скрипта.

Исправил ошибку в скрипте.

sizearray(szData)-1,
 
 Top
007wan
Отправлено: 29 Июня, 2019 - 11:33:48
Post Id



Пользователь
Эксперт


Покинул форум
Сообщений всего: 1838
Дата рег-ции: Март 2017  
Репутация: -2




А как сделать, что бы он открывал беседу вк, а то я подставлял и ничего не вышло. Выдает много "Н"
 
 Top
007wan
Отправлено: 23 Июля, 2019 - 09:16:40
Post Id



Пользователь
Эксперт


Покинул форум
Сообщений всего: 1838
Дата рег-ции: Март 2017  
Репутация: -2




Как мне открыть сокет? Заменял сайт в примере выше на мой ип адрес сервера и не получилось. Так же не вывелось из-за этого messagebox. Если можно, то еще пример такого же плана для API WinInet. Вход осуществляется через ip адрес и порт.
(Добавление)
CODE:
char C[100000];
if (sendgetweb(#C[0], "", "GET", "http:/"+"/MY ip:port", "")>0)
{
int nom, siz;

messagebox(format(#C));

}

(Добавление)
Пожалуйста.
 
 Top
Kibor
Отправлено: 24 Июля, 2019 - 14:22:14
Post Id



Администратор
Эксперт


Покинул форум
Сообщений всего: 8091
Дата рег-ции: Март 2013  
Откуда: Одесса
Репутация: 355




Подробнее о WinInet

Авторизация на https сайте путем отправки POST запроса в Кибор



CODE:
#define NULL 0
#define FALSE 0
#define INTERNET_OPEN_TYPE_PRECONFIG 0
#define INTERNET_DEFAULT_HTTPS_PORT 443
#define INTERNET_SERVICE_HTTP 3
#define INTERNET_FLAG_SECURE 8388608
#define INTERNET_FLAG_NO_CACHE_WRITE 67108864


external(INT, "InternetOpen", "InternetOpenA", "Wininet.dll");
external(INT, "InternetConnect", "InternetConnectA", "Wininet.dll");
external(INT, "HttpOpenRequest", "HttpOpenRequestA", "Wininet.dll");
external(INT, "HttpSendRequest", "HttpSendRequestA", "Wininet.dll");
external(INT, "InternetReadFile", "InternetReadFile", "Wininet.dll");
external(INT, "InternetCloseHandle", "InternetCloseHandle", "Wininet.dll");


int hInternet = InternetOpen(
"My bot",
INTERNET_OPEN_TYPE_PRECONFIG,
NULL,NULL,
0);

if (hInternet != NULL) // открываем HTTP сессию
{

int hConnect = InternetConnect(
hInternet,
"kibor-bot.com",
INTERNET_DEFAULT_HTTPS_PORT,
NULL,NULL,
INTERNET_SERVICE_HTTP,
0,
1);

if (hConnect != NULL)
{
int hRequest = HttpOpenRequest(
hConnect,
"POST",
"forum/loginout.php",
NULL,
NULL,
0,
INTERNET_FLAG_SECURE | INTERNET_FLAG_NO_CACHE_WRITE,
1);


if (hRequest != NULL) // посылаем запрос
{

string Header="Content-Type: application/x-www-form-urlencoded";
//Test_Kibor Это логин
//Test_Kibor_qwert Это пароль
string POSTData="action=login&imembername=Test_Kibor&ipassword=Test_Kibor_qwert&submit=%C2%F5%EE%E4";

int bSend = HttpSendRequest(hRequest,
Header,
size(Header),
POSTData,
size(POSTData));


string fr="";
char szData[1024];
int dwBytesRead;

wwwww1:;

int bRead = InternetReadFile(
hRequest,
address(#szData[0]),
sizearray(szData)-1,
address(#dwBytesRead));

fr=fr+format(#szData[0]);

if (bRead == FALSE || dwBytesRead == 0) goto Fs;

goto wwwww1;

Fs:;

messagebox (fr);

if (fopen ("c:\5.txt", "w")!=0)
{//если открылся
fwrite(fr);
fclose();//закрываем файл
}
start("c:\5.txt");

InternetCloseHandle(hRequest);// закрываем запрос
}

InternetCloseHandle(hConnect);// закрываем сессию
}

InternetCloseHandle(hInternet);// закрываем WinInet

}

 
 Top
007wan
Отправлено: 25 Июля, 2019 - 08:45:29
Post Id



Пользователь
Эксперт


Покинул форум
Сообщений всего: 1838
Дата рег-ции: Март 2017  
Репутация: -2




У меня появилась идея, но с 2 вариантами: первый с авторизацией, а вторая без.
Суть идеи: Передавать состояние бота и управлять им через телефон, а так же получать статус.

Идея такая: для с авторизацией. Регистрируемся на любом сайте, ну или на Киборе(тестовый аккаунт). Текстовый аккаунт предназначен для компьютера и бота, а основной для телефона. Принцип: "Бот работает на компьютере" Есть 2 команды: Остановить и Запустить. Через браузер посылаем фиксированный текст из основного аккаунта на текстовый, а бот на компьютере в режиме ожидания(цикл, пока не станет "+1" или "больше, чем 1 СМС в Личном ящике". Далее заходит в ящик и читает сообщение И посылает обратно серверу другой текст. Скажем от телефона пришло "Остановить", а обратно придет "Остановлен". Далее мы читаем его с телефона и всё)

Второй вариант. Есть ПО для мобильного телефона. Тоже не хочу "Рекламировать"(так некоторые подумают), но связанное с программированием и там можно создавать сервер с телефона. И я думаю можно сделать всё тоже самое, что выше, но Сокете нету пароля, что будет проще.
(Добавление)
Однако, я пока не дошел как зайти на сервер, не используя параметры пароль и логин. читаю вот документацию)
 
 Top
Kibor
Отправлено: 25 Июля, 2019 - 09:14:36
Post Id



Администратор
Эксперт


Покинул форум
Сообщений всего: 8091
Дата рег-ции: Март 2013  
Откуда: Одесса
Репутация: 355




 007wan пишет:
Однако, я пока не дошел как зайти на сервер, не используя параметры пароль и логин. читаю вот документацию)

https://kibor-bot.com/forum/topi...35205#1564035205
 
 Top
Страниц (6): « 1 2 [3] 4 5 6 »
Сейчас эту тему просматривают: 1 (гостей: 1, зарегистрированных: 0)
« О программе Кибор »


Все гости форума могут просматривать этот раздел.
Только администраторы и модераторы могут создавать новые темы в этом разделе.
Только зарегистрированные пользователи могут отвечать на сообщения в этом разделе.
 




Powered by