Siteye Login Olma

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Cevapla
Kullanıcı avatarı
struggler
Üye
Mesajlar: 12
Kayıt: 21 Kas 2013 12:58

Siteye Login Olma

Mesaj gönderen struggler »

Arkadaşlar sitede 3 tane input bir tane buton var
inputların ve butonun idleri:

Kullanıcı Adı = RadDock1_C_txtKullaniciAdi
Şifre = RadDock1_C_txtSifre
Güvenlik Kodu = RadDock1_C_captchaLogin_CaptchaTextBox
Giriş Butonu = RadDock1_C_btnGiris


Arkadaşlar ben bu web sitesine delphide webbrowser aracılığıyla şu kodlar ile login olabiliyordum :

Kod: Tümünü seç

WebBrowser1.OleObject.Document.GetElementByID('RadDock1_C_txtKullaniciAdi').Value := '111111111111';
WebBrowser1.OleObject.Document.GetElementByID('RadDock1_C_txtSifre').Value := 'deneme';
WebBrowser1.OleObject.Document.GetElementByID('RadDock1_C_captchaLogin_CaptchaTextBox').Value := 'DNM';
WebBrowser1.OleObject.Document.GetElementByID('RadDock1_C_btnGiris').Click;
Ancak şimdi giriş yapmayı denersem kullanıcı adı, şifre, güvenlik kodu gibi alanlar doldurulmuyor boş olarak görünüyor ama butona tıklıyor.


Denemiş olduğum sitenin kaynak kodu =

Kod: Tümünü 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="header"><meta http-equiv="X-UA-Compatible" content="IE=Edge" />
    <style type="text/css">
        .textboxwidth
        {
            width: 238px;
            border: 1px solid #6788be;
        }
    </style>
    <title>
	
        
        
    
</title><link href="/content/styles/style.css" rel="stylesheet" type="text/css" />
    <script src="/content/scripts/script.js" type="text/javascript"></script>
    <meta http-equiv="refresh" content="60" /><link href="/WebResource.axd?d=ewGrPCVmUjPrL5EWLI_xHHLg0tTWmX3sltAUAieFOqBqVNqV-nPW--r6Qs6dFr5hKhR8KwpB5sURFRaG9JycuxtzOTZCTYOLJzP7lVW-_MNi5X3bYk7sCptSTsixTbz5aeUpqg2&t=635193553780000000" type="text/css" rel="stylesheet" class="Telerik_stylesheet" /><link href="/WebResource.axd?d=YcfM7cl5PgZ2kRUR6st47qcjxAc5wp1DhKpOyb9oFvPQJ0CilodZoFMODEw5Vsn5urZ-0nNlNBF3dLzhdpQbh2BJzOaTf5mDwbl8E4uq1gJlSTjwM08JFzDOIq3-WK4PFxMrkWwVI1plhHhfUrS57SF-_TPL4eodiwNco1eCs8bPgcwU0&t=635193553780000000" type="text/css" rel="stylesheet" class="Telerik_stylesheet" /><link href="/WebResource.axd?d=M2OW3lTPyAs36CKj-xMIIYPvID3Pyq56Pu7O2GAkwWGNdUKGZIYhBTk0R1KlVlxeWpjOJHRnk7VZ4Uoc2I5lXDmLNJ33ggv8hSSAf_0hVV3rGBJ5f15cwC4pVz875HEPGelPog2&t=635193553780000000" type="text/css" rel="stylesheet" class="Telerik_stylesheet" /><link href="/WebResource.axd?d=LXwQqfpJ0ergSCdXMLklEiVBfvRVgIQ9lLxjyvxHJ4EkHoM43IfjSoREXeIV5LSL5x65CCcyDGT_SxUTPHd6c23z8PlWXKqDytjSLNEk_VJOvT8YcSYy2V_JzxBd-qr6OguV6fDQUO5xl8CVPaZczANUO4eI7Eydq1t1gL8k3RwMM76w0&t=635193553780000000" type="text/css" rel="stylesheet" class="Telerik_stylesheet" /><link href="/WebResource.axd?d=pm-wY6ogev0jLH-zTjcyC9ansuDx4p26jn5KO3Unb3Kka6VYq4vnITwtW6pdtEeERTLhqZFZVr7JP2_JCSPolsXqZlsEcszviRM9h665y8yUNJMPvIt40EnQrPNTga9MWW3EGw2&t=635193553780000000" type="text/css" rel="stylesheet" class="Telerik_stylesheet" /><link href="/WebResource.axd?d=Y_BV0yg76dEYJ8B7VB4uo2PCHYUqGa2I3w2vY-yL6x55FSTqwVzv0emOC340-MiL6NwE6RvS8KCwgrP0x9p4fGnGn2dNsPP3VmF2adl-GXpaWTg-wnTPkyRDhfi-STFwK2Y8eXjzzqRh0QUBBiXG0rqNpNIp332Kxh12tTjrDyAyElCL0&t=635193553780000000" type="text/css" rel="stylesheet" class="Telerik_stylesheet" /><link href="/WebResource.axd?d=Y_BV0yg76dEYJ8B7VB4uo2PCHYUqGa2I3w2vY-yL6x55FSTqwVzv0emOC340-MiL6NwE6RvS8KCwgrP0x9p4fGnGn2dNsPP3VmF2adl-GXpaWTg-wnTPkyRDhfi-STFwK2Y8eXjzzqRh0QUBBiXG0rqNpNIp332Kxh12tTjrDyAyElCL0&t=635193553780000000" type="text/css" rel="stylesheet" class="Telerik_stylesheet" /><link href="/WebResource.axd?d=s6TJDw7twqFAtwRz7DYD4aHElU7tMDL-Ceg6u4gzNcEo_ub37E8ziJ3d8ZohcBDM04ulURbWL5FUm7ZqnMg240oxOrdUFUNQt3EgJRMyFNa3RjxSMRqXQnIW-_uiuBage2ZhmQ2&t=635193553780000000" type="text/css" rel="stylesheet" class="Telerik_stylesheet" /><link href="/WebResource.axd?d=mhL_pY6s689rJKtfwnz5T_ib99uiiAf_60dNIyWIoiylsE5g6VIzPQ-_D3CM9WP75njjzBG_k77WFdlhDa95252wtbmu1hUvIlZ5eq6DGxRctKu5Ex-MNdH1CmtQldrAGeuBE1Ioh3TJZKYsErAEL-Vodwnl4eqWMEGEBovEE5Uk5NA80&t=635193553780000000" type="text/css" rel="stylesheet" class="Telerik_stylesheet" /></head>
<body>
    <form method="post" action="login.aspx?ReturnUrl=%2fdefault.aspx" onsubmit="javascript:return WebForm_OnSubmit();" onkeypress="javascript:return WebForm_FireDefaultButton(event, 'RadDock1_C_btnGiris')" id="form1">
<div class="aspNetHidden">
<input type="hidden" name="__LASTFOCUS" id="__LASTFOCUS" value="" />
<input type="hidden" name="RadScriptManager1_TSM" id="RadScriptManager1_TSM" value="" />
<input type="hidden" name="__EVENTTARGET" id="__EVENTTARGET" value="" />
<input type="hidden" name="__EVENTARGUMENT" id="__EVENTARGUMENT" value="" />
<input type="hidden" name="__VIEWSTATE" id="__VIEWSTATE" value="/wEPaA8FDzhkMGI0Y2VkZWE2OGRhZRgDBR5fX0NvbnRyb2xzUmVxdWlyZVBvc3RCYWNrS2V5X18WBAURUmFkRm9ybURlY29yYXRvcjEFDFJhZERvY2tab25lMQUIUmFkRG9jazEFF1JhZERvY2sxJEMkY2FwdGNoYUxvZ2luBRdSYWREb2NrMSRDJGNhcHRjaGFMb2dpbg8UKwACBSQxOGI2MGI4Mi03NDI4LTQwZDYtODYzYS1lOTUzMzNiYWRhNGIGAAAAAAAAAABkBQtTa2luQ2hvb3Nlcg8UKwACZQUKT2ZmaWNlMjAwN2Rds9zE8WjjaoHciKaTFq5wFMnjqg==" />
</div>

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


<script src="/WebResource.axd?d=Cr6NY1haBII3CUWgTf-vRxkAVYzK1FJ6XORbJp5zHXYb1faJ2WnIXBUQYE-i4nGMszzp_Bd8NNpxf0uVdI32lDKWS0A1&t=634970779580000000" type="text/javascript"></script>


<script src="/ScriptResource.axd?d=PIkWxDViaZE5PI1d5VC9u3oaIGXTi2MiwQcE00IlXrZtNMOjZbsuJ0QIWWw4HReSlnuBaIUBUZZbJyN_wtr3SycmM_LR-6SrO9qBExQmsX44PlsjganwUlmgp8zJhCIB2B9n40PUePHmOsGPVqSntMHbDWA1&t=5ad8cd80" type="text/javascript"></script>
<script src="/Telerik.Web.UI.WebResource.axd?_TSM_HiddenField_=RadScriptManager1_TSM&compress=1&_TSM_CombinedScripts_=%3b%3bSystem.Web.Extensions%2c+Version%3d4.0.0.0%2c+Culture%3dneutral%2c+PublicKeyToken%3d31bf3856ad364e35%3atr-TR%3ac9cbdec3-c810-4e87-846c-fb25a7c08002%3aea597d4b%3ab25378d2%3bTelerik.Web.UI%2c+Version%3d2012.2.912.40%2c+Culture%3dneutral%2c+PublicKeyToken%3d121fae78165ba3d4%3atr-TR%3a6aabe639-e731-432d-8e00-1a2e36f6eee0%3a16e4e7cd%3a86526ba7%3af7645509%3aed16cbdc%3a24ee1bba%3af46195d3%3a854aa0a7%3a874f8ea2%3a5a6d9d23%3ab7778d6c%3a11e117d7" type="text/javascript"></script>
<script type="text/javascript">
//<![CDATA[
if (typeof(Sys) === 'undefined') throw new Error('ASP.NET Ajax client-side framework failed to load.');
//]]>
</script>

<script src="/WebResource.axd?d=7qErcjeF3n7l-8Wtuwpfpl7dhaTO2Ezy-juh8r8wV2DMMv8roIP3UK5joLMFD8KoeAp0921xSW-aYXt5_rjRc2aMox41&t=634970779580000000" type="text/javascript"></script>
<script type="text/javascript">
//<![CDATA[
function WebForm_OnSubmit() {
if (typeof(ValidatorOnSubmit) == "function" && ValidatorOnSubmit() == false) return false;
return true;
}
//]]>
</script>

<div class="aspNetHidden">

	<input type="hidden" name="__EVENTVALIDATION" id="__EVENTVALIDATION" value="/wEdAAbK7mKNZctHvbK6Y9/U2azYHRuQCZ1TnpjKRFsq0wYZ2QQFopl5XoDq/q1XAFeNk3x1rrPPr+M7U5EZq85rAvuu0ue3Zx+V1o1dIWitcNHX+MCFbnQiWbZa7GKUAZEOTrHjubG8UozE152kqLtki4S/vpqVjQ==" />
