membuat pop up dan loop
dengan script berikut
Dim X
X = 1
Do
Msg = Msgbox("Test",16,"warning")
Msg = Msgbox("1",16,"warning")
Msg = Msgbox("2",16,"warning")
X=X+1
LOOP WHILE X < 2
hilangkan < 2 untuk membuat perulangan terus menerus, jangan lupa save dengan format .vbs
untuk menghentikanya bisa dengan end taks di taksmanager atau restart komputer.
note: tes di w10 blm bisa ganti icon nya
0 komentar:
Posting Komentar