Search in topic

Постановка на учёт беспилотников

у человека очень слабая мотивация жить долго и беречь здоровье

Ну, как сказать, в 90е реально спились все кто только мог, а сейчас в спортзале не протолкнуться…

а сейчас в спортзале не протолкнуться.

Чтобы лучше толкаться в сп.зале нужно покупать спортивное питание в спец магазинах. Но это к слежению за своим здоровьем не имеет никакого отношения. А скорее всего безопаснее для здоровья пить спиртные напитки чем употреблять это “спортивное питание”.

Как в тех же 90-х говорил Дольф Люнгрен Жану Клоду Вану Даму в фильме “Универсальный солдат” - “Ты стал слаб солдат, надо было принимать лекарства …” .

Но это к слежению за своим здоровьем не имеет никакого отношения

Голая коммерция, индустрия здоровья типа, а на деле очередной красивый сбор средств у населения.
Спортсмены долгожители большая редкость.

а сейчас в спортзале не протолкнуться…

По теме вопрос , вы лично Сергей , как выходите из ситуации с получением разрешения на полеты?

На чем летаете? Где? Если не секрет, ответьте пожалуйста.

По теме вопрос , вы лично Сергей , как выходите из ситуации с получением разрешения на полеты?
На чем летаете? Где? Если не секрет, ответьте пожалуйста.

А я уже в этой теме отвечал, что разрешение на полеты это капитальное зло и пока для себя единственное решение которое я нашел это прикупил тинивуп Eachine Trashcan, летаю по своему строящемуся дому, а иногда его можно увидеть проносящимся по моему огороду, но управляю им конечно не я, я же человек законопослушный, а лицо сильно похожее на меня, но он настолько мелкий, что его никто и не заметит, но достаточно шустрый чтобы потренироваться в различных акробатических трюках и получить дозу адреналина.

Спортсмены долгожители большая редкость.

Так то профессиональный спорт, в спортзале городской житель всего лишь получает адекватную физическую нагрузку, это скорее физическая культура нежели чем спорт.

А скорее всего безопаснее для здоровья пить спиртные напитки чем употреблять это “спортивное питание”.

Это даже комментировать смешно, сравнивать высушенную молочную сыворотку со спиртными напитками…

сравнивать высушенную молочную сыворотку

Нуу, я совсем не сведущ, но то, что удавалось узнать от знакомых, посещающих залы, то состав спорткорма не настолько безобидный.

Вот так и летаем:

