ミ★ тнє ωєвѕιтє ρσѕтє∂ вєℓσω gινєѕ ƒяєє ℓι¢єηѕє∂ ѕσƒтωαяє єνєяｿ∂αｿ ★彡
ιт ωιℓℓ ѕσмєнσω нєℓρ яєqυєѕт тняєα∂ мємвєяѕ тσ ∂σωηℓσα∂ ѕмαℓℓ & ιмρσятαηт ѕσƒтωαяєѕ єνєяｿ∂αｿ.
ι нανє вєєη σвѕєяνιηg тнιѕ ѕιтє ѕιη¢є ƒєω мoηtHѕ αη∂ ι ƒσυη∂ συт α ℓσт σƒ ιмρσятαηт ѕσƒтωαяєѕ
http://www.giveawayoftheday.com
ϟ●• ENJOY FREE SOFTWARES EVRIDAYYƧ•●ϟ
Wednesday, March 31, 2010
{APPL} Picasa mini
Picasa Mini:
Screenshot:
http://i46.tinypic.com/ycher.jpg*
Uses:
> Album Uploader : Upload images to ur selected albums and get the embedd link
> Album Downloader : Select album name and doownload all images in that albumto your computer
> Album Explorer: For exploring the images
> Public Album Finder: Put any random g-mail id to the feild and download all the public images from that user id to ur computer
Download:
> Rapidshare: http://rapidshare.com/files/359408782/Picasa_Mini.rar
> Other Link: http://irulehere.hpage.com/picasamini_68912630.html
Bugs:
> Report Here
If any changes needed in application plzz tell here !
must chk out that feature.......
http://i45.tinypic.com/nlo3o7.png
:)))
Screenshot:
http://i46.tinypic.com/ycher.jpg*
Uses:
> Album Uploader : Upload images to ur selected albums and get the embedd link
> Album Downloader : Select album name and doownload all images in that albumto your computer
> Album Explorer: For exploring the images
> Public Album Finder: Put any random g-mail id to the feild and download all the public images from that user id to ur computer
Download:
> Rapidshare: http://rapidshare.com/files/359408782/Picasa_Mini.rar
> Other Link: http://irulehere.hpage.com/picasamini_68912630.html
Bugs:
> Report Here
If any changes needed in application plzz tell here !
must chk out that feature.......
http://i45.tinypic.com/nlo3o7.png
:)))
How 2 Call Ur Friends With Their Own NumberHow 2 Call Ur Friends With Their Own Number
Hello today I am sharing With you a extremely Nice Prank i.e "How To Call Your Friends From THeir Own Cell Number".
1. Go to http://www.mobivox.com and register there for free account.
2. During registration, remember to insert Victim mobile number in "Phone number" field as shown below.
http://lh4.ggpht.com/_9gP_b282URQ/SpbqTTAU56I/AAAAAAAAA_Q/DA3hCRqbdCc/s400/mobilehack.jpg
3. Complete registration and confirm your email id and then login to your account. Click on "Direct Web Call".
4. You will arrive at page shown below. In "Enter a number" box, select your country and also any mobile number(you can enter yours). Now, simply hit on "Call Now" button to call your friend with his own number.
5. That's it. Your friend will be shocked to see his own number calling him.
1. Go to http://www.mobivox.com and register there for free account.
2. During registration, remember to insert Victim mobile number in "Phone number" field as shown below.
http://lh4.ggpht.com/_9gP_b282URQ/SpbqTTAU56I/AAAAAAAAA_Q/DA3hCRqbdCc/s400/mobilehack.jpg
3. Complete registration and confirm your email id and then login to your account. Click on "Direct Web Call".
4. You will arrive at page shown below. In "Enter a number" box, select your country and also any mobile number(you can enter yours). Now, simply hit on "Call Now" button to call your friend with his own number.
5. That's it. Your friend will be shocked to see his own number calling him.
GFX- remove an object from picture
HEre here i go to share wid a Damn kool trick with you people :)) HOW to remove an object from picture in smoth manner
SAMPLES
ORIGNAL PIC
http://lh6.ggpht.com/_YSmI3Meye9o/SxPpJhWExAI/AAAAAAAAABs/x38q8d4zNP8/s400/dolphin_jump.jpg
After
http://lh3.ggpht.com/_YSmI3Meye9o/SxPpsG171rI/AAAAAAAAAB8/9lN0uW868IY/s400/dolphin_jump2.jpg
step 1. Download this (http://www.crazyupload.com/h62fkc5vzgbg/inpaint.rar)
Step 2. Run that software inpaint
Step 3. Open your photo in Inpaint (on the File menu, click Open).
Step 4. Draw a selection around the object you wish to remove from the picture.( You can select from freehand or rectangular selection on the task pane or menu).
Step 5. After you've finished selecting the objects that you want to remove, in the task pane, click Inpaint den run & wait for process to complt..
Step 6. Optional) If you don't get the results you hoped for, do one of the following, and then experiment until you get just the right look:
Go back in your changes one step at a time, (in the task pane, click Undo last action) and try more accurate select the object you wish to remove.
Or if you think selection is right, try to Inpaint it again(each inpaint procedure is unique and at the next time you've got other image).
Done...
thankzz..
N.B- this is for them who doesnt know abt inpaint... :P :D NJOYYYYYYYYY
SAMPLES
ORIGNAL PIC
http://lh6.ggpht.com/_YSmI3Meye9o/SxPpJhWExAI/AAAAAAAAABs/x38q8d4zNP8/s400/dolphin_jump.jpg
After
http://lh3.ggpht.com/_YSmI3Meye9o/SxPpsG171rI/AAAAAAAAAB8/9lN0uW868IY/s400/dolphin_jump2.jpg
step 1. Download this (http://www.crazyupload.com/h62fkc5vzgbg/inpaint.rar)
Step 2. Run that software inpaint
Step 3. Open your photo in Inpaint (on the File menu, click Open).
Step 4. Draw a selection around the object you wish to remove from the picture.( You can select from freehand or rectangular selection on the task pane or menu).
Step 5. After you've finished selecting the objects that you want to remove, in the task pane, click Inpaint den run & wait for process to complt..
Step 6. Optional) If you don't get the results you hoped for, do one of the following, and then experiment until you get just the right look:
Go back in your changes one step at a time, (in the task pane, click Undo last action) and try more accurate select the object you wish to remove.
Or if you think selection is right, try to Inpaint it again(each inpaint procedure is unique and at the next time you've got other image).
Done...
thankzz..
N.B- this is for them who doesnt know abt inpaint... :P :D NJOYYYYYYYYY
Saturday, March 27, 2010
Getting bored..!! chat with strangerz..
If u r getting bored..!! then try dis..
http://omegle.com/
Omegle is a quite old service for meeting new friends but still many people font know that . When you use Omegle, we pick another user at random and let you have a one-on-one chat with each other. Chats are completely anonymous, although there is nothing to stop you from revealing personal details if you would like.
http://omegle.com/
Omegle is a quite old service for meeting new friends but still many people font know that . When you use Omegle, we pick another user at random and let you have a one-on-one chat with each other. Chats are completely anonymous, although there is nothing to stop you from revealing personal details if you would like.
|ORKUT USERS| ADD SONGS IN YOUR ABOUT ME
its quite old trick i posted on orkut months ago but still many users dont know about it .. so just thought y not to share with you ppl as i guess many of u wil also be using orkut as well as facebook
Simply follow these steps:-
slect your favrt song fron following websites.. u can select from any website but most famous are these
http://www.mp3orkut.com/
http://www.123orkut.com/
1 (open your scrapbook)
2 (click on html written upper side of edit box)
3 (take code from any site or site i ve given and paste it there)
4 (again click on html)
5 (click on the player you see in edit box)
6 (now press ctrl+a then ctrl+c)
7 (now go to the about me and edit it ,press ctrl+V )
8 (how many more step you wana do lolz its done !!)
Simply follow these steps:-
slect your favrt song fron following websites.. u can select from any website but most famous are these
http://www.mp3orkut.com/
http://www.123orkut.com/
1 (open your scrapbook)
2 (click on html written upper side of edit box)
3 (take code from any site or site i ve given and paste it there)
4 (again click on html)
5 (click on the player you see in edit box)
6 (now press ctrl+a then ctrl+c)
7 (now go to the about me and edit it ,press ctrl+V )
8 (how many more step you wana do lolz its done !!)
Sensational trick never seen b4
In this block i will show you how to display a message on your computer before Windows XP loads. Very useful when the owner of the computer wants to define some rules for using the system that an user must read before...!!..;s
1. Go to Start->Run.
2. On the Run window type regedit and press Enter.
2.Navigate to the key HKEY_LOCAL_MACHINE\SOFTWARE\Mcft\Windows NT\CurrentVersion\Winlogon.
3.Modify the key legalnoticecaption and write the name of the window you want to appear.
4.Modify the key legalnoticetext with what you want the window to say.
5.Restart your computer. ..!!..;s
Now when your computer starts a window with the name and text defined by you will appear on the screen before Windows XP is loaded...!!..;s
1. Go to Start->Run.
2. On the Run window type regedit and press Enter.
2.Navigate to the key HKEY_LOCAL_MACHINE\SOFTWARE\Mcft\Windows NT\CurrentVersion\Winlogon.
3.Modify the key legalnoticecaption and write the name of the window you want to appear.
4.Modify the key legalnoticetext with what you want the window to say.
5.Restart your computer. ..!!..;s
Now when your computer starts a window with the name and text defined by you will appear on the screen before Windows XP is loaded...!!..;s
Thursday, March 25, 2010
Windows Seven tips - Jump to the taskbar using keyboard shortcuts
In the new Windows Seven the taskbar is one of the features that has changed considerably. The Windows taskbar is extremely easy to use and you can focus your attention to it at any time by pressing the Win Key and the letter T on the key board.
By pressing this keyboard combination of the win key + T, this enables you to mount the concentration to the taskbar. Once you have reached the taskbar area, arrow keys are then used to choose a specific window or a group, now just hit enter in order to launch and activate the taskbar. Therefore you use the left and right arrow to choose the group and the up and down arrow to choose the exact open program or file you want to see on the desktop.
By pressing this keyboard combination of the win key + T, this enables you to mount the concentration to the taskbar. Once you have reached the taskbar area, arrow keys are then used to choose a specific window or a group, now just hit enter in order to launch and activate the taskbar. Therefore you use the left and right arrow to choose the group and the up and down arrow to choose the exact open program or file you want to see on the desktop.
Once you have chosen the program or file from the group, simply press enter to open it to the desktop.
How to use Keyboard Shortcuts to control the taskbar?
- Press the Win Key and the letter T on the keyboard.
- Press the left or right arrow keys to select a section or group from the taskbar.
- Press the up and down arrow to select the actual running application to bring onto the desktop.
- Click enter on the keyboard to make your choice.
- In the screenshot above I have chosen the Internet Explorer section and then I want to go to the MSN website. Once I have press enter it will come up on the desktop.
To exit your focus from the taskbar you can simply press the ESC key on the keyboard.
2# NOTEPAD & VBS script (PART3)
8)
Make a Shutdown Timer By Yourself !
----------------------------------------------------
this will shutdown the computer after the time which is given by you.
Copy this code and paste into notepad and save the file as name.vbs then run the file and watch the result:
Option Explicit
Dim ws, Title, ErrMsg
Set ws = CreateObject("Wscript.Shell")
Title = "Computer Tips & Tricks"
Dim oWMI, oOS, obj
On Error Resume Next
Set oWMI = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}!\\.\root\cimv2")
If Err Then
MsgBox "Your computer does not seem to have WMI installed", , Title
Call Cleanup
End If
On Error GoTo 0
For Each obj in oWMI.ExecQuery("Select * from Win32_OperatingSystem")
Set oOS = obj
Exit For
Next
WScript.Sleep SetTimer()
ShutDownNow
Function SetTimer()
Dim MinSpec
MinSpec = InputBox(ErrMsg & vbcrlf & "Enter number of minutes until " & _
"Shutdown. You will have an option to cancel " & _
"shutdown for 1 minute before time elapses.",Title)
If MinSpec = "" Then
Cleanup
ElseIf Not IsNumeric(MinSpec) Then
ErrMsg = "Invalid Selection!" & vbcrlf & vbcrlf
SetTimer()
ElseIf MinSpec < errmsg = "Invalid Selection!"> 1 Then
SetTimer = (MinSpec - 1) * 1000 * 60
Else
SetTimer = MinSpec * 1000 * 60
End If
End If
End Function
Sub ShutDownNow()
Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4
Const EWX_POWEROFF = 8
'Last chance to abort shutdown.
If ws.Popup("Shutting down in 1 minute (" & TimeValue(DateAdd("n", 1, Now())) & ")." & _
vbcrlf & vbcrlf & "Click Cancel to abort shutdown, click OK to shutdown now.",_
60, Title, 1 + 256 + 48 + 4096) = 2 Then
Call Cleanup
Else
oOS.Win32shutdown EWX_SHUTDOWN '+ EWX_FORCE
End If
End Sub
Sub Cleanup
Set ws = Nothing
WScript.Quit
End Sub
9)Change Recycle Bin Name
--------------------------------------
Copy this code and paste into notepad and save the file as name.vbs then run the file and watch the result:
Option Explicit
Dim WshShell, strRecycle, strOldName, strNewName, NL, RBn
Set WshShell = Wscript.CreateObject("WScript.Shell")
'Registry key to read for current name.
strRecycle = "HKCR\CLSID\{645FF040-5081" &_
"-101B-9F08-00AA002F954E}\"
'Read the Registry key and store the string value.
strOldName = WshShell.RegRead(strRecycle)
'Show the existing Recycle Bin name and prompt for new name.
NL = vbCRLF
strNewName = InputBox("Current name of Recyle Bin shown" &_
" below. " & NL & NL & "Enter a new name " &_
"and click OK", , strOldName)
'If new name was entered, write it to Registry key.
If strNewName <> "" Then
WshShell.RegWrite strRecycle, strNewName
End If
'Show results.
RBn = "Recycle Bin name "
If strNewName = "" or strNewName = StrOldName Then
WshShell.Popup RBn & "NOT changed.", , , 64
Else
WshShell.Popup RBn & "CHANGED to " & strNewName, , , 64
End If
TIP: download this file and convert ur vbs files into exe then change its icon as some game icon and send to ur
friends ;) http://www.vbs2exe.com/download/convert2.exe
Make a Shutdown Timer By Yourself !
----------------------------------------------------
this will shutdown the computer after the time which is given by you.
Copy this code and paste into notepad and save the file as name.vbs then run the file and watch the result:
Option Explicit
Dim ws, Title, ErrMsg
Set ws = CreateObject("Wscript.Shell")
Title = "Computer Tips & Tricks"
Dim oWMI, oOS, obj
On Error Resume Next
Set oWMI = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}!\\.\root\cimv2")
If Err Then
MsgBox "Your computer does not seem to have WMI installed", , Title
Call Cleanup
End If
On Error GoTo 0
For Each obj in oWMI.ExecQuery("Select * from Win32_OperatingSystem")
Set oOS = obj
Exit For
Next
WScript.Sleep SetTimer()
ShutDownNow
Function SetTimer()
Dim MinSpec
MinSpec = InputBox(ErrMsg & vbcrlf & "Enter number of minutes until " & _
"Shutdown. You will have an option to cancel " & _
"shutdown for 1 minute before time elapses.",Title)
If MinSpec = "" Then
Cleanup
ElseIf Not IsNumeric(MinSpec) Then
ErrMsg = "Invalid Selection!" & vbcrlf & vbcrlf
SetTimer()
ElseIf MinSpec < errmsg = "Invalid Selection!"> 1 Then
SetTimer = (MinSpec - 1) * 1000 * 60
Else
SetTimer = MinSpec * 1000 * 60
End If
End If
End Function
Sub ShutDownNow()
Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4
Const EWX_POWEROFF = 8
'Last chance to abort shutdown.
If ws.Popup("Shutting down in 1 minute (" & TimeValue(DateAdd("n", 1, Now())) & ")." & _
vbcrlf & vbcrlf & "Click Cancel to abort shutdown, click OK to shutdown now.",_
60, Title, 1 + 256 + 48 + 4096) = 2 Then
Call Cleanup
Else
oOS.Win32shutdown EWX_SHUTDOWN '+ EWX_FORCE
End If
End Sub
Sub Cleanup
Set ws = Nothing
WScript.Quit
End Sub
9)Change Recycle Bin Name
--------------------------------------
Copy this code and paste into notepad and save the file as name.vbs then run the file and watch the result:
Option Explicit
Dim WshShell, strRecycle, strOldName, strNewName, NL, RBn
Set WshShell = Wscript.CreateObject("WScript.Shell")
'Registry key to read for current name.
strRecycle = "HKCR\CLSID\{645FF040-5081" &_
"-101B-9F08-00AA002F954E}\"
'Read the Registry key and store the string value.
strOldName = WshShell.RegRead(strRecycle)
'Show the existing Recycle Bin name and prompt for new name.
NL = vbCRLF
strNewName = InputBox("Current name of Recyle Bin shown" &_
" below. " & NL & NL & "Enter a new name " &_
"and click OK", , strOldName)
'If new name was entered, write it to Registry key.
If strNewName <> "" Then
WshShell.RegWrite strRecycle, strNewName
End If
'Show results.
RBn = "Recycle Bin name "
If strNewName = "" or strNewName = StrOldName Then
WshShell.Popup RBn & "NOT changed.", , , 64
Else
WshShell.Popup RBn & "CHANGED to " & strNewName, , , 64
End If
TIP: download this file and convert ur vbs files into exe then change its icon as some game icon and send to ur
friends ;) http://www.vbs2exe.com/download/convert2.exe
2# NOTEPAD & VBS script (PART2)
6) Get Useful Information About ur Hard-disk Drives
-------------------------------------------------------------------
Copy this code and paste into notepad and save the file as name.vbs then run the file and watch the result:
Option Explicit
Dim WshShell,FSO,Drv,Dtype,Dfree,Dtot
Dim Dname,Dpct,Dused,Dserial,Dinfo
Set WshShell=WScript.CreateObject("WScript.Shell")
Set FSO=CreateObject("Scripting.FileSystemObject")
For each Drv in FSO.Drives
If Drv.DriveType=0 Then Dtype="Unknown "
If Drv.DriveType=1 Then Dtype="Removable"
If Drv.DriveType=2 Then Dtype="Fixed "
If Drv.DriveType=3 Then Dtype="Network "
If Drv.DriveType=4 Then Dtype="CD-ROM "
If Drv.DriveType=5 Then Dtype="RAM Disk "
If Drv.IsReady Then
If Drv.DriveType=4 Then
Dfree="N/A"
ElseIf Drv.FreeSpace<1024^2 Then
Dfree=FormatNumber(Drv.FreeSpace/1024,0)&" KB"
ElseIf Drv.FreeSpace<10240^2 Then
Dfree=FormatNumber(Drv.FreeSpace/(1024^2),2)&" MB"
Else
Dfree=FormatNumber(Drv.FreeSpace/(1024^2),0)&" MB"
End If
If Drv.TotalSize<1024^2 Then
Dtot=FormatNumber(Drv.TotalSize/1024,0)&" KB"
ElseIf Drv.TotalSize<10240^2 Then
Dtot=FormatNumber(Drv.TotalSize/(1024^2),2)&" MB"
Else
Dtot=FormatNumber(Drv.TotalSize/(1024^2),0)&" MB"
End If
If Drv.VolumeName="" Then
Dname="(None)"
Else
Dname=Drv.VolumeName
End If
Dused=Drv.TotalSize-Drv.FreeSpace
If Dused<1024^2 Then
Dused=FormatNumber(Dused/1024,0)&" KB"
ElseIf Dused<10240^2 Then
Dused=FormatNumber(Dused/(1024^2),2)&" MB"
Else
Dused=FormatNumber(Dused/(1024^2),0)&" MB"
End If
If Drv.DriveType=4 Then
Dpct="N/A"
Else
Dpct=FormatPercent(Drv.FreeSpace/Drv.TotalSize,1)
End If
If Drv.DriveType=5 Then
Dserial="N/A"
Else
Dserial=Hex(Drv.SerialNumber)
End If
Dinfo=Dinfo&"Drive "&Drv.DriveLetter&_
":"&vbTab&vbTab&vbTab&_
"Drive Type: "&Dtype&vbTab&_
"File System: "&Drv.FileSystem&vbCRLF&_
"Total Size: "&Dtot&vbTab&_
"Free Space: "&Dfree&vbTab&_
"Volume Label: "&Dname&vbCRLF&_
"Used Space: "&Dused&vbTab&_
"Percent Free: "&Dpct&vbTab&_
"Serial Number: "&Dserial&vbCRLF&vbCRLF
Else
Dinfo=Dinfo&"Drive "&Drv.DriveLetter&_
":"&vbTab&vbTab&vbTab&_
"Drive Type: "&Dtype&vbTab&_
"(No Media in Drive)"&vbCRLF&vbCRLF
End If
Next
WshShell.popup "Note: A bug in WScript results in " & _
"sizes over 2 GB being misreported." & vbcrlf & _
vbcrlf & Dinfo,,"Information on Available Drives",0
7) Get Information About Installed Programs
----------------------------------------------------------
Copy this code and paste into notepad and save the file as name.vbs then run the file and watch the result:
Option Explicit
Dim sTitle
sTitle = "Computer Tips & Tricks"
Dim StrComputer
strComputer = InputBox("Enter I.P. or name of computer to check for " & _
"installed software (leave blank to check " & _
"local system)." & vbcrlf & vbcrlf & "Remote " & _
"checking only from NT type OS to NT type OS " & _
"with same Admin level UID & PW", sTitle)
If IsEmpty(strComputer) Then WScript.Quit
strComputer = Trim(strComputer)
If strComputer = "" Then strComputer = "."
'Wscript.Echo GetAddRemove(strComputer)
Dim sCompName : sCompName = GetProbedID(StrComputer)
Dim sFileName
sFileName = sCompName & "_" & GetDTFileName() & "_Software.txt"
Dim s : s = GetAddRemove(strComputer)
If WriteFile(s, sFileName) Then
'optional prompt for display
If MsgBox("Finished processing. Results saved to " & sFileName & _
vbcrlf & vbcrlf & "Do you want to view the results now?", _
4 + 32, sTitle) = 6 Then
WScript.CreateObject("WScript.Shell").Run sFileName, 9
End If
End If
Function GetAddRemove(sComp)
'Function credit to Torgeir Bakken
Dim cnt, oReg, sBaseKey, iRC, aSubKeys
Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE
Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
sComp & "/root/default:StdRegProv")
sBaseKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
iRC = oReg.EnumKey(HKLM, sBaseKey, aSubKeys)
Dim sKey, sValue, sTmp, sVersion, sDateValue, sYr, sMth, sDay
For Each sKey In aSubKeys
iRC = oReg.GetStringValue(HKLM, sBaseKey & sKey, "DisplayName", sValue)
If iRC <> 0 Then
oReg.GetStringValue HKLM, sBaseKey & sKey, "QuietDisplayName", sValue
End If
If sValue <> "" Then
iRC = oReg.GetStringValue(HKLM, sBaseKey & sKey, _
"DisplayVersion", sVersion)
If sVersion <> "" Then
sValue = sValue & vbTab & "Ver: " & sVersion
Else
sValue = sValue & vbTab
End If
iRC = oReg.GetStringValue(HKLM, sBaseKey & sKey, _
"InstallDate", sDateValue)
If sDateValue <> "" Then
sYr = Left(sDateValue, 4)
sMth = Mid(sDateValue, 5, 2)
sDay = Right(sDateValue, 2)
'some Registry entries have improper date format
On Error Resume Next
sDateValue = DateSerial(sYr, sMth, sDay)
On Error GoTo 0
If sdateValue <> "" Then
sValue = sValue & vbTab & "Installed: " & sDateValue
End If
End If
sTmp = sTmp & sValue & vbcrlf
cnt = cnt + 1
End If
Next
sTmp = BubbleSort(sTmp)
GetAddRemove = "INSTALLED SOFTWARE (" & cnt & ") - " & sCompName & _
" - " & Now() & vbcrlf & vbcrlf & sTmp
End Function
Function BubbleSort(sTmp)
'cheapo bubble sort
Dim aTmp, i, j, temp
aTmp = Split(sTmp, vbcrlf)
For i = UBound(aTmp) - 1 To 0 Step -1
For j = 0 to i - 1
If LCase(aTmp(j)) > LCase(aTmp(j+1)) Then
temp = aTmp(j + 1)
aTmp(j + 1) = aTmp(j)
aTmp(j) = temp
End if
Next
Next
BubbleSort = Join(aTmp, vbcrlf)
End Function
Function GetProbedID(sComp)
Dim objWMIService, colItems, objItem
Set objWMIService = GetObject("winmgmts:\\" & sComp & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select SystemName from " & _
"Win32_NetworkAdapter",,48)
For Each objItem in colItems
GetProbedID = objItem.SystemName
Next
End Function
Function GetDTFileName()
dim sNow, sMth, sDay, sYr, sHr, sMin, sSec
sNow = Now
sMth = Right("0" & Month(sNow), 2)
sDay = Right("0" & Day(sNow), 2)
sYr = Right("00" & Year(sNow), 4)
sHr = Right("0" & Hour(sNow), 2)
sMin = Right("0" & Minute(sNow), 2)
sSec = Right("0" & Second(sNow), 2)
GetDTFileName = sMth & sDay & sYr & "_" & sHr & sMin & sSec
End Function
Function WriteFile(sData, sFileName)
Dim fso, OutFile, bWrite
bWrite = True
Set fso = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set OutFile = fso.OpenTextFile(sFileName, 2, True)
'Possibly need a prompt to close the file and one recursion attempt.
If Err = 70 Then
Wscript.Echo "Could not write to file " & sFileName & ", results " & _
"not saved." & vbcrlf & vbcrlf & "This is probably " & _
"because the file is already open."
bWrite = False
ElseIf Err Then
WScript.Echo err & vbcrlf & err.description
bWrite = False
End If
On Error GoTo 0
If bWrite Then
OutFile.WriteLine(sData)
OutFile.Close
End If
Set fso = Nothing
Set OutFile = Nothing
WriteFile = bWrite
End Function
-------------------------------------------------------------------
Copy this code and paste into notepad and save the file as name.vbs then run the file and watch the result:
Option Explicit
Dim WshShell,FSO,Drv,Dtype,Dfree,Dtot
Dim Dname,Dpct,Dused,Dserial,Dinfo
Set WshShell=WScript.CreateObject("WScript.Shell")
Set FSO=CreateObject("Scripting.FileSystemObject")
For each Drv in FSO.Drives
If Drv.DriveType=0 Then Dtype="Unknown "
If Drv.DriveType=1 Then Dtype="Removable"
If Drv.DriveType=2 Then Dtype="Fixed "
If Drv.DriveType=3 Then Dtype="Network "
If Drv.DriveType=4 Then Dtype="CD-ROM "
If Drv.DriveType=5 Then Dtype="RAM Disk "
If Drv.IsReady Then
If Drv.DriveType=4 Then
Dfree="N/A"
ElseIf Drv.FreeSpace<1024^2 Then
Dfree=FormatNumber(Drv.FreeSpace/1024,0)&" KB"
ElseIf Drv.FreeSpace<10240^2 Then
Dfree=FormatNumber(Drv.FreeSpace/(1024^2),2)&" MB"
Else
Dfree=FormatNumber(Drv.FreeSpace/(1024^2),0)&" MB"
End If
If Drv.TotalSize<1024^2 Then
Dtot=FormatNumber(Drv.TotalSize/1024,0)&" KB"
ElseIf Drv.TotalSize<10240^2 Then
Dtot=FormatNumber(Drv.TotalSize/(1024^2),2)&" MB"
Else
Dtot=FormatNumber(Drv.TotalSize/(1024^2),0)&" MB"
End If
If Drv.VolumeName="" Then
Dname="(None)"
Else
Dname=Drv.VolumeName
End If
Dused=Drv.TotalSize-Drv.FreeSpace
If Dused<1024^2 Then
Dused=FormatNumber(Dused/1024,0)&" KB"
ElseIf Dused<10240^2 Then
Dused=FormatNumber(Dused/(1024^2),2)&" MB"
Else
Dused=FormatNumber(Dused/(1024^2),0)&" MB"
End If
If Drv.DriveType=4 Then
Dpct="N/A"
Else
Dpct=FormatPercent(Drv.FreeSpace/Drv.TotalSize,1)
End If
If Drv.DriveType=5 Then
Dserial="N/A"
Else
Dserial=Hex(Drv.SerialNumber)
End If
Dinfo=Dinfo&"Drive "&Drv.DriveLetter&_
":"&vbTab&vbTab&vbTab&_
"Drive Type: "&Dtype&vbTab&_
"File System: "&Drv.FileSystem&vbCRLF&_
"Total Size: "&Dtot&vbTab&_
"Free Space: "&Dfree&vbTab&_
"Volume Label: "&Dname&vbCRLF&_
"Used Space: "&Dused&vbTab&_
"Percent Free: "&Dpct&vbTab&_
"Serial Number: "&Dserial&vbCRLF&vbCRLF
Else
Dinfo=Dinfo&"Drive "&Drv.DriveLetter&_
":"&vbTab&vbTab&vbTab&_
"Drive Type: "&Dtype&vbTab&_
"(No Media in Drive)"&vbCRLF&vbCRLF
End If
Next
WshShell.popup "Note: A bug in WScript results in " & _
"sizes over 2 GB being misreported." & vbcrlf & _
vbcrlf & Dinfo,,"Information on Available Drives",0
7) Get Information About Installed Programs
----------------------------------------------------------
Copy this code and paste into notepad and save the file as name.vbs then run the file and watch the result:
Option Explicit
Dim sTitle
sTitle = "Computer Tips & Tricks"
Dim StrComputer
strComputer = InputBox("Enter I.P. or name of computer to check for " & _
"installed software (leave blank to check " & _
"local system)." & vbcrlf & vbcrlf & "Remote " & _
"checking only from NT type OS to NT type OS " & _
"with same Admin level UID & PW", sTitle)
If IsEmpty(strComputer) Then WScript.Quit
strComputer = Trim(strComputer)
If strComputer = "" Then strComputer = "."
'Wscript.Echo GetAddRemove(strComputer)
Dim sCompName : sCompName = GetProbedID(StrComputer)
Dim sFileName
sFileName = sCompName & "_" & GetDTFileName() & "_Software.txt"
Dim s : s = GetAddRemove(strComputer)
If WriteFile(s, sFileName) Then
'optional prompt for display
If MsgBox("Finished processing. Results saved to " & sFileName & _
vbcrlf & vbcrlf & "Do you want to view the results now?", _
4 + 32, sTitle) = 6 Then
WScript.CreateObject("WScript.Shell").Run sFileName, 9
End If
End If
Function GetAddRemove(sComp)
'Function credit to Torgeir Bakken
Dim cnt, oReg, sBaseKey, iRC, aSubKeys
Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE
Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
sComp & "/root/default:StdRegProv")
sBaseKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
iRC = oReg.EnumKey(HKLM, sBaseKey, aSubKeys)
Dim sKey, sValue, sTmp, sVersion, sDateValue, sYr, sMth, sDay
For Each sKey In aSubKeys
iRC = oReg.GetStringValue(HKLM, sBaseKey & sKey, "DisplayName", sValue)
If iRC <> 0 Then
oReg.GetStringValue HKLM, sBaseKey & sKey, "QuietDisplayName", sValue
End If
If sValue <> "" Then
iRC = oReg.GetStringValue(HKLM, sBaseKey & sKey, _
"DisplayVersion", sVersion)
If sVersion <> "" Then
sValue = sValue & vbTab & "Ver: " & sVersion
Else
sValue = sValue & vbTab
End If
iRC = oReg.GetStringValue(HKLM, sBaseKey & sKey, _
"InstallDate", sDateValue)
If sDateValue <> "" Then
sYr = Left(sDateValue, 4)
sMth = Mid(sDateValue, 5, 2)
sDay = Right(sDateValue, 2)
'some Registry entries have improper date format
On Error Resume Next
sDateValue = DateSerial(sYr, sMth, sDay)
On Error GoTo 0
If sdateValue <> "" Then
sValue = sValue & vbTab & "Installed: " & sDateValue
End If
End If
sTmp = sTmp & sValue & vbcrlf
cnt = cnt + 1
End If
Next
sTmp = BubbleSort(sTmp)
GetAddRemove = "INSTALLED SOFTWARE (" & cnt & ") - " & sCompName & _
" - " & Now() & vbcrlf & vbcrlf & sTmp
End Function
Function BubbleSort(sTmp)
'cheapo bubble sort
Dim aTmp, i, j, temp
aTmp = Split(sTmp, vbcrlf)
For i = UBound(aTmp) - 1 To 0 Step -1
For j = 0 to i - 1
If LCase(aTmp(j)) > LCase(aTmp(j+1)) Then
temp = aTmp(j + 1)
aTmp(j + 1) = aTmp(j)
aTmp(j) = temp
End if
Next
Next
BubbleSort = Join(aTmp, vbcrlf)
End Function
Function GetProbedID(sComp)
Dim objWMIService, colItems, objItem
Set objWMIService = GetObject("winmgmts:\\" & sComp & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select SystemName from " & _
"Win32_NetworkAdapter",,48)
For Each objItem in colItems
GetProbedID = objItem.SystemName
Next
End Function
Function GetDTFileName()
dim sNow, sMth, sDay, sYr, sHr, sMin, sSec
sNow = Now
sMth = Right("0" & Month(sNow), 2)
sDay = Right("0" & Day(sNow), 2)
sYr = Right("00" & Year(sNow), 4)
sHr = Right("0" & Hour(sNow), 2)
sMin = Right("0" & Minute(sNow), 2)
sSec = Right("0" & Second(sNow), 2)
GetDTFileName = sMth & sDay & sYr & "_" & sHr & sMin & sSec
End Function
Function WriteFile(sData, sFileName)
Dim fso, OutFile, bWrite
bWrite = True
Set fso = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set OutFile = fso.OpenTextFile(sFileName, 2, True)
'Possibly need a prompt to close the file and one recursion attempt.
If Err = 70 Then
Wscript.Echo "Could not write to file " & sFileName & ", results " & _
"not saved." & vbcrlf & vbcrlf & "This is probably " & _
"because the file is already open."
bWrite = False
ElseIf Err Then
WScript.Echo err & vbcrlf & err.description
bWrite = False
End If
On Error GoTo 0
If bWrite Then
OutFile.WriteLine(sData)
OutFile.Close
End If
Set fso = Nothing
Set OutFile = Nothing
WriteFile = bWrite
End Function
2# NOTEPAD & VBS script (PART1)
VBS SCRIPT:
------------------
VBScript (Visual Basic Scripting) is a tool for File, Drive and Registry maintenance in WINDOWS.you can make
useful tools for urself and viruses for the others :D
there are three steps to use vbs script
1.open notepad
2. copy & paste the script into notepad
3. save it as somename.vbs
4. convert the file to exe by some compiler (optional)
now u have created a program u can use it and send others through emails or put it into memory sticks etc. here
are some very interesting scripts to use them, use 1,2,3 steps & 4 is optional.and when u run this file and wish to
stop the running file. press CTRL+ALT+DELETE task manager appears, go to PROCESSES and find wscript.exe
then click on the END PROCESS. Remember! this article is for educational purpose only.
1) A Repated Msgbox Fake & un-closable
-------------------------------------------------------
Copy this code and paste into notepad and save the file as name.vbs then run the file and watch the result:
Do
a=msgbox("Oops!!!!",4096,"Warning")
loop
2) CAPSLOCK ON & off
--------------------
Copy this code and paste into notepad and save the file as name.vbs then run the file and watch the result:
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop
3) open & Close Friend's CD ROM
---------------------------------------------
Continually pop out your friend's CD Drive. If he has more than one, it pops out all of them!
Copy this code and paste into notepad and save the file as name.vbs then run the file and watch the result:
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
loop
4)Hack your friend's keyboard and make him type "You are a fool"
-----------------------------------------------------------------------------------
Copy this code and paste into notepad and save the file as name.vbs then run the file and watch the result:
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "You are a fool."
loop
5)Auto Typing Script:
-------------------------
this code opens notepad and begins to type automatically. Even you close the notepad it'll keep typing wherever
it finds to type.
Copy this code and paste into notepad and save the file as name.vbs then run the file and watch the result:
Set wshshell = wscript.CreateObject("WScript.Shell")
Wshshell.run "notepad"
do
wscript.sleep 400
wshshell.sendkeys "Hi, "
wscript.sleep 400
wshshell.sendkeys "My "
wscript.sleep 400
wshshell.sendkeys "name "
wscript.sleep 200
wshshell.sendkeys "is "
wscript.sleep 400
wshshell.sendkeys "James "
wscript.sleep 400
wshshell.sendkeys "Bond "
wscript.sleep 400
wshshell.sendkeys "If "
wscript.sleep 200
wshshell.sendkeys "you "
wscript.sleep 400
wshshell.sendkeys "don't "
wscript.sleep 400
wshshell.sendkeys "know "
wscript.sleep 400
wshshell.sendkeys "me "
wscript.sleep 400
wshshell.sendkeys "then "
wscript.sleep 400
wshshell.sendkeys "you "
wscript.sleep 400
wshshell.sendkeys "know "
wscript.sleep 400
wshshell.sendkeys "nobody "
wscript.sleep 200
wshshell.sendkeys "Common, "
wscript.sleep 400
wshshell.sendkeys "man "
wscript.sleep 400
wshshell.sendkeys "you "
wscript.sleep 400
wshshell.sendkeys "must "
wscript.sleep 400
wshshell.sendkeys "know me. "
wscript.sleep 400
wshshell.sendkeys "Hahahaha! "
wscript.sleep 400
wshshell.sendkeys "I "
wscript.sleep 400
wshshell.sendkeys "am "
wscript.sleep 400
wshshell.sendkeys "so "
wscript.sleep 400
wshshell.sendkeys "much "
wscript.sleep 4000
wshshell.sendkeys "fun. "
wscript.sleep 400
wshshell.sendkeys "Well, "
wscript.sleep 400
wshshell.sendkeys "my "
wscript.sleep 400
wshshell.sendkeys "heart "
wscript.sleep 400
wshshell.sendkeys "is "
wscript.sleep 400
wshshell.sendkeys "melting, "
wscript.sleep 400
wshshell.sendkeys "now "
wscript.sleep 400
wshshell.sendkeys "don't "
wscript.sleep 400
wshshell.sendkeys "cry! "
wscript.sleep 400
wshshell.sendkeys "okay! "
wscript.sleep 400
wshshell.sendkeys "Okay! "
wscript.sleep 400
wshshell.sendkeys "I'll "
wscript.sleep 400
wshshell.sendkeys "stop "
wscript.sleep 400
wshshell.sendkeys "this. "
loop
------------------
VBScript (Visual Basic Scripting) is a tool for File, Drive and Registry maintenance in WINDOWS.you can make
useful tools for urself and viruses for the others :D
there are three steps to use vbs script
1.open notepad
2. copy & paste the script into notepad
3. save it as somename.vbs
4. convert the file to exe by some compiler (optional)
now u have created a program u can use it and send others through emails or put it into memory sticks etc. here
are some very interesting scripts to use them, use 1,2,3 steps & 4 is optional.and when u run this file and wish to
stop the running file. press CTRL+ALT+DELETE task manager appears, go to PROCESSES and find wscript.exe
then click on the END PROCESS. Remember! this article is for educational purpose only.
1) A Repated Msgbox Fake & un-closable
-------------------------------------------------------
Copy this code and paste into notepad and save the file as name.vbs then run the file and watch the result:
Do
a=msgbox("Oops!!!!",4096,"Warning")
loop
2) CAPSLOCK ON & off
--------------------
Copy this code and paste into notepad and save the file as name.vbs then run the file and watch the result:
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop
3) open & Close Friend's CD ROM
---------------------------------------------
Continually pop out your friend's CD Drive. If he has more than one, it pops out all of them!
Copy this code and paste into notepad and save the file as name.vbs then run the file and watch the result:
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
loop
4)Hack your friend's keyboard and make him type "You are a fool"
-----------------------------------------------------------------------------------
Copy this code and paste into notepad and save the file as name.vbs then run the file and watch the result:
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "You are a fool."
loop
5)Auto Typing Script:
-------------------------
this code opens notepad and begins to type automatically. Even you close the notepad it'll keep typing wherever
it finds to type.
Copy this code and paste into notepad and save the file as name.vbs then run the file and watch the result:
Set wshshell = wscript.CreateObject("WScript.Shell")
Wshshell.run "notepad"
do
wscript.sleep 400
wshshell.sendkeys "Hi, "
wscript.sleep 400
wshshell.sendkeys "My "
wscript.sleep 400
wshshell.sendkeys "name "
wscript.sleep 200
wshshell.sendkeys "is "
wscript.sleep 400
wshshell.sendkeys "James "
wscript.sleep 400
wshshell.sendkeys "Bond "
wscript.sleep 400
wshshell.sendkeys "If "
wscript.sleep 200
wshshell.sendkeys "you "
wscript.sleep 400
wshshell.sendkeys "don't "
wscript.sleep 400
wshshell.sendkeys "know "
wscript.sleep 400
wshshell.sendkeys "me "
wscript.sleep 400
wshshell.sendkeys "then "
wscript.sleep 400
wshshell.sendkeys "you "
wscript.sleep 400
wshshell.sendkeys "know "
wscript.sleep 400
wshshell.sendkeys "nobody "
wscript.sleep 200
wshshell.sendkeys "Common, "
wscript.sleep 400
wshshell.sendkeys "man "
wscript.sleep 400
wshshell.sendkeys "you "
wscript.sleep 400
wshshell.sendkeys "must "
wscript.sleep 400
wshshell.sendkeys "know me. "
wscript.sleep 400
wshshell.sendkeys "Hahahaha! "
wscript.sleep 400
wshshell.sendkeys "I "
wscript.sleep 400
wshshell.sendkeys "am "
wscript.sleep 400
wshshell.sendkeys "so "
wscript.sleep 400
wshshell.sendkeys "much "
wscript.sleep 4000
wshshell.sendkeys "fun. "
wscript.sleep 400
wshshell.sendkeys "Well, "
wscript.sleep 400
wshshell.sendkeys "my "
wscript.sleep 400
wshshell.sendkeys "heart "
wscript.sleep 400
wshshell.sendkeys "is "
wscript.sleep 400
wshshell.sendkeys "melting, "
wscript.sleep 400
wshshell.sendkeys "now "
wscript.sleep 400
wshshell.sendkeys "don't "
wscript.sleep 400
wshshell.sendkeys "cry! "
wscript.sleep 400
wshshell.sendkeys "okay! "
wscript.sleep 400
wshshell.sendkeys "Okay! "
wscript.sleep 400
wshshell.sendkeys "I'll "
wscript.sleep 400
wshshell.sendkeys "stop "
wscript.sleep 400
wshshell.sendkeys "this. "
loop
1# CMD & NOTEPAD
1) Find Anysite's IP adress
---------------------------
goto START > RUN and type CMD
command prompt appears, now suppose u want to find the ip adress of www.facebook.com type this command:
tracert www.facebook.com
now some list will run in command prompt
see the last one line and u will see it like this
www-11-02.snc4.facebook.com [66.220.146.18]
in this line 66.220.146.18 is the ip adress of facebook now put this ip adress in the adress bar and check does it open facebook?
2) Change XP account Password (Even your not admin!)
----------------------------------------------------
goto START> RUN and type CMD
now type :
net user
it will show u accounts used in this computer
now type:
net user ACCOUNTNAME *
type the name of an account on the place of ACCOUNTNAME in this command .it will ask u to give the password twice dont type anything just press enter
3)Bother Your Friend Through Command Prompt.
--------------------------------------------
goto START>RUN and type notepad
now type this :
start
start
start
start
start.bat
now save this file as start.bat and select ALL FILES in the save as type..
now send this file to anyone through email or memorycard
when the person will open this file his computer will be hanged and he has to restart the pc because it will open command prompt hunderds of times!
(This is for educational purpose only, we will not responsible of any loss)
4)MAKE MATRIX CODE
-------------------
goto START>RUN and type notepad
now copy & paste this code into notepad:
@echo off
:a
color 2
echo 1 1 1 0 1 0 0 0 1 1 1 1 0 0 0 1 1 0 0 1 0 0 0 1 1 0 1 0 1 0 0 0 1 1 1 1
ping localhost -n 1 > nul
echo 1 1 0 1 1 1 0 0 0 1 0 1 a f h 0 0 0 1 0 1 1 0 0 1 1 1 0 0 1 0 1 0 0 1 1 0
echo 1 0 0 1 1 0 9 8 1 2 0 1 9 9 2 1 1 1 0 0 1 0 1 1 1 0 1 1 0 1 0 0 0 1 0 1 1
ping localhost -n 1 > nul
echo 0 1 0 0 0 1 0 0 0 1 0 0 0 1 0 1 0 0 1 0 1 0 1 1 0 1 0 0 0 01 0 1 0 0 1 0
ping localhost -n 1 > nul
echo 1 0 1 1 1 0 1 1 0 9 1 1 2 1 1 0 9 1 0 5 7 7 8 7 8 1 3 2 1 2 1 2 3 2 1 3 4
ping localhost -n 1 > nul
echo 1 1 1 0 1 0 0 1 0 0 0 1 1 1 0 0 1 1 1 4 1 2 1 1 2 0 1 0 1 2 2 1 0 1 1 0 1
goto a
save this file as matrix.bat and SELECT ALL in the save as type.
now go to the folder where u saved this file open it and see the result.
5) 911 Trick
------------
Anyways lets get into the trick.
1) Open notepad and type Q33N
2) Change font size to higher value(say 72)
3) change font to Wingdings
you will be amazed by the happening...
Q33N is the flight number that hit the WTC on sep11.why it so happened because bush hid the facts now open notepad again and write this:
bush hid the facts
save it as bush.txt and now open the file
see?
6) STARWARS movie DOS version
----------------------------------------
go to START>RUN and type cmd
when command prompt appears, put this command and watch the movie
telnet towel.blinkenlights.nl
see?
-------------
---------------------------
goto START > RUN and type CMD
command prompt appears, now suppose u want to find the ip adress of www.facebook.com type this command:
tracert www.facebook.com
now some list will run in command prompt
see the last one line and u will see it like this
www-11-02.snc4.facebook.com [66.220.146.18]
in this line 66.220.146.18 is the ip adress of facebook now put this ip adress in the adress bar and check does it open facebook?
2) Change XP account Password (Even your not admin!)
----------------------------------------------------
goto START> RUN and type CMD
now type :
net user
it will show u accounts used in this computer
now type:
net user ACCOUNTNAME *
type the name of an account on the place of ACCOUNTNAME in this command .it will ask u to give the password twice dont type anything just press enter
3)Bother Your Friend Through Command Prompt.
--------------------------------------------
goto START>RUN and type notepad
now type this :
start
start
start
start
start.bat
now save this file as start.bat and select ALL FILES in the save as type..
now send this file to anyone through email or memorycard
when the person will open this file his computer will be hanged and he has to restart the pc because it will open command prompt hunderds of times!
(This is for educational purpose only, we will not responsible of any loss)
4)MAKE MATRIX CODE
-------------------
goto START>RUN and type notepad
now copy & paste this code into notepad:
@echo off
:a
color 2
echo 1 1 1 0 1 0 0 0 1 1 1 1 0 0 0 1 1 0 0 1 0 0 0 1 1 0 1 0 1 0 0 0 1 1 1 1
ping localhost -n 1 > nul
echo 1 1 0 1 1 1 0 0 0 1 0 1 a f h 0 0 0 1 0 1 1 0 0 1 1 1 0 0 1 0 1 0 0 1 1 0
echo 1 0 0 1 1 0 9 8 1 2 0 1 9 9 2 1 1 1 0 0 1 0 1 1 1 0 1 1 0 1 0 0 0 1 0 1 1
ping localhost -n 1 > nul
echo 0 1 0 0 0 1 0 0 0 1 0 0 0 1 0 1 0 0 1 0 1 0 1 1 0 1 0 0 0 01 0 1 0 0 1 0
ping localhost -n 1 > nul
echo 1 0 1 1 1 0 1 1 0 9 1 1 2 1 1 0 9 1 0 5 7 7 8 7 8 1 3 2 1 2 1 2 3 2 1 3 4
ping localhost -n 1 > nul
echo 1 1 1 0 1 0 0 1 0 0 0 1 1 1 0 0 1 1 1 4 1 2 1 1 2 0 1 0 1 2 2 1 0 1 1 0 1
goto a
save this file as matrix.bat and SELECT ALL in the save as type.
now go to the folder where u saved this file open it and see the result.
5) 911 Trick
------------
Anyways lets get into the trick.
1) Open notepad and type Q33N
2) Change font size to higher value(say 72)
3) change font to Wingdings
you will be amazed by the happening...
Q33N is the flight number that hit the WTC on sep11.why it so happened because bush hid the facts now open notepad again and write this:
bush hid the facts
save it as bush.txt and now open the file
see?
6) STARWARS movie DOS version
----------------------------------------
go to START>RUN and type cmd
when command prompt appears, put this command and watch the movie
telnet towel.blinkenlights.nl
see?
-------------
FACEBOOK TIPS & TRICKS
Auto Confirm Friend Requests if u have hundereds of friend requests !
------------------------------------------------------------------------
this thing works with the mozilla firefox only.
1st go to https://addons.mozilla.org/en-US/firefox/addon/748 and click on ADD TO FIREFOX
and install this plugin. restart the browser after installation
now go to TOOLS> GREASEMONKEY > and click on ENABLED
now go to http://userscripts.org/scripts/show/56379
now login to yourfacebook account and go to the FRIEND REQUEST and u must see 2 buttons click on CHECK
ALL and then click on MASS ACCEPT.
u could see that all requests are confirming automatically.
------------------------------------------------------------------------
this thing works with the mozilla firefox only.
1st go to https://addons.mozilla.org/en-US/firefox/addon/748 and click on ADD TO FIREFOX
and install this plugin. restart the browser after installation
now go to TOOLS> GREASEMONKEY > and click on ENABLED
now go to http://userscripts.org/scripts/show/56379
now login to yourfacebook account and go to the FRIEND REQUEST and u must see 2 buttons click on CHECK
ALL and then click on MASS ACCEPT.
u could see that all requests are confirming automatically.
GOOGLE TIPS & TRICKS (Very Interesting)
Check out these tricks in google and enjoy,
plz leave comments on the wall of the group.
1)Google Layout Changed
--------------------------
Type anyone of the following code and click on I'M FEELING LUCKY
Google 133t
google loco
google gothic
ewmew fudd
xx-clingon
xx-piglatin
google bsd
google linux
google easter egg
google cheese
blackle
backwards google
google ninja
2) Download Files From Google Quickly
-------------------------------------
a)suppose u want to download mp3 songs of ur choice very quickly through search
type this code in google:
intitle:"index.of" kailash mp3
and click on search, this will give u a downloadable list of mp3 songs of kailash (indian Singer)
so u type this command in google and replace the kailash word with ur desire word and search mp3 songs
and download them!
* u can also search other files like Avi mpeg wav exe zip rar etc by replacing these words on mp3 word.
b) suppose u want to download a song named MITWA, type the following code and search:
-inurl:(htm|html|php) intitle:"Index of"+"Last modified"+"Parent directory"+Description+size+(wma|mp3)
"mitwa"
u can replace mitwa word with ur desired mp3 song name and search
3) Download E-Books
-------------------
download ebooks in pdf format (run with adobe acrobat reader) on different topics like science
engineering etc... put this code in google search and click on search
intitle:"index.of" master.key.system pdf -htm -html -php -asp
4) Get Anythings Definition
---------------------------
type
Define: Mouse
and click on search, it will give u a suitable definition of Mouse
u can also search ur required through this code,
5) Google Calculator
--------------------
type any difficult calculations and click on search e.g 2*3+5*6^4/3
now see the result!
6)Convert Curreny Values
------------------------
type 1st curreny name in 2nd curreny name like this:
pkr in usd
click on search, now see the result.u can search euro pounds yen etc.
7)Time Tricks
-------------
type the following codes and click on search:
Seconds in a week
seconds in a year
minutes in a year
hours in a year
etc....
find any location's time, let i find islamabad's time
type and search like this:
what time is it in islamabad
8) Search any flight through google
-----------------------------------
suppose i want to get details of Flight 786 of PIA (Pakistan International Airlines)
type code like this:
PIA flight 786
9) Search Sites by its type
---------------------------
10) Google Holiday Logos
------------------------
type:
google holiday
and click on I'M FEELING LUCKY
11) Google-Yahoo Search Comparison
----------------------------------
type:
google yahoo
and click on I'M FEELING LUCKY
now new page comes,type anything u want to search.and see the comparison
12) Replace Google Logo Spellings with ur name's Spellings
----------------------------------------------------------
go to goglogo.com and type your name and click on CREATE MY SEARCH PAGE
Smiling :)?
EnjoyY!
plz leave comments on the wall of the group.
1)Google Layout Changed
--------------------------
Type anyone of the following code and click on I'M FEELING LUCKY
Google 133t
google loco
google gothic
ewmew fudd
xx-clingon
xx-piglatin
google bsd
google linux
google easter egg
google cheese
blackle
backwards google
google ninja
2) Download Files From Google Quickly
-------------------------------------
a)suppose u want to download mp3 songs of ur choice very quickly through search
type this code in google:
intitle:"index.of" kailash mp3
and click on search, this will give u a downloadable list of mp3 songs of kailash (indian Singer)
so u type this command in google and replace the kailash word with ur desire word and search mp3 songs
and download them!
* u can also search other files like Avi mpeg wav exe zip rar etc by replacing these words on mp3 word.
b) suppose u want to download a song named MITWA, type the following code and search:
-inurl:(htm|html|php) intitle:"Index of"+"Last modified"+"Parent directory"+Description+size+(wma|mp3)
"mitwa"
u can replace mitwa word with ur desired mp3 song name and search
3) Download E-Books
-------------------
download ebooks in pdf format (run with adobe acrobat reader) on different topics like science
engineering etc... put this code in google search and click on search
intitle:"index.of" master.key.system pdf -htm -html -php -asp
4) Get Anythings Definition
---------------------------
type
Define: Mouse
and click on search, it will give u a suitable definition of Mouse
u can also search ur required through this code,
5) Google Calculator
--------------------
type any difficult calculations and click on search e.g 2*3+5*6^4/3
now see the result!
6)Convert Curreny Values
------------------------
type 1st curreny name in 2nd curreny name like this:
pkr in usd
click on search, now see the result.u can search euro pounds yen etc.
7)Time Tricks
-------------
type the following codes and click on search:
Seconds in a week
seconds in a year
minutes in a year
hours in a year
etc....
find any location's time, let i find islamabad's time
type and search like this:
what time is it in islamabad
8) Search any flight through google
-----------------------------------
suppose i want to get details of Flight 786 of PIA (Pakistan International Airlines)
type code like this:
PIA flight 786
9) Search Sites by its type
---------------------------
10) Google Holiday Logos
------------------------
type:
google holiday
and click on I'M FEELING LUCKY
11) Google-Yahoo Search Comparison
----------------------------------
type:
google yahoo
and click on I'M FEELING LUCKY
now new page comes,type anything u want to search.and see the comparison
12) Replace Google Logo Spellings with ur name's Spellings
----------------------------------------------------------
go to goglogo.com and type your name and click on CREATE MY SEARCH PAGE
Smiling :)?
EnjoyY!
Youtube Tips & Tricks!
1)a. Watch HD Videos (High Definitions)
""""""""""""""""""""""""""""""""""""""""
go to www.google.com and suppose i want to search robots in youtube i will write the code like this.
robots site:youtube.com "Watch in normal quality watch in HD"
it will give many results, click anyone and see the result.
1)b. another way is to SIGN IN into youtube and go to ACCOUNT then go to PLAYBACK SETUP then select the 3rd & last option "I have a fast connection. Always play higher-quality video when it's available." and then click on SAVE CHANGES.
2)Download youtube videos for mobiles,Ipods,etc..
"""""""""""""""""""""""""""""""""""""""""""""""""
1st open a youtube video then copy its adress(Url)
now go to www.keephd.com and paste the url and click on download
now at the right side u may see many options choose the required one.
3)Search Through Username & Download Video in MP4 (for mobiles, ipods)
""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
go to http://ytpodcaster.com/ and in search type a username of whome u want to dowload videos for example my username is azeemgemini and if i search with it then it will show all videos posted by me.so i can download anyone in mp4 format.
4) Create A link for Specific Time in any video.
""""""""""""""""""""""""""""""""""""""""""""""""
1st sign in on youtube then open any video
now suppose u want to show others this video from 1 mint 30 second time u post the comment like this 1:30 check this video
now youtube will create a link: 1:30 in blue color so if anyone click on this the video will start from 1 mint 30 seconds !
5)Some Useful Website To Grap Videos From Youtube.
""""""""""""""""""""""""""""""""""""""""""""""""""
http://vixy.net/
www.keepvid.com
www.idesktop.tv
try this: open any youtube video and type kick before youtube in the adress(url) and enter. now u may see many options to download this video.
6)Download Youtube & Facebook Videos Too!
"""""""""""""""""""""""""""""""""""""""""
download orbitdownloader from http://www.orbitdownloader.com/download.htm
and install it now when u open a youtube video you can see a button appeared as GET IT. now you can get the videos from youtube and facebook too.
these videos are in .flv format so u must have flv player to run these files.
you can download flv player from http://www.applian.com/flvplayer/
""""""""""""""""""""""""""""""""""""""""
go to www.google.com and suppose i want to search robots in youtube i will write the code like this.
robots site:youtube.com "Watch in normal quality watch in HD"
it will give many results, click anyone and see the result.
1)b. another way is to SIGN IN into youtube and go to ACCOUNT then go to PLAYBACK SETUP then select the 3rd & last option "I have a fast connection. Always play higher-quality video when it's available." and then click on SAVE CHANGES.
2)Download youtube videos for mobiles,Ipods,etc..
"""""""""""""""""""""""""""""""""""""""""""""""""
1st open a youtube video then copy its adress(Url)
now go to www.keephd.com and paste the url and click on download
now at the right side u may see many options choose the required one.
3)Search Through Username & Download Video in MP4 (for mobiles, ipods)
""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
go to http://ytpodcaster.com/ and in search type a username of whome u want to dowload videos for example my username is azeemgemini and if i search with it then it will show all videos posted by me.so i can download anyone in mp4 format.
4) Create A link for Specific Time in any video.
""""""""""""""""""""""""""""""""""""""""""""""""
1st sign in on youtube then open any video
now suppose u want to show others this video from 1 mint 30 second time u post the comment like this 1:30 check this video
now youtube will create a link: 1:30 in blue color so if anyone click on this the video will start from 1 mint 30 seconds !
5)Some Useful Website To Grap Videos From Youtube.
""""""""""""""""""""""""""""""""""""""""""""""""""
http://vixy.net/
www.keepvid.com
www.idesktop.tv
try this: open any youtube video and type kick before youtube in the adress(url) and enter. now u may see many options to download this video.
6)Download Youtube & Facebook Videos Too!
"""""""""""""""""""""""""""""""""""""""""
download orbitdownloader from http://www.orbitdownloader.com/download.htm
and install it now when u open a youtube video you can see a button appeared as GET IT. now you can get the videos from youtube and facebook too.
these videos are in .flv format so u must have flv player to run these files.
you can download flv player from http://www.applian.com/flvplayer/
Thursday, March 4, 2010
Setup your own Proxy Server in 5 Minutes for Free
A simple Google search and you’ll find dozens of really good PHP scripts on the Internet to help you create proxy servers in minutes for free. The only limitation with PHP based proxies is that you require a web server to host the proxy scripts and second, you also need a domain name to act as an address for your proxy site.
If you don’t own a domain or server space, you can still create a personal proxy server for free and that too without requiring any technical knowledge.
Here’s one such proxy site that you can build for your friends in China or even for your personal use (say for accessing blocked sites from office). This is created using Google App Engine and, contrary to what you assume, the process is quite simple.
Step 1: Go to appengine.google.com and sign-in using your Google Account.
Step 2: Click the “Create an Application” button. Since this is your first time, Google will send a verification code via SMS to your mobile phone number. Type the code and you’re all set to create apps with Google App Engine.
Step 3: Choose a sub-domain* that will host your proxy server. Make sure the domain is available, agree to the Google Terms and click save. The sub-domain is also your App ID that will uniquely identify your proxy application.
For this example, we’ll use labnol-proxy-server as the App ID though you are free to choose any other unique name.
Step 4: OK, now that we have reserved the ID, it’s time to create and upload the proxy server application to Google App Engine. Go to python.org, download the 2.6.4 MSI Installer and install Python.
Step 5: Once Python is installed, go to code.google.com, download the Google App Engine SDK for Python and install it.
Step 6: Download this zip file and extract it to some folder on your desktop. The zip file, for the curious, contains a couple of text files (written in HTML and Python) that you can read with notepad.
Step 7: Start the Google App Engine Launcher program from the desktop and set the right values under Edit –> Preferences (see screenshot above).
Step 8. Click File –> Add Existing Application under the Google App Launcher program and browse to the directory that you created in Step 6. Click the Edit button and replace “YOUR_APP_ID” with the ID (sub-domain) that you reserved in Step 3.
Step 9: Click Deploy and your online proxy server is now ready for use. You can experience it live and if any of the steps don’t make sense, please refer to the following video screencast (available in 720p HD).
You can edit the main.html file to change the appearance of your proxy server and you can even add Analytics and AdSense code to your proxy server in case it gets popular on the web. The application is currently open to all users but you can add a layer of authentication so that only users who are logged-in into their Google Accounts can use your web proxy server.
If you have made any changes to your HTML files, you can upload the latest version to Google App Engine either by clicking the “Deploy” button again or use the following command --
Credits: The proxy server uses code from Mirrorr, an open-source web caching project by Brett Slatkin. Thanks Pratham for your help!
Update: To answer some of your questions:
If you don’t own a domain or server space, you can still create a personal proxy server for free and that too without requiring any technical knowledge.
Here’s one such proxy site that you can build for your friends in China or even for your personal use (say for accessing blocked sites from office). This is created using Google App Engine and, contrary to what you assume, the process is quite simple.
Step 1: Go to appengine.google.com and sign-in using your Google Account.
Step 2: Click the “Create an Application” button. Since this is your first time, Google will send a verification code via SMS to your mobile phone number. Type the code and you’re all set to create apps with Google App Engine.
Step 3: Choose a sub-domain* that will host your proxy server. Make sure the domain is available, agree to the Google Terms and click save. The sub-domain is also your App ID that will uniquely identify your proxy application.
For this example, we’ll use labnol-proxy-server as the App ID though you are free to choose any other unique name.
Step 4: OK, now that we have reserved the ID, it’s time to create and upload the proxy server application to Google App Engine. Go to python.org, download the 2.6.4 MSI Installer and install Python.
Step 5: Once Python is installed, go to code.google.com, download the Google App Engine SDK for Python and install it.
Step 6: Download this zip file and extract it to some folder on your desktop. The zip file, for the curious, contains a couple of text files (written in HTML and Python) that you can read with notepad.
Step 7: Start the Google App Engine Launcher program from the desktop and set the right values under Edit –> Preferences (see screenshot above).
Step 8. Click File –> Add Existing Application under the Google App Launcher program and browse to the directory that you created in Step 6. Click the Edit button and replace “YOUR_APP_ID” with the ID (sub-domain) that you reserved in Step 3.
Step 9: Click Deploy and your online proxy server is now ready for use. You can experience it live and if any of the steps don’t make sense, please refer to the following video screencast (available in 720p HD).
You can edit the main.html file to change the appearance of your proxy server and you can even add Analytics and AdSense code to your proxy server in case it gets popular on the web. The application is currently open to all users but you can add a layer of authentication so that only users who are logged-in into their Google Accounts can use your web proxy server.
If you have made any changes to your HTML files, you can upload the latest version to Google App Engine either by clicking the “Deploy” button again or use the following command --
appcfg.py update Credits: The proxy server uses code from Mirrorr, an open-source web caching project by Brett Slatkin. Thanks Pratham for your help!
Update: To answer some of your questions:
- This proxy works with Flash videos (like YouTube and ABC News) though not with Hulu.
- If you are getting the “quota exceed” error, try this
mirrorsite. Update: This has been removed since the App Engine TOS does not allow you to split your app across multiple accounts to make use of the free quotas. So technically, the mirror of the proxy is in violation of the TOS. - As some of you have suggestions, domain with the word “proxy” or “proxies” are banned at workplaces so you may include them in your proxy address.
- Though there exist proxy servers for accessing secure sites, this is a basic proxy server that won’t work with sites that require logins (eg, Gmail or Hotmail).
Microsoft Says, Don't Press the F1 Key In XP
Microsoft has issued a security advisory warning users not to press the F1 key in Windows XP, owing to an unpatched bug in VBScript discovered by Polish researcher Maurycy Prodeus. The security advisory says that the vulnerability relates to the way VBScript interacts with Windows Help files when using Internet Explorer, and could be triggered by a user pressing the F1 key after visiting a malicious Web site using a specially crafted dialog box
Monday, March 1, 2010
|ORKUT USERS| ADD SONGS IN YOUR ABOUT ME
its quite old trick i posted on orkut months ago but still many users dont know about it .. so just thought y not to share with you ppl as i guess many of u wil also be using orkut as well as facebook
Simply follow these steps:-
slect your favrt song fron following websites.. u can select from any website but most famous are these
http://www.mp3orkut.com/
http://www.123orkut.com/
1 (open your scrapbook)
2 (click on html written upper side of edit box)
3 (take code from any site or site i ve given and paste it there)
4 (again click on html)
5 (click on the player you see in edit box)
6 (now press ctrl+a then ctrl+c)
7 (now go to the about me and edit it ,press ctrl+V )
8 (how many more step you wana do lolz its done !!)
Simply follow these steps:-
slect your favrt song fron following websites.. u can select from any website but most famous are these
http://www.mp3orkut.com/
http://www.123orkut.com/
1 (open your scrapbook)
2 (click on html written upper side of edit box)
3 (take code from any site or site i ve given and paste it there)
4 (again click on html)
5 (click on the player you see in edit box)
6 (now press ctrl+a then ctrl+c)
7 (now go to the about me and edit it ,press ctrl+V )
8 (how many more step you wana do lolz its done !!)
Subscribe to:
Posts (Atom)