Quantcast
Channel: Themen - Paules-PC-Forum.de
Viewing all articles
Browse latest Browse all 42347

Exklusiv! Der Windows 10 Upgradeblocker zum Download

$
0
0
Offensichtlich verteil Microsoft sein neues Betriebssystem Windows 10 auch an Windows 7- und 8.1-Anwender, obwohl diese es gar nicht wollen und auch nicht reserviert haben. Unser Moderator Volkmar hat nun ein kleines Tool gebastelt, mit dessen Hilfe man auf sehr einfache Weise das ungewollte Zwangsupgrade auf Windows 10 blockieren kann.

  1. Nach dem Download genügt ein Doppelklick auf die im Zip-Archiv enthaltene Datei Win10UpgradeBlocker.exe um das Tool zu starten.


  2. Aktiviere nun die Option Upgrade sperren und bestätige dies mit einem Klick auf die Schaltfläche Setzen.
  3. Soll das Upgrade auf Windows 10 zu einem späteren Zeitpunkt wieder erlaubt werden, starte das Tool erneut und wähle dann die Option Upgrade erlauben.
:pin: Das Programm kann hier heruntergeladen werden: dropbox.com/s/7d8e74spy6wbet8/Win10UpgradeBlocker.zip?dl=0
:pfeilre: Die Anwendung erfolgt auf eigenes Risiko!

Der Link weist direkt auf den Download der Datei, solltest Du stattdessen auf der Anmeldeseite von DropBox Bussines landen, kopiere bitte einfach diesen Link https://www.dropbox.com/s/7d8e74spy6wbet8/Win10UpgradeBlocker.zip?dl=0 in die Adresszeile Deines Browsers und versuche es erneut.
Ein internes Script der Forensoftware stört manchmal leider ausgehende Links.

Was macht das Tool?

Das Programm erstellt in der Registry im Schlüssel HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate den Eintrag DisableOSUpgrade und weist diesem, je nach Auswahl, folgende Werte zu.
  • 0 = Das Upgrade auf Windows 10 ist erlaubt
  • 1 = Das Upgrade auf Windows 10 ist gesperrt
Die Anwendung wurde komplett in XProfan geschrieben, der Quelltext steht Jedermann zur Einsicht offen.

Quellcode: Win10UpdateBlocker.exe

  1. $H Windows.PH
  2. Var String RegClass = "HKEY_DW_2"
  3. Var String Regpfad = "SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate"
  4. Var String RegKey = "DisableOSUpgrade"
  5. Var String Link = "www.paules-pc-forum.de"
  6. Var Handle Font = ~GetStockObject(17)
  7. Declare Long Status
  8. Declare Handle CheckOn, CheckOff, BtnSet, BtnLink, Text
  9. WindowStyle 512 + 16 + 8
  10. WindowTitle "Windows 10 Upgradelocker"
  11. Window 320, 128
  12. UseIcon "A"
  13. SetDialogFont Font
  14. CLS ~GetSysColor(15)
  15. CheckOn = Create("RadioButton", %HWnd, "Upgrade auf Win10 erlauben", 4, 4, 160, 16)
  16. CheckOff = Create("RadioButton", %HWnd, "Upgrade auf Win10 sperren", 4, 24, 160, 16)
  17. BtnSet = Create("Button", %HWnd, "Setzen", Width(%HWnd) - 88, Height(%HWnd) - 32, 80, 24)
  18. Text = Create("Text", %HWnd, "", 4, 54, 220, 32)
  19. SetFont Text, 0
  20. Set ("Errorlevel", 0)
  21. UseFont "Arial", 16, 0, 0, 1, 0
  22. TextColor RGB(24, 160, 196), -1
  23. DrawText 180, 4, 180 + 160, 20, "@Volkmar ©2015 für", 0
  24. BtnLink = Control("SysLink","<a href=\qwww.paules-pc-forum.de/\q>Paules-PC-Forum</a>",$50000002,200,28,160,25,%HWnd,9001,%hInstance,0)
  25. Proc ReadStatus
  26. Declare String Msg
  27. Var String RegWert = ReadINI$(RegClass, RegPfad, RegKey)
  28. If %Error
  29. Msg ="Registryeintrag existiert nicht\nDies erlaubt das Upgrade!"
  30. Status = 2
  31. ElseIf RegWert = "0"
  32. Msg = "Upgrade auf Win10 ist erlaubt"
  33. Status = 0
  34. SetCheck CheckOn, 1
  35. ElseIf RegWert = "1"
  36. Msg = "Upgrade auf Win10 ist gesperrt"
  37. Status = 1
  38. SetCheck CheckOff, 1
  39. EndIf
  40. SetText Text, Msg
  41. Return Status
  42. EndProc
  43. Proc SetStatus
  44. Parameters Long Status
  45. WriteINI RegClass, RegPfad, RegKey = Status
  46. Return ReadStatus()
  47. EndProc
  48. Status = ReadStatus()
  49. While 1
  50. EnableWindow BtnSet, GetCheck(CheckOn) Or GetCheck(CheckOff)
  51. WaitInput
  52. If %Key = 2
  53. Break
  54. ElseIf Clicked(BtnSet)
  55. If GetCheck(CheckOn)
  56. SetStatus 0
  57. ElseIf GetCheck(CheckOff)
  58. SetStatus 1
  59. EndIf
  60. ElseIf Clicked(BtnLink)
  61. ShellExec(Link, "open", 1)
  62. EndIf
  63. EndWhile
Alles anzeigen

Viewing all articles
Browse latest Browse all 42347