Tampilkan postingan dengan label Source Code. Tampilkan semua postingan
Tampilkan postingan dengan label Source Code. Tampilkan semua postingan

Kamis, 03 Desember 2009

SEKEDAR CODING ISENG AJAH

okE kawaN2...
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..