Forum
Bildirimler
Hepsini Temizle
Yazılım Genel
2
Yazılar
1
Üyeler
0
Reactions
566
Görüntüleme
Konu başlatıcı
Arkadaşlar merhaba,
Benim için acil bir konu var şöyle
mshtml referansını kullanarak bir internet explorer açtırıp bir web sayfAsına otomatik olarak girmesini sağlıyorum.
buarada iki alan var
birinci alanda bir input alanı var buraya yazı yazılması gerekli alttada gonder butonu var
buraya kadar işlemleri yaptim fakat web sitesinde bir özellik eklemişler o input alanına elle yazmayınca o alanı boş olarak algiliyor.
fakat programla o input 'a yazıyı yazıp mouse ile o input kutucuguna 1 kere tiklarsam sonra programdan butona tiklarsam bilgiyi okuyor.
kodlara baktigimda java scripts olarak enabledkeyevents=true eklendigini gordum. bunla alakalamıdır tam bilmiyorum ama bunu programdan yapmam lazım 🙁 bu konuda yardımcı olursanız çok sevinirim.
Kodlar
1. internet explorer acilip sayfaya gidiliyor
oIE = New ShdocVw.InternetExplorer
oIE.Navigate("172.16.254.150/login.jsp")
oIE.Visible = True
Do While oIE.Busy Or oIE.ReadyState <> 4
Application.DoEvents()
Loop
bunudan sonra iki function tanımladım 1. input alanlarına yazı yazıyor digeri butona tikliyor.
Sub SayfayaYaz(ByVal Tur, ByVal AlanTuru, ByVal AlanAdi, ByVal Deger)
Dim HTMLDoc As mshtml.HTMLDocument = oIE.Document
Dim iHTMLCol As IHTMLElementCollection
Dim iHTMLEle As IHTMLElement
Dim str As String
iHTMLCol = HTMLDoc.getElementsByTagName(Tur)
For Each iHTMLEle In iHTMLCol
If Not iHTMLEle.getAttribute(AlanTuru) Is Nothing Then
str = iHTMLEle.getAttribute(AlanTuru).ToString
If str = AlanAdi Then
iHTMLEle.setAttribute("value", Deger)
Exit For
End If
End If
Next
End Sub
Sub SayfayaTikla(ByVal Tur, ByVal AlanAdi, ByVal ResimAdi)
Dim HTMLDoc As mshtml.HTMLDocument = oIE.Document
Dim iHTMLCol As IHTMLElementCollection
Dim iHTMLEle As IHTMLElement
Dim str As String
iHTMLCol = HTMLDoc.getElementsByTagName(Tur)
For Each iHTMLEle In iHTMLCol
If Not iHTMLEle.getAttribute(AlanAdi) Is Nothing Then
str = iHTMLEle.getAttribute(AlanAdi).ToString
If str = ResimAdi Then
iHTMLEle.click()
Exit For
End If
End If
Next
End Sub
belirtigim gibi acil ve benim icin cok onemli yardımınız için şimdiden teşekkürler.
Gönderildi : 19/04/2012 23:14
Konu başlatıcı
Arkadaşlar bu konu benim için onemli ve acil eğer ki yardımcı olursanız çok sevinirim.
Gönderildi : 20/04/2012 11:34
