Скрипт который из 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
#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 |