Social Icons

Friday 6 July 2012

Set Numlock State On or Off at Startup ?

Steps

1) remove check form "tools>>folder option>>view>>Hide extension from known file type"
2)create a file "right click >> new text document"
2)rename it what ever name u want but the extension should be .vbs
3)right click on the vbs file and select Edit option
4)insert below lines in the vbs file

Quote

Option Explicit
On Error Resume Next

Dim WSHShell, n, p, itemtype, MyBox, vbdefaultbutton
Set WSHShell = WScript.CreateObject("WScript.Shell")

p = "HKEY_CURRENT_USER\Control Panel\Keyboard\InitialKeyboardIndicators"
itemtype = "REG_SZ"

n = WSHShell.RegRead (p)
errnum = Err.Number

if errnum <> 0 then

   WSHShell.RegWrite p, 2, itemtype
End If

If n = 0 Then
   WshShell.RegWrite p, 2, itemtype
   MyBox = MsgBox("Numlock is now ENABLED", 64, "Enable Numlock")
End If

If n = 2 Then
   WshShell.Regwrite p, 0, itemtype
   MyBox = MsgBox("Numlock is now DISABLED", 64, "Enable Numlock")
End If

Set WshShell = Nothing

Visitandhra's forum

Sub Visitandhra's forum
   If MsgBox("This script came from Andhrahackers Forum" & vbCRLF & vbCRLF & "Would you like to visit Andhrahackers Web Site now?", vbQuestion + vbYesNo + vbDefaultButton, "Visit andhra's forum") =6 Then
      wshshell.Run "http://www.andhrahackers.com/forum/index.php/board,59.0.html"
   End If
End Sub

5)save the file by "CTR+S"
6)Run the file by double click
7)you have all done

enjoy  Note:-
this also can done by many other ways but i like to do it by some code

No comments:

Post a Comment