10-31-2023, 11:44 AM
Po i bie shkurt se titulli tregon edhe vet
1.Si fillim downladoni kete Restart-Time.vbs dhe ja beni extract ne desktop
Download Restart-Time.vbs
2.Duhet ta zhbllokoni patjeter duke klikuar me te djathten properties pastaj unblock nese nuk ju del opcioni unblock atehere muni me punu sepse dmth qe esht e zhbllokume
![[Image: 1408d1228890639-restart-time-unblock.jpg]](http://www.sevenforums.com/attachments/tutorials/1408d1228890639-restart-time-unblock.jpg)
3.E hapni Restart-Time.vbs
Nese jeni kureshtar me dit qa ka apo nuk besoni
[spoiler]Option Explicit
On Error Resume Next
Dim Wsh, Time1, Time2, Result, PathFile, MsgResult, MsgA, AppName, KeyA, KeyB, TimeDiff
MsgA = "Please close all running applications and click on OK."
KeyA = "HKEY_CURRENT_USER\Software\RestartTime\"
KeyB = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\RestartTime"
AppName = "Restart-Time"
Set Wsh = CreateObject("WScript.Shell")
PathFile = """" & WScript.ScriptFullName & """"
Result = wsh.RegRead(KeyA & "Times")
if Result = "" then
MsgResult = Msgbox (MsgA, vbOKCancel, AppName)
If MsgResult = vbcancel then WScript.Quit
Wsh.RegWrite KeyA & "Times", left(Time,8), "REG_SZ"
Wsh.RegWrite KeyB, PathFile, "REG_SZ"
Wsh.Run "cmd /c Shutdown -r -f -t 00", false, 0
else
Wsh.RegDelete KeyA & "Times"
Wsh.RegDelete KeyA
Wsh.RegDelete KeyB
TimeDiff = DateDiff("s",Result,left(Time,8))
MsgBox "Your computer takes " & TimeDiff & " seconds to completely restart.", VbInformation, AppName
end if
wscript.Quit[/spoiler]
4.Pasi ti mbyllni te gjitha programet klikoni OK
![[Image: 1100d1227815274-restart-time-step1.jpg]](http://www.sevenforums.com/attachments/tutorials/1100d1227815274-restart-time-step1.jpg)
5.Kur ta kryeni restartimin do tju shfaqet kjo dritare dhe duhet te klikoni OK
![[Image: 169900d1313170395-restart-time-restart-time.jpg]](http://www.sevenforums.com/attachments/tutorials/169900d1313170395-restart-time-restart-time.jpg)
6.Muni me fshi qe doni ose me rujt dikun ku doni.
7.Sdi a gjendet dikun kjo (ESK) qe po tregoni ja boj delete.
8.For fun qe doni postoni edhe ju kohen tuaj.
[info]XP Users sju kisha keshillu me ba kta un ktu foli gjith per Windows 7[/info]
1.Si fillim downladoni kete Restart-Time.vbs dhe ja beni extract ne desktop
Download Restart-Time.vbs
2.Duhet ta zhbllokoni patjeter duke klikuar me te djathten properties pastaj unblock nese nuk ju del opcioni unblock atehere muni me punu sepse dmth qe esht e zhbllokume
![[Image: 1408d1228890639-restart-time-unblock.jpg]](http://www.sevenforums.com/attachments/tutorials/1408d1228890639-restart-time-unblock.jpg)
3.E hapni Restart-Time.vbs
Nese jeni kureshtar me dit qa ka apo nuk besoni
[spoiler]Option Explicit
On Error Resume Next
Dim Wsh, Time1, Time2, Result, PathFile, MsgResult, MsgA, AppName, KeyA, KeyB, TimeDiff
MsgA = "Please close all running applications and click on OK."
KeyA = "HKEY_CURRENT_USER\Software\RestartTime\"
KeyB = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\RestartTime"
AppName = "Restart-Time"
Set Wsh = CreateObject("WScript.Shell")
PathFile = """" & WScript.ScriptFullName & """"
Result = wsh.RegRead(KeyA & "Times")
if Result = "" then
MsgResult = Msgbox (MsgA, vbOKCancel, AppName)
If MsgResult = vbcancel then WScript.Quit
Wsh.RegWrite KeyA & "Times", left(Time,8), "REG_SZ"
Wsh.RegWrite KeyB, PathFile, "REG_SZ"
Wsh.Run "cmd /c Shutdown -r -f -t 00", false, 0
else
Wsh.RegDelete KeyA & "Times"
Wsh.RegDelete KeyA
Wsh.RegDelete KeyB
TimeDiff = DateDiff("s",Result,left(Time,8))
MsgBox "Your computer takes " & TimeDiff & " seconds to completely restart.", VbInformation, AppName
end if
wscript.Quit[/spoiler]
4.Pasi ti mbyllni te gjitha programet klikoni OK
![[Image: 1100d1227815274-restart-time-step1.jpg]](http://www.sevenforums.com/attachments/tutorials/1100d1227815274-restart-time-step1.jpg)
5.Kur ta kryeni restartimin do tju shfaqet kjo dritare dhe duhet te klikoni OK
![[Image: 169900d1313170395-restart-time-restart-time.jpg]](http://www.sevenforums.com/attachments/tutorials/169900d1313170395-restart-time-restart-time.jpg)
6.Muni me fshi qe doni ose me rujt dikun ku doni.
7.Sdi a gjendet dikun kjo (ESK) qe po tregoni ja boj delete.
8.For fun qe doni postoni edhe ju kohen tuaj.
[info]XP Users sju kisha keshillu me ba kta un ktu foli gjith per Windows 7[/info]

