هل أستطيع باستخدام الفيجوال بيسك ارسال معلومات إلى صفحة انترنت

دي أول مشكاركة لي يعني الله يخليكم جاوبوني :( :(

الله يخليكم جاوبوني :( :( :( :( :(

الله يخليكم جاوبوني :( :( :( :( :(

الى يجاوك على السؤال ده رجال ال ASP و ال Php

اقتباس

الى يجاوك على السؤال ده رجال ال ASP و ال Php

شكرًأ على ردك

بس يعني مفيش أمل ولا إيه؟؟

دي أول مشكاركة لي يعني الله يخليكم جاوبوني :( :( :(

استني شويتين وهعملك مثال ..

سوري خطأ إضافة ..

اقتباس

استني شويتين وهعملك مثال ..

ألف شكر ومستنيك بفارغ الصبر والله

الملف مرفق

ما قولتش انت عايزه ليه ؟؟

Yahoo_Login_By_Pharaonic_Guy.rar

بارك الله فيك والله

أجربه وأقولك أنا عايزه ليه

ولو نجحت إن شاء الله يكون مشروع حلو

لو سمحت ممكن ايميلك لأني محتاج أستفهم عن حاجة؟

ولو مش عايز تكتبه ممكن تبعته في رسالة خاصة

استفهم هنا لإني ما بأدخلش علي شات أو علي الايميل

البرنامج مش بيفتح صفحة الإيميل

لكن بيفتح صفحة Sign In

الله يخليك رد علي

هل يوجد أحد أخر حمل الملف .. حصلت معه هذه الحركة ؟

أرجوكم أريد حلاً

محسسني إنك في باب أريد حلا في ركن التعساء لمجلة ..

ده فيديو مصور من علي جهازي أثناء عمل البرنامج .. وفيه تجد ان البرنامج يعمل عندي كالجرس

http://www.egoshare.com/5eee19104354d8896a...08/asdfrar.html

حاول تستكشف أين الخطأ عندك ..

كيب ما أنت نفس الحكاية عندك

أنا أقصد أنه ميطلبش مني اكتب الايميل والباسوورد تاني

علطول يفتح صفحة الايميل

الأول كنت بتقول بيفتح صفحة Sign In وما بيفتحش الايميل ..

ودلوقت بتقول بيفتح الأيميل وما بيفتحش Sign In ..

ايه الحكاية ؟؟

وعندك الكود افهمه وعدل فيه براحتك بما يناسبك ..

اقتباس

الأول كنت بتقول بيفتح صفحة Sign In وما بيفتحش الايميل ..

ودلوقت بتقول بيفتح الأيميل وما بيفتحش Sign In ..

ايه الحكاية ؟؟

وعندك الكود افهمه وعدل فيه براحتك بما يناسبك ..

أنا مقلتش يفتح صفحة Sign In انت اللي مفهمتنيش صح

أنا عايزه بيفتح الأيميل

انت عايزه يدخل علي الايميل بدون إظهار صفحة تسجيل الدخول Sign In

لو كنت عايز كده فبجد حرام عليك .. مغلبني معاك صفحتين ..

قم بتأخير حدث الـ Visible للكائن IE فقط ..

استبدل الكود اللي عندك بالتالي ..

Dim WithEvents IE As InternetExplorer
Dim IsLoging As Boolean

Private Sub Command1_Click()
 If Me.txtUser <> "" And Me.txtPWD <> "" Then
	Set IE = Nothing
	Set IE = New InternetExplorer
	IE.Navigate2 "http://mail.yahoo.com/"
	IsLoging = True
 End If
End Sub

Private Sub Command2_Click()
 Unload Me
End Sub

Private Sub IE_DocumentComplete(ByVal pDisp As Object, URL As Variant)
On Error GoTo Hell
If IsLoging = True Then
   IE.Document.login_form.login.Value = Me.txtUser
   IE.Document.login_form.passwd.Value = Me.txtPWD
   IE.Document.login_form.submit
   IsLoging = False
Else
   IE.Visible = True
End If
Hell:
 Resume Next
End Sub

الله عليك يا باشا

مية مية والله

اخي الموضوع حلو

بس الي ما فهمته

   IE.Document.login_form.login.Value = Me.txtUser
   IE.Document.login_form.passwd.Value = Me.txtPWD
   IE.Document.login_form.submit

ما عرفت اتعامل معها

اذا مثلا منتدى فيه المربعات ما عرفت كيف اطلع اسمائها و اتعامل معها

ارجوا توضيح هذي النقطة