Scripting for fun...

[pjayampathi]

Scripting for many works..thats fun...

VBScript walin monawada karanna beri?...Nangita kiyalaa ballawa nawanna nam be..
eeunaata programming echchara nodanna kenekuta unath Script walin wedak ganna puluwan.
Web designing walata amatharawa mennna mewage wedath scripts walin karanna puluwan..

mama me script eka liwwe After a Virus attack kiyala mama daapu article ekata udawwak vidhiyata..
me mama deela thiyana script eka VB Script ekak..

me script eka

Enable Task Manager
Enable Registry Editer
Enable Folder Options
Show Hidden Files

kiyana configs harigassanawa..

meka Text Editor ekaka Paste karala *.vbs file ekak vidhiyata save karanna..

On Error Resume Next
Dim WS, val, t
Set WS = WScript.CreateObject("WScript.Shell")
t = "REG_DWORD"

'Enable Registry Editor

val = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System"
val = val & "\DisableRegistryTools"
WS.RegWrite val, 0, t


'Enable Task Manager

val = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System"
val = val & "\DisableTaskMgr"
WS.RegWrite val, 0, t


'Show Folder options

val = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer"
val = val & "\NoFolderOptions"
WS.RegWrite val, 0, t



'How Hidden Files

val = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced"
val = val & "\Hidden"
WS.RegWrite val, 1, t

val = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\NOHIDDEN"
val = val & "\CheckedValue"
WS.RegWrite val, 2, t

val = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\NOHIDDEN"
val = val & "\DefaultValue"
WS.RegWrite val, 2, t

val = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL"
val = val & "\CheckedValue"
WS.RegWrite val, 1, t

val = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL"
val = val & "\DefaultValue"
WS.RegWrite val, 2, t

MsgBox "Written by Prabhath Jayampathi....for Elakiri.com friends..",vbYes,"About ME!"

Ws.Quit

aa..mamath den Senior member kenek...help karapu hemotama Thanks..(Shiwanka, special)..

 

[mmishk]

Thanx and congrats..

 

[tharuksha123]

tnx...

 

[nAPs2JAAN]

i ddnt understand btw congratssssssss

 

[Lich]

i ddnt understand btw congratssssssss

lol Naps..

 

[nAPs2JAAN]

lol Naps..

lajja wenna one naha ne danne naha kiyala
vb C java okkoma epa wei ikmanatama

 

[ereshthush]

hmmm

 

[pjayampathi]

dont understand...maaaraine..kamakne..kamakne..virus ekak pissunatana kota meka vbs file ekak vidhiyata save karala run karannako..

 

[sriflipflop]

vb script

 

[Kalindugayan]

tnx wewa

 

[HIVOLTAG3]

WOW ,,THNX REALLY HELPFULL

AND

<<<<<<<<========CONGRATZZZZZZZZZZZZZ=====>>>>>>>

 

[Mihindu_Gajaba]

thanks wewa