Уважаемые программисты ! Помогите новичку !

Z

zmey755

Я публикую различные посты на несколько сайтов и мне приходится открывать 10 окон для каждого сайта по окну и вбивать туда данные нового поста, затем следующего и тд !
Неудобство в том что данные поста приходится вбивать на все 10 сайтов поочередно !
Мне нужна удобная форма для заполнения данных поста , которая бы автоматически передавала все данные из ее полей ввода текста в поля ввода текстов этих 10 сайтов !
на одном из форумов я нашел исходный код похожей программы и хотел бы попросить вас скомпилировать его

// Upload file to server
void __fastcall TFMain::bUploadClick(TObject *Sender)
{
AnsiString slHtmlFormName = "UploadForm"; // <form name="UploadForm"...

IHTMLDocument2 *pHTMLDocument = NULL;
if(SUCCEEDED(CppWebBrowser->Document->QueryInterface(
IID_IHTMLDocument2, (LPVOID*)&pHTMLDocument)))
{
if(pHTMLDocument != NULL)
{
IHTMLElementCollection *pAll = NULL;
if(SUCCEEDED(pHTMLDocument->get_all(&pAll)) && pAll)
{
TVariant vName="userfile", vName2 = "passwd", vName0 = "MAX_FILE_SIZE";
TVariant vIndex=0;

// put into hidden field <hidden...
IDispatch *pDisp0=NULL;
if(SUCCEEDED(pAll->item(vName0, vIndex, &pDisp0)) && pDisp0)
{

IHTMLInputHiddenElement *pSize = NULL;
if(SUCCEEDED(pDisp0->QueryInterface(IID_IHTMLInputHiddenElement,
(LPVOID*)&pSize)) && pSize)
{
pSize->put_value(WideString("150000"));
pSize->Release();
}
pDisp0->Release();
}

// paste into file field <file...
IDispatch *pDisp=NULL;
if(SUCCEEDED(pAll->item(vName, vIndex, &pDisp)) && pDisp)
{
IHTMLInputFileElement* pFile = NULL;
if(SUCCEEDED(pDisp->QueryInterface(IID_IHTMLInputFileElement,
(LPVOID*)&pFile)) && pFile)
{
// Copy Full FileName To Clipboard
Clipboard()->SetTextBuf(sFile.c_str());
pFile->select();
// Paste from ClipBoard to "userfile"
CppWebBrowser->ControlInterface->ExecWB(Shdocvw_tlb::OLECMDID_PASTE,
Shdocvw_tlb::OLECMDEXECOPT_DODEFAULT, Variant("userfile"));
pFile->Release();
}
pDisp->Release();
}

// put into input element <input...
IDispatch *pDisp2=NULL;
if(SUCCEEDED(pAll->item(vName2, vIndex, &pDisp2)) && pDisp2)
{

IHTMLInputElement *pInput = NULL;
if(SUCCEEDED(pDisp2->QueryInterface(IID_IHTMLInputElement,
(LPVOID*)&pInput)) && pInput)
{
pInput->put_value(WideString("if5edU7dk4"));
pInput->Release();
}
pDisp2->Release();
}
}
pAll->Release();

}
// click SUBMIT()
IHTMLElementCollection *HTMLForms = NULL;
if(SUCCEEDED(pHTMLDocument->get_forms(&HTMLForms)) && HTMLForms)
{
// slHtmlFormName <form name="UploadForm"...>
TVariant vName3 = slHtmlFormName;
TVariant vIndex3 = 0;
IDispatch *pDisp3 = NULL;
if(SUCCEEDED(HTMLForms->item(vName3, vIndex3, &pDisp3)) && pDisp3)
{
IHTMLFormElement *HTMLForm = NULL;
if(SUCCEEDED(pDisp3->QueryInterface(IID_IHTMLFormElement,
(LPVOID*)&HTMLForm)) && HTMLForm)
{
HTMLForm->submit(); // нажимаем кнопку submit
HTMLForm->Release();
}
pDisp3->Release();
}
HTMLForms->Release();
}

pHTMLDocument->Release();
}
}


============================================================================

Для textarea нужно использовать тип IHTMLTextAreaElement

CODE

if ( SUCCEEDED ( pAll -> item ( vName1, vIndex, &pDisp1 ) ) && pDisp1 )
{
IHTMLTextAreaElement *pInput = NULL;

if ( SUCCEEDED ( pDisp1 -> QueryInterface ( IID_IHTMLTextAreaElement, ( LPVOID* )&pInput ) ) && pInput )
{
pInput -> put_value ( Data );
pInput -> Release ();
}

pDisp1 -> Release ();
}

======================================================================================
Либо очень прошу вас посоветуйте какое либо приложение для осуществления ( кросспостинга ) из одного окна на несколько ресурсов (форумов , блогов) ! С уважением новичек !
 
Z

zmey755

