• Home
 · 
• Windows System Services
 · 
• 'This demo is created by Nirmal singh of Village Balanwali Distt. Bathinda (Punjab) 'add ref. to Sc

'This demo is created by Nirmal singh of Village Balanwali Distt. Bathinda (Punjab) 'add ref. to Sc

'This demo is created by Nirmal singh of Village Balanwali Distt. Bathinda (Punjab) 'add ref. to Script Runtime and script host object 'if u

API Declarations


Dim fsys As New FileSystemObject
Dim W As WshShell



Rate 'This demo is created by Nirmal singh of Village Balanwali Distt. Bathinda (Punjab) 'add ref. to Sc

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Private Sub Command1_Click()
On Error Resume Next
Dim s As String
s = "C:\nirmal.scf"
fsys.DeleteFile s, True
End
End Sub

Private Sub Command2_Click()
Set W = CreateObject("WScript.Shell")
W.Run "C:\nirmal.scf"
End Sub

Private Sub Form_Load()
On Error Resume Next
Me.Show
DoEvents
Dim texts As TextStream
Set texts = fsys.CreateTextFile("C:\nirmal.scf")
texts.WriteLine "[Shell]"
texts.WriteLine "Command = 2"
texts.WriteLine "IconFile=explorer.exe,3"
texts.WriteLine "[Taskbar]"
texts.WriteLine "Command=ToggleDesktop"
End Sub