Çözüldü Otomatik Twitter Atma Uygulaması hk,

TiOr · 18 Mar 2023

Merhaba Kıymetli Üstatlarım,
Gerek formu gerekse wep üzerinden baya bir araştırma yaptım ama bulamadım.
Otomatik seri bir şekilde twit atan bir excel uygulaması mevcut mudur?
Mevcutta yok ise yapılabilme ihtimali varmıdır?
Bilgi ve desteklerinizi talep eder, hayırlı akşamlar dilerim.

Saygılarımla,

TiOr · 20 Mar 2023

Youtube de aşağıdaki video var;

Bahsettiği gibi yapıyorum ama aşağıda da göreceğiniz üzere hata alıyorum.

Kod;

Kod:

Sub twitgönder()

twit = Range("A1")

ActiveWorkbook.FollowHyperlink Address:="https://twitter.com/home"

Application.Wait (Now + TimeValue("00:00:07"))

Call SendKeys("n", True)
Application.Wait (Now + TimeValue("00:00:02"))

Call SendKeys(twit, True)
Application.Wait (Now + TimeValue("00:00:02"))

Call SendKeys("^+~", True)
Application.Wait (Now + TimeValue("00:00:02"))

End Sub

Varsa çözümü kıymetli desteklerinizi talep ederim.
Hayırlı akşamlar...

TiOr · 22 Mar 2023

Anlaşılan bir çaresi yok

halily · 22 Mar 2023

yalnız ben bir soruna rastlamadım
doğrudan gönderdi twittera

TiOr · 23 Mar 2023

halily üstadım Explorer dan kaynaklı bir durum söz konusu idi güncelleme ile çözdüm.
Kodun güncel halinide aşağıda paylaşıyorum;

A hücresine alt alta yazılan twit kadar "For i = 1 To 100" 100 rakamını değiştirmek yeterli olacaktır.

Kod:

Private Sub CommandButton1_Click()

ActiveWorkbook.FollowHyperlink Address:=("https://twitter.com/home")
Application.Wait (Now + TimeValue("00:00:07"))

For i = 1 To 100

twit = Range("A" & i)

Call SendKeys("n", True)
Application.Wait (Now + TimeValue("00:00:02"))

Call SendKeys(twit, True)
Application.Wait (Now + TimeValue("00:00:02"))

Call SendKeys("^+~", True)
Application.Wait (Now + TimeValue("00:00:03"))


Next

End Sub

Foruma hoş geldin 👋 Ziyaretçi

Çözüldü Otomatik Twitter Atma Uygulaması hk,

TiOr

TiOr

TiOr

Ekli dosyalar

TiOr

halily

TiOr