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

• matrixyb كتب:

  
  

• اخي الموضوع حلو
  
• بس الي ما فهمته
  
• 
  [*] IE.Document.login_form.passwd.Value = Me.txtPWD
  [*] IE.Document.login_form.submit

     IE.Document.login_form.login.Value = Me.txtUser

  
  

• ما عرفت اتعامل معها
  
• اذا مثلا منتدى فيه المربعات ما عرفت كيف اطلع اسمائها و اتعامل معها
  
• ارجوا توضيح هذي النقطة
  
• والله أخي العزيز سبقتني في السؤال
  
• وحتى بكده يبقى أكتر من عضو محتاج يعرف
  
• يعني لو سمحت رد علينا

  
  

هاتوا السورس بتاعة صفحة تسجيل الدخول للياهو ..

وستجدوا فيه الأتي :

اقتباس

<form method="post" action="https://login.yahoo.com/config/login?" name="login_form">

<input name="login" id="username" value="" size="17" class="yreg_ipt" type="text">

<input name="passwd" id="passwd" value="" size="17" class="yreg_ipt" type="password">

اسم الفورم login_form

حقل الـ ID باسم login

حقل الباسورد باسم passwd

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

Document.login_form.login أو Document.login_form.passwd

وبعد ذلك نقوم بعمل Submit للفورم للطلب Post ..

هذه من أساسيات الـ HTML ..

ويمكن معرفة أسماء الحقول بحفظ الصفحة وفتحها بفرونت بيج .. ومنه إلي خصائص الحقول ..

فعلا أنا عملت كده لكن لو كانت الصفحة aspx هل تكون نفس الطريقة؟؟

مستخدمين الـ Firefox عندهم toolbar رائع جداً للمبرمجين اسمه Web Developer

https://addons.mozilla.org/en-US/firefox/im...on_preview/60/1

فيه اشياء لا تصدق بخصوص الـ image ، CSS ، JS ومن ظمنها الـ Forms

بمجرد زر يجيب لك جميع الحقول ووصفها ... إلخ

https://addons.mozilla.org/en-US/firefox/addon/60

مشكور اخي على التوضيح

و الان استطيع التعامل معه 100 على مية

و شكرا لكم

هذا كود htm

<html>
<body>
<form name="foorm1" enctype="multipart/form-data"
   action="/up3/up.php" method="post">
<input type="hidden" name="MAX_FILE_SIZE" value="102400">
<input type="file" name="ffupload">

<input type="submit" value="upload!">
</form>
</body>
</html>

وهذا الكود الذي استخدمته

IE.Document.foorm1.ffupload.Value = Me.txtUser

لكن لم ينجح الامر

لماذاااا

؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

الأخ MjXP7

سبق مناقشة هذا الأمر منذ عام

اقتباس

العنصر من نوع File المستخدم في استعراض الملفات لا يعتبر في الواقع IHTMLELEMENT

بل له فئة خاصة به تدعي IHTMLInputFileElement

/index.php?showtopic=83080

شكرا جزيلا لك اخ Pharaonic_Guy

وبالفعل ردودك في هذا الموضوع احترافية وتدل على اهتمامك

مع تحياتي

محمد جمال

أخ Pharaonic_Guy أنا بحاول أعمل مشروع فيه نفس فكرتك بالمشروع المرفق بالمشاركة رقم 11 و بستخدم فيه :

IE.Document.sendin.username.Value = "##"
IE.Document.sendin.password.Value = "##"
IE.Document.sendin.submit

لكن الـ VB بيظهر الخطأ التالى : Object doesn't support this property or method عند السطر الأول !

الصفحة اللى بحاول فيها مرفقة :

Mikrotik.rar

اهلا أخي محمد

استخدم التالي ..

IE.Document.login.username.Value = "##"
	IE.Document.login.password.Value = "##"
	IE.Document.login.Submit

لإنك لو لاحظت في الكود بتاع فورمه Sendit كل العناصر hidden

		<input name="username" type="hidden">
		<input name="password" type="hidden">

وبالتالي مش هي دي العناصر اللي ظاهره في الصفحة ..

ولو نزلت لتحت شوية هتلاقي كود الفورمه Login وهو المستخدم

<form name="login" action="http://192.168.5.1/login" method="post" onsubmit="return doLogin()">

<input style="width: 80px;" name="username" value="" type="text">
<input style="width: 80px;" name="password" type="password">
<input value="OK" type="submit">
</form>

أشتغل بس حصلت حاجة غريبة ؟!

أتنفذ الكود مرتين و فى المرة التانية طلع نفس الـ Error السابق مع أول سطر , اللى خلانى أقول أنه أشتغل مرتين هو أنى أستخدمت :

Option Explicit

Private WithEvents IE As InternetExplorer

Private Sub Command1_Click()
IE.Navigate "http://192.168.5.1/login"
End Sub

Private Sub Form_Load()
Set IE = New InternetExplorer
End Sub