</div>
    <script type="text/javascript">
//<![CDATA[
Sys.WebForms.PageRequestManager._initialize('RadScriptManager1', 'form1', [], [], [], 90, '');
//]]>
</script>

    
    <div id="RadFormDecorator1" class="RadFormDecorator" style="display:none;">
	<!-- 2012.2.912.40 --><script type="text/javascript">
//<![CDATA[
if (typeof(WebForm_AutoFocus) != 'undefined')
{
	var old_WebForm_AutoFocus = WebForm_AutoFocus;
	WebForm_AutoFocus = function(arg)
	{
		Sys.Application.add_load(function()
		{
			old_WebForm_AutoFocus(arg);
			WebForm_AutoFocus = old_WebForm_AutoFocus;
		});
	}
}
if (typeof(Telerik) != 'undefined')
{
	if (Telerik.Web.UI.RadFormDecorator)
	{
		Telerik.Web.UI.RadFormDecorator.initializePage("RadFormDecorator1", "", "Office2007", 15);
	}
}
//]]>
</script><input id="RadFormDecorator1_ClientState" name="RadFormDecorator1_ClientState" type="hidden" />
</div>
    <div id="RadAjaxLoadingPanel1" class="RadAjax RadAjax_Office2007" style="display:none;">
	<div class="raDiv">
		
    
	</div><div class="raColor raTransp">

	</div>
</div>
    <div style="width: 520px; margin: 0 auto;">
        <div style="width: 520px; margin-top: 100px;">
            <div id="RadDockZone1" class="RadDockZone RadDockZone_Office2007 rdVertical" style="border-width:0px;border-style:None;width:100%;min-width:10px;min-height:10px;padding: 0px; border: none;">
	<div id="RadDock1" class="RadDock RadDock_Office2007" style="border-width:0px;border-style:None;width:100%;">
		<table class="rdTable">
			<tr class="rdTop">
				<td class="rdLeft">&nbsp;</td>
				<td class="rdCenter"><div id="RadDock1_T" class="rdTitleBar">
					<em>Kullanıcı Girişi</em>
				</div></td>
				<td class="rdRight">&nbsp;</td>
			</tr>
			<tr class="rdMiddle">
				<td class="rdLeft">&nbsp;</td>
				<td class="rdCenter"><div id="RadDock1_C" class="rdContent">
					
                        <div style="background-image: url('/content/themes/logo.png');
                            background-repeat: no-repeat; background-position: 10px 75px;">
                            <div style="margin-left: 120px; padding-left: 20px; padding-top: 30px; height: 270px;
                                background-image: url('/content/images/login.png'); background-repeat: no-repeat;
                                background-position: 30px 140px; background-color: #ffffff; border-left: solid 1px #ababab;">
                                <table>
                                    <tr>
                                        <td>
                                            Kullanıcı Adı:
                                        </td>
                                        <td>
                                            <span id="RadDock1_C_txtKullaniciAdi_wrapper" class="riSingle RadInput RadInput_Office2007" style="width:238px;"><input id="RadDock1_C_txtKullaniciAdi" name="RadDock1$C$txtKullaniciAdi" size="20" class="riTextBox riEmpty" value="Lütfen 'Kullanıcı Adı' nızı giriniz." type="text" /><input id="RadDock1_C_txtKullaniciAdi_ClientState" name="RadDock1_C_txtKullaniciAdi_ClientState" type="hidden" /></span>
                                        </td>
                                        <td>
                                            <span id="RadDock1_C_rfvKullaniciAdi" style="visibility:hidden;">●</span>
                                        </td>
                                    </tr>
                                    <tr>
                                        <td>
                                            Şifre:
                                        </td>
                                        <td>
                                            <span id="RadDock1_C_txtSifre_wrapper" class="riSingle RadInput RadInput_Office2007" style="width:238px;"><input id="RadDock1_C_txtSifre" name="RadDock1$C$txtSifre" size="20" class="riTextBox riEnabled" type="password" /><input id="RadDock1_C_txtSifre_ClientState" name="RadDock1_C_txtSifre_ClientState" type="hidden" /></span>
                                        </td>
                                        <td>
                                            <span id="RadDock1_C_rfvSifre" style="visibility:hidden;">●</span>
                                        </td>
                                    </tr>
                                    <tr>
                                        <td valign="top">
                                            Güvenlik Kodu:
                                        </td>
                                        <td>
                                            <div id="RadDock1_C_captchaLogin" class="RadCaptcha RadCaptcha_Office2007">
						<span id="RadDock1_C_captchaLogin_ctl00" style="color:White;visibility:hidden;">Güvenlik Kodu Doğrulanmadı!</span><div id="RadDock1_C_captchaLogin_SpamProtectorPanel">
							<img id="RadDock1_C_captchaLogin_CaptchaImage" alt="" src="Telerik.Web.UI.WebResource.axd?type=rca&isc=false&guid=18b60b82-7428-40d6-863a-e95333bada4b" style="height:50px;width:180px;display:block;" /><p><input name="RadDock1$C$captchaLogin$CaptchaTextBox" type="text" maxlength="3" id="RadDock1_C_captchaLogin_CaptchaTextBox" class="textboxwidth" title="" /><label for="RadDock1_C_captchaLogin_CaptchaTextBox" id="RadDock1_C_captchaLogin_CaptchaTextBoxLabel"></label></p>
						</div><input id="RadDock1_C_captchaLogin_ClientState" name="RadDock1_C_captchaLogin_ClientState" type="hidden" />
					</div>
                                        </td>
                                        <td>
                                        </td>
                                    </tr>
                                    <tr>
                                        <td>
                                        </td>
                                        <td>
                                            &nbsp;
                                        </td>
                                        <td>
                                        </td>
                                    </tr>
                                    <tr>
                                        <td>
                                        </td>
                                        <td>
                                            <input type="submit" name="RadDock1$C$btnGiris" value="Giriş" onclick="javascript:WebForm_DoPostBackWithOptions(new WebForm_PostBackOptions("RadDock1$C$btnGiris", "", true, "Error", "", false, false))" id="RadDock1_C_btnGiris" style="width:100px;" />
                                            <input type="submit" name="RadDock1$C$btnSifremiUnuttum" value="Şifremi Unuttum" id="RadDock1_C_btnSifremiUnuttum" />
                                        </td>
                                        <td>
                                        </td>
                                    </tr>
                                    <tr>
                                        <td>
                                            &nbsp;
                                        </td>
                                        <td>
                                            <div style="float: right;">
                                            </div>
                                            <div style="float: left;">
                                            </div>
                                        </td>
                                        <td>
                                            &nbsp;
                                        </td>
                                    </tr>
                                    <tr>
                                        <td colspan="3">
                                            &nbsp;
                                        </td>
                                    </tr>
                                    
                                    
                                    
                                </table>
                            </div>
                        </div>
                    
				</div></td>
				<td class="rdRight">&nbsp;</td>
			</tr>
			<tr class="rdBottom">
				<td class="rdLeft">&nbsp;</td>
				<td class="rdCenter">&nbsp;</td>
				<td class="rdRight">&nbsp;</td>
			</tr>
		</table>
		<input id="RadDock1_ClientState" name="RadDock1_ClientState" type="hidden" />
	</div><div class="RadDock RadDock_Default rdPlaceHolder" id="RadDockZone1_D" style="display:none;">
		<!-- -->
	</div><input id="RadDockZone1_ClientState" name="RadDockZone1_ClientState" type="hidden" />
