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

by Nirmal Singh Balanwali (2 Submissions)
Category: Windows System Services
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 4^th October 2006
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

'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




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

Download this snippet Add to My Saved Code

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

No comments have been posted about 'This demo is created by Nirmal singh of Village Balanwali Distt. Bathinda (Punjab) 'add ref. to Sc. Why not be the first to post a comment about '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 Sc Comments

Post your comment

Difficulty