#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