'Copyright © Microsoft Corporation. All rights reserved.
'////////////////////////////////////////////////////////////////////////////////////////
'////////////////////////////////////////////////////////////////////////////////////////
CONST wshOK =0
CONST VALUE_ICON_WARNING =16
CONST wshYesNoDialog =4
CONST VALUE_ICON_QUESTIONMARK =32
CONST VALUE_ICON_INFORMATION =64
CONST HKEY_LOCAL_MACHINE =&H80000002
CONST KEY_SET_VALUE =&H0002
CONST KEY_QUERY_VALUE =&H0001
CONST REG_SZ =1
CONST OfficeAppId = “0ff1ce15”
CONST STR_SYS32PATH = “:\Windows\System32\”
CONST STR_OSPPREARMPATH = “\Microsoft Office\Office16\OSPPREARM.EXE”
CONST STR_OSPPREARMPATH_DEBUG = “\Microsoft Office Debug\Office16\OSPPREARM.EXE”
CONST REG_OSPP = “SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform”
CONST STR_HEARTBEATPATH = “\Microsoft\Office\Heartbeat\HeartbeatCache.xml”
CONST REG_SPP = “SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform”
CONST REG_SCAEXP_BASE = “HKCU\SOFTWARE\Microsoft\Office\16.0\Common\ExperimentEcs\”
CONST REG_SCAEXP_END = “\Flights\ofc5jurcw0”
CONST REG_SCAEXP_OVERRIDE = “HKLM\SOFTWARE\Microsoft\Office\Common\Experiment\ofc545rcw0”
CONST REG_SCAO15 = “HKLM\SOFTWARE\Microsoft\Office\15.0\ClickToRun\Configuration\SharedComputerLicensing”
CONST REG_SCAO16 = “HKLM\SOFTWARE\Microsoft\Office\ClickToRun\Configuration\SharedComputerLicensing”
CONST VALUE_SCAEXP_FLAVOR = “exp”
CONST VALUE_SCAEXP_OVERRIDE_FLAVOR = “expoverride”
CONST VALUE_SCAO15_FLAVOR = “o15”
CONST VALUE_SCA016_FLAVOR = “o16”
CONST VALUE_SCAREGKEY_SINGLE_TYPE = “single”
CONST VALUE_SCAREGKEY_PER_APP_TYPE = “perapp”
CONST VER_INFO = “Version Info: 2016 1.0”
'////////////////////////////////////////////////////////////////////////////////////////
CONST MSG_NOREGRIGHTS = “Insufficient rights to perform operation.”
CONST MSG_ISCMD_ELEVATED = “Ensure cmd.exe is elevated (right click > run as administrator).”
CONST MSG_CREDENTIALFAILURE = “Connection failed with passed credentials.”
CONST MSG_FILENOTFOUND = "File not found: "
CONST MSG_SEPERATESMALL = “---------------”
CONST MSG_SEPERATE = “---------------------------------------”
CONST MSG_PROCESSING = “—Processing--------------------------”
CONST MSG_EXIT = “—Exiting-----------------------------”
CONST MSG_UNSUPPORTED = “Unsupported command passed.”
CONST MSG_UNSUPPORTEDOPEROS7 = "The following command is supported on Windows 7 only: "
CONST MSG_UNSUPPORTEDOPEROS8 = "The following command is supported on Windows 8 and above only: "
CONST MSG_UNSUPPORTEDLOCAL = "The following command is supported on local machine only: "
CONST MSG_CREDENTIALERR = “Passing credentials is not supported for this command.”
CONST MSG_SUCCESS = “Successfully applied setting.”
CONST MSG_NOKMSLICS = “No Office KMS licenses were found on the system.”
CONST MSG_ACTATTEMPT = “Installed product key detected - attempting to activate the following product:”
CONST MSG_TOKACTATTEMPT = “Installed product key detected - attempting to token activate the following product:”
CONST MSG_NOKEYSINSTALLED = “<No installed product keys detected>”
CONST MSG_UNINSTALLKEYSUCCESS = “<Product key uninstall successful>”
CONST MSG_ACTSUCCESS = “<Product activation successful>”
CONST MSG_OFFLINEACTSUCCESS = “<Offline product activation successful>”
CONST MSG_KEYINSTALLSUCCESS = “<Product key installation successful>”
CONST MSG_PARTIALKEY = "Last 5 characters of installed product key: "
CONST MSG_UNINSTALLKEY = "Uninstalling product key for: "
CONST MSG_UNRECOGFILE = “Unrecognized file. Office licenses have an .xrm-ms file extension.”
CONST MSG_INSTALLLICENSE = "Installing Office license: "
CONST MSG_INSTALLLICSUCCESS = “Office license installed successfully.”
CONST MSG_SEARCHEVENTSKMS = "Searching for KMS activation events on machine: "
CONST MSG_SEARCHEVENTSRET = "Searching for Internet activation failure events on machine: "
CONST MSG_NOEVENTSSKMS = "No KMS activation events found on machine: "
CONST MSG_NOEVENTSRET = "No failure events found on machine: "
CONST MSG_OSPPSVC_NOINSTALL = “Error: The Software Protection Platform service is not installed.”
CONST MSG_OSPPSVC_NORUN = “Error: The Software Protection Platform service is not running.”
CONST MSG_ERRPARTIALKEY = “The last 5 characters of an installed product key are required to run this option. Run the /dstatus option to display the partial product key.”
CONST MSG_KEYNOTFOUND = “<Product key not found>”
CONST MSG_CMID = "Client Machine ID (CMID): "
CONST MSG_CMID_NOTFOUND = “Not found.”
CONST MSG_NOLICENSEFOUND = “<No licenses found>”
CONST MSG_AUTHERR = “Authorization Error: 0x”
CONST MSG_REMILID = "Removed Token-based Activation License with License ID (ILID): "
CONST MSG_NOTFOUNDILID = "License not found with License ID (ILID): "
CONST MSG_KMSLOOKUP = “KMS Lookup Domain: "
CONST MSG_INFO_ONLY = " (for information purposes only as the status is licensed)”
CONST MSG_ACT_ERROR_FOUND_KB = "NOTICE: A KB article has been detected for activation failure: "
CONST MSG_ACT_ERROR_KB_LINK = “FOR MORE INFORMATION PLEASE VISIT: support.microsoft.com/kb/2870357#Error0x”
CONST MSG_SCAEXP = "SCA Mode Experiment key "
CONST MSG_SCAEXP_OVERRIDE = "SCA Mode Experiment Override key "
CONST MSG_SCAO15 = "SCA Mode for O15 key "
CONST MSG_SCAO16 = "SCA Mode for O16 key "
CONST MSG_SCAREGKEY_ACTIVE = “found ENABLED.”
CONST MSG_SCAREGKEY_INACTIVE = “found DISABLED.”
'////////////////////////////////////////////////////////////////////////////////////////
CONST MSG_VLActivationType = "Activation Type Configuration: "
'////////////////////////////////////////////////////////////////////////////////////////
CONST MSG_Act_Recent = "Most recent successful activation client information: "
CONST MSG_KMS_DNS = "KMS machine name from DNS: "
CONST MSG_KMS_DNS_ERR = “DNS auto-discovery: KMS name not available”
CONST MSG_ADInfoAOName = "Activation Object name: "
CONST MSG_ADInfoAODN = "AO DN: "
CONST MSG_ADInfoExtendedPid = "AO extended PID: "
CONST MSG_ADInfoActID = "AO activation ID: "
CONST MSG_ACTIVATION_INTERVAL = "Activation Interval: "
CONST MSG_RENEWAL_INTERVAL = "Renewal Interval: "
CONST MSG_HOST_CACHING = "KMS host caching: "
CONST MSG_HOST_REG_OVERRIDE = "KMS machine registry override defined: "
CONST MSG_DEFAULT_PORT = “1688”
'////////////////////////////////////////////////////////////////////////////////////////
CONST MSG_PID = "PRODUCT ID: "
CONST MSG_SKUID = "SKU ID: "
CONST MSG_LICENSENAME = "LICENSE NAME: "
CONST MSG_DESCRIPTION = "LICENSE DESCRIPTION: "
CONST MSG_LICSTATUS = "LICENSE STATUS: "
CONST MSG_LICENSED = " —LICENSED— "
CONST MSG_UNLICENSED = " —UNLICENSED— "
CONST MSG_OOBGRACE = " —OOB_GRACE— "
CONST MSG_OOTGRACE = " —OOT_GRACE— "
CONST MSG_NONGENGRACE = " —NON_GENUINE_GRACE— "
CONST MSG_NOTIFICATION = " —NOTIFICATIONS— "
CONST MSG_EXTENDEDGRACE = " —EXTENDED GRACE— "
CONST MSG_LICUNKNOWN = " —UNKNOWN— "
CONST MSG_REMAINGRACE = "REMAINING GRACE: "
CONST MSG_LICEXPIRY = "BETA EXPIRATION: "
CONST MSG_ERRCODE = "ERROR CODE: "
CONST MSG_ERRDESC = "ERROR DESCRIPTION: "
CONST MSG_ERRUNKNOWN = “An unknown error occurred.”
CONST MSG_ERRCODEVALUE = “An error code must start with ‘0x’. Example: 0xC004F009”
'////////////////////////////////////////////////////////////////////////////////////////
CONST MSG_NOEVENTS = “No events found.”
CONST MSG_HEARTBEAT_LOCALONLY = “HEARTBEATCACHE.XML SUPPORTED FOR LOCAL MACHINE ONLY.”
CONST MSG_SEARCHFOR = "SEARCHING FOR INSTANCES OF "
CONST MSG_SEARCH_FORKEY = "SEARCHING FOR OFFICE PRODUCT KEYS ON MACHINE: "
CONST MSG_EVENT_1013 = "ACTIVATION SUCCESS EVENT: "
CONST MSG_EVENT_8200 = "ACTIVATION FAILURE EVENT: "
CONST MSG_EVENT_1016 = "INSTALL PRODUCT KEY SUCCESS EVENT: "
CONST MSG_EVENT_1017 = "INSTALL PRODUCT KEY FAILURE EVENT: "
CONST MSG_EVENT_2011 = "OLC-OLS EVENT: "
CONST MSG_NOKEYSINSTALLED_SUB = “<<<<< NO INSTALLED -SUBSCRIPTION- PRODUCT KEYS DETECTED >>>>>”
CONST MSG_NOKEYSINSTALLED_PERP = “<<<<< NO INSTALLED -PERPETUAL- PRODUCT KEYS DETECTED >>>>”
CONST MSG_KEYSINSTALLED_SUB = “<<<<< -SUBSCRIPTION- PRODUCT KEY DETECTED. REPORTING ON ADDITIONAL PROPERTIES >>>>>”
CONST MSG_KEYSINSTALLED_PERP = “<<<<< -PERPETUAL- PRODUCT KEY DETECTED. REPORTING ON ADDITIONAL PROPERTIES >>>>>”
CONST MSG_SCAREGKEYS = “SCA REGISTRY KEYS”
'////////////////////////////////////////////////////////////////////////////////////////
'////////////////////////////////////////////////////////////////////////////////////////
On Error Resume Next

