Facebook auto message |
4 Mesajlar | 2.527 Okunma | ||
- Üyelik 25.06.2011
- Yaş/Cinsiyet 30 / E
- Meslek Blogger
- Konum Samsun
- Ad Soyad F** Ö**
- Mesajlar 2462
- Beğeniler 98 / 442
- Ticaret 2, (%100)
Arkadaşlar bugün yolda yürürken aklıma birşey geldi. Şimdi facebook açıkken size biri birşey yazınca hiç bir müdahale yapmadan direkt klavyeden birşey yazdığınızda sohbete yazmaya başlıyor. Demek istediğim şu, programda bir textbox olacak ne yazmasını isityorsanız oraya yazacaksınız ve bilgisayarı serbest bırakacaksınız o otomatik 10 saniyede bir yazacak. Biri de size birşey yazınca o zaten yazıyordu ya işte onu sohbete yazacak ama karşıdaki adam çevrimdışı olsa bile yine yazmaya devam edecek :D O kısma bir çözüm bulamadım.
Are you alright?
- Üyelik 05.06.2011
- Yaş/Cinsiyet 30 / E
- Meslek Yazılım Tek.
- Konum Ankara
- Ad Soyad A** A**
- Mesajlar 2867
- Beğeniler 54 / 747
- Ticaret 25, (%100)
İşlem çok basit aslında autoitx3 kullanmamız yeterli olacaktır.
Dim yolla As New AutoItX3Lib.AutoItX3 'form un en üstüne eklenecek kod. Yani yazı yazdırmamız için gerekli
Private Sub Command1_Click()
Timer1.Enabled = True ' timer yani flood mesajını başlatır
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False ' timer yani flood mesajını durdurur
End Sub
Private Sub Timer1_Timer()
yolla.Send textbox.Text ' facebookda kullanıcıya gönderilecek yazıdır
yolla.Send ("{ENTER}") ' kullanıcıya yazıyı ulaştırması için enter tuşuna baslması gerkir :)
End
Örnek bir resim:
Örnek bir proje: www.kodlabs.org
Dim yolla As New AutoItX3Lib.AutoItX3 'form un en üstüne eklenecek kod. Yani yazı yazdırmamız için gerekli
Private Sub Command1_Click()
Timer1.Enabled = True ' timer yani flood mesajını başlatır
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False ' timer yani flood mesajını durdurur
End Sub
Private Sub Timer1_Timer()
yolla.Send textbox.Text ' facebookda kullanıcıya gönderilecek yazıdır
yolla.Send ("{ENTER}") ' kullanıcıya yazıyı ulaştırması için enter tuşuna baslması gerkir :)
End
Örnek bir resim:
Örnek bir proje: www.kodlabs.org
- Üyelik 25.06.2011
- Yaş/Cinsiyet 30 / E
- Meslek Blogger
- Konum Samsun
- Ad Soyad F** Ö**
- Mesajlar 2462
- Beğeniler 98 / 442
- Ticaret 2, (%100)
Çok teşekkür ederim kardeşim sağolasın hemen deniyorum.
Are you alright?
- Üyelik 05.06.2011
- Yaş/Cinsiyet 30 / E
- Meslek Yazılım Tek.
- Konum Ankara
- Ad Soyad A** A**
- Mesajlar 2867
- Beğeniler 54 / 747
- Ticaret 25, (%100)
önemli değil iyi çalışmalar.
