عمل Post للبرنامج

اعتقد ان هذا السؤال مكانه قسم ال ASP.NET :)

بعد التحية ...

لو كان مكانه في ال asp.net لوضعته هناك ، و لكن :

* البرنامج الذي يُفترض ان يستلم محتويات ال form هو برنامج exe معمول بالفيجوال بيسك .

* الاداة التي تعرض صفحة ال HTML هي اداة DHTMLEdit

عموما ، اشكرك على حرصك علم نظم المنتدى ، و ارجوا ان تغفر لي عدم مقدرتي على ايصال ما اطلب بشكل يفهمه الجميع :)

بعد التحية ...

للرفع

يا تري وصلت للاجابة ولا لسة لاني محتاجها ضروري جدا جدا جدا

بعد التحية ...

بداية ، اشكرك على استخدام خاصية البحث ، حيث اني متغيب عن المنتدى بسبب الامتحانات ، و لو لا الاعلام البريدي حين سؤالك ، لما كنت قد تمكنت من مساعدتك ...

البرنامج يؤدي المطلوب ، و يمكنك تعديله حسب احتياجاتك الخاصة ... و هو سهل جدا و لا يحتاج لشرح :) :D :D

HTMLFORM2VB.rar

للايف لما نزلت الملف ما اشتغل معاي طلع بايظ ياريت ترفعة علي اي مركز تحميل مجاني معلش ارجوك محتاجة ضروري جدا جدا جدا

حملت الملف بس طلب كلمة سر ؟؟؟؟؟؟؟؟؟؟؟؟؟؟

هل افقد الامل !!!!!!!!!!!!!!!!

أنا كنت بأقوم بإعداد موضوع عن ال IE Automation منه تستطيع عمل مراقبة شبة كاملة للمتصفح ..

ولكن يبدو انه لن يري النور عما قريب ..

علي العموم الكود التالي هو الذي تحتاجه:

قم بإضافة أداة WebBrowser إلي المشروع باسم Web

والمثال علي كيفية عمل بحث في جوجل..

Private Sub Form_Load()
 Web.Left = 0
 Web.Top = 0
 Web.Navigate2 "www.google.com"
End Sub

Private Sub Form_Resize()
 Web.Width = ScaleWidth
 Web.Height = ScaleHeight
End Sub

Private Sub Web_DocumentComplete(ByVal pDisp As Object, URL As Variant)
On Error Resume Next
 Debug.Print URL
   Web.Document.f.q.Value = "ArabTeam2000"
   Debug.Print Web.Document.f.q.Value
   Web.Document.f.Submit
End Sub

Search_Google.rar

ماني عارف اشكرك ازاي انا حاجربة و ارد عليك الف الف الف شكر

طيب اذا انا حبيت اخلي البرنامج يبحث علي اساس كلمة معينة تتغير و تتكتب داخل text مثلا يعني بدون الارتباط بكلمة معينة

هو مفيش حد عارف الاجابة ولا محدش دخل اصلا

بعد التحية

Dim WithEvents Doc As HTMLDocument


Private Sub Command1_Click()
Set Doc = DHTMLEdit1.DOM
MsgBox Doc.All.length
For i = 0 To Doc.All.length - 1
	MsgBox Doc.All(i).tagName
Next
End Sub

Private Sub DHTMLEdit1_onclick()
Set Doc = DHTMLEdit1.DOM
If Doc.activeElement.Type = "submit" Then

	For i = 0 To Doc.activeElement.Form.length - 2
	   MsgBox Doc.activeElement.Form.Item(i).Value
	Next
End If

'gBox DHTMLEdit1.DOM.Forms(0).method

'MsgBox DHTMLEdit1.DOM.Forms(0).All.Item(1).tagName
'MsgBox TypeName(Me.DHTMLEdit1.DOM)

End Sub

Private Sub Form_Load()
DHTMLEdit1.LoadURL "D:\My Documents\VBP\codes\DHTML Control" & "\swf.htm" 'App.Path & "\index.htm"
End Sub

هذا بالنسبة للملف اذي به كلمة سر ، لا تنسى اضافة ال microsoft html object lib. من الرفرنس

اعت÷ر « حيث اني لم ار الموضوع طيلة الفترة الماضية

مشكور اخي العزيز علي ردك الف الف شكر عن جد بس ولكني لم افهم الكود جيدا ارجوك اعذرني اذا في مثال بدون باسورد اكون شاكر لك

بارك الله فيك و في الاخ Pharaonic_Guy و جزاكم خيرا باذن الله

الأخ Mohammed-Saeed قام بوضع الكود الذي تريده..

ولكنك ستستخدم لهذا الكود الأداة DHTML Edit Control .. فقم بإضافتها من ال Components..

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

Private Sub Command1_Click()
On Error Resume Next
 Dim My_Element As Object
  Set My_Element = DHTMLEdit1.DOM.All.Item("Username")
  MsgBox My_Element.getAttribute("Value")
End Sub

فبما أنك تعلم اسم التكست الذي تريد إتيان قيمته ..وهو في المثال السابق Username

وبالتالي يمكنك إسناد المرجع إليه وإتيان قيمته Value بالوظيفة getAttribute

وستجد مشروع مرفق يوضح كيفية عمل ذلك بأداة DHTML Edit Control

------------------------------------------------------------------------------------------------------------

ولكنك بالتأكيد لا تريد إقحام الأداة DHTML Edit Control في مشروعك وبالتالي تعالي ننقل هذا الكلام إلي أداتنا Web Browser.

فالأمر لن يختلف كثيرا لأنه نفس الـ Automation

Private Sub Command1_Click()
  On Error Resume Next
  Dim My_Element As Object
  Set My_Element = WebBrowser1.document.All.Item("Username")
  MsgBox My_Element.getAttribute("Value")
End Sub

والمشروع مرفق أيضا للأداة Web Browser

وبالتالي يمكنك إتيان القيمة الموجودة في التكست في أي وقت وهو ما طلبته..

Get_ELement_Value.rar

مشكوووووووووووووور الله يخليك و يكرمك و يوفقك و يزيدك من علمة

جميل جدا انا فهمت المثال كويس لكن دة علشان اجيب قيمة داخل تكست معين في صفحة نت لكن اللي انا عايز افهمة ازاي انا انقل قيمة من تكست بكوس عندي في البرنامج لتكست بوكس داخل صفحة نت و في حاجة تانية وهيو مثلا لو في مركز تحميل زي دة مثلا www.melano1.com/up ازاي اعمل زرار اني اول ما ادوس علية يرفع الملف اللي انا اخترتة قبل كدة انا شفت الفكرة دي قبل كدة ببرنامج بالفيجوال بيزك وسالت المبرمج بس مارضيش يقول لي الطريقة

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

هل فهمت المثال الأول عن كيفية البحث في جوجل ..

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

كل ما ستحتاجه هو معرفة اسم عنصر التكست في صفحة التحميل..واسم الفورم الذي يت عمل post منه

وإرسال ما تريد إل التكست ..و من ثم عمل Submit..

اسم التكست في الموقع الذي ذكرته هو file..

واسم الفورم هو upload

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

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL 

As Variant)
On Error Resume Next
 Debug.Print URL
   Web.Document.upload.file.Value = "ArabTeam2000"
   Web.Document.upload.Submit
End Sub

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

حاولت يمين وشمال.. وفي الأخر وجدت أن العنصر من نوع File المستخدم في استعراض الملفات لا يعتبر في الواقع IHTMLELEMENT

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

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

فقط لا تنسي أن تضيف مكتبة Microsoft Html Object Library من ال References

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL 

As Variant)
On Error Resume Next
  Dim My_Element As IHTMLInputFileElement
  Set My_Element = WebBrowser1.Document.All.Item("file")
	  My_Element.Value = "Path of the File"
	  My_Element.Form.submit

End Sub

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

حاولت يمين وشمال .. وفي الأخر دخلت علي ال MSDN لاكتشف أن الخاصية (Value.) للقراءة فقط .. ReadOnly..فلابد

للمستخدم من أن يستعرض الملف يدويا..

اي أنك تستطيع قراءة مسار الملف فقط ..وذلك علي ما ذكر لأسباب أمنية ..

طيب مهو ممكن ندور حول هذه المشكلة بدالة SendKeys..

فقط نحتاج إلي جعل ال Focus علي صندوق الادخال ..

ويمكننا استخدام الوظيفة Select..وهي تقوم بعمل Highlight علي اي مدخلات في صندوق الادخال..وبالتالي فهي تقوم بما نريده وهو جعل ال Focus علي صندوق الادخال..

وبالتالي الكود سيكون هكذا ..

Private Sub Command1_Click()
  Dim My_Element As IHTMLInputFileElement
  Set My_Element = WebBrowser1.Document.All.Item("file")

   WebBrowser1.SetFocus
   My_Element.Select
   SendKeys ("Path of the File")
   My_Element.Form.submit
End Sub

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

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

وبالتالي إذا كان لديك موقع أخر فضعه حتي يمكننا التجربة عليه..

ههههههههههههه معلش تعبتك معايا و جبتك يمين و شمال كتير و حاشوف موقع تاني كمثال والله انا مكسوف منك

معلش لو في مثال يكون عملت فية خدمة العمر

وياريت اميلك لو مفيش احراج لو مش ينفع عادي اللي يريحك

أعطيني موقع أخر جيد يقدم تلك الخدمة .. ليكون المثال نهائي علي هذا الموقع..

ايميلي هو thensync@hotmail.com

مشكور و تمت الاضافة و اميلي هو hashish2003@hotmail.com

وهذا هو الموضع http://www.yfoq.com اسف تعبتك معاي

حظك طلع حلو .. والشغله اتضبطت تمام ..

دوختني علي بال ما اضبطها..

بس هحطلك الكود بكره علشان أضبطهولك وأخليه كمان يجيب لينك التحميل النهائي للصورة المرفوعة..

أنا اشتغلت علي موقع اسمه http://www.arab-x.com/ لان الموقع اللي اديتهولي كان مليان إعلانات والصفحة كبيرة وحجمها كبير..وسرعة النت عندي ضعيفة دلوقت..

إلي الغد بإذن الله..

مشكور معلش تعبتك معايا

المشروع مرفق...

صورة المشروع كالتالي :

Upload_Pictures_With_File_Element.rar