mrOkey сказал(а):
Бюджет?
Нажмите, чтобы раскрыть...
Бюджет500 российских рублей !
Расчет wmr
естественно с предварительным тестом
и подробным описанием мануала !
Обзор функций программы можно сделать по скайпу мой логин скайп ( zmey7551 )
 
Последнее редактирование модератором:
MLNK

MLNK

Mod. Ethical Hacking
Red Team
23.01.2018
560
706
BIT
7
zmey755 сказал(а):
Бюджет500 российских рублей !
Расчет wmr
естественно с предварительным тестом
и подробным описанием мануала !
Обзор функций программы можно сделать по скайпу мой логин скайп ( zmey7551 )
Нажмите, чтобы раскрыть...
я к сожелению не в курсе российских расценок, однако 500 рублей это слишком символично.
и ещё маленький совет когда публекуете код то выбирайте форму кода на сайте
12.PNG

это сильно облегчит его чтение и понимание для возможного альтруиста.
 
  • Нравится
Реакции: Сергей Попов
Z

zmey755

mrOkey сказал(а):
это настолько символично, что А.Блок начинает завидовать.
Нажмите, чтобы раскрыть...
Символично лишь,потому что исходный код осталось лишь скомпилировать и выложить мне готовый .exe
Потому как к сожалению у меня нет времени копаться в коде самому !
Естественно я буду рассматривать любые предложения в лс и выберу для себя наиболее оптимальный вариант учитывая мои желания и возможности !
 
n3d.b0y

n3d.b0y

Red Team
19.01.2018
181
474
BIT
165
Что то я сомневаюсь что кто то это будет делать за 500р. Я не уверен что то что ты скинул вообще будет работать так как там совсем не такой принцип как ты хочешь а во вторых. За такой скрипт например на php встал бы чисто символически не менее 30$
 
Z

zmey755

n3d.b0y сказал(а):
Что то я сомневаюсь что кто то это будет делать за 500р. Я не уверен что то что ты скинул вообще будет работать так как там совсем не такой принцип как ты хочешь а во вторых. За такой скрипт например на php встал бы чисто символически не менее 30$
Нажмите, чтобы раскрыть...

Да это не вопрос !
Я же сказал что буду рассматривать любые предложения для реализации моей цели и буду выбирать наиболее оптимальный вариант (цена - качество) !

Мне нужно приложение для кросспостинга на форумы и блоги
, я укажу ресурсы и поля которые нужно в них заполнять текстовой информацией !
Информация как вы понимаете одна и та же ,
но вид сайтов и оформление естественно у них разные.

Все действия авторизация и публикация постов
должны производиться в окнах приложения (если это будет отдельное приложение) !

либо полей ввода в скрипте который будет наполнять поля блогов и форумов в браузере по аналогии !

---- Добавлено позже ----

вот логика приложения либо скрипта который будет осуществлять синхронизацию полей ввода формы с полями ввода сайтов и блогов
afc8f278c1d7969c7d6c131ec9d2cb98.jpg
 
Последнее редактирование модератором:
MLNK

MLNK

Mod. Ethical Hacking
Red Team
23.01.2018
560
706
BIT
7
zmey755 сказал(а):
Символично лишь,потому что исходный код осталось лишь скомпилировать и выложить мне готовый .exe
Потому как к сожалению у меня нет времени копаться в коде самому !
Естественно я буду рассматривать любые предложения в лс и выберу для себя наиболее оптимальный вариант учитывая мои желания и возможности !
Нажмите, чтобы раскрыть...
Если всё так просто то за время написания тут ответов ужебы сам скомпелировал.
ТЗ тоже внятно не изложенно.
Да и нормальные программисты редко любят работать с чужим кодос если это не фрэймфорки библиотеки ипрочее подспорье, тоесть писать лучше всегда самому и снуля.
Вообщем мне кажется врядли здесь ктото возьмётся за такое задание да и как закащик вы судорь доверия не внушаете уж простите.
 
  • Нравится
Реакции: recrut
Z

zmey755

5h3ll сказал(а):
Если всё так просто то за время написания тут ответов ужебы сам скомпелировал.
ТЗ тоже внятно не изложенно.
Да и нормальные программисты редко любят работать с чужим кодос если это не фрэймфорки библиотеки ипрочее подспорье, тоесть писать лучше всегда самому и снуля.
Вообщем мне кажется врядли здесь ктото возьмётся за такое задание да и как закащик вы судорь доверия не внушаете уж простите.
Нажмите, чтобы раскрыть...
Я же не настаиваю на допиливании именно чужого кода указанного выше!
Естественно приложение можно написать с нуля по алгоритму, который я описал и отобразил на скриншете.
Если у вас есть какие либо предложения по данному поводу то пишите пожалуйста в ЛС !
 
Для ответа нужно войти/зарегистрироваться
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!

Верх Низ