</div>
            <br />
            
            <br />
            
            
            <br />
            <div id="ValidationSummary2" class="MessageError" style="background-color:White;display:none;">

</div>
            <div id="ValidationSummary3" class="MessageInformation" style="color:#666666;background-color:White;display:none;">

</div>
        </div>
    </div>
    <br />

    
<script type="text/javascript">
//<![CDATA[
var Page_ValidationSummaries =  new Array(document.getElementById("ValidationSummary2"), document.getElementById("ValidationSummary3"));
var Page_Validators =  new Array(document.getElementById("RadDock1_C_rfvKullaniciAdi"), document.getElementById("RadDock1_C_rfvSifre"), document.getElementById("RadDock1_C_captchaLogin_ctl00"));
//]]>
</script>

<script type="text/javascript">
//<![CDATA[
var RadDock1_C_rfvKullaniciAdi = document.all ? document.all["RadDock1_C_rfvKullaniciAdi"] : document.getElementById("RadDock1_C_rfvKullaniciAdi");
RadDock1_C_rfvKullaniciAdi.controltovalidate = "RadDock1_C_txtKullaniciAdi";
RadDock1_C_rfvKullaniciAdi.errormessage = "\'Kullanıcı Adı\' boş geçilemez.";
RadDock1_C_rfvKullaniciAdi.validationGroup = "Error";
RadDock1_C_rfvKullaniciAdi.evaluationfunction = "RequiredFieldValidatorEvaluateIsValid";
RadDock1_C_rfvKullaniciAdi.initialvalue = "";
var RadDock1_C_rfvSifre = document.all ? document.all["RadDock1_C_rfvSifre"] : document.getElementById("RadDock1_C_rfvSifre");
RadDock1_C_rfvSifre.controltovalidate = "RadDock1_C_txtSifre";
RadDock1_C_rfvSifre.errormessage = "\'Şifre\' boş geçilemez.";
RadDock1_C_rfvSifre.validationGroup = "Error";
RadDock1_C_rfvSifre.evaluationfunction = "RequiredFieldValidatorEvaluateIsValid";
RadDock1_C_rfvSifre.initialvalue = "";
var RadDock1_C_captchaLogin_ctl00 = document.all ? document.all["RadDock1_C_captchaLogin_ctl00"] : document.getElementById("RadDock1_C_captchaLogin_ctl00");
RadDock1_C_captchaLogin_ctl00.errormessage = "Güvenlik Kodu Doğrulanmadı!";
RadDock1_C_captchaLogin_ctl00.validationGroup = "Error";
RadDock1_C_captchaLogin_ctl00.evaluationfunction = "CustomValidatorEvaluateIsValid";
var ValidationSummary2 = document.all ? document.all["ValidationSummary2"] : document.getElementById("ValidationSummary2");
ValidationSummary2.validationGroup = "Error";
var ValidationSummary3 = document.all ? document.all["ValidationSummary3"] : document.getElementById("ValidationSummary3");
ValidationSummary3.validationGroup = "Information";
//]]>
</script>


<script type="text/javascript">
//<![CDATA[

var Page_ValidationActive = false;
if (typeof(ValidatorOnLoad) == "function") {
    ValidatorOnLoad();
}

