Skip to main content

AccessTr.neT


web sayfası

web sayfası

Çözüldü #1
Arkadaşlar,kullanıcı giriş formundan parola ve kullanıcı adı ile giriş yaptığımda şifre ve parola doğru ise webbrowser'a aktarılıyor hatalı ise Giris_Hata formu açılıyor. Fakat webbrowser'daki sayfa açılmaz ise hata veriyor. Bunu nasıl engelleyebilirim? Giriş butonuna nasıl bir kod eklemeliyim ki webbrowserdan bağlantı sağlanamazsa "sayfaya bağlanılamadı" uyarısı alabileyim?
.rar parola_giriş_durkheim.rar (Dosya Boyutu: 32,14 KB | İndirme Sayısı: 14)
Son Düzenleme: 25/02/2011, 22:10, Düzenleyen: durkheim.
Cevapla
Çözüldü #2
Sayın durkheim;
Önce bu hatanın hata nosunu bulun. Sonra da hata denetimine if then ile istediğiniz mesajı verdirirsiniz.... diye düşünüyorum. Kolay gelsin.
Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #3
(25/02/2011, 23:58)Hayri16 yazdı: Sayın durkheim;
Önce bu hatanın hata nosunu bulun. Sonra da hata denetimine if then ile istediğiniz mesajı verdirirsiniz.... diye düşünüyorum. Kolay gelsin.

Sayın Hayri Hocam, cevabınız için teşekkür ederim. Giriş yapılamadığında "tarayici.Document.getElementById("j_username").Value = kx.Value" kısmında hata veriyor. Yani gönderdiğim şifre ve kullanıcı adına karşılık olarak tarayıcıdaki j_username metin kutusu bulunamazsa bu hatayı veriyor. Tarayıcıdaki sayfanın açılmadığını nasıl formüle edebillirim?
Cevapla
Çözüldü #4
Sayın durkheim;
O yordamın hemen başlangıcına
on error goto hata
diye bir kod ekle
o yordam bitmeden yani end sub dan hemen önceye
hata:
msgbox("hata no:" & err.number)
yaz. Bu çalışma zamanı olduğunda hatanın kodunu(numarasını) mesaj olarak ekrana yazacak.
Bunu öğrendikten sonra gerisi kolay.
Kolay gelsin.
Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #5
Private Sub tarayici_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error Resume Next
Dim IE As Object
Dim veri As String
Set IE = Me.tarayici
Me.Etiket77.Caption = ""
veri = IE.Document.All.tags("table").Item(7).Rows(0).cells(1).innertext
If veri = "Şifre " Then
Me.Etiket77.Caption = "BAĞLANDI"
Else
Me.Etiket77.Caption = "BAĞLANMADI....."
End If
End Sub

Şeklinde bi kod denedim. webborwserda sayfa açılırsa forma eklediğim Etiket77'de "BAĞLANDI" yazıyor. webbrowserda sayfa açılmazsa "BAĞLANMADI....." yazıyor.

Bunun yerine

Komut6.visible=true
Komut6.visible=false

gibi kod yazıp webbrowser açılmazsa Giriş butonunu gizleyebilirsin.
Cevapla
Çözüldü #6
Sayın Hayri16 ve Sayın sledgeab, yardım için teşekkür ederim. +rep+rep
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task