Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > Diğer Yazılımlar > WEB Tasarım&Programlama > ASP & VBscript
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 22-02-2012, 21:42   #1
mozdem
Altın Üye
 
Giriş: 11/11/2005
Şehir: Ankara
Mesaj: 313
Excel Vers. ve Dili:
Microsoft Office 2013 Türkçe Microsoft Office 2016 Türkçe
Varsayılan internet sayfasına giriş

merhabalar, aşağıdaki kod bloğunu bir vbs uzantılı dosyada kullanıyorum. Ancak Girmek istediğim web sitesinin giriş buton ismi olmadığından excelde makrolar ile SendKeys komutunda TAB ve ENTER özellğini kullanarak giriyorum. Ancak VBS uzantılı bir dosya yaptığımda nasıl gireceğim bilmiyorum. Yardımlarınızı bekliyorum..
Teşekkürler

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Set uygulama = CreateObject("internetexplorer.application")
With uygulama
.Visible = True
.navigate "http://hrs.sagliknet.saglik.gov.tr/HRS/pages/kurum.jsp"
Do While .ReadyState <> 4: Loop
End With

        
        With uygulama.Document.all
            .ssousername.Value = "deneme"
            .Password.Value = "deneme"
        End With

'****************************************
'ShowWindow uygulama.hwnd, 3
'SendKeys "{TAB}"
'SendKeys "{TAB}", True
'SendKeys "{ENTER}", True
__________________
Excel 2013 - 2016 Türkçe

Bu mesaj en son " 23-02-2012 " tarihinde saat 20:49 itibariyle mozdem tarafından düzenlenmiştir.... Neden: Adres düzeltme
mozdem Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-02-2012, 15:09   #2
mozdem
Altın Üye
 
Giriş: 11/11/2005
Şehir: Ankara
Mesaj: 313
Excel Vers. ve Dili:
Microsoft Office 2013 Türkçe Microsoft Office 2016 Türkçe
Varsayılan

Güncel, Yardımlarınızı bekliyorum.
Teşekkürler.
__________________
Excel 2013 - 2016 Türkçe
mozdem Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-02-2012, 20:30   #3
Haluk
Özel Üye
 
Giriş: 07/07/2004
Şehir: Türkiye
Mesaj: 5,056
Excel Vers. ve Dili:
Office 2010 - İngilizce
Varsayılan

End With satırından sonra, aşağıdakini ilave edin...

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
uygulama.document.forms(0).submit
__________________
Kod anlatılmaz,yazılır !
Haluk Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-02-2012, 20:52   #4
mozdem
Altın Üye
 
Giriş: 11/11/2005
Şehir: Ankara
Mesaj: 313
Excel Vers. ve Dili:
Microsoft Office 2013 Türkçe Microsoft Office 2016 Türkçe
Smile Teşekkür

Alıntı:
Haluk tarafından gönderildi Mesajı Görüntüle
End With satırından sonra, aşağıdakini ilave edin...

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
uygulama.document.forms(0).submit

Çok Teşekkür ederim. Bu soruyu çevremde yazılım ile uğraşan kişilerede sordum ancak, olumsuz cevap aldığım için ümidimi kaybetmiştim.
Tekrar Çok teşekkür ederim.


Ek bir soru:yukarıdaki kod işledikten ve sayfa açılınca aşağı yazacağım yeni kodların çalışması için ya sayfa açılınca kodlar çalışmasın, yada excelde olduğu gibi belli bir süre beklemesi için

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

buna benzer bir kod.
Ne yazabilirim.
Tekrar teşekkürler
__________________
Excel 2013 - 2016 Türkçe

Bu mesaj en son " 23-02-2012 " tarihinde saat 21:15 itibariyle mozdem tarafından düzenlenmiştir.... Neden: ek bir soru
mozdem Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-02-2012, 22:26   #5
Haluk
Özel Üye
 
Giriş: 07/07/2004
Şehir: Türkiye
Mesaj: 5,056
Excel Vers. ve Dili:
Office 2010 - İngilizce
Varsayılan

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
wscript.sleep 5000
5000 kısmını değiştirebilirsiniz.

Veya, önceki kodlarınızdaki gibi IE'nin ReadyState'ini kontrol edebilirsiniz.
__________________
Kod anlatılmaz,yazılır !
Haluk Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-02-2012, 22:54   #6
mozdem
Altın Üye
 
Giriş: 11/11/2005
Şehir: Ankara
Mesaj: 313
Excel Vers. ve Dili:
Microsoft Office 2013 Türkçe Microsoft Office 2016 Türkçe
Varsayılan

Alıntı:
Haluk tarafından gönderildi Mesajı Görüntüle
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
wscript.sleep 5000
5000 kısmını değiştirebilirsiniz.

Veya, önceki kodlarınızdaki gibi IE'nin ReadyState'ini kontrol edebilirsiniz.
Haluk bey çok teşekkür ederim. Aslında aynı kodu yazmıştım fakat hata vermişti. sizin kodu kopyalayınca anladımki kod satırında harf hatası yapmışım.
Çok çok teşekkürler.
__________________
Excel 2013 - 2016 Türkçe
mozdem Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 04:32


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden