Все привет, пишу для блога бота застрял почти на финале.
вот мой код
Вот тестовый аккаунт;
http://www.tumblr.com/blog/clayton-cory
login [email protected]
pass jfjfjf
не получается вот что
вот мой код
Код:
#include <IE.au3>
$file_titels = FileOpen("C:\tumblr\titles.txt",0)
$file_blog_name = FileOpen("C:\tumblr\blog-names.txt",0)
$file_links = FileOpen("C:\tumblr\links.txt",0)
$file_kartinka = FileOpen("C:\tumblr\kartinka.txt",0)
$file_html = FileOpen("C:\tumblr\html.txt",0)
$read_titels = FileReadLine($file_titels)
$read_blog_name = FileReadLine($file_blog_name)
$read_links = FileReadLine($file_links)
$read_kartinka = FileReadLine($file_kartinka)
$read_html = FileReadLine($file_html)
$oIE = _IECreate("http://www.tumblr.com/new/blog/")
_IELoadWait($oIE)
$oForm = _IEFormGetCollection ($oIE, 0)
$zagolovok = _IEFormElementGetCollection ($oForm, 1)
$adres = _IEFormElementGetCollection ($oForm, 2)
$Submit_Bottom = _IEFormElementGetCollection ($oForm, 5)
_IEFormElementSetValue ($zagolovok, $read_titels)
_IEFormElementSetValue ($adres, $read_blog_name)
_IEAction ($Submit_Bottom, "click")
_IELoadWait($oIE)
$oIE2 = _IECreate("http://www.tumblr.com/new/photo/")
_IELoadWait($oIE2)
_IELinkClickByText ($oIE2, "Установить ссылку для перехода")
_IELoadWait($oIE2)
_IELinkClickByText ($oIE2, "Использовать URL-адрес")
_IELoadWait($oIE2)
Вот тестовый аккаунт;
http://www.tumblr.com/blog/clayton-cory
login [email protected]
pass jfjfjf
не получается вот что