******Visual Basic 6 Codes ********

[kavindu1st]

Onna Mama New Thread ekak gnaawa Api VB6 Codes,OCX,Project walata Vitarak Me Tread eka Issarahata Geniyamu...

(Name : K.M.Kavindu Kanishka)
(Email : [email protected])

Thank You...Elakiri.COM
​

 

[kavindu1st]

Kawda Mulin mage tread ekata Set wenne......

 

[fox]

hari patan gamu...

 

[fox]

Kawda Mulin mage tread ekata Set wenne......

mama

 

[nrjayasinghe]

Ela Ela Machan.. Apita Sample Projects dannath puluwa. knoladge eka share karaganna hodai.

 

[zed]

Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
do
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
loop
End If






save this as .vb




PODI FUN PROGRAM 1KK (MATE OKE DUNNE "DILINESRI")

NOT HARMFULL


TO STOP THIS kill the process "wscript"

 

[kavindu1st]

Machan Hoda Folder Lock Code ekak tiyenawada....Neth nam Ela OCX...

 

[racool]

zed's Avatar
zed zed is online now
Senior Member


Join Date: Dec 2007
Location: in bootsector
Posts: 2,607
Send a message via Skype™ to zed
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
do
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
loop
End If

meka kalin dala thibunane
CD tray 1 eject wena 1 needa wenne

 

[kavindu1st]

meka kalin dala thibunane
CD tray 1 eject wena 1 needa wenne

ow machoo

 

[kavindu1st]

Kawruth post karanne nedda.Mama Tread eka DELETE karannada

 

[kavindu1st]

Menna magen Clock ekak

 

[madhu4gr]

mama nam vb danne ne..
hebei igenaganna nam kemati

maat ennam

 

[kavindu1st]

mama nam vb danne ne..
hebei igenaganna nam kemati

maat ennam

Ela kollo ..Machoo oyage mail eka mokakda mama help karannam

 

[dilansri2]

ahh ela thrd ekak

lyk to learn VB

 

[zed]

meka kalin dala thibunane
CD tray 1 eject wena 1 needa wenne

OKE MACHAN NAWETHINNE NATHUWE OPEN WENEWA CLOASE WENEWA. NON STOP UNTILL U KILL THE PROSSES

 

[zed]

ahh ela thrd ekak

lyk to learn VB

MEYA THAMA MATE OYE CODE 1K DUNNE

 

[elakiri0777]

mama nam vb danne ne..
hebei igenaganna nam kemati

maat ennam

mamath ehemai

 

[dilansri2]

MEYA THAMA MATE OYE CODE 1K DUNNE

mamath hoya gatte EK eken

 

[nrjayasinghe]

Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
do
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
loop
End If






save this as .vb




PODI FUN PROGRAM 1KK (MATE OKE DUNNE "DILINESRI")

NOT HARMFULL


TO STOP THIS kill the process "wscript"

Patta Athal Ban

 

[fox]

mama nam vb danne ne..
hebei igenaganna nam kemati

maat ennam

maath danne nahe.... matath igena ganna one....