VBScript kiyanne patta script language ekak… meka web ekata use karanawa wageema thawath weda walata use karanna puluwan.. kotinma kiyanawaa nam meka programming language ekak kiyannath puluwan…
mokada Script to EXE programs indan den thiyanawa…
Man me liyapu podi script eken oyaalata Folder ekaka background Image eka , Icon eka ehema change karaganna puluwan..
me script code eka Notepad walata Paste karala ( .vbs ) file ekak widhiyata Save karanna..eetapasse Run karanna.
mokada Script to EXE programs indan den thiyanawa…
Man me liyapu podi script eken oyaalata Folder ekaka background Image eka , Icon eka ehema change karaganna puluwan..
me script code eka Notepad walata Paste karala ( .vbs ) file ekak widhiyata Save karanna..eetapasse Run karanna.
Code:
' Coded by Prabhath Jayampathi
' [email protected]
' For Elakiri.com
on error resume next
Dim x, f, fs, flder, imge, icn
Private Const Readonly = &H1
Private Const Directory = &H10
Private Const Hidden = &H2
Set x = CreateObject("Scripting.FileSystemObject")
Set fs = CreateObject("Scripting.FileSystemObject")
flder = InputBox ("Please Enter the Path of the Folder..","Folder?")
if flder <> "" then
imge = InputBox ("Please Select a Image..","Image?")
icn = InputBox ("Please Select a Icon..","Icon?")
Set x = x.CreateTextFile(flder & "\Desktop.ini", True)
x.WriteLine ("[{BE098140-A513-11D0-A3A4-00C04FD706EC}]")
x.WriteLine ("IconArea_Image=" & imge)
x.WriteLine ("[.ShellClassInfo]")
x.WriteLine ("IconFile=" & icn)
x.WriteLine ("IconIndex=0")
x.WriteLine ("' Written by Prabhath Jayampathi")
x.WriteLine ("' [email protected]")
else
Msgbox "You Must Select a Folder to Continue",vbYes,"Folder"
End If
Set f = fs.GetFolder(flder)
f.Attributes = Directory + Readonly
Set f = fs.GetFile(flder & "\Desktop.ini")
f.Attributes = Hidden
Msgbox "The Script is Coded by Prabhath Jayampathi",vbYes,"About"
fs.Quit
x.Quit
thnx
