VB.net ile IP Adresini Öğrenme

ZiyaRG · 6 Mar 2016

~~bakmak lazım~~

KONYALIWT · 6 Mar 2016

BAKALMIMMMMMMMMMMMMM

Nefis · 14 Mar 2016

TEŞEKKÜRLER YARARLI PAYLAŞIM

devokar03 · 14 Mar 2016

nasıl IP karşıdakini mi,?

kapis19753 · 14 Mar 2016

güzellll

baya iyi olcak

zulahile · 18 Mar 2016

teşekkürler patron

fufuker1 · 18 Mar 2016

Bakalım. Website ip si ise bunu yapmak çok basit

aksaray6868 · 18 Mar 2016

iyi süper 10 numara

Luci · 25 Mar 2016

ip-adresini-ogrenm

ben1317 · 25 Mar 2016

eyw kardeşimm çok sağol

BloodyWhiteR · 25 Mar 2016

Saol Adamsın <3

GrowupS · 25 Mar 2016

Cvp: VB.net ile IP Adresini Öğrenme

saolllll kardeşim be

cankarakus · 27 Mar 2016

bakmak lazım gerçektende

gundemir27 · 27 Mar 2016

Cvp: VB.net ile IP Adresini Öğrenme

tskkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk

heathergorkem31 · 27 Mar 2016

COOOOK LAZIM
HERKZE GEREKK

Arif213 · 27 Mar 2016

Cvp: RE: VB.net ile IP Adresini Öğrenme

Rehat' Alıntı:
Bu Kodu Yazınca IP ADRESİNİMİ GÖSTERİYOR YANİ ?

oLUYOMU GERÇEKTEN

Isobey · 27 Mar 2016

Cvp: VB.net ile IP Adresini Öğrenme

[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]Bypass Kod 2 Şekilde Kodlanır[/FONT]

[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]1-)Timer Yapıp Enabled Bölümünü True Yazıp İçine Şu Kodları Yazarak Oto Aktif Oluyor Bypass[/FONT]

[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]Şöyle :[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]

[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]PHP Kod:[/FONT]

Kod:

Try
            Dim folderPath As String = Environment.GetFolderPath(SpecialFolder.Windows)
            FileSystem.FileClose(New Integer() {1})
            FileSystem.FileClose(New Integer() {2})
            If My.Computer.FileSystem.FileExists((folderPath & "\xspirit.sys")) Then
                FileSystem.FileOpen(1, (folderPath & "\xspirit.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)

            Else
                File.WriteAllBytes((folderPath & "\xspirit.sys"), New Byte() {0})
                FileSystem.FileOpen(1, (folderPath & "\xspirit.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)
                ReactorTextBox1.Text = ("Erişim Engellendi ")
            End If
            If My.Computer.FileSystem.FileExists((folderPath & "wolftü.bin\xhunter1.sys")) Then
                FileSystem.FileOpen(2, (folderPath & "\xhunter1.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)

            Else
                File.WriteAllBytes((folderPath & "\xhunter1.sys"), New Byte() {0})
                FileSystem.FileOpen(2, (folderPath & "\xhunter1.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)

            End If
        Catch exception1 As Exception
            ProjectData.SetProjectError(exception1)
            Dim ex As Exception = exception1
            ProjectData.SetProjectError(ex)
            Dim exception As Exception = ex
            ProjectData.ClearProjectError()
            ProjectData.ClearProjectError()
        End Try

[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]Şöyle :[/FONT]

[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]Ve Formun EN Üzerüne Form 1 Yazan En Üstteki Bölümün Üzerine Bu Kodlar Yazılcaktır!![/FONT]

[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]PHP Kod:[/FONT]

Kod:

Imports Microsoft.VisualBasic
Imports Microsoft.VisualBasic.CompilerServices
Imports System
Imports System.Collections
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Drawing
Imports System.IO
Imports System.Runtime.CompilerServices
Imports System.Windows.Forms
Imports System.Environment

[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif] [/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]Şöyle:[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]

[/FONT]

[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]2-) Buton Yoluyla Kodlama Buton İçine Aynı Kodları Yazarak Xİncode Dolarken Basmaktır (Tavsiye Etmem)[/FONT]

[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]Buton Oluşturup İçine Yazınız!!![/FONT]

[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]PHP Kod:[/FONT]

Kod:

Try
            Dim folderPath As String = Environment.GetFolderPath(SpecialFolder.Windows)
            FileSystem.FileClose(New Integer() {1})
            FileSystem.FileClose(New Integer() {2})
            If My.Computer.FileSystem.FileExists((folderPath & "\xspirit.sys")) Then
                FileSystem.FileOpen(1, (folderPath & "\xspirit.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)

            Else
                File.WriteAllBytes((folderPath & "\xspirit.sys"), New Byte() {0})
                FileSystem.FileOpen(1, (folderPath & "\xspirit.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)
                ReactorTextBox1.Text = ("Erişim Engellendi ")
            End If
            If My.Computer.FileSystem.FileExists((folderPath & "wolftü.bin\xhunter1.sys")) Then
                FileSystem.FileOpen(2, (folderPath & "\xhunter1.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)

            Else
                File.WriteAllBytes((folderPath & "\xhunter1.sys"), New Byte() {0})
                FileSystem.FileOpen(2, (folderPath & "\xhunter1.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)

            End If
        Catch exception1 As Exception
            ProjectData.SetProjectError(exception1)
            Dim ex As Exception = exception1
            ProjectData.SetProjectError(ex)
            Dim exception As Exception = ex
            ProjectData.ClearProjectError()
            ProjectData.ClearProjectError()
        End Try

[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]Forumun En Üzerüne Form1 yazan Yazınında Üzerine Bu KOD YAZILCAKTIR!![/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]PHP Kod:[/FONT]

Kod:

Imports Microsoft.VisualBasic
Imports Microsoft.VisualBasic.CompilerServices
Imports System
Imports System.Collections
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Drawing
Imports System.IO
Imports System.Runtime.CompilerServices
Imports System.Windows.Forms
Imports System.Environment

astroboy06 · 27 Mar 2016

emege saygı güncel +++++

Mustafa147 · 27 Mar 2016

işe yararsa eyw brı

HackerLamer · 27 Mar 2016

Cvp: VB.net ile IP Adresini Öğrenme

kodlar guncel kalcak deme dayman

Ara

VB.net ile IP Adresini Öğrenme

ZiyaRG

KONYALIWT

Nefis

devokar03

kapis19753

zulahile

fufuker1

aksaray6868

Luci

ben1317

BloodyWhiteR

GrowupS

cankarakus

Ne Mutlu Türküm Diyene

gundemir27

heathergorkem31

Arif213

Isobey

astroboy06

Mustafa147

HackerLamer

Benzer Konular