منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] مساعدة بخصوص كود php - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم برمجة وتطوير المواقع (http://vb4arb.com/vb/forumdisplay.php?fid=51)
+--- قسم : قسم PHP (http://vb4arb.com/vb/forumdisplay.php?fid=58)
+---- قسم : قسم اسئلة PHP (http://vb4arb.com/vb/forumdisplay.php?fid=59)
+---- الموضوع : [سؤال] مساعدة بخصوص كود php (/showthread.php?tid=16274)

الصفحات: 1 2


RE: مساعدة بخصوص كود php - last_warrior - 29-06-16

اكواد مشروعي

حيث يتم تخزين الاميل فى ملف خارجي  والباسورد ايضا ومن ثم عند عند نسيان الباسورد يتم ارسال ارسالها عن طريق الاميل المخزن

PHP كود :
Dim Input_Email As String Nothing
        Dim FileReadLines 
As String() = IO.File.ReadAllLines(FileInfos)
 
       Dim WebB As New WebBrowser
        Input_Email 
InputBox("Add your email Address""Recovery password""Name@mail.com")

 
       If String.IsNullOrWhiteSpace(Input_EmailThen Exit Sub
        If String
.Equals(FileReadLines(0), Input_EmailThen
            WebB
.Navigate("http://windowskhalifa.comli.com/send.php" "?mail=" Input_Email "&subject=" Application.ProductName _
                           
" Recovery Password &body=" "Your Password Is : " _
                           
"""" FileReadLines(1) & """" Space(5) & _
                           
" Thank you for using the my software")
 
           MessageBox.Show("Your password has been retrieved successfully""Recovery password"MessageBoxButtons.OKMessageBoxIcon.Information)
 
       Else
            MessageBox
.Show("E-mail wrong""Error"MessageBoxButtons.OKMessageBoxIcon.Exclamation)

 
       End If 


المشكلة ليست فى الاكواد اخي المشروع كان يتشغل تمام لكن رابط الاستضافة بعد فترة  توقف وما قام بارسال اي اميل لان ما انا اللي سويت رابط الاستضافة
وحاولت ارفع الملف الاسكربت mailer الى الاستضافة واستخراج الرابط ما نفع معي
وكل المطلوب رابط مثل رابط المسئول الذي قام بعمله لانه يشتغل فقط
شرح فقط طريقة رفع الملف على الاستضافة واستخراج رابط شغال


RE: مساعدة بخصوص كود php - administrator - 29-06-16

تأكد ان دالة إرسال البريد مفعله على السيرفر
وانصحك ان تقوم بحجز استضافه مدفوعة
الاستضافة المجانيه غير مضمونه


RE: مساعدة بخصوص كود php - last_warrior - 29-06-16

فعلا الاستضافة المجانية غير مضمونه لانه على ما اعتقد بعد فترة تم اغلاق الحساب

لكن التاكد من دالة ارسال البريد من panel  لاني اول مرة اتعامل مع موقع استضافة

وكيف رفعت انت الملف وتم استخراج رابطك هذا (http://vb4arab.net16.net)

وشكرا لك


RE: مساعدة بخصوص كود php - الوادي - 29-06-16

يا محارب،

راح أعطيك طريقة سهلة لرفع الملفات للاستضافة ولكن كما قال المسؤول الاستضافة المجانية غير مضمونة.

بعد ما تدخل على حسابك في الاستضافة أدخل على لوحة التحكم Go to CPanel واختار منها FTP Details مثل هذه الصورة


وحتشوف تفاصيل الدخول على ال FTP أهم شي اكتبها عندك
FTP host name
FTP user name
FTP password
مثل هذه الصورة


الحين افتح مستكشف الويندوز (أدري ماني غلطان مستكشف الويندوز) واكتب في عنوان المسار مثل هذا كلمة ftp وبعدها : وبعدها // وبعدها FTP host name اللي قلت لك اكتبه
PHP كود :
ftp://agjem.net16.net 

راح تطلع نافذة تطلب منك FTP user name و FTP password اللي كتبتها سابقا مثل هذه الصورة


إذا كان كل شي تمام ودخل على الموقع راح تظهر لك ملفات أهم ما فيه المجلد public_html هو اللي حيكون ملفاتك فيه، اضف واحذف كما تشاء





RE: مساعدة بخصوص كود php - last_warrior - 29-06-16

تمام اخي كل هذا فعلته بالفعل ورفعت الملف عن طريق FileZilla  وكله تمام
وهذه صورة


لكن الخطوة التالية ما هي؟

عند فتح الملف من open واخذ الرابط لا يرسل شئ


RE: مساعدة بخصوص كود php - الوادي - 29-06-16

يا محارب،

جرب هذا التعديل
PHP كود :
Dim Input_Email As String Nothing
Dim FileReadLines 
As String() = IO.File.ReadAllLines(FileInfos)
Dim WebB As New WebBrowser
        Input_Email 
InputBox("Add your email Address""Recovery password""Name@mail.com")

If 
String.IsNullOrWhiteSpace(Input_EmailThen Exit Sub
If String.Equals(FileReadLines(0), Input_EmailThen
Dim r 
= New Net.WebClient().DownloadString(("http://windowskhalifa.comli.com/send.php" "?mail=" Input_Email "&subject=" Application.ProductName _
        
" Recovery Password &body=" "Your Password Is : " _
        
"""" FileReadLines(1) & """" Space(5) & _
        
" Thank you for using the my software"))
    
MessageBox.Show("Your password has been retrieved successfully""Recovery password"MessageBoxButtons.OKMessageBoxIcon.Information)
Else
    
MessageBox.Show("E-mail wrong""Error"MessageBoxButtons.OKMessageBoxIcon.Exclamation)

End If 



RE: مساعدة بخصوص كود php - last_warrior - 29-06-16

اخي المشكلة فى ليست فى تعديل الاكواد هي ما فىيها مشكلة هي تشتغل كويس انما المشكلة فى الاستضافة فقط بدليل الرابط الذي وضعه المسؤول يشتغل تمام ويتم ارسال ايميلات عادي


RE: مساعدة بخصوص كود php - الوادي - 29-06-16

يا محارب،

انا جربت الكود تبعك واشتغل،

باقي أعرف الخطوات اللي اتبعتها لانشاء حسال ورفع الملف ومحتوى الملف

وذا قدرت تعمل حساب وترسل لي بيانات الدخول لارى ما فعلت داخل المجلدات ليتضح مكان المشكلة


RE: مساعدة بخصوص كود php - administrator - 29-06-16

قم بحذف الملف ".htaccess"
وجرب الإرسال


RE: مساعدة بخصوص كود php - last_warrior - 29-06-16

هذا الاميل وبالباسورد الحساب على http://www.000webhost.com

mohamedkhalifakhalifa79@gmail.com

الباسورد  1 الى 6

ان شاء الله خير