من یه فایل php دارم که با بیسیک میخام باش ارتباط برقرار کنم و یه سری کار انجام بده
سورسشو میزارم متوجه میشید
این کد سمت سرور
<?php
$db =new PDO ('mysql:host=localhost;dbname=****;charset=utf8','****','****');
$kode=$_GET["kode"];
$phone=$_GET['phone'];
$email = $_GET['email'];if(isset($phone)){
$user_old = $db->query('select count(id) from tbl_user where phone="'.$phone.'"');
$c = $user_old->fetch()['count(id)'];if($c >0){
$db->query('UPDATE INTO tbl_user SET kode="'.$kode.'",email="'.$email.'" WHERE phone="'.$phone.'"');
$to = $email;
$subject ='دنتوئید';
$message ='سلام'."\r\n".'به دنتوئید خوش آمدید.'."\r\n".'برای تایید ایمیل خود، کد زیرا را داخل برنامه وارد کنید.'."\r\n".'کد تایید ='.$kode.'';
$message = wordwrap($message,70,"\r\n");
$headers ='From: [email protected]'."\r\n".'Reply-To: [email protected]'."\r\n";
mail($to, $subject, $message, $headers);
echo 'OK';}else{
echo 'moshkel';}}?>
این کد داخل بیسیک
ht_reg.PostString("http://goharshad8.ir/b4a/dentoeed/verify_email.php","email='"&phone_txt1.Text&"'&Kode='"&adad&"'&phone='"&phone&"'")SubJobDone(JobAsHttpJob)Log(Job.GetString)IfJob.Tag="ht_regg"ThenIfJob.SuccessThenIfJob.GetString="OK"ThenProgressDialogHideMain.sql.ExecNonQuery("UPDATE user SET email='"&email&"', kode='"&adad&"' where id=0")Dim snackbar AsDSSnackbar
snackbar.Initialize("snack100",Activity,"ایمیل ارسال شد.",snackbar.DURATION_LONG)SetSnackBarBackground(snackbar,ac.GetThemeAttribute("colorAccent"))SetSnackBarTextColor(snackbar,Colors.White)
snackbar.ShowStartActivity("verify_email_varede")Activity.FinishEndIfIfJob.GetString="moshkel"ThenDim snackbar AsDSSnackbar
snackbar.Initialize("snack100",Activity,"مشکل پیش آمده است. از ابتدا ثبت نام کنید.",snackbar.DURATION_LONG)SetSnackBarBackground(snackbar,ac.GetThemeAttribute("colorAccent"))SetSnackBarTextColor(snackbar,Colors.White)
snackbar.ShowStartActivity("main")Activity.FinishEndIfElseDim snackbar AsDSSnackbar
snackbar.Initialize("snack4",Activity,"خطا در برقراری ارتباط با سرور",snackbar.DURATION_LONG)SetSnackBarBackground(snackbar,ac.GetThemeAttribute("colorAccent"))SetSnackBarTextColor(snackbar,Colors.White)
snackbar.ShowEndIfEndIfEndSub
مشکل اینجاست که هیچ اتفاقی رخ نمیده
اصلن تو قسمت سمت سرور آدرس مرورگر هم که وارد میکنم با دادن مقادیر هیچ اتفاقی رخ نمیده!
سوال
mohammadnajani 12
با سلام خدمت دوستان
من یه فایل php دارم که با بیسیک میخام باش ارتباط برقرار کنم و یه سری کار انجام بده
سورسشو میزارم متوجه میشید
این کد سمت سرور
این کد داخل بیسیک
مشکل اینجاست که هیچ اتفاقی رخ نمیده
اصلن تو قسمت سمت سرور آدرس مرورگر هم که وارد میکنم با دادن مقادیر هیچ اتفاقی رخ نمیده!
لینک ارسال
به اشتراک گذاری در سایت های دیگر
5 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.