Jump to content

Recommended Posts

Posted (edited)

helllo guys

i working on script that cheking messeages and when he receive some message he send me picture to telegram (working with telegram udf)

and then i replay him back a message. i did that he copy text and then go in a variable with the clipget func i look for a way to

get the message content inside a varible without open the telegram and copy the text

 

find only the command poling but only confirm that he receive the message from me but with out the content

thank you for your help!

Edited by CraZyNes
Posted
17 hours ago, FrancescoDiMuro said:

@CraZyNes

You should post the script :)


#include "Telegram.au3"
#include <ScreenCapture.au3>

$Photo = "C:\Users\shimo\Screenshot\photo.png"
$ChatID = "chatid"
_InitBot("bottoken")

Func TeleMila()
if PixelGetColor(485, 473) = 0xDE1018 Then
   _ScreenCapture_Capture($Photo, 201, 326,494, 481)
   Sleep(300)
       _SendPhoto($ChatID,$Photo)
    Sleep(1000)
     WinActivate("Telegram")

Do

   Sleep(15)
Until PixelGetColor(1686, 131) = 0xFE0000

If PixelGetColor(1686, 131) = 0xFE0000 Then
   Do
      Sleep(15)
      Until PixelGetColor(746, 965) = 0xEFFDDE
    MouseClick("Right",750, 967)
    Sleep(1000)
    MouseClick("Left",874, 846)
    Sleep(500)
    $Mila = ClipGet()
    WinActivate("‪Google Chrome‬")
    Sleep(500)
    MouseClick("left", 405, 422)
    Sleep(200)
    Send($Mila)
    Sleep(200)
    MouseClick("left",379, 457)
    Sleep(3000)
If PixelGetColor(485, 473) = 0xDE1018 Then
   Do
   _ScreenCapture_Capture($Photo, 201, 326,494, 481)
   Sleep(300)
       _SendPhoto($ChatID,$Photo)
    Sleep(300)
    _SendMsg($ChatID,"Not Correct")
    Sleep(1000)
   WinActivate("Telegram")
Do

   Sleep(15)
Until PixelGetColor(1686, 131) = 0xFE0000

If PixelGetColor(1686, 131) = 0xFE0000 Then
    Do
      Sleep(15)
      Until PixelGetColor(746, 965) = 0xEFFDDE
    MouseClick("Right",750, 967)
    Sleep(1000)
    MouseClick("Left",874, 846)
    Sleep(500)
    $Mila = ClipGet()
    WinActivate("Google Chrome‬")
    Sleep(500)
    MouseClick("left", 405, 422)
    Sleep(200)
    Send($Mila)
    Sleep(200)
    MouseClick("left",379, 457)
    Sleep(3000)
EndIf
Until PixelGetColor(485, 473) <> 0xDE1018
_SendMsg($ChatID,"Done")
ElseIf PixelGetColor(485, 473) <> 0xDE1018 Then
  _SendMsg($ChatID,"Done")
EndIf
EndIf
EndIf
EndFunc

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...