• Sitemizde dosya yada bilgi temini amacıyla mail adresi paylaşımı yasaklanmıştır. Unutmayınız ki benzer problemle karşılaşan başka meslektaşlarımızda olabilir, şahsa özel bilgi alınması durumunda da forum amacından uzaklaşarak işlevselliğini yitirebilir. Mail adresi paylaşımı dolayısıyla yaptırıma uğrayabileceğinizi hatırlatmak isteriz.

Excel kullanarak e izin sayfasına kullanıcı adı ve şifresini otomatik girmek

Kayıt
6 Şubat 2009
Mesajlar
281
Beğeniler
114
#1
öncelikle excelde araçlar makkro viisual basic düzenleyicisini açıyoruz
daha sonra insert menüsünden userforma tıklıyoruz ve userformumuz geliyor
bundan sonra ? işaretinin olduğu yerde toolbox dan bir tane commandbutton oluşturuyoruz.
oluşan command buttona userformdayken çift tıklıyoruz ve kod kısmı geliyor .
şimdi kodlarımızı yazıyoruz
Private Sub CommandButton1_Click()

Set evn = CreateObject("internetexplorer.application")
With evn
.navigate "http://izinlisans.cevreorman.gov.tr/Yetki/KullaniciGiris.aspx"
Do While .busy: DoEvents: Loop
Do While .readystate <> 4: DoEvents: Loop
With .document.all
.ctl00_CPH_txtKullaniciAdi.Value = "kullanıcı adınız"
.ctl00_CPH_txtSifre.Value = "şifreniz"
.ctl00_CPH_btnTamam.Click
End With
Do While .busy: DoEvents: Loop
Do While .readystate <> 4: DoEvents: Loop
.Visible = True
.navigate "http://izinlisans.cevreorman.gov.tr/default.aspx"
End With
Set evn = Nothing
End Sub
işte bu kadar kodları nerden bulduğumu hatırlayamadım ama
çevre izin sayfasına göre düzenledim denenmiştir çalışıyor
 
Kayıt
6 Şubat 2009
Mesajlar
281
Beğeniler
114
#2
Cevap: excel kullanarak e izin sayfasına kullanıcı adı ve şifresini otomatik girmek

kullanıcı adı ve şifre kısımlarını ve web sayfa ayarlarını ben yaptım kısaca e izin sayfasını açtım ve oradaki formdaki elemanların idleri ni aldım ve forma ekledim