memberikan ucapan selamat datang saat windows startup

   Berikut cara dan trik untuk memberikan ucapan selamat datang dan membuka windows Explorer saat windows aktif. buka notepad(start-all program-accessories-notepad.exe).
    Tulis/copy paste script di bawah ini :


Option Explicit
dim fs,s,win
set fs=CreateObject("Scripting.FileSystemObject")
set s=CreateObject("Wscript.Shell")
set Win=fs.GetSpecialFolder(0)
main
sub main()
dim m
m=MsgBox("Welcome in your name pc,",vbOkOnly,"SUGENG RAWUH")
end sub
j
sub j()
if msgbox("do you want to browse your file now?",vbYesNo,"SUGENG RAWUH")=vbNo then Wscript.quit
s.run win & "\explorer.exe /e, /select"
end sub

   Klik file - save  namai dengan  anything.vbs   
    setelah itu, simpan di Start up.

No comments:

Post a Comment