function ValidatorOnSubmit() {
    if (Page_ValidationActive) {
        return ValidatorCommonOnSubmit();
    }
    else {
        return true;
    }
}
        
(function(id) {
    var e = document.getElementById(id);
    if (e) {
        e.dispose = function() {
            Array.remove(Page_ValidationSummaries, document.getElementById(id));
        }
        e = null;
    }
})('ValidationSummary2');

(function(id) {
    var e = document.getElementById(id);
    if (e) {
        e.dispose = function() {
            Array.remove(Page_ValidationSummaries, document.getElementById(id));
        }
        e = null;
    }
})('ValidationSummary3');
WebForm_AutoFocus('RadDock1_C_txtKullaniciAdi');Sys.Application.add_init(function() {
    $create(Telerik.Web.UI.RadFormDecorator, {"clientStateFieldID":"RadFormDecorator1_ClientState","decoratedControls":15,"enabled":true,"skin":"Office2007"}, null, null, $get("RadFormDecorator1"));
});
Sys.Application.add_init(function() {
    $create(Telerik.Web.UI.RadAjaxLoadingPanel, {"initialDelayTime":0,"isSticky":false,"minDisplayTime":0,"skin":"Office2007","transparency":0,"uniqueID":"RadAjaxLoadingPanel1","zIndex":90000}, null, null, $get("RadAjaxLoadingPanel1"));
});
Sys.Application.add_init(function() {
    $create(Telerik.Web.UI.RadTextBox, {"_displayText":"Lütfen \u0027Kullanıcı Adı\u0027 nızı giriniz.","_focused":false,"_initialValueAsText":"","_postBackEventReferenceScript":"setTimeout(\"__doPostBack(\\\u0027RadDock1$C$txtKullaniciAdi\\\u0027,\\\u0027\\\u0027)\", 0)","_skin":"Office2007","_validationText":"","clientStateFieldID":"RadDock1_C_txtKullaniciAdi_ClientState","emptyMessage":"Lütfen \u0027Kullanıcı Adı\u0027 nızı giriniz.","enabled":true,"styles":{HoveredStyle: ["width:238px;", "riTextBox riHover"],InvalidStyle: ["width:238px;", "riTextBox riError"],DisabledStyle: ["width:238px;", "riTextBox riDisabled"],FocusedStyle: ["width:238px;", "riTextBox riFocused"],EmptyMessageStyle: ["width:238px;", "riTextBox riEmpty"],ReadOnlyStyle: ["width:238px;", "riTextBox riRead"],EnabledStyle: ["width:238px;", "riTextBox riEnabled"]}}, null, null, $get("RadDock1_C_txtKullaniciAdi"));
});

document.getElementById('RadDock1_C_rfvKullaniciAdi').dispose = function() {
    Array.remove(Page_Validators, document.getElementById('RadDock1_C_rfvKullaniciAdi'));
}
Sys.Application.add_init(function() {
    $create(Telerik.Web.UI.RadTextBox, {"_focused":false,"_postBackEventReferenceScript":"setTimeout(\"__doPostBack(\\\u0027RadDock1$C$txtSifre\\\u0027,\\\u0027\\\u0027)\", 0)","_skin":"Office2007","clientStateFieldID":"RadDock1_C_txtSifre_ClientState","enabled":true,"styles":{HoveredStyle: ["width:238px;", "riTextBox riHover"],InvalidStyle: ["width:238px;", "riTextBox riError"],DisabledStyle: ["width:238px;", "riTextBox riDisabled"],FocusedStyle: ["width:238px;", "riTextBox riFocused"],EmptyMessageStyle: ["width:238px;", "riTextBox riEmpty"],ReadOnlyStyle: ["width:238px;", "riTextBox riRead"],EnabledStyle: ["width:238px;", "riTextBox riEnabled"]}}, null, null, $get("RadDock1_C_txtSifre"));
});

document.getElementById('RadDock1_C_rfvSifre').dispose = function() {
    Array.remove(Page_Validators, document.getElementById('RadDock1_C_rfvSifre'));
}

document.getElementById('RadDock1_C_captchaLogin_ctl00').dispose = function() {
    Array.remove(Page_Validators, document.getElementById('RadDock1_C_captchaLogin_ctl00'));
}
Sys.Application.add_init(function() {
    $create(Telerik.Web.UI.RadCaptcha, {"_audioUrl":"/Telerik.Web.UI.WebResource.axd?type=cah\u0026isc=false\u0026guid=18b60b82-7428-40d6-863a-e95333bada4b","_enableAudio":false,"_persistCode":false,"clientStateFieldID":"RadDock1_C_captchaLogin_ClientState"}, null, null, $get("RadDock1_C_captchaLogin"));
});
Sys.Application.add_init(function() {
    $create(Telerik.Web.UI.RadDockZone, {"allowedDocks":[],"clientID":"RadDockZone1","clientStateFieldID":"RadDockZone1_ClientState","layoutID":"","uniqueName":"RadDockZone1"}, null, null, $get("RadDockZone1"));
    $create(Telerik.Web.UI.RadDock, {"_enableDrag":false,"allowedZones":[],"clientStateFieldID":"RadDock1_ClientState","commands":[],"dockZoneID":"RadDockZone1","forbiddenZones":[],"layoutID":"","skin":"Office2007","tag":null,"title":"Kullanıcı Girişi","uniqueID":"RadDock1","width":"100%"}, null, {"dockZone":"RadDockZone1"}, $get("RadDock1"));
});
//]]>
</script>
</form>
</body>
</html>
Bu konuda yardımlarınızı bekliyorum, şimdiden çok teşekkür ederim

