Sending text to face book post text box

[dushkin]

Hi,

 I am trying to write a post on facebook using autoit.

 I read the post text from a text file. Why? Because I want the script to be generic for future uses.

 So I get the text box focus and then I use Send function.

 The problem is that wherever I go down a line in the text line, the post is being submitted!

 How can I avoid that?

$oWriteSomethingField = _IEGetObjByName($oIE, "xhpc_message")

$ret = _IEAction($oWriteSomethingField, "focus")

If $ret == 0 Then
MsgBox($MB_OK , "_IEAction", @error)
Exit
EndIf

Sleep(1000)

Send($sPost, 1)

 

Thanks!

Edited August 30, 2014 by dushkin

[Melba23]

dushkin,

 

  Quote

I read the post text from a text file

That sounds a lot like a spam script - would you care to explain why it is not?

M23

[dushkin]

Hi Melba.

Yes, the purpose is to post to multiple groups and other fb pages.

No, it is not spam,because the post is about 3 kindle books which my wife wrote and that we intend to publish for FREE for a limited time.

That is using Amazon KDP SELECT promotion program. The groups to publish to are groups which their aim is to publish such free items or to help authors to publish their books.

So, there is no fear of spamming. I am sure that if facebook will think I am spamming, they will handle it. But be sure they won't.

Thanks!

[Melba23]

dushkin,

Fine - thanks for the explanation.

M23

[dushkin]

No problem. I was expecting this kind of wondering...

Now, I still need help... Anyone?...

[Jfish]

Just a guess but if the string you are sending has carriage returns it will probably activate the submit.  I would scrub out all carriage returns if possible and try again ...

[dushkin]

Thanks JFish. Then it is just becomes messy and unformatted... 

[Jfish]

True but if the CR submits it you may need to find another way to format it.  Perhaps you could string replace the @CRLF with @LF.  Line feed may not cause the form to submit.

[dushkin]

Tried it already. No change :-(

[Jfish]

controlsettext - was thinking thick client - oops - can't delete

But this would probably be the IE equivalent: _IEFormElementSetValue ( ByRef $o_object, $s_newvalue [, $f_fireEvent = 1] ).   Have you tried that?

Edited September 1, 2014 by Jfish

[Jfish]

I tested it - it works ... try this:

#include<ie.au3>
$website=_IECreate("http://www.facebook.com")
$oWriteSomethingField = _IEGetObjByName($website, "xhpc_message")
$text="This is some text to test it is really long" & @crlf & "this is some more text after a carriage return"
_IEFormElementSetValue($oWriteSomethingField,$text,0)

[dushkin]

JFish,

 I understood my problem!

 When the text was inserted to the post text box it simply did not lengthened the box to show all of it.

 It is so narrow in its height so it showed only the first line.

 So when I, accidently, put the cursor inside the text box and pushed the arrow button down 2-3 times, I discovered the rest of the text.... 

 I am so sorry for bothering you...

Edited September 4, 2014 by dushkin

[Jfish]

No worries - glad you got what you needed.