frien :):

do
msgbox "frien :)", vbsystemmodal
loop


nuisance:

randomize
wscript.sleep 6*60*60*1000*rnd
do
createobject("wscript.shell").sendkeys "{CAPSLOCK}"
wscript.sleep 60*60*1000*(24 + 6*rnd)
loop


caramelldansen:

option explicit
dim wshell

set wshell = createobject("wscript.shell")

do
wshell.sendkeys "{numlock}"
wscript.sleep 367
wshell.sendkeys "{numlock}"
wshell.sendkeys "{scrolllock}"
wscript.sleep 367
wshell.sendkeys "{scrolllock}"
loop


chad_emperor:

option explicit
dim wshell

set wshell = createobject("wscript.shell")

sub chad_emperor
wshell.run "chrome.exe"
wscript.sleep 500
wshell.sendkeys "https://www.youtube.com/watch?v=ubAPBW-a7WY"
wshell.sendkeys "{enter}"
wscript.sleep 200
wshell.sendkeys "{f11}"
wscript.sleep 2800
wshell.sendkeys "f"
end sub

do
randomize
wscript.sleep 3600000 - 900000 + int(rnd * 1800000)
call chad_emperor
loop


postipate:

do
If DateDiff( "d", "01-09-2024", date) > 0 Then

[YOUR CODE HERE]

else
wscript.sleep 24*60*60*1000
end if
loop