• اطلاعیه ها

    • H@mid.RS

      جذب نیرو   پنجشنبه, 10 فروردین 1396

      درود به دوستان عزیز به چند نفر مدیر برای بخش های php و گرافیک نیازمندیم درصورت تمایل درخواست خود را در پیام خصوصی بفرستید  
    • H@mid.RS

      تغییر نام کاربری   دوشنبه, 28 فروردین 1396

      درود دوستانی که نام کاربری انها با ایمل شان یکی بود تغییر کرد مثلا نام کاربری sss@tmail.com به sss تغییر کرد دوستانی که مشکل ورود دارند @ به بعد را پاک کنند
    • H@mid.RS

      کسب درآمد   پنجشنبه, 31 فروردین 1396

      دوستانی که میخواهند با انجمن خودشون همکاری کنند و از محیط انجمن درآمد کسب کنند به بنده پیام خصوصی بفرستند
  • 0
mr.edris

لاگین به یک اسکریپت دیگه

سوال

سلام به بچه های باحال انجمن

آقا یه سوال

ببینین این فایل php هستش

<?php

// Get available languages
if (!isset($language_id)) $language_id=0;

$languages=array();
if (!empty($session->_conf_all['allow_language_selection']) && !empty($session->_conf_all['login_language_selection'])) {
  $languages=$l->getLanguages(false);
  // Any language already selected
  if (!empty($language_id)) {
    foreach ($languages as $data) {
      if ($language_id==$data['id'] || $language_id==$data['iso_name']) {
        $preselect_language=$data['id'];
        break;
      }
    }
  }
  if (empty($preselect_language)) {
    // Get proposed by client languages
    $preselect_language=0;
    $accept_languages=!empty($_SERVER['HTTP_ACCEPT_LANGUAGE'])? explode(',', $_SERVER['HTTP_ACCEPT_LANGUAGE']) : array();
    foreach ($accept_languages as $val) {
      $val=strpos($val, ';')? substr($val, 0, strpos($val, ';')) : $val;
      foreach ($languages as $data) {
        if (strtolower(trim($val))==$data['iso_name']) {
          $preselect_language=$data['id'];
          break;
        }
      }
      if (!empty($preselect_language)) {
        break;
      }
    }
  }
  if (empty($preselect_language)) {
    $preselect_language=$session->_conf_all['default_language'];
  }
  $l->setLanguage($preselect_language);
}

_pcpin_loadClass('pcpintpl'); $tpl=new PcpinTpl();
$tpl->setBasedir('./tpl');
$tpl->readTemplatesFromFile('./login.tpl');

$_body_onload[]='initLoginForm('.htmlspecialchars($session->_conf_all['login_length_min']).', '
                                .htmlspecialchars($session->_conf_all['login_length_max']).', '
                                .(!empty($admin_login)? 'true' : 'false')
                                .')';

// JS file for login
$_js_files[]='./js/login.js';

// JS language expressions
$_js_lng[]='username_empty';
$_js_lng[]='email_invalid';
$_js_lng[]='username_length_error';
$_js_lng[]='password_too_short';
$_js_lng[]='passwords_not_ident';

// Add global vars to template
foreach ($global_tpl_vars as $key=>$val) {
  $tpl->addGlobalVar($key, htmlspecialchars($val));
}

// Add language expressions to template
foreach ($tpl->tpl_vars_plain as $var) {
  if (0===strpos($var, 'LNG_')) {
    $var=strtolower($var);
    $tpl->addGlobalVar($var, htmlspecialchars($l->g(substr($var, 4))));
  }
}

$tpl->addVar('main', 'login_maxlength', htmlspecialchars($session->_conf_all['login_length_max']));

$tpl->addVar('guest_login', 'display', empty($hide_account_options) && $session->_conf_all['allow_guests']);
$tpl->addVar('account_options', 'display', empty($hide_account_options));

$tpl->addVars('chat_summary', array('display'=>!empty($session->_conf_all['display_startup_summary']),
                                    'height'=>htmlspecialchars($session->_conf_all['startup_summary_height']),
                                    ));

if (!empty($direct_login) && !empty($login) && !empty($password)) {
  $tpl->addVars('main', array('login_username'=>htmlspecialchars($login),
                              'login_password'=>htmlspecialchars($password),
                              ));
  $_body_onload[]='doLogin()';
}

// Language selection
if (!empty($session->_conf_all['allow_language_selection']) && !empty($session->_conf_all['login_language_selection'])) {
  $tpl->addVar('language_selection', 'display', true);
  foreach ($languages as $data) {
    $tpl->addVars('language_selection_option', array('id'=>htmlspecialchars($data['id']),
                                                     'local_name'=>htmlspecialchars($data['local_name']),
                                                     'selected'=>($data['id']==$l->id)? 'selected="selected"' : '',
                                                     ));
    $tpl->parseTemplate('language_selection_option', 'a');
  }
}

// Display "Register" link
$tpl->addVar('account_options_register', 'display', $session->_conf_all['allow_user_registration']);
?>

متغیر یوزرنیم :$login

متغییر پسورد : $password

البته فکر میکنم که اینجوری باشه

 

حالا اگر با دوتا تکست باکس

و یه باتن از طریق پست  متغییر به این فایل بفرستم جوابگو هستش؟

پسند شده توسط Sina

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

5 پاسخ به این سوال تا کنون داده شده است

  • 0

درود ادریس


می خوای از داخل برنامه نام کاربری و پسورد رو ارسال کنی به این فایل php و اون این کارو انجام بده ؟


پسند شده توسط mr.edris

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0

 

درود ادریس

می خوای از داخل برنامه نام کاربری و پسورد رو ارسال کنی به این فایل php و اون این کارو انجام بده ؟

 

دقیقا :DD:

پسند شده توسط H@mid.RS

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0

با استفاده از poststring که در کتابخانه httpjob هستش می توانید 'این کار را انجام بدید

پسند شده توسط H@mid.RS و mr.edris

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0

با استفاده از poststring که در کتابخانه httpjob هستش می توانید 'این کار را انجام بدید

میدونم میگم مشکل نداره ؟

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0

دقیقا :DD:

کتابخانهHttpUltis2 رو تیک بنداز

و با استفاده از کد زیر این کارو می تونی انجام بدی همون poststring

Sub Button1_Click
	Dim Basic4x As HttpJob
	Basic4x.Initialize("job",Me)
	Basic4x.PostString("http://basic4x.ir/insert.php","login="&EditText1.Text&"&password="&EditText2.Text&"")
	ProgressDialogShow("در حال ارتباط با سرور...")
End Sub
Sub jobdone(job As HttpJob)
	If job.Success = True Then
		If job.JobName = "job" Then			
			ProgressDialogHide
			Msgbox("با موفقیت انجام شد","")
			
		End If
	End If
End Sub

تست کن چون من تست نکردمش ولی قانونش همینه

پسند شده توسط mr.edris و Sina

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

برای اینکه بتوانید دیدگاهی ارسال کنید نیاز دارید که کاربر سایت شوید

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !


ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید


ورود به حساب کاربری