Size: a a a

2018 July 11

:

:) in AutoIT RU
всем привет.
источник

:

:) in AutoIT RU
пытаюсь управлять  сразу 20 десктоп приложениями телеграмма.  кто-нибудь знает как в телеграмме ослеживать сообщения или декриптовать части окна?
источник

RB

Random Balance in AutoIT RU
:)
пытаюсь управлять  сразу 20 десктоп приложениями телеграмма.  кто-нибудь знает как в телеграмме ослеживать сообщения или декриптовать части окна?
Наверное тебе лучше взять TDLib. Или нужно принципиально стандартным приложением управлять?
источник

AS

Alex S in AutoIT RU
Справка знает
источник

:

:) in AutoIT RU
Random Balance
Наверное тебе лучше взять TDLib. Или нужно принципиально стандартным приложением управлять?
погуглил чутка про TDLib - это для меня слишком сложно.
источник

:

:) in AutoIT RU
на данный момент я реализовал  управление  через параметры командной строки
источник

:

:) in AutoIT RU
но как говориться опыта мало и  возникают банальные проблемы
источник

:

:) in AutoIT RU
#include <AutoItConstants.au3>
#include <Array.au3>
#include <WinAPIShPath.au3>
#include <Constants.au3>
#include <MsgBoxConstants.au3>

#RequireAdmin

;$var1 = $CmdLine[$CmdLine[0]]   ; (;$var1 = "par1"
;MsgBox(0, @ScriptName, _GetCmdLine(2))
;MsgBox(0, @ScriptName, _GetCmdLine(2))
$par1= _GetCmdLine(1);команда 1= запуск телеграм и запись декриптора
$par2= _GetCmdLine(2);индефикатор
$par3= _GetCmdLine(3);текст
$par4= _GetCmdLine(4);файл

$sText = ''
$id = ''

MsgBox(4096, "параметры запуска ","параметр 1 =" &$par1& @CRLF &"параметр 2 ="& $par2& @CRLF &"параметр 3 ="& $par3& @CRLF &"параметр 4 ="& $par4& @CRLF)


If $par1 = 1 Then ;запуск телеграмм десктоп
runtel()
   ElseIf $var1 = 1 Then
   ElseIf $var1 = 2 Then
     MsgBox($MB_SYSTEMMODAL, "ww", "вариант пусто" & @CRLF & "укажите параметр", $var1)
     sleep(500)
 EndIf

Exit


Func runtel()
Run('F:\basa\telegram\'&$par2&'\telegram.exe')
Decrypt()
Save()
SoundPlay("C:\Users\1\Desktop\autoit\Sound_06029.mp3")

EndFunc

Func save()
$sFile = 'F:\basa\telegram\'&$par2&'\mydescrcypt.txt'
$hFile = FileOpen($sFile, 2)
sleep(200)
FileWriteLine($hFile,  $id) ;запишем дескриптор окна в файл
sleep(200)
FileClose($hFile)
EndFunc

Func Decrypt()
sleep(1000)
$aList = WinList('Telegram')
sleep(500)
$sText = ''
For $i = 1 To $aList[0][0]
   ; Только для окон имеющих заголовок и не скрытых
   If $aList[$i][0] <> "" And BitAND(WinGetState($aList[$i][1]), 2) Then
       ; объединяющее присвоение элементов массива к переменной $sText с переносом строки @LF
       $sText &= "Дескриптор=" & $aList[$i][1] & "    Заголовок=" & $aList[$i][0] & @LF
         $id=$aList[1][1]
 EndIf
Next
EndFunc


Func _GetCmdLine($iNum)
   If $iNum > $CmdLine[0] Or $iNum < 1 Then
       Return SetError(1, 0, '')
   EndIf

   Return $CmdLine[$iNum]
EndFunc

exit

$var1 = $CmdLine[1]

If $var1 <> 0 Then
 Line1()
   ElseIf $var1 = 1 Then
   ElseIf $var1 = 2 Then
MsgBox($MB_SYSTEMMODAL, "ww", "вариант пусто" & @CRLF & "укажите параметр", $var1)
sleep(500)
ElseIf $var1 = @ScriptName then
MsgBox($MB_SYSTEMMODAL, "w_w", "вариант пусто" & @CRLF & "ваш параметр", $var1 " не описан")
Else
;Msg  Box(0, "Параметр не задан")
  MsgBox($MB_SYSTEMMODAL, "win_win", "вариант пусто" &$var1 & @CRLF & "укажите параметр")
  Sleep(500)
EndIf
источник

:

:) in AutoIT RU
почему деcкриптор такой записался
источник

Ra

Ruslan aka DUDE in AutoIT RU
:)
#include <AutoItConstants.au3>
#include <Array.au3>
#include <WinAPIShPath.au3>
#include <Constants.au3>
#include <MsgBoxConstants.au3>

