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

use CSS selector for tweet area
All checks were successful
ci/woodpecker/push/publish Pipeline was successful
Details

Browse source
This commit is contained in:
Mylloon 2023-05-16 03:11:40 +02:00
parent e456fa5bda
commit da1c0c8298
Signed by: Anri
GPG key ID: A82D63DFF8D1317F
1 changed files with 9 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
bin/twitter.ml
View file

@ -152,23 +152,21 @@ let tweet ctx msg =
in in
click ctx.session_id tweet_button; click ctx.session_id tweet_button;
let tweet_area = let tweet_area =
match find ctx.session_id (XPath "//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"))
| _ as l ->
if List.length l > 1 then raise (Any "Too many tweet areas found") else List.nth l 0
in
send_keys ctx.session_id tweet_area msg;
Unix.sleep 2;
let send_tweet_button =
match find ctx.session_id (XPath "//div[@data-testid='tweetButton']") 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
then raise (Any "Too many tweet button found") then raise (Any "Too many tweet button found")
else List.nth l 0 else List.nth l 0
in in
send_keys ctx.session_id tweet_area msg;
Unix.sleep 2;
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; click ctx.session_id send_tweet_button;
Unix.sleep 8 Unix.sleep 8
;; ;;