check your computer restart time with vb trick

[*Black*Beauty*]

السلام علیکم۔
ایک مزے کی وی بی اسکریپٹ شئیر کرتا ہو۔
اس سکریپٹ سے اپنے کمپیوٹر کی رسٹارٹ ٹائم معلوم کرلیں۔
اگر اسکی کوڈنگ چاھئیے تو بھی داے سکتا ہو۔لیکن کیوں؟ہاہاہا
جب آپ اس سکریپٹ کو رن کرونگے تو یہ میسج ملے گا۔سکرین شارٹ دیکھئے۔


آپ اوکے پریس کرلیں۔جب سسٹم رسٹارٹ ہو جائیگا تو دوبارہ اس سکریپٹ کو رن کرلیں آپکو ٹائم پتہ چل جائیے گا۔۔
دیکھئے میرے سسٹم کو۔

zaib vb script.rar

[Ghalib Awan]

دلچسپ شئیرنگ کی ہے آپ نے زیب برادر !!!!؛
شئیر کرنے کا بہت بہت شکریہ

[zooma]

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\Curr entVersion\Run\RestartTime"
AppName = "Restart-Time by gamep01nt"
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 -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 restarts in " & TimeDiff & " seconds", VbInformation, AppName
end if
wscript.Quit

[MHanif828]

[*Black*Beauty*]

sub dost check krlo.awesome hy wd my name

[imran_ji]

zabardast sharing ki hai

[IT.BOY]

وعلیکم السلام
دوست بہت خوب۔۔۔اچھی شئیرنگ کی ہے۔۔ویری نائس

[KING ABBAS]

بهت خوب

[*Tamraiz*]

[_ASAD_]

42 sakent

[atheromeri]

وعلیکم السلام
ویری نائس

[umer naseer3]

nice