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

PolSerg
Ser_Che:

Официальная статистика утверждает: продолжительность жизни врачей в среднем на пятнадцать лет короче, чем у пациентов.
Уж они то должны быть долгожителями-профессионалами. )

Вы статью-то прочитали? Процитирую:

  • Мы ожидали, что здорового образа жизни придерживаются не менее 80 процентов врачей. Реальность оказалась гораздо печальнее, - считает Терентьев. - Следят за собой лишь 41 процент медиков. Физкультурой занимаются 6 процентов сельских врачей, 20 процентов - городских и четверть - университетских клиницистов. Нормальный режим сна и отдыха соблюдают 20 процентов сельских медиков. У горожан этот показатель не дотягивает до 29 процентов, 39 процентов сотрудников медуниверситета заявили, что с отдыхом у них все в порядке. Согласитесь, показатели не радужные.

Крайне неблагоприятно обстоят дела в медицинской среде и с питанием. Лишний вес наблюдается у 74 процентов сельских эскулапов. Причем это не просто склонность к полноте, а практически ожирение. Этим грешат 48 процентов городских медиков и 46 процентов - университетских сотрудников. Нарушение веса сопровождается артериальной гипертонией. Однако люди, у которых аппарат для измерения давления под рукой круглосуточно, не удосуживаются фиксировать свои показатели, хотя прекрасно знают последствия.

Сегодня медики с тревогой говорят об эпидемии хронических неинфекционных заболеваний - ожирении, сахарном диабете, гипертонии, ишемической болезни сердца и мозга. Тем не менее, каждый четвертый врач не знает свой уровень холестерина и глюкозы в крови. Настораживает и другое: половина городских врачей признались, что снимают стресс при помощи рюмки. И почти треть не прочь выкурить сигарету. Среди сельских медиков эти показатели несколько ниже - 36 и 34 процента соответственно.

Это классическое “сапожник без сапог”.

Ser_Che
PolSerg:

“сапожник без сапог”.

И эти люди запрещают мне ковырять в носу…
Читал конечно.
Это только подтверждает, мягко говоря, ошибочность современной медицины.

Игорь_Петрович

ээ доказано что ковыряние в носу стимулирует деятельность головного мозга ,хм… теми же докторами

Ser_Che
Игорь_Петрович:

ковыряние в носу стимулирует деятельность головного мозга ,хм… теми же докторами

Убедили ))

PolSerg
Ser_Che:

И эти люди запрещают мне ковырять в носу…

Ни один врач, по крайней мере в нашей стране, ничего никогда никому не запрещал, наши врачи только и исключительно занимаются лечением болезней, а не профилактикой их возникновения, более того сами не имеют понятия о причинах, и выше приведенная статистика только подтверждает это. Причины возникновение болезней пытаются установить ученые в различных странах мира и в нашей в том числе, но конечной стадией работы ученых являются научные статьи в научных же изданиях, а далее некоторые статьи вызывают интерес различных организаций из разряда ВОЗ, различных потреб надзоров и т.д., некоторый интерес перерастает в рекомендации, а особо интересные в законотворческую деятельность, но по большому счету, на ваше здоровье наплевать всем, и печально что вам тоже на него наплевать.

Ser_Che

Немного по теме, погоды стоят хорошие,далеко видно летающие в округе вертолеты, летают они явно ниже 100м даже над городом.
Потому и не дают нам этот стакан 100м.

PolSerg:

Ни один врач, по крайней мере в нашей стране, ничего никогда никому не запрещал,

Ser_Che:

Вы поосторожнее там, зануды тоже долго не живут. )

PolSerg:

но по большому счету, на ваше здоровье наплевать всем, и печально что вам тоже на него наплевать.

PolSerg:

но конечной стадией работы ученых являются научные статьи в научных же изданиях,

Зачем нам на это бумаготоворчество тратить бюджет?
Может стоит заняться прямым делом, просвещением людей,поиском эффективных способов поддержания здоровья, работу по очищению торговли от суррогатов,отравы и наркотиков…Но молчат светила медицины…(

PolSerg
Ser_Che:

работу по очищению торговли от суррогатов,отравы и наркотиков.

Торговлю чистить побаиваются, потому как торговля это деньги и у многих денег веревочки тянутся на верх. А просветительскую деятельность ведут, например Россия 1 вещает передачу “О самом главном” - но тайны там никакой нет: не пить, не курить, умеренно заниматься спортом, поменьше жрать быстрых углеводов и твердых жиров, и следить за состоянием своего здоровья.

Ser_Che
PolSerg:

Торговлю чистить побаиваются, потому как торговля это деньги и у многих денег веревочки тянутся на верх.

Без этого , остальное пустой треп.Нужна политическая воля, а не только полеты со стерхами.

PolSerg:

но тайны там никакой нет: не пить, не курить,

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

PolSerg
Ser_Che:

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

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

rcd4slash
PolSerg:

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

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

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

Ser_Che
rcd4slash:

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

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

PolSerg:

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

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

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

PolSerg
Ser_Che:

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

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

Ser_Che:

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

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

rcd4slash:

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

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

Ser_Che
PolSerg:

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

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

AsMan

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

'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

SAN

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

PolSerg
ZigZag_ZZ:

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

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

ZigZag_ZZ
PolSerg:

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

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

SAN
PolSerg:

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

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