Kod: Tümünü seç

Hello world
[/b]
Başa dön
Kullanıcı avatarı
mrmarman
Üye
Mesajlar: 4740
Kayıt: 09 Ara 2003 08:13
Konum: İstanbul
İletişim:
İletişim mrmarman

Re: Siteye Login Olma

Mesaj gönderen mrmarman »

Merhaba...

- Site URL'sini versen çoktan yardımcı olmuştuk... TITLE içeriğini silmiş olsan da üniversitelerden birinin Kampüs Bilgi Sistemi olduğunu görüyorum :lol:
- Sitede alt form/frame oluşturulmuş ve bu başlıklar artık oranın altında olabilir. :idea:
Resim
Resim ....Resim
Başa dön
Kullanıcı avatarı
struggler
Üye
Mesajlar: 12
Kayıt: 21 Kas 2013 12:58

Re: Siteye Login Olma

Mesaj gönderen struggler »

Çok teşekkür ederim :) Sitenin urlsi
http://obs.balikesir.edu.tr/login.aspx? ... fault.aspx

bu arada helal olsun doğrusu bir KBS olduğunu nasıl anladığına hayret ettim ;)
En son struggler tarafından 22 Kas 2013 12:07 tarihinde düzenlendi, toplamda 1 kere düzenlendi.

Kod: Tümünü seç

Hello world
[/b]
Başa dön
Kullanıcı avatarı
mrmarman
Üye
Mesajlar: 4740
Kayıt: 09 Ara 2003 08:13
Konum: İstanbul
İletişim:
İletişim mrmarman

Re: Siteye Login Olma

Mesaj gönderen mrmarman »

Merhaba.

- Sitede sorun yok çalışıyor. Butona bastırmadım...

Kod: Tümünü seç

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  WebBrowser1.Navigate('http://obs.balikesir.edu.tr/login.aspx?ReturnUrl=/default.aspx');
  while WebBrowser1.ReadyState <> READYSTATE_COMPLETE do
  begin
    Sleep(1);
    Application.ProcessMessages;
  end;
  WebBrowser1.OleObject.Document.GetElementByID('RadDock1_C_txtKullaniciAdi').Value := '111111111111';
  WebBrowser1.OleObject.Document.GetElementByID('RadDock1_C_txtSifre').Value := 'deneme';
  WebBrowser1.OleObject.Document.GetElementByID('RadDock1_C_captchaLogin_CaptchaTextBox').Value := 'DNM';
  //WebBrowser1.OleObject.Document.GetElementByID('RadDock1_C_btnGiris').Click;
end;
Resim
Resim ....Resim
Başa dön
doktoraltun
Üye
Mesajlar: 73
Kayıt: 06 Oca 2012 06:56

Re: Siteye Login Olma

Mesaj gönderen doktoraltun »

//*[@id="RadDock1_C_txtKullaniciAdi_wrapper"]
//*[@id="RadDock1_C_txtSifre_wrapper"]
//*[@id="RadDock1_C_captchaLogin_CaptchaImage"]
//*[@id="RadDock1_C_btnGiris"]
Başa dön
Kullanıcı avatarı
struggler
Üye
Mesajlar: 12
Kayıt: 21 Kas 2013 12:58

Re: Siteye Login Olma

Mesaj gönderen struggler »

mrmarman arkadaşımız konuya anında aydınlık getirdi doğrusu sağolsun..

Kod: Tümünü seç

Hello world
[/b]
Başa dön
Kullanıcı avatarı
struggler
Üye
Mesajlar: 12
Kayıt: 21 Kas 2013 12:58

Re: Siteye Login Olma

Mesaj gönderen struggler »

Muharrem bey
sitenin güvenlik kodunun olduğu alana scrolları kaydırarak erişiyorum ve daha sonra scrolları yok ediyorum şu kod ile :

Kod: Tümünü seç

WebBrowser1.OleObject.Document.ParentWindow.ScrollBy(-500, -500);
WebBrowser1.OleObject.Document.ParentWindow.ScrollBy(241, 225);
Görüntü bu şekilde oluyor :
Resim


bunu bir imagenin içerisine filan alma durumumuz yok değil mi veya ne bileyim başka bir yolu, çünkü site girişine birşey eklendiği takdirde güvenlik kodunun bulunduğu alanda kayma meydana gelecekte, acaba başka bir yöntemle alabilir miyiz güvenlik kodunu

Kod: Tümünü seç

Hello world
[/b]
Başa dön
Kullanıcı avatarı
mrmarman
Üye
Mesajlar: 4740
Kayıt: 09 Ara 2003 08:13
Konum: İstanbul
İletişim:
İletişim mrmarman

Re: Siteye Login Olma

Mesaj gönderen mrmarman »

İyi geceler.

- Sen de mesai yapıyorsun sanırım bu saatte... :lol:

Senin için (her sitedeki Captcha kodu için aynı sonucu vermez ama) bu sitede kullanabileceğin bir kod hazırladım.

USES'a WinInet eklemeyi unutma, formuna bir tane TImage ekle. Aşağıdaki şekilde uygula...

Kod: Tümünü seç