Set WshShell = WSCript.CreateObject(“WSCript.Shell”)
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
Set objNetwork = WSCript.CreateObject(“WSCript.Network”)

Dim globalResource, globalErr, foundSlUi, strSluiPath, strLocal, objWMI, objWMI1, wmiErr, productinstances, strValue, Win7, productClass, tokenClass, intIsKms, kmsCounter, isAdActivated, dlicense, foundSubKey, foundPerpKey, Win8, strSkuId, errorKBs, getHeartBeat
globalResource = “”
globalErr = “”
foundSlUi = False
Win7 = False
Win8 = False
kmsCounter = 0
isAdActivated = False
dlicense = False
strSkuId = Null

currentDir = Left(WScript.ScriptFullName, InStrRev(WScript.ScriptFullName, “\”))

’ Activation error codes for which a KB is available
errorKBs = “80070422|80070426|C004F074|80070001|80070005|8007000D|8007232B|8007251D|C004F014|C004F038|C004F039|C004F041|C004F042|C004C003|4004F040”

Dim result, keyValue
keyValue = WshShell.RegRead(key)

If Err.Number = 0 Then
If keyValue = 1 Then
WScript.Echo message & MSG_SCAREGKEY_ACTIVE
result = True
Else
WScript.Echo message & MSG_SCAREGKEY_INACTIVE
result = False
End If

WScript.Echo key
WScript.Echo MSG_SEPERATESMALL
Else
result = False
End If
Err.Clear

readAndReportScaKey = result
End Function
'////////////////////////////////////////////////////////////////////////////////////////
'////////////////////////////////////////////////////////////////////////////////////////
‘’ SIG ‘’ Begin signature block

‘’ SIG ‘’ End signature block

Вот так и летаем:
'Copyright © Microsoft Corporation. All rights reserved.
'////////////////////////////////////////////////////////////////////////////////////////
'////////////////////////////////////////////////////////////////////////////////////////
CONST wshOK =0
…

Ниуя не понял, но очень интересно (С)

Ниуя не понял, но очень интересно (С)

Ну, это видимо такой тонкий троллинг, AsMan привел кусок скрипта на визуал бейсике, скорее всего это сценарий ospp.vbs который позволяет настраивать версии Microsoft Office с корпоративной лицензией. Смысл троллинга скорее всего в том что вместо полетов работа…

Смысл троллинга скорее всего в том что вместо полетов работа…

Заметте, дружеского 😉

Смысл троллинга скорее всего в том что вместо полетов работа…

Не, не догадался бы…

www.aviaport.ru/news/2019/07/17/596553.html
Очередной поток воды или все же начнут что-то реально делать❓

ria.ru/20190718/1556641402.html
Всё! Теперь дроны будут виновными и в пожарах по всей России .
Что было в голове у создателя ?

Что было в голове у создателя ?

А вот цитата из другого источника: “Компания предлагает использовать данный мини-огнемет TF-19 Wasp в сельском хозяйстве, например для уничтожения осиных гнезд или других вредителей, борьбы с пожарами (выжигание травы на пожароопасных направлениях) и т.д. Кроме этого, с помощью дрона можно производить очистку проводов линий электропередач.
Некоторые специалисты заявляют, что беспилотник можно использовать и в военных целях.”

Все-таки виновники пожаров или помощники в борьбе с пожарами?😆

Да, забота о нас зашкаливает, они даже беспокоятся о том чтобы дроны не сталкивались в воздухе, окакономихалыч!

Да, осиные гнёзда-это круто, теперь поди так называют точки где супостат спрятался и ведёт от тудова прицельный огонь или так выкурить злодея с квартиры…
Молодцы!

Все-таки виновники пожаров или помощники в борьбе с пожарами?😆

А это смотря под каким углом смотреть. Если бпла зло -то вот тому очередное подтверждение(летающие огнемёты). Если бала благо- то вот смотите какое интересное применение. ))))

осиные гнёзда-это круто

Это очень круто, особенно если уметь ими пользоваться. 😁 Я использую как охрану. Работает.

Да, осиные гнёзда-это круто, теперь поди так называют точки где супостат спрятался и ведёт от тудова прицельный огонь или так выкурить злодея с квартиры… Молодцы!

Вы везде видите один негатив?
Дроны с огнеметами, пулеметами, бензопилами и т.д. давно пестрят по ютубу. Только вот у любой вещи есть есть 2 вида применения: во благо (ну или сделано по приколу) и во зло. Многие приводят в пример кухонный нож. А я в пример приведу обычную футболку… знаете как легко и быстро ей можно задушить человека? Надо срочно запрещать всю одежду. Здания запрещать выше землянки: человека можно столкнуть. Машины запретить, а то сбить могут. В общем, придется все запретить, даже камни, деревья и т.д. Если включить паранойю, то абсолютно любой предмет в мире может быть опасным в не тех руках.

P.S. почитаешь данную тему, так сразу летать не хочется. А местами так и жить не хочется в таком ужасном мире, как тут описывают.

P.P.S. А на счет борьбы с пожарами с помощью пожара - это известный и широко применяемый способ. Специально создаются контролируемые мини-пожары на пути пожара, чтоб, когда он дойдет до данной полосы, ему некуда было перекинуться. Только вот во время такого мероприятия нередко погибают пожарники/МЧСники, когда становятся заложниками пожара, не успев выбраться. Так вот если этим будут заниматься дроны вместо живых людей, то сколько жизней можно теоретически спасти.

P.P.P.S Миру мир!

почитаешь данную тему, так сразу летать не хочется. А местами так и жить не хочется в таком ужасном мире, как тут описывают.

Золотые слова!

А я в пример приведу обычную футболку… знаете как легко и быстро ей можно задушить человека? Надо срочно запрещать всю одежду.

Кто бы мог подумать?
Интересное решение…

Все в мудисты!
Долой одёжу, спасём жизнь ближнему!

Решил подать на 10 м истинной высоты. Дальше рассказывать?

" А из зала кричат: “Давай подробности!” "
😉