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\InitialKeyboard Indicators"
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
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.
p = "HKEY_CURRENT_USER\Control Panel\Keyboard\InitialKeyboard
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/
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