procedure AktifResimYukle( WebBrowser:TWebbrowser; strAra:String; Image:TImage );
  // USES WinInet;
  function GetCacheFileName(URL: string): string;
  var
    pInfo: PInternetCacheEntryInfo;
    bufSize: Cardinal;
  begin
    Result := '';
    bufSize := 0;
    pInfo := nil;
    if not GetUrlCacheEntryInfo(PChar(URL), pInfo^, bufSize) then
    begin
      if GetLastError = ERROR_INSUFFICIENT_BUFFER then
        pInfo := AllocMem(bufSize)
      else
        Exit;
    end
    else
      Exit;

    if not GetUrlCacheEntryInfo(PChar(URL), pInfo^, bufSize) then
    begin
      FreeMem(pInfo);
      Exit;
    end;

    Result := pInfo^.lpszLocalFileName;
    FreeMem(pInfo);
  end;
var
  iSayac    : Integer;
  strKaynak : string;
begin
  Image.Picture.Graphic := Nil;
  for iSayac := 0 to WebBrowser.OleObject.Document.Images.Length - 1 do
  begin
    strKaynak := WebBrowser.OleObject.Document.Images.Item(iSayac).Src;
    if Pos(strAra, strKaynak ) > 0 then
    begin
      Image.Picture.LoadFromFile( GetCacheFileName( strKaynak ) );
    end;
  end;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
AktifResimYukle( WebBrowser1, 'Telerik.Web', Image1 );
end;
Başarılar. :bravo:
Resim
Resim ....Resim
Başa dön
Kullanıcı avatarı
struggler
Üye
Mesajlar: 12
Kayıt: 21 Kas 2013 12:58

Re: Siteye Login Olma

Mesaj gönderen struggler »

mrmarman yazdı:Merhaba.

- Sitede sorun yok çalışıyor. Butona bastırmadım...

Kod: Tümünü seç

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  WebBrowser1.Navigate('http://obs.balikesir.edu.tr/login.aspx?ReturnUrl=/default.aspx');
  while WebBrowser1.ReadyState <> READYSTATE_COMPLETE do
  begin
    Sleep(1);
    Application.ProcessMessages;
  end;
  WebBrowser1.OleObject.Document.GetElementByID('RadDock1_C_txtKullaniciAdi').Value := '111111111111';
  WebBrowser1.OleObject.Document.GetElementByID('RadDock1_C_txtSifre').Value := 'deneme';
  WebBrowser1.OleObject.Document.GetElementByID('RadDock1_C_captchaLogin_CaptchaTextBox').Value := 'DNM';
  //WebBrowser1.OleObject.Document.GetElementByID('RadDock1_C_btnGiris').Click;
end;
Mesai gece-gündüz sürekli devam ediyor robot gbi :D

Muharrem Bey resim yüklemesi için çok teşekkürler ancak

Kod: Tümünü seç

  WebBrowser1.OleObject.Document.GetElementByID('RadDock1_C_txtKullaniciAdi').Value := '111111111111';
  WebBrowser1.OleObject.Document.GetElementByID('RadDock1_C_txtSifre').Value := 'deneme';
  WebBrowser1.OleObject.Document.GetElementByID('RadDock1_C_captchaLogin_CaptchaTextBox').Value := 'DNM';
  WebBrowser1.OleObject.Document.GetElementByID('RadDock1_C_btnGiris').Click;
butona bastırdığımızda güvenlik kodunu giriyor kullanıcı adı ve şifre boş olarak girildi diye hata mesajı dönüyor butona bende bastırmazdan önce anlayamadım bir bakar mısınız

Kod: Tümünü seç

Hello world
[/b]
Başa dön
Kullanıcı avatarı
vkamadan
Kıdemli Üye
Mesajlar: 1935
Kayıt: 17 Mar 2004 03:52
Konum: Adapazarı
İletişim:
İletişim vkamadan

Re: Siteye Login Olma

Mesaj gönderen vkamadan »

merhabalar ,
login anında kontrol edilen HIDDEN sahalar olabilir, bu hidden sahalar kullanıcı adı ve şifresi girilirken tetiklenen bir JS event i ile doluyor yada validasyonu sağlıyor olabilir, özellikle MVC kullanarak yapılan .NET sitelerinde HTML elementlerinde ki JS eventlerini ilk bakışta göremezsiniz , ilgili elemanların onchange , onblur gibi JS lerini tetikleyip öyle login butonuna tıklamayı deneyin derim.

Kod: Tümünü seç

var
 v: Variant ;
begin
  WebBrowser1.OleObject.Document.GetElementByID('RadDock1_C_txtKullaniciAdi').FireEvent('onchange' , v);
end;
gibi..
Volkan KAMADAN
www.polisoft.com.tr
Başa dön
Kullanıcı avatarı
struggler
Üye
Mesajlar: 12
Kayıt: 21 Kas 2013 12:58

Re: Siteye Login Olma

Mesaj gönderen struggler »

mrmarman yazdı:İyi geceler.

- Sen de mesai yapıyorsun sanırım bu saatte... :lol:

Senin için (her sitedeki Captcha kodu için aynı sonucu vermez ama) bu sitede kullanabileceğin bir kod hazırladım.

USES'a WinInet eklemeyi unutma, formuna bir tane TImage ekle. Aşağıdaki şekilde uygula...

Kod: Tümünü seç

procedure AktifResimYukle( WebBrowser:TWebbrowser; strAra:String; Image:TImage );
  // USES WinInet;
  function GetCacheFileName(URL: string): string;
  var
    pInfo: PInternetCacheEntryInfo;
    bufSize: Cardinal;
  begin
    Result := '';
    bufSize := 0;
    pInfo := nil;
    if not GetUrlCacheEntryInfo(PChar(URL), pInfo^, bufSize) then
    begin
      if GetLastError = ERROR_INSUFFICIENT_BUFFER then
        pInfo := AllocMem(bufSize)
      else
        Exit;
    end
    else
      Exit;

    if not GetUrlCacheEntryInfo(PChar(URL), pInfo^, bufSize) then
    begin
      FreeMem(pInfo);
      Exit;
    end;

    Result := pInfo^.lpszLocalFileName;
    FreeMem(pInfo);
  end;
