Anri/pusk
1
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages 1 Wiki Activity Actions

send the tweet

Browse source
This commit is contained in:
Mylloon 2023-05-15 15:58:26 +02:00
parent e8fde14350
commit dde373d87c
Signed by: Anri
GPG key ID: A82D63DFF8D1317F
1 changed files with 20 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
bin/twitter.ml
View file

@ -134,7 +134,7 @@ let find_latest_tweet ctx =
Some (List.fold_left max min_int datetimes) Some (List.fold_left max min_int datetimes)
;; ;;
let tweet ctx _msg = let tweet ctx msg =
let tweet_button = let tweet_button =
match find ctx.session_id (XPath "//a[@data-testid='SideNav_NewTweet_Button']") with match find ctx.session_id (XPath "//a[@data-testid='SideNav_NewTweet_Button']") with
| [] -> raise (Any (fmt "Tweet button not found")) | [] -> raise (Any (fmt "Tweet button not found"))
@ -144,5 +144,24 @@ let tweet ctx _msg =
else List.nth l 0 else List.nth l 0
in in
click ctx.session_id tweet_button; click ctx.session_id tweet_button;
let tweet_area =
match find ctx.session_id (XPath "//div[@data-testid='tweetTextarea_0']") with
| [] -> raise (Any (fmt "Tweet button not found"))
| _ as l ->
if List.length l > 1
then raise (Any "Too many tweet button found")
else List.nth l 0
in
send_keys ctx.session_id tweet_area msg;
Unix.sleep 1;
let send_tweet_button =
match find ctx.session_id (XPath "//div[@data-testid='tweetButton']") with
| [] -> raise (Any (fmt "Send-tweet button not found"))
| _ as l ->
if List.length l > 1
then raise (Any "Too many send-tweet button found")
else List.nth l 0
in
click ctx.session_id send_tweet_button;
Unix.sleep 4 Unix.sleep 4
;; ;;