Dim objShell, lngMinutes, boolValid Set objShell = CreateObject("WScript.Shell") lngMinutes = InputBox("Bilgisayarizin ne kadar uyanik kalmasini istiyorsunuz?" & Replace(Space(5), " ", vbNewLine) & "Dakikasini giriniz:", "Uyaniklik suresi") 'we are replacing 5 spaces with new lines If lngMinutes = vbEmpty Then 'If the user opts to cancel the process 'Do nothing Else On Error Resume Next Err.Clear boolValid = False lngMinutes = CLng(lngMinutes) If Err.Number = 0 Then 'input is numeric If lngMinutes > 0 Then 'input is greater than zero For i = 1 To lngMinutes WScript.Sleep 60000 '60 seconds objShell.SendKeys "{SCROLLLOCK 2}" Next boolValid = True MsgBox "Bilgisayarinizin uyanik olma suresi bitti ve normal rutinine dondu.", vbOKOnly+vbInformation, "Islem tamamlandi" End If End If On Error Goto 0 If boolValid = False Then MsgBox "Uyari:" & vbNewLine & "Lutfen '0'dan buyuk bir rakam giriniz", vbOKOnly+vbCritical, "Task Failed" End If End If Set objShell = Nothing Wscript.Quit 0
Ehrlich gesagt habe ich noch nie erlebt, dass ihm mit dieser Methode etwas passiert ist. In unserem Unternehmen gibt es viele Leute, die Makros für unterschiedliche Zwecke verwenden. Aber was Sie sagen, mag wahr sein, es ist immer nützlich, vorsichtig zu sein. Google translate sağ olsun :)
İnsanlık hali sonuçta, iş yerinde sorumluluk alıp elinden geleni yapmak önemli ama bazı yöneticiler / şirketler işin kendisinden çok psikolojik olarak online olmaya önem verebiliyor 😅 Gördüğüm çoğu insan ya PowerPoint’i açıp sunum moduna alıyor, ya Word dökümanını açıp bir harfe ağırlık koyuyor, ben daha pratik bir çözüm olsun dedim 😀
Dim objShell, lngMinutes, boolValid
Set objShell = CreateObject("WScript.Shell")
lngMinutes = InputBox("Bilgisayarizin ne kadar uyanik kalmasini istiyorsunuz?" & Replace(Space(5), " ", vbNewLine) & "Dakikasini giriniz:", "Uyaniklik suresi") 'we are replacing 5 spaces with new lines
If lngMinutes = vbEmpty Then 'If the user opts to cancel the process
'Do nothing
Else
On Error Resume Next
Err.Clear
boolValid = False
lngMinutes = CLng(lngMinutes)
If Err.Number = 0 Then 'input is numeric
If lngMinutes > 0 Then 'input is greater than zero
For i = 1 To lngMinutes
WScript.Sleep 60000 '60 seconds
objShell.SendKeys "{SCROLLLOCK 2}"
Next
boolValid = True
MsgBox "Bilgisayarinizin uyanik olma suresi bitti ve normal rutinine dondu.", vbOKOnly+vbInformation, "Islem tamamlandi"
End If
End If
On Error Goto 0
If boolValid = False Then
MsgBox "Uyari:" & vbNewLine & "Lutfen '0'dan buyuk bir rakam giriniz", vbOKOnly+vbCritical, "Task Failed"
End If
End If
Set objShell = Nothing
Wscript.Quit 0
Çok yararlı bir video olmuş
Nicht signierte Excel-Makros werden in der Regel der IT gemeldet.. Daher wäre ich bei dieser Methode sehr vorsichtig.
Ehrlich gesagt habe ich noch nie erlebt, dass ihm mit dieser Methode etwas passiert ist. In unserem Unternehmen gibt es viele Leute, die Makros für unterschiedliche Zwecke verwenden. Aber was Sie sagen, mag wahr sein, es ist immer nützlich, vorsichtig zu sein.
Google translate sağ olsun :)
Bize üçkağıtçı olmayı mı öğretiyorsun 😊
İnsanlık hali sonuçta, iş yerinde sorumluluk alıp elinden geleni yapmak önemli ama bazı yöneticiler / şirketler işin kendisinden çok psikolojik olarak online olmaya önem verebiliyor 😅
Gördüğüm çoğu insan ya PowerPoint’i açıp sunum moduna alıyor, ya Word dökümanını açıp bir harfe ağırlık koyuyor, ben daha pratik bir çözüm olsun dedim 😀
@@KendiKendimeHikayeler yanlış anlama lütfen çok güzel bir fikri paylaşmışsın ,benimkisi şaka yapmak😊
Çok yararlı bir video olmuş