var
  iSayac    : Integer;
  strKaynak : string;
begin
  Image.Picture.Graphic := Nil;
  for iSayac := 0 to WebBrowser.OleObject.Document.Images.Length - 1 do
  begin
    strKaynak := WebBrowser.OleObject.Document.Images.Item(iSayac).Src;
    if Pos(strAra, strKaynak ) > 0 then
    begin
      Image.Picture.LoadFromFile( GetCacheFileName( strKaynak ) );
    end;
  end;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
AktifResimYukle( WebBrowser1, 'Telerik.Web', Image1 );
end;
Başarılar. :bravo:
Muharrem bey bu kodları yazdığımda sırayla aşağıdaki hataları veriyor
Resim <br>
Resim
sebebi nedir veya nasıl çözeceğiz (WinInet kütüphanesini de dahil ediyorum)

Kod: Tümünü seç

Hello world
[/b]
Başa dön
Kullanıcı avatarı
struggler
Üye
Mesajlar: 12
Kayıt: 21 Kas 2013 12:58

Re: Siteye Login Olma

Mesaj gönderen struggler »

vkamadan yazdı:merhabalar ,
login anında kontrol edilen HIDDEN sahalar olabilir, bu hidden sahalar kullanıcı adı ve şifresi girilirken tetiklenen bir JS event i ile doluyor yada validasyonu sağlıyor olabilir, özellikle MVC kullanarak yapılan .NET sitelerinde HTML elementlerinde ki JS eventlerini ilk bakışta göremezsiniz , ilgili elemanların onchange , onblur gibi JS lerini tetikleyip öyle login butonuna tıklamayı deneyin derim.

Kod: Tümünü seç

var
 v: Variant ;
begin
  WebBrowser1.OleObject.Document.GetElementByID('RadDock1_C_txtKullaniciAdi').FireEvent('onchange' , v);
end;
gibi..


Volkan bey dediğiniz okdlar ile tetikledim ancak şifre alanında çalışmadı bende böyle olunca inputlara keybd_event ile tuş gönderdim kullanıcı adı, şifre ve güvenlik kodu kısmına tuşları gönderebiliyorum ancak problem şöyle ben başka bir yerde çalıştığım esnada inputlara göndereceğim değerler başka yere gidiyor mesela ben wordde yazı yazarken keybd_event ile bastırdığım tuşlar ekrana geliyor bu keybd_event ile tuşa bastırmayı webbrowser'e göndertme imkanımız yok mu acaba, bu problem ile karşılaştıktan sonra araştırdım sizde daha önceden bu konuyu tartışmışsınız galiba

Kod: Tümünü seç

Hello world
[/b]
Başa dön
Kullanıcı avatarı
mrmarman
Üye
Mesajlar: 4740
Kayıt: 09 Ara 2003 08:13
Konum: İstanbul
İletişim:
İletişim mrmarman

Re: Siteye Login Olma

Mesaj gönderen mrmarman »

Merhaba.

- TImage nesnesinin JPEG tanıması için USES'a JPEG eklenmesi gerekiyor.

Başarılar. :idea:
Resim
Resim ....Resim
Başa dön
Kullanıcı avatarı
struggler
Üye
Mesajlar: 12
Kayıt: 21 Kas 2013 12:58

Re: Siteye Login Olma

Mesaj gönderen struggler »

mrmarman yazdı:Merhaba.

- TImage nesnesinin JPEG tanıması için USES'a JPEG eklenmesi gerekiyor.

Başarılar. :idea:
:bravo: Helal olsun, Bravo doğrusu Muharrem bey..

Kod: Tümünü seç

Hello world
[/b]
Başa dön
Kullanıcı avatarı
vkamadan
Kıdemli Üye
Mesajlar: 1935
Kayıt: 17 Mar 2004 03:52
Konum: Adapazarı
İletişim:
İletişim vkamadan

Re: Siteye Login Olma

Mesaj gönderen vkamadan »

struggler yazdı: Volkan bey dediğiniz okdlar ile tetikledim ancak şifre alanında çalışmadı bende böyle olunca inputlara keybd_event ile tuş gönderdim kullanıcı adı, şifre ve güvenlik kodu kısmına tuşları gönderebiliyorum ancak problem şöyle ben başka bir yerde çalıştığım esnada inputlara göndereceğim değerler başka yere gidiyor mesela ben wordde yazı yazarken keybd_event ile bastırdığım tuşlar ekrana geliyor bu keybd_event ile tuşa bastırmayı webbrowser'e göndertme imkanımız yok mu acaba, bu problem ile karşılaştıktan sonra araştırdım sizde daha önceden bu konuyu tartışmışsınız galiba
Merhaba ,
keybd_event tam olarak klavyeyi simüle ediyor, tuşu ortalığa gönderiyor aktif uygulama ve penceresi alıyor tuşu bu API nin belirtilen HANDLE a gönderme özelliği yok, bana da çok gerekliydi ama %100 aynı etkiyi gösteripte HANDLE hedef alacak şekilde çalışabilen başka bir API bulamadım.
Volkan KAMADAN
www.polisoft.com.tr
Başa dön
Cevapla

“Programlama” sayfasına dön