Единственное что я смог придумать это использовать AirDroid, AutoIt Window Info, AutoIt , Ножницы, Проводник, Opera.

Для использования нужно
скопировать код в новый файл .au3
создать папку scrn и открыть ее вместе с папкой DCIM
еще нужно открыть переводчик в opera и Дистанционное управление в отдельном окне и с помощью AutoIt Window Info, узнать имя окна и заменить в $name_phone
и сохранить снимок с помощью ножниц в папке scrn.
При запуске кода у вас должна стоять английская клавиатура
Код программы

#include <AutoItConstants.au3>


$aPos = MouseGetPos()
  MsgBox(4096, "Ask", 'go?')


; Режимы
$full = "{1}"
$window = "{2}"
$block = "{3}"
;сохранение позиций
$c_save1 = "{5}"
$c_save2 = "{6}"
; Запуск
$run = "{0}"

$run_trn = "{9}"
; Имя програмы
$program_name_1 = "Безымянный – Блокнот"
$program_name_2 = "Безымянный – Блокнот"

Global $pose_mouse[4]
Global $program
Global $mouse_pos1
Global $mouse_pos2


;Имя окна
Global $name_phone = 'Дистанционное управление'

;Скорость мыши
Global $speed_mouse = 7
;Скорость паузы
Global $speed_programs = 5000
;Комбинаций
Global $ctrl_x = "^x"
Global $ctrl_c = "^c"
Global $ctrl_v = "^v"
Global $ctrl_a = "^a"
Global $ctrl_s = "^s"
;Имя окна переводчика
Global $name_translater_win = "Google Переводчик - Opera"


Global   $way_cut = "C:\WINDOWS\system32\SnippingTool.exe"
Global   $cut_name = "Ножницы"
Global  $save_wind = "[CLASS:#32770]"
Global  $copy_wind = "Копирование файла"

Global  $foldew_win1 = "scrn"
Global  $foldew_win2 = "DCIM"

; Проверка существования окна
;If Not WinExists($foldew_win1) And WinExists($foldew_win2 ) And WinExists($name_translater_win) And WinExists($name_phone) Then
$f = WinExists($foldew_win1) + WinExists($foldew_win2 ) + WinExists($name_translater_win) + WinExists($name_phone)
If $f >= 4 Then
    MsgBox(4096, "", "Окно существует - " & $f)
Else
    MsgBox(4096, "", "Окно не существует - " & $f)
	Exit
 EndIf

HotKeySet($full, "full_fun")
Func full_fun()
   $pose_mouse[0] = 0
   $pose_mouse[1] = 0
   $pose_mouse[2] = 9999
   $pose_mouse[3] = 9999
EndFunc

HotKeySet($window, "window_fun")
Func window_fun()
   $program = WinGetPos($program_name_1)
   $pose_mouse[0] = $program[0]
   $pose_mouse[1] = $program[1]
   $pose_mouse[2] = $program[0] + $program[2]
   $pose_mouse[3] = $program[1] + $program[3]
EndFunc

HotKeySet($block, "block_fun")
Func block_fun()
   $program = WinGetPos($program_name_2)
   $pose_mouse[0] = $program[0]
   $pose_mouse[1] = $program[1]
   $pose_mouse[2] = $program[0] + $program[2]
   $pose_mouse[3] = $program[1] + $program[3]
EndFunc

HotKeySet($c_save1, "c_save1_fun")
Func c_save1_fun()
   $mouse_pos1 = MouseGetPos()
   $pose_mouse[0] = $mouse_pos1[0]
   $pose_mouse[1] = $mouse_pos1[1]
EndFunc

HotKeySet($c_save2, "c_save2_fun")
Func c_save2_fun()
   $mouse_pos2 = MouseGetPos()
   $pose_mouse[2] = $mouse_pos2[0]
   $pose_mouse[3] = $mouse_pos2[1]
EndFunc

HotKeySet($run, "run_fun")
Func run_fun()

Run($way_cut)
WinWaitActive($cut_name)

local $creen = WinGetPos($cut_name)
MouseClick("left", $creen[0] + 10, $creen[1] + 40, 1, 0)
Sleep(1000)
;Окно выбора
MouseMove($pose_mouse[0], $pose_mouse[1],0)
MouseDown ( $MOUSE_CLICK_LEFT )
MouseMove($pose_mouse[2], $pose_mouse[3],0)
MouseUp ( $MOUSE_CLICK_LEFT )

;Сохранить файл
Send($ctrl_s)
WinWaitActive($save_wind)
WinActivate($save_wind)
Send("{ENTER}")
Sleep(1000)
Send("{LEFT}{ENTER}")
Sleep(1000)
WinClose ($cut_name)

;Перекинуть ИЗ папки scrn
Local $hWnd = WinWait($foldew_win1, "", 10)
WinActivate($hWnd)
Sleep(1000)
ControlSend($hWnd, "", "[CLASS:DirectUIHWND;INSTANCE:2]", $ctrl_a)
Sleep(1000)
ControlSend($hWnd, "", "[CLASS:DirectUIHWND;INSTANCE:2]", $ctrl_c)

;Вставить В папку DCIM
Local $hWnd = WinWait($foldew_win2, "", 10)
Sleep(1000)
WinActivate($hWnd)
ControlSend($hWnd, "", "[CLASS:DirectUIHWND;INSTANCE:2]", $ctrl_v)
WinWaitActive($copy_wind )
Sleep(1000)
ControlSend($copy_wind , "", "", "{UP 2}{ENTER}")

EndFunc


;Запустить переводчик
HotKeySet($run_trn, "trans_fun")
Func trans_fun()

WinActivate($name_phone)
WinWaitActive($name_phone )

$transl = WinGetPos($name_phone)


;Активировать окно
MouseClick("left", $transl[0] + $transl[2] / 1.35, $transl[1] + $transl[3] / 1.25 , 2, $speed_mouse)
Sleep(5000)
MouseClick("left", $transl[0] + $transl[2] / 1.35, $transl[1] + $transl[3] / 1.25 , 2, $speed_mouse)
Sleep(1000)
;Поиск картиник
MouseClick("left", $transl[0] + $transl[2] / 4.5, $transl[1] + $transl[3] / 1.12 , 2, $speed_mouse)
Sleep(1000)
;Выбор
MouseClick("left", $transl[0] + $transl[2] / 2, $transl[1] + $transl[3] / 2  , 2, $speed_mouse)
Sleep(1000)
MouseClick("left", $transl[0] + $transl[2] / 2, $transl[1] + $transl[3] / 2  , 2, $speed_mouse)
Sleep(5000)
;Выбрать весь текст
MouseClick("left", $transl[0] + $transl[2] / 2, $transl[1] + $transl[3] / 1.12 , 2, $speed_mouse)
Sleep(1000)
;Выбрать текст
MouseClick("left", $transl[0] + $transl[2] / 8, $transl[1] + $transl[3] / 6 , 1, $speed_mouse)
Sleep(1000)
;Копировать текст
Send($ctrl_a)
Sleep(1000)
Send($ctrl_a)
Sleep(1000)
Send($ctrl_x)
Sleep(1000)
;Выйти
MouseClick("left", $transl[0] + $transl[2] / 9, $transl[1] + $transl[3] / 9, 2, $speed_mouse)
Sleep(1000)
;Скрыть лишнее меню
MouseClick("left", $transl[0] + $transl[2] / 2.8, $transl[1] + $transl[3] / 1.045, 2, $speed_mouse)
Sleep(1000)

;Скрыть лишнее меню
WinActivate($name_translater_win)
WinWaitActive($name_translater_win)

ControlSend($name_translater_win, "", "", $ctrl_a)
ControlSend($name_translater_win, "", "", $ctrl_v)

EndFunc

while 1
;   Sleep(100)
WEnd

Но код очень кривой если у кого есть идеи получше то с радостью почитаю.