Dim Jika
Jika = InputBox ("xxxxxxxxxxxxxx")
If UCase(Jika) = "Y" Then
MsgBox "Makasih yah... Love You Always, Number One For Me Deh... Emmuaccch.. "
ElseIf UCase(Jika) = "T" Then
MsgBox "Its Okay GPP "
Else
MsgBox "Kamu belum masukin jawabannya Pilihan hanya 'Y' untuk ya atau 'T' untuk tidak, ketik jawabannya yah "
End If
SAVE DENGAN FORMAT VBS , CONTOH : nama.vbs
Keterangan :
- Tulisan "xxxxxxxxxxxxxx" itu di ganti dengan tulisan mu , misal "mau ga jadi pacarku" dan lain-lain
- Tulisan "Makasih yah... Love You Always, Number One For Me Deh... Emmuaccch.. " itu adalah kata-kata yang keluar setelah si Target Meng-Klik "Y" (setuju) , bisa di ganti kata-kata mu
- Tulisan "Its Okay GPP " itu adalah kata-kata yang keluar setelah si target meng-klik "T" (tolak), bisa di ganti juga
- Tulisan "Kamu belum masukin jawabannya Pilihan hanya 'Y' untuk ya atau 'T' untuk tidak, ketik jawabannya yah " itu adalah kata-kata yang keluar kalau dia belum menjawab, dan atau langsung di cancel/ok ,
Oiya , hampir lupa ini Script AutoRun nya , (beberapa Antivirus mendeteksi sebagai virus)
[autorun]
open=(nama File Kamu).vbs
SAVE DENGAN FORMAT .INF , CONTOH AUTORUN.INF
SAVE DENGAN FORMAT .INF , CONTOH AUTORUN.INF

0 komentar:
Posting Komentar