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

update tweet strategy
All checks were successful
ci/woodpecker/push/publish Pipeline was successful
Details

Browse source 
* now use the home page to tweet, instead of relying of clicking on tweet page
This commit is contained in:
Mylloon 2023-05-16 13:32:50 +02:00
parent 2518fca99d
commit 3f415cf9e1
Signed by: Anri
GPG key ID: A82D63DFF8D1317F
2 changed files with 6 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
bin/main.ml
View file

@ -45,10 +45,12 @@ let rec check ctx =
if 0 = timeout if 0 = timeout
then ( then (
if ctx.debug then print_endline "Tweeting..."; if ctx.debug then print_endline "Tweeting...";
(* Tweet and returns to profile page *) (* Tweet *)
tweet tweet
ctx ctx
"This tweet is for the Twitter's CTO: don't suspend my account for inactivity."; "This tweet is for the Twitter's CTO: don't suspend my account for inactivity.";
(* Returns to profile page *)
go_to_profile ctx;
(* Wait the maximum time since we just tweeted *) (* Wait the maximum time since we just tweeted *)
recheck max_time) recheck max_time)
else (* Wait the amount of time calculated from the post *) else (* Wait the amount of time calculated from the post *)

14
bin/twitter.ml
View file

@ -142,16 +142,8 @@ let find_latest_tweet ctx =
;; ;;
let tweet ctx msg = let tweet ctx msg =
let tweet_button = ignore (navigate ctx.session_id "https://twitter.com/home");
match find ctx.session_id (XPath "//a[@data-testid='SideNav_NewTweet_Button']") with Unix.sleep 4;
| [] -> 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
click ctx.session_id tweet_button;
Unix.sleep 2;
let tweet_area = let tweet_area =
match find ctx.session_id (CSS "div[data-testid='tweetTextarea_0']") with match find ctx.session_id (CSS "div[data-testid='tweetTextarea_0']") with
| [] -> raise (Any (fmt "Tweet area not found")) | [] -> raise (Any (fmt "Tweet area not found"))
@ -161,7 +153,7 @@ let tweet ctx msg =
send_keys ctx.session_id tweet_area msg; send_keys ctx.session_id tweet_area msg;
Unix.sleep 2; Unix.sleep 2;
let send_tweet_button = let send_tweet_button =
match find ctx.session_id (XPath "//div[@data-testid='tweetButton']") with match find ctx.session_id (XPath "//div[@data-testid='tweetButtonInline']") with
| [] -> raise (Any (fmt "Tweet button not found")) | [] -> raise (Any (fmt "Tweet button not found"))
| _ as l -> | _ as l ->
if List.length l > 1 if List.length l > 1