Private Sub IE_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Caption = "1"
IE.Document.login.username.Value = "msayed2004"
IE.Document.login.password.Value = "msayed2004"
IE.Document.login.Submit
Caption = "2"
End Sub

تغيير الـ Caption كان لعبة مش أكتر , و اللى حصل أنه أدانى 1 و بعدين 2 و بعدين 1 و بعدين الـ Error !

رجعت لمشروعك و عملت فكرتك بتاعة المتغيير من نوع Boolean و نجح بدون مشاكل , فيا ترى ايه سبب الحكاية دى؟ , أنا متوقع أنه الـ Redirect اللى بيحصل بينفذ حدث الـ DocumentComplete تانى !

عموما أتحلت الحمد لله و شاكر جدا جدا جدا جدا ...................................................... ليك على الحل و سرعة الأستجابة.

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

شكلى هرجع أذاكر من W3Schools تانى :lol: !

انت عارف اني ما أقدرش أجرب الكود ولو إن كان نفسي ..علشان أشوف اللي بيحصل ده فعلا ..

لكن ممكن تكون المشكلة إنك ما زالت مراقب حدث الـ DocumentComplete بعد عمل Submitting لأول مرة ..وهو ما وضحته انت بالـ Redirect ..

حيث بعد عمل sumitting يبذهب إلي http://192.168.5.1/login وعند اكتمال تحميل تلك الصفحة .. سيتفجر الحدث DocumentComplete مرة أخري ..ولن يجد حينها login.username أو login.username وسيعطي خطا

Object doesn't support this property or method

وبالتالي فيه حلول عدة لو كان الخطأ من هنا ..

الاول وهو زي ما انت عملت واستخدمت متغير boolean ..

الثاني وهو إخلاء الكائن بعد تسجيل الدخول Set IE = Nothing في نهاية الحدث Document_Complete وبالتالي ستضطر أخذ نسخة من الكائن كل مرة لتسجيل الدخول مثلا في الكوماند

Private Sub Command1_Click()

Set IE = New InternetExplorer

End Sub

الثالث وهو مراقبة عناوين الصفحات وتنفيذ الأحداث التي نريدها في أي صفحة نريدها عن طريق التابع URL

DocumentComplete(ByVal pDisp As Object, URL As Variant)

وفي الأخر اي مشكلة غير منطقية تحدث في الـ IE .. ريح دماغك واتبع المثل القائل (ده الـ IE .. مفيش فايدة)

اخي العزيز Pharaonic_Guy

استمتعت جدا بردودك في الموضوع وهذا يدل على حرصك الكبير على التعاون واثراء المنتدى

عندي استفسار بسيط اتمنى من حضرتك الجواب علية

عند تشغيل البرنامج بنفس الطريقة اللتي ذكرتها في مقطع الفيدو لايعمل البرنامج لدي ويظهر نافذة خطأ تقول الاتي:

http://www.phroon.com/up/file1/ww316.bmp

وجزاك الله خير

شكر ا لك كود رائع

نفذته في أكثر من موقع ونجح لكني فشل في الدخول إلى بريد الـGmail

ممكن تضع مثال للدخول للجي ميل

-The-Ghost- كتب:

السلام عليكم ورحمة الله وبركاته

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

يعني مثلاً:

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

بوكس الموجود بالصفحة

أتمنى تفهموا قصدي

يعني أقصد مثلاً أنا عندي 2 تكست بوكس

و أداة الويب برواوزر

وكوماند1

عايز لما اكتب مثلاً في التكست الأول حاجة تروح مثلاً لصفحة السين ان في الياهو في تكست الايميل

و التكست التاني يروح في تكست الباسوورد

ولما اضغط على الكوماند

يفتح الصفحة اللي هتظهر لو ضغطت على سين ان

يعني صفحة الايميل

أتمنى يكون كلامي واضح

والسلام عليكم ورحمة الله وبركاته

جرب ان تدخل على الموقع التالى فى قسم الخاص بالنت ..معلومات مفيده جدا فى ادخال اوانزال شىء من صفحات نتwww.garybeene.com

أخي jabanah

شكرا علي غالي.. بس ياريت تحفظ الصور بتنسيق jpg ..

ومشكلة defined type not defined تظهر -علي حد معرفتي- عند وجود تعريف لمكتبة غير مدرجة للمشروع .. أو غير موجودة أصلا في النظام ..

وبالتالي تأكد من إدراج مكتبة Microsoft Internet Controls إلي مشروعك عن طريق قائمة Project واختار References

وإذا لم كانت مدرجة .. فينبغي استخدام IE6 لإني أسمع إن فيه مشاكل مع SHDOCVW.dll في IE7

أخي المتميز

لا أجد ما يمنع من تنفيذ الطريقة علي gmail

اسم الفورم :gaia_loginform

حقل اليوزر :Email

حقل الباسورد :Passwd

جرب كده واعلمني بالنتيجة ..

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