Скрипт который из PE запускает TeamViewer и отсылает ID и пароль в телеграмм, через бота.
Бесполезный скрипт для РФ.
Папку bin (должна лежить рядом со скриптом) можно забрать от сюда - https://disk.yandex.ru/d/BzMh77_zQmIKEw
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
47 lines
1.4 KiB
47 lines
1.4 KiB
2 years ago
|
#NoTrayIcon
|
||
|
|
|
||
|
|
$sBotKey = '' ; Ваш api ключ бота
|
||
|
|
$nChatId = '' ; Id получателя
|
||
|
|
$Curl = @ScriptDir & '\bin\curl.exe'
|
||
|
|
Run(@ScriptDir & "\bin\TV\TeamViewer.exe")
|
||
|
|
ProcessWait ("iexplore.exe")
|
||
|
|
ProcessClose ("iexplore.exe")
|
||
|
|
WinWait("TeamViewer","")
|
||
|
|
WinActivate("TeamViewer","")
|
||
|
|
WinWaitActive("TeamViewer","")
|
||
|
|
While 1
|
||
|
|
$id = ControlGetText("TeamViewer","","[CLASS:Edit; INSTANCE:4]")
|
||
|
|
if $id = "-" Then
|
||
|
|
Sleep(3000)
|
||
|
|
Else
|
||
|
|
$password = ControlGetText("TeamViewer","","[CLASS:Edit; INSTANCE:5]")
|
||
|
|
$smass = $id & '%20%20%20' & $password
|
||
|
|
$sOutput = StringRegExpReplace($smass, " ", "%20")
|
||
|
|
Run($Curl & ' https://api.telegram.org/bot' & $sBotKey & '/sendMessage?chat_id=' & $nChatId & '&text=' & $sOutput, '', @SW_HIDE)
|
||
|
|
For $i = 5 To 1 Step -1
|
||
|
|
Send("{CAPSLOCK on}")
|
||
|
|
Sleep(500)
|
||
|
|
Send("{CAPSLOCK off}")
|
||
|
|
Sleep(500)
|
||
|
|
Next
|
||
|
|
Exit
|
||
|
|
EndIf
|
||
|
|
WEnd
|
||
|
|
|
||
|
|
Func _URIEncode($sData)
|
||
|
|
Local $aData = StringSplit(BinaryToString(StringToBinary($sData,4),1),"")
|
||
|
|
Local $nChar
|
||
|
|
$sData=""
|
||
|
|
For $i = 1 To $aData[0]
|
||
|
|
$nChar = Asc($aData[$i])
|
||
|
|
Switch $nChar
|
||
|
|
Case 45, 46, 48 To 57, 65 To 90, 95, 97 To 122, 126
|
||
|
|
$sData &= $aData[$i]
|
||
|
|
Case 32
|
||
|
|
$sData &= "+"
|
||
|
|
Case Else
|
||
|
|
$sData &= "%" & Hex($nChar,2)
|
||
|
|
EndSwitch
|
||
|
|
Next
|
||
|
|
Return $sData
|
||
|
|
EndFunc
|