
Les drones

Copier coller le texte dans un bloc note pour recuperer votre clé windows.
Set WshShell = CreateObject("WScript.Shell")
MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))
Function ConvertToKey(Key)
Const KeyOffset = 52
i = 28
Chars = "BCDFGHJKMPQRTVWXY2346789"
Do
Cur = 0
x = 14
Do
Cur = Cur * 256
Cur = Key(x + KeyOffset) + Cur
Key(x + KeyOffset) = (Cur \ 24) And 255
Cur = Cur Mod 24
x = x -1
Loop While x >= 0
i = i -1
KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput
If (((29 - i) Mod 6) = 0) And (i <> -1) Then
i = i -1
KeyOutput = "-" & KeyOutput
End If
Loop While i >= 0
ConvertToKey = KeyOutput
End Function
Conclusion :
Transport, sécurité, média, agriculture, inspections et données techniques: les drones révèlent un peu plus leurs potentiels chaque jour. L’avancée technologique permet de les rendre encore plus intelligents, plus sécuritaires et presque indispensables déjà pour certains corps de métier. Des applications commerciales telles que la livraison commencent à voir le jour et le transport de citoyens est déjà programmé dans un futur pas si lointain.
Rien ne semble pour le moment vouloir arrêter ce nouvel essor technologique . Il faut cependant rester vigilant et suivre la législation qui réglemente l’usage des drones dans les zones publiques pour le respect de la vie privée. Les drones feront partie intégrante du futur avec leurs avantages dans le domaine du transport et des possibilités professionnelles dans de nombreux secteurs d’activités.