AccessTr.neT

Tam Versiyon: web sayfasından sms göndermek
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3
daha önce benzer konularda bir çok örneklerinizi gördüm. Özellikle sledgeab
isimli kullanıcının örneklerinin birçoğunu anlamaya çalıştımImg-crayhttps://accesstr.net/konu-web-site-bilgi...hlight=web)

arzu ettiğim bir çok şeyi Access te uygulamayı bu sitede olan arkadaşlar sayesinde öğrendim.

Ancak web bağlantısına gelince iş duruyor.

Verilen örneklerin kodlarında bazı değişiklik yaparak kendime uyarlamaya çalıştım.

Turkcell in web sayfasından ,Accessi kullanarak mesaj göndermek istiyorum.
örnekte açıklamalar var yardımcı olursanız sevinirim
doğrulama resmi için kodu Metin16'nın girildiğinde olayına yaz.

Kod:
Dim HTML_Body As Object, HTML_Img As Object, MyImg As Object
Set HTML_Body = WebBrowser1.Document.All.tags("Body").Item(0)
        Set HTML_Img = HTML_Body.GetElementsByTagName("img")
        Set MyImg = HTML_Img(1)

        imgurl = MyImg.src
        
       WebBrowser9.Navigate2 imgurl
   Set HTML_Body = Nothing
   Set HTML_Img = Nothing
   Set MyImg = Nothing
   Set IE = Nothing

Uygulama tasarlarken kullandığım programlar bulunduğum pc'de olmadığı için Gir butonu kaynağa bakarak tıklanmasını düzenleyemem.
Yakın zamanda mehmetdemiral hocam benzeri örnek yapmıştı. Konuyu gördüğünde yardımcı olmaya çalışır.
teşekkur ederim
şu andaki tek sorun galiba formu submit etme

WebBrowser1.Document.Forms("Login").submit
eşref hocamın verdiği kodun uygulanmış şekli aşağıdadır.

turkcell kullanıcı adı ve şifre olmadığı için 2. ekranı deneyemedim.
Img-grin))) Eşref'i boşuna beklememişiz demek ki.. Bu işlerin uzmanı o. 10 dakikada çözdü işi.
Sayfalar: 1 2 3