Windows

Egyéb operációs rendszerekkel kapcsolatos leírások, infók, hírek
willy36
Hozzászólások: 186
Csatlakozott: 2017.05.16. 18:43

Re: Windows

Hozzászólás Szerző: willy36 »

Skaminak, ha még nem tudja a win 10-et leállítani...
az asztalon nyomsz üres helyen jobb egérklikket, majd Új---Parancsikon (New---Shortcut )és bemásolod ezt a sort
%windir%\System32\shutdown.exe /s /t 0
Ez egy poweroff, talán megoldja a problémát

Avatar
S-kami
Adminisztrátor
Hozzászólások: 1043
Csatlakozott: 2014.04.16. 12:54
Kapcsolat:

Re: Windows

Hozzászólás Szerző: S-kami »

Nagyon szépen köszönöm kedves willy, de akár hiszed, akár nem, megoldódott.

Ki kellett kapcsolni valami hibernációs beállítást a vezérlőpultban és utánna már kikapcsolt rendesen.
Puppy linux ! Mert megérdemlem !
Gyertek fel a csetre ! Katt ide a csevegéshez: https://discord.gg/74tBqJk

Asterix
Hozzászólások: 520
Csatlakozott: 2015.07.11. 08:55

Re: Windows

Hozzászólás Szerző: Asterix »

Üdv!
Opera Neon > Win10 alatt!
A opera-neon.png csatolmány már nem érhető el.
opera-neon.png
opera-neon.png (558.72 KiB) Megtekintve 1222 alkalommal
opera-neon1.jpg
opera-neon1.jpg (649.68 KiB) Megtekintve 1222 alkalommal
opera-neon1.jpg
opera-neon1.jpg (649.68 KiB) Megtekintve 1222 alkalommal
Egész kellemes! :o
Magyar nyelv még nincs,sajnos!Megvárjuk!

nocsak
Hozzászólások: 213
Csatlakozott: 2014.09.29. 15:01

Re: Windows

Hozzászólás Szerző: nocsak »

Üdv!

Hogy megoldjam a kérdéses kérdést, egy visual basic script (.vbs) amelyjel a windows hosts fájljához tudunk címeket hozzáadni a 127.0.0.1 címre korlátozva őket, íme:
Ha esetleg meggondoljuk magunkat, akkor Notepad++ -szal Rendszergazda módban szerkesztve a fájlt, kitörölhetjük az adott sorokat majd mentjük.

Kód: Egész kijelölése

If Not WScript.Arguments.Named.Exists("elevate") Then
  CreateObject("Shell.Application").ShellExecute WScript.FullName _
    , """" & WScript.ScriptFullName & """ /elevate", "", "runas", 1
  WScript.Quit
End If

Const ForReading = 1, ForWriting = 2, ForAppending = 8, ReadOnly = 1
Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell=CreateObject("WScript.Shell")
WinDir =WshShell.ExpandEnvironmentStrings("%WinDir%")

HostsFile = WinDir & "\System32\Drivers\etc\Hosts"
Dim rept,label,titre,defaut,data
label="Enter the field below The site that you want to Block for Example www.blockme.com "
defaut=""
titre="Block Host Addresses"
rept=InputBox(label,titre,defaut)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(HostsFile, ForReading)



Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(HostsFile)
If objFile.Attributes AND ReadOnly Then
objFile.Attributes = objFile.Attributes XOR ReadOnly
End If

Set filetxt = fso.OpenTextFile(HostsFile, ForAppending, True)
if rept="" then Cleanup
filetxt.WriteLine(vbNewLine & "127.0.0.1 " &rept)
filetxt.Close
Sub Cleanup()
  Set FSO = Nothing
  WScript.Quit
End Sub

vbs002.jpg
vbs002.jpg (48.71 KiB) Megtekintve 535 alkalommal
vbs003.jpg
vbs003.jpg (102.01 KiB) Megtekintve 535 alkalommal
vbs004.jpg
vbs004.jpg (30.87 KiB) Megtekintve 535 alkalommal

Válasz küldése

Vissza: “Egyéb OS”