Hiç Yapılmamış - Mantıklı Program [İSTEK - ANLATIM]

Alcatraztc · 17 Haz 2013

Aklımdaki Program
----------------------------

- Bir txt dosyası oluşturacağım , belirli şifreler gireceğim.

ÖRN: 123456789

------

Facebook Kullanıcı Adı veya E-posta'yı yazıp , şifre listesini seçip şifreyi teker teker deneteceğim.

Doğru Olduğunda İse Mesaj Verecek.

-------

Program bilgim bunu yapmaya yetmiyor.

Yapabilen arkadaşlar source veya normal olarak paylaşırlarsa sevinirim.

ali0254 · 19 Haz 2013

Tıkla o zaman.

Alcatraztc · 19 Haz 2013

AliKoklu0' Alıntı:
Tıkla o zaman.

Senin yaptığın saygısızlıktan başka birşey değil.

3-4 gündür biz ugraşıyoruz senin yaptığına bak.

Gereğini yaptıracağım.

Heyapple · 19 Haz 2013

CMLYKL' Alıntı:
İşte öle bi kod yazılacak ki o sayfaya gidildimi tekrar facebook anasayfasına atıcak. Yok mu o kadar bilgisi olan. Ben araştırıcam yine bakalım bulabilicez mi?

kardeş o fake facebook değil mi ? bende var onun kodlarını istiyorsan söle

CMLYKL · 19 Haz 2013

Alcatraztc' Alıntı:
Kardeşim senin kodları denedim , sadece facebook girişi yapıyor.

Önemli olan programa şifrelerin olduğu metin ekleyebilmek ve şifreleri otomatik denemesini sağlamak.

Tamam ben diyorum ki text2.text yazan yere kodla txt yi bağlasınar o kadarını yapamıyorum işte yapabilsem.
Bide başka bi sayfaya atıyoduya onuda haledicem aklıma bişey geldi. Ama şu an işim var daha sonra halledicem.

CMLYKL · 19 Haz 2013

Heyapple' Alıntı:
kardeş o fake facebook değil mi ? bende var onun kodlarını istiyorsan söle

Ya benim istediğim o sayfaya atınca facebook.com/ adresine tekrar gitsin onu sağlamalıyız
VB6 da webbrowser1 kodlarıyla

Alcatraztc · 19 Haz 2013

AliKoklu0' Alıntı:
Senin bu tavrın beni gıcık etti.Yazımı okumuyormusun nedir hiç yazdığımı ters anlıyorsun.Ben program saçma değil diyorum sen daha diyorsun bana ben saçma demedim ki bir kere swf iyi oldu tam senlik.

Ne kadar basit bir program olsada , işe yarayacaktır.

Senin attığın bu swf , program üzerinde çalışanların hevesini kırıyor.

Gereğinin yapılması için Administrator'e mesaj attım.

Alcatraztc · 19 Haz 2013

CMLYKL' Alıntı:
Ya benim istediğim o sayfaya atınca facebook.com/ adresine tekrar gitsin onu sağlamalıyız
VB6 da webbrowser1 kodlarıyla

Kardeşim senin bu programı yapabileceğine gerçekten inanmaya başladım

Sınırları zorlamaya devam et.

Alcatraztc · 19 Haz 2013

Heyapple' Alıntı:
kardeş o fake facebook değil mi ? bende var onun kodlarını istiyorsan söle

Fake felan değil kardeşim webbrowser üzerinden facebook'a giriş yapıyor.

CMLYKL · 19 Haz 2013

Alcatraztc' Alıntı:
Kardeşim senin bu programı yapabileceğine gerçekten inanmaya başladım

Sınırları zorlamaya devam et.

SEn bana textbox2 ye nasıl txt dosyasını bağıyacağımızı bul gerisi bende

Allahın izniyle yapıcaz

PRogramlama bilgim yok internetten bakıyom herşeye kodlara filan birazdan kodları inceliyecem am şuan işim var.

CMLYKL · 19 Haz 2013

AliKoklu0' Alıntı:
Bence bir kaç gönüllü topla ziyaretçi emsajları böümünden konuşursunuz onlarla yap burdanda yardım iste bu kod nasıl oluyor falan diye post kasıyorsunuz böyle.

Adama yardım etmeye çalışıyoruz Burası yardım bölümü değilmi?
Kodların nasıl olduğu hakkında yardımlaşıyoruz.

CMLYKL · 19 Haz 2013

Bu konuya yardım et yoksa post kasma

Alcatraztc · 19 Haz 2013

Aynen , yardım etmiyeceksen boş yorum atma.

Biz post kasmıyoruz yardımlaşarak bitirmeye çalışıyoruz.

Alcatraztc · 19 Haz 2013

CMLYKL' Alıntı:
SEn bana textbox2 ye nasıl txt dosyasını bağıyacağımızı bul gerisi bende
Allahın izniyle yapıcaz

PRogramlama bilgim yok internetten bakıyom herşeye kodlara filan birazdan kodları inceliyecem am şuan işim var.

Tamam şu .txt dosyasını halletmeye çalışayım.

Alcatraztc · 19 Haz 2013

Tıkla Git

Açıklayamadım , yardım et.

CMLYKL · 19 Haz 2013

Arkadaşlar kodları böle hazırladım ama programı açınca benim pc kasıyo. KOdlarda yapmak istediğim şey facebook.com/login.php?login_attempt=1 açılınca facebook ana sayfasına atsın ama benim pc dondu siz denermisiniz.

Kod:

Option Explicit

 Private Sub Command1_Click()
 WebBrowser1.********.All.Item("email").Value = Text1.Text
 WebBrowser1.********.All.Item("pass").Value = Text2.Text
 WebBrowser1.********.All.Item("login").Click
 End Sub

 Private Sub Form_Load()
  WebBrowser1.Navigate "https://www.facebook.com/login.php"
 WebBrowser1.Silent = True
 End Sub

 Private Sub Form_Unload(Cancel As Integer)
 End
 End Sub

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
If WebBrowser1.********URL = "https://www.facebook.com/login.php?login_attempt=1" Then
Else
WebBrowser1.Navigate "https://www.facebook.com/login.php"
End If
End Sub

Hiç açık program yazan yok mu programın mantığı kolay lütfen yardım edin.

Heyapple · 19 Haz 2013

kardeş 4 gündür uğraşıyorsunuz inşallah güzel bi program olr

Alcatraztc · 19 Haz 2013

Heyapple' Alıntı:
kardeş 4 gündür uğraşıyorsunuz inşallah güzel bi program olr

Sağol kardeşim.

Alcatraztc · 19 Haz 2013

CMLYKL' Alıntı:
Arkadaşlar kodları böle hazırladım ama programı açınca benim pc kasıyo. KOdlarda yapmak istediğim şey facebook.com/login.php?login_attempt=1 açılınca facebook ana sayfasına atsın ama benim pc dondu siz denermisiniz.

Kod:

Option Explicit Private Sub Command1_Click() WebBrowser1.********.All.Item("email").Value = Text1.Text WebBrowser1.********.All.Item("pass").Value = Text2.Text WebBrowser1.********.All.Item("login").Click End Sub Private Sub Form_Load() WebBrowser1.Navigate "https://www.facebook.com/login.php" WebBrowser1.Silent = True End Sub Private Sub Form_Unload(Cancel As Integer) End End Sub Private Sub WebBrowser1_StatusTextChange(ByVal Text As String) If WebBrowser1.********URL = "https://www.facebook.com/login.php?login_attempt=1" Then Else WebBrowser1.Navigate "https://www.facebook.com/login.php" End If End Sub

Hiç açık program yazan yok mu programın mantığı kolay lütfen yardım edin.

Ben bi deniyeyim.

CMLYKL · 19 Haz 2013

Birde böle denermisin *'lı yerlerden d o c u m e n t yazıyor.
En alttakindede l o c a t i o n yazıyor.
Boşlukları silmeyi unutma.

Kod:

Option Explicit

 Private Sub Command1_Click()
 WebBrowser1.********.All.Item("email").Value = Text1.Text
 WebBrowser1.********.All.Item("pass").Value = Text2.Text
 WebBrowser1.********.All.Item("login").Click
 End Sub

 Private Sub Form_Load()
  WebBrowser1.Navigate "https://www.facebook.com"
 WebBrowser1.Silent = True
 End Sub

 Private Sub Form_Unload(Cancel As Integer)
 End
 End Sub

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
If WebBrowser1.********URL = "https://www.facebook.com/login.php?login_attempt=1" Then
Else
WebBrowser1.Navigate "https://www.facebook.com"
End If
End Sub

Alcatraztc · 19 Haz 2013

CMLYKL' Alıntı:

Birde böle denermisin *'lı yerlerden d o c u m e n t yazıyor.
En alttakindede l o c a t i o n yazıyor.
Boşlukları silmeyi unutma.

Kod:

Option Explicit

 Private Sub Command1_Click()
 WebBrowser1.********.All.Item("email").Value = Text1.Text
 WebBrowser1.********.All.Item("pass").Value = Text2.Text
 WebBrowser1.********.All.Item("login").Click
 End Sub

 Private Sub Form_Load()
  WebBrowser1.Navigate "https://www.facebook.com"
 WebBrowser1.Silent = True
 End Sub

 Private Sub Form_Unload(Cancel As Integer)
 End
 End Sub

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
If WebBrowser1.********URL = "https://www.facebook.com/login.php?login_attempt=1" Then
Else
WebBrowser1.Navigate "https://www.facebook.com"
End If
End Sub

Hata alıyorum.

Hiç Yapılmamış - Mantıklı Program [İSTEK - ANLATIM]

Katılımcı Üye

Katılımcı Üye

Katılımcı Üye

Uzman üye

Uzman üye

Uzman üye

Katılımcı Üye

Katılımcı Üye

Katılımcı Üye

Uzman üye

Uzman üye

Uzman üye

Katılımcı Üye

Katılımcı Üye

Katılımcı Üye

Uzman üye

Uzman üye

Katılımcı Üye

Katılımcı Üye

Uzman üye

Katılımcı Üye