#RequireAdmin

;$var1 = $CmdLine[$CmdLine[0]]   ; (;$var1 = "par1"
;MsgBox(0, @ScriptName, _GetCmdLine(2))
;MsgBox(0, @ScriptName, _GetCmdLine(2))
$par1= _GetCmdLine(1);команда 1= запуск телеграм и запись декриптора
$par2= _GetCmdLine(2);индефикатор
$par3= _GetCmdLine(3);текст
$par4= _GetCmdLine(4);файл

$sText = ''
$id = ''

MsgBox(4096, "параметры запуска ","параметр 1 =" &$par1& @CRLF &"параметр 2 ="& $par2& @CRLF &"параметр 3 ="& $par3& @CRLF &"параметр 4 ="& $par4& @CRLF)


If $par1 = 1 Then ;запуск телеграмм десктоп
runtel()
   ElseIf $var1 = 1 Then
   ElseIf $var1 = 2 Then
     MsgBox($MB_SYSTEMMODAL, "ww", "вариант пусто" & @CRLF & "укажите параметр", $var1)
     sleep(500)
 EndIf

Exit


Func runtel()
Run('F:\basa\telegram\'&$par2&'\telegram.exe')
Decrypt()
Save()
SoundPlay("C:\Users\1\Desktop\autoit\Sound_06029.mp3")

EndFunc

Func save()
$sFile = 'F:\basa\telegram\'&$par2&'\mydescrcypt.txt'
$hFile = FileOpen($sFile, 2)
sleep(200)
FileWriteLine($hFile,  $id) ;запишем дескриптор окна в файл
sleep(200)
FileClose($hFile)
EndFunc

Func Decrypt()
sleep(1000)
$aList = WinList('Telegram')
sleep(500)
$sText = ''
For $i = 1 To $aList[0][0]
   ; Только для окон имеющих заголовок и не скрытых
   If $aList[$i][0] <> "" And BitAND(WinGetState($aList[$i][1]), 2) Then
       ; объединяющее присвоение элементов массива к переменной $sText с переносом строки @LF
       $sText &= "Дескриптор=" & $aList[$i][1] & "    Заголовок=" & $aList[$i][0] & @LF
         $id=$aList[1][1]
 EndIf
Next
EndFunc


Func _GetCmdLine($iNum)
   If $iNum > $CmdLine[0] Or $iNum < 1 Then
       Return SetError(1, 0, '')
   EndIf

   Return $CmdLine[$iNum]
EndFunc

exit

$var1 = $CmdLine[1]

If $var1 <> 0 Then
 Line1()
   ElseIf $var1 = 1 Then
   ElseIf $var1 = 2 Then
MsgBox($MB_SYSTEMMODAL, "ww", "вариант пусто" & @CRLF & "укажите параметр", $var1)
sleep(500)
ElseIf $var1 = @ScriptName then
MsgBox($MB_SYSTEMMODAL, "w_w", "вариант пусто" & @CRLF & "ваш параметр", $var1 " не описан")
Else
;Msg  Box(0, "Параметр не задан")
  MsgBox($MB_SYSTEMMODAL, "win_win", "вариант пусто" &$var1 & @CRLF & "укажите параметр")
  Sleep(500)
EndIf
заворачивай свой код в 3 `
```
твой код
```
источник

:

:) in AutoIT RU
Ruslan aka DUDE
заворачивай свой код в 3 `
```
твой код
```
так пойдет
источник

AS

Alex S in AutoIT RU
источник

AS

Alex S in AutoIT RU
как создать такую панель инструментов? :)
источник

AS

Alex S in AutoIT RU
программно в автоите
источник

:

:) in AutoIT RU
Alex S
программно в автоите
знать бы какую справку читать может и получиться собрать
источник

AS

Alex S in AutoIT RU
:)
пытаюсь управлять  сразу 20 десктоп приложениями телеграмма.  кто-нибудь знает как в телеграмме ослеживать сообщения или декриптовать части окна?
если ты об этом то это есть в хелоуворде автоита. вместе с автоитом ставится прожка. ей кликаешь на окно и она говорит какой там дескриптор хедер и тп.
источник

:

:) in AutoIT RU
вот в том то и днло что не кажет кроме координат мыши и цвета пикселя
источник

AS

Alex S in AutoIT RU
ну что ты такое говоришь я отслеживал название окна
источник

AS

Alex S in AutoIT RU
текст в лейбле
источник

AS

Alex S in AutoIT RU
и тп
источник