Hatırlatma programı foruma eklenmiştir.
http://www.excelce.net/forum/index.php?topic=1661.0

Gönderen Konu: [Çözüldü] Kullanıcı Adı ve Parola Girişi  (Okunma sayısı 19956 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı drejan62

  • Excelce Çavuş
  • ***
  • İleti: 111
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: ercan
[Çözüldü] Kullanıcı Adı ve Parola Girişi
« : 01 Aralık 2010, 13:45:49 »
Merhabalar,
http://kredi.kosgeb.gov.tr/
Sitesine girdiğimiz zaman girişte kullanıcı adı ve şifre soruyor.
Bu kullanıcı adının excelde a2 hücresinde şifrenin ise b2 hücresinde olduğunu varsayarsak,
exceldeki bu bilgiler ile siteye bağlansa ve kullanıcı adı ve parolasını girmesini sağlayabilirmiyiz?
Aslında bu işlemden sonra site içerisinde de yine belli yerlere veri girişi yapmam gerekiyor.
Bana esas lazım olan bir internet sitesine otomatik giriş yapmak için nasıl bir yol izlenrdiği.
Bu konda bana yardımcı olursanız memnun olurum.
Teşekkürler
« Son Düzenleme: 11 Aralık 2010, 11:22:50 Gönderen: Bülent Öztürk »

Çevrimdışı Hüseyin Çoban

  • Excelce.Net Yönetici
  • *
  • İleti: 182
  • Puan +11/-0
  • Cinsiyet: Bay
  • Ad Soyad: Hüseyin Çoban
  • İl / İlçe: Denizli
  • İşletim Sisteminiz: Windows 7 - 64 bit
  • Mesleğiniz: Ü.Tğm.
  • Office Versiyonunuz: Office 2007 TR
Ynt: Kullanıcı Adı ve Parola Girişi
« Yanıtla #1 : 01 Aralık 2010, 20:20:44 »
Merhaba,

Elimden geldiğince bir dosya hazırlamaya çalıştım.
Ancak parolam olmadığı için giriş kontrolu yapamadım.

Hedef sitenin kodlarını inceleyip kullanıcı adı-parola giriş yerleri ve butonların isimlerini bulmalısınız.
Daha sonra kodlarda ilgili yerlere uygulamasınız.

Kod: [Seç]
Private Sub CommandButton1_Click()
Set evn = CreateObject("internetexplorer.application")
With evn
    .navigate "http://kredi.kosgeb.gov.tr" ' HEDEF SİTE
    Do While .busy: DoEvents: Loop
    Do While .readystate <> 4: DoEvents: Loop
        With .document.all
            .txtUsername.Value = Range("a2").Value ' txtUsername kullanıcı adının sitedeki konumu
            .txtPassword.Value = Range("b2").Value  ' txtPassword kullanıcı parolasının sitedeki konumu
            .btnLogin.Click  ' btnLogin giriş butonun sitedeki konumu
        End With
    Do While .busy: DoEvents: Loop
    Do While .readystate <> 4: DoEvents: Loop
        .Visible = True
        .navigate "http://kredi.kosgeb.gov.tr"
End With
Set evn = Nothing
End Sub

Ekteki dosyayı inceleyiniz.

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]
« Son Düzenleme: 01 Aralık 2010, 20:38:31 Gönderen: huseyincoban »

Çevrimdışı drejan62

  • Excelce Çavuş
  • ***
  • İleti: 111
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: ercan
Ynt: Kullanıcı Adı ve Parola Girişi
« Yanıtla #2 : 02 Aralık 2010, 09:20:10 »
Hüseyin bey
Teşekkür ederim.
Hemen incelyip size bilgi veririm
ççok sağolun.

Çevrimdışı drejan62

  • Excelce Çavuş
  • ***
  • İleti: 111
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: ercan
Ynt: Kullanıcı Adı ve Parola Girişi
« Yanıtla #3 : 02 Aralık 2010, 09:46:16 »
Tekrar merhabalar
Söz konusu sitenin kaynak kodları aşağıdaki gibi.
Kullanıcı adı, parola ve giriş butonunun kodları hangileridir ve kodda nasıl yazdık.
Yardımcı olursanız memnun olurum.
Teşekkürler.
Kod: [Seç]


<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head id="Head1">
<link rel="stylesheet" type="text/css" href="http://cd.kosgeb.gov.tr/ext/1.0.3917.31786/extjs/resources/css/ext-all.css" />
<link rel="stylesheet" type="text/css" href="http://cd.kosgeb.gov.tr/ext/1.0.3917.31786//extjs/resources/css/xtheme-gray.css" id="ext-theme" />
<title>
KOSGEB Kredileri Girişi
</title><link href="App_Themes/General/StyleSheets/ControlStyles.css" type="text/css" rel="stylesheet" /><link href="App_Themes/General/StyleSheets/General.css" type="text/css" rel="stylesheet" /><link href="App_Themes/General/StyleSheets/MasterStyle.css" type="text/css" rel="stylesheet" />
<script type="text/javascript" src="http://cd.kosgeb.gov.tr/ext/1.0.3917.31786/extjs/adapter/ext/ext-base.js"></script>
<script type="text/javascript" src="http://cd.kosgeb.gov.tr/ext/1.0.3917.31786/extjs/ext-all.js"></script>
<script type="text/javascript" src="http://cd.kosgeb.gov.tr/ext/1.0.3917.31786/extnet/extnet-core.js"></script>
<script type="text/javascript" src="/WebResource.axd?d=O5IjMhhr0buxg7Dt9_2WTfXPBsvYoUP2LMW3YxE5DbeYTjdQMMSjoxQtqmhcPBjwa5_KWLW2TKck9AwGPUGM14S9wwcYyfCQh4ooeHDYdklfsZCce8K4Jte91KoiYKn9ccZAT-BNIveJZgnigeTNOqQNAr2tdXjTphxR9yW7LNI1&amp;t=634236110819410924"></script>
<script type="text/javascript">
//<![CDATA[
Ext.net.ResourceMgr.init({id:"resourceManager",BLANK_IMAGE_URL:"http://cd.kosgeb.gov.tr/ext/1.0.3917.31786/extjs/resources/images/gray/s.gif",aspForm:"form1",theme:"gray",icons:[{name:"Lock",url:"http://cd.kosgeb.gov.tr/ext/1.0.3917.31786/icons/lock.png"},{name:"Accept",url:"http://cd.kosgeb.gov.tr/ext/1.0.3917.31786/icons/accept.png"}]});Ext.onReady(function(){Ext.QuickTips.init();new Ext.Window({id:"Window1",showOnLoad:true,renderTo:Ext.get("form1"),height:150,width:350,items:[{id:"txtUsername",xtype:"textfield",anchor:"95%",fieldLabel:"Kullanıcı Adı",allowBlank:false,blankText:"Kullanıcı adınızı girin."},{id:"txtPassword",xtype:"textfield",anchor:"95%",fieldLabel:"Şifre",allowBlank:false,blankText:"Şifrenizi girin.",inputType:"password"}],layout:"form",closable:false,bodyStyle:"padding:5px;",buttons:[{id:"btnLogin",xtype:"button",iconCls:"icon-accept",text:"Giriş",directEvents:{click:{fn:function(el,e){var params=arguments;Ext.net.DirectEvent.confirmRequest({eventMask:{showMask:true,msg:"Kullanıcı şifre kontrol ediliyor...",minDelay:1000},control:this});},delay:20}}}],draggable:false,iconCls:"icon-lock",title:"Kullanıcı girişi",hidden:false,modal:true,resizable:false});});
//]]>
</script>
</head>
<body>
    <form name="form1" method="post" action="" id="form1">
<div>
<input type="hidden" name="__EVENTTARGET" id="__EVENTTARGET" value="" />
<input type="hidden" name="__EVENTARGUMENT" id="__EVENTARGUMENT" value="" />
<input type="hidden" name="__VIEWSTATE" id="__VIEWSTATE" value="/wEPDwULLTE4MzU0MzAyNTkPZBYCAgMPZBYCAgMPZBYCAgMPFgIeBWNsYXNzBQh4LWhpZGRlbmQYAQUeX19Db250cm9sc1JlcXVpcmVQb3N0QmFja0tleV9fFgUFD3Jlc291cmNlTWFuYWdlcgUHV2luZG93MQULdHh0VXNlcm5hbWUFC3R4dFBhc3N3b3JkBQhidG5Mb2dpbmSTjswQoLOzM2RE8T1ssMP/X/6t2rcPDtFATSqnvUj6" />
</div>

<script type="text/javascript">
//<![CDATA[
var theForm = document.forms['form1'];
if (!theForm) {
    theForm = document.form1;
}
function __doPostBack(eventTarget, eventArgument) {
    if (!theForm.onsubmit || (theForm.onsubmit() != false)) {
        theForm.__EVENTTARGET.value = eventTarget;
        theForm.__EVENTARGUMENT.value = eventArgument;
        theForm.submit();
    }
}
//]]>
</script>


<div>

<input type="hidden" name="__EVENTVALIDATION" id="__EVENTVALIDATION" value="/wEWAgKCx6o3AsTbmIEOV+NndfMLtU8VArQ+vYq9AX/C21ts4OFK2XK0OYqYzag=" />
</div>
   
   








    </form>
</body>
</html>

Çevrimdışı Hüseyin Çoban

  • Excelce.Net Yönetici
  • *
  • İleti: 182
  • Puan +11/-0
  • Cinsiyet: Bay
  • Ad Soyad: Hüseyin Çoban
  • İl / İlçe: Denizli
  • İşletim Sisteminiz: Windows 7 - 64 bit
  • Mesleğiniz: Ü.Tğm.
  • Office Versiyonunuz: Office 2007 TR
Ynt: Kullanıcı Adı ve Parola Girişi
« Yanıtla #4 : 02 Aralık 2010, 10:40:00 »
Merhaba,

Kod: [Seç]
Ext.net.ResourceMgr.init({id:"resourceManager",BLANK_IMAGE_URL:"http://cd.kosgeb.gov.tr/ext/1.0.3917.31786/extjs/resources/images/gray/s.gif",aspForm:"form1",theme:"gray",icons:[{name:"Lock",url:"http://cd.kosgeb.gov.tr/ext/1.0.3917.31786/icons/lock.png"},{name:"Accept",url:"http://cd.kosgeb.gov.tr/ext/1.0.3917.31786/icons/accept.png"}]});Ext.onReady(function(){Ext.QuickTips.init();new Ext.Window({id:"Window1",showOnLoad:true,renderTo:Ext.get("form1"),height:150,width:350,items:[{id:"txtUsername",xtype:"textfield",anchor:"95%",fieldLabel:"Kullanıcı Adı",allowBlank:false,blankText:"Kullanıcı adınızı girin."},{id:"txtPassword",xtype:"textfield",anchor:"95%",fieldLabel:"Şifre",allowBlank:false,blankText:"Şifrenizi girin.",inputType:"password"}],layout:"form",closable:false,bodyStyle:"padding:5px;",buttons:[{id:"btnLogin",xtype:"button",iconCls:"icon-accept",text:"Giriş",directEvents:{click:{fn:function(el,e){var params=arguments;Ext.net.DirectEvent.confirmRequest({eventMask:{showMask:true,msg:"Kullanıcı şifre kontrol ediliyor...",minDelay:1000},control:this});},delay:20}}}],draggable:false,iconCls:"icon-lock",title:"Kullanıcı girişi",hidden:false,modal:true,resizable:false});});
satırındaki

txtUsername -> Kullanıcı adı
txtPassword -> Parola
btnLogin       -> Giriş butonu  kodları.

Çevrimdışı drejan62

  • Excelce Çavuş
  • ***
  • İleti: 111
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: ercan
Ynt: Kullanıcı Adı ve Parola Girişi
« Yanıtla #5 : 02 Aralık 2010, 11:06:11 »
Hüseyin Bey,
Parola, şifre ve giriş butonu kodlarının hangisi olduğunu bir yığın kaynak kodu içerisinde nasıl tespit ediyorsunuz acaba?
Birde okunuyu açıklasanız süper olacak :)
Sağolun

Çevrimdışı drejan62

  • Excelce Çavuş
  • ***
  • İleti: 111
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: ercan
Ynt: Kullanıcı Adı ve Parola Girişi
« Yanıtla #6 : 02 Aralık 2010, 12:26:44 »
Kod: [Seç]
.txtUsername.Value = Range("a2").Value ' txtUsername kullanıcı adının sitedeki konumu
Şu satırda hata veriyor. Kendim F8 e bastığımda ise sorun çıkmıyor.
Neden olabilir acaba?

Çevrimdışı Hüseyin Çoban

  • Excelce.Net Yönetici
  • *
  • İleti: 182
  • Puan +11/-0
  • Cinsiyet: Bay
  • Ad Soyad: Hüseyin Çoban
  • İl / İlçe: Denizli
  • İşletim Sisteminiz: Windows 7 - 64 bit
  • Mesleğiniz: Ü.Tğm.
  • Office Versiyonunuz: Office 2007 TR
Ynt: Kullanıcı Adı ve Parola Girişi
« Yanıtla #7 : 02 Aralık 2010, 12:31:18 »
A2 ve B2 hücrelerindeki verileri silip,
tekrar girin ve işlemi çalıştırın.


Çevrimdışı drejan62

  • Excelce Çavuş
  • ***
  • İleti: 111
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: ercan
Ynt: Kullanıcı Adı ve Parola Girişi
« Yanıtla #8 : 02 Aralık 2010, 14:07:52 »
A2 ve B2 hücrelerindeki verileri silip,
tekrar girin ve işlemi çalıştırın.
Üstad sağol,
Şuan bir sorun yok gibi ama benim sizden ricam,
Bir yığın kaynak kodu içerisindeki parola şifre giriş butanının kodunu nasıl ayıkladınız, aynı şekilde açılan sitede yine bazı yerlerden veri alıp başka bir alana aktarmam gerekiyor.
Bu kodların hangisi olduğunu nasıl buluyoruz.
Çok sağolun.