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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : سؤال بخصوص DOEVENTS ومشكله بالكود (/showthread.php?tid=29328)



سؤال بخصوص DOEVENTS ومشكله بالكود - dametucorazon - 11-04-19

السلام عليكم
لدي كود اقوم بالضغط علي زر في صفحة ويب هذا الزر لادخال رابط الصورة لدي
اريد بمجد ان تظهر النافذه الخاصة بالصور يتم وضع الكود تلقائي
هذا كودي
مرات يشتغل ومرات لا يتم وضع الرابط في النافذه
PHP كود :
 My.Computer.Clipboard.Clear()
 
       My.Computer.Clipboard.SetText(path.PHOTO_1.Text)
 
       WebBrowser2.Document.GetElementById("File1").InvokeMember("click")

 
       Application.DoEvents()
 
     
        Dim hwnd2 
As IntPtr FindWindow(Nothing"Choose File to Upload")
 
       If hwnd2 IntPtr.Zero False Then
            System
.Windows.Forms.SendKeys.SendWait("^%(b)")
 
       End If

 
       ' file 2 upload ////////////////
        If path.PHOTO_2.Text = "" Then
            GoTo SaveNow
        Else

        
            My.Computer.Clipboard.Clear()
            My.Computer.Clipboard.SetText(path.PHOTO_2.Text)
            WebBrowser2.Document.GetElementById("File2").InvokeMember("click")
        
       
            Dim hwndx As IntPtr = FindWindow(Nothing, "Choose File to Upload")
            If hwndx = IntPtr.Zero = False Then
                System.Windows.Forms.SendKeys.SendWait("^%(x)")
            End If 



RE: سؤال بخصوص DOEVENTS ومشكله بالكود - elgokr - 11-04-19

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

عليك استخدام الكود كالتالى
كود :
   Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       My.Computer.Clipboard.Clear()
       My.Computer.Clipboard.SetText(Path.PHOTO_1.Text)
       Await WebBrowser2.Document.GetElementById("File1").InvokeMember("click")
       Dim hwnd2 As IntPtr = FindWindow(Nothing, "Choose File to Upload")
       If hwnd2 = IntPtr.Zero = False Then
           System.Windows.Forms.SendKeys.SendWait("^%(b)")
       End If
   End Sub

لاحظ كلمة Await قبل كلمة WebBrowser2
وكلذلك كلمة Async فى سطر كود الحدث قبل كلمة Sub

تحياتى لك
وتمنياتى لك التوفيق



RE: سؤال بخصوص DOEVENTS ومشكله بالكود - dametucorazon - 12-04-19

جزيت خيرا اخي الفاضل علي مساعدتك
انا اقوم اولا بتحميل بعض البيانات داخل الفورم عند اكتمال تحميل البروزر ثم اقوم بارفاق صورة

انا استخدم الكود المعدل من قبلك داخل تايمر
 الان يظهر لدي خطأ عند محاولة تنفيذ هذا الكود
the application is in break mode
انا استخدم فيجوال ستوديو 2015


RE: سؤال بخصوص DOEVENTS ومشكله بالكود - elgokr - 12-04-19

لى ولك وللجميع بامر الله

بخصوص هذه الرسالة
لكونك تستخدم الكود داخل الـ Timer
ابسط شئ ممكن اقوله تخيل كده
انك كل ثانية اذا كان الوقت محدد 1000 
بتطلب انه يقوم بعملية الـ click

وهذا خطاء
اذا كنت تريد ان تضع الكود فى المكان 
بحيث تلقائي يقوم بتنفيذ هذا الكود 
ضعه فى حدث WebBrowser2 الخاص بـ DocumentCompleted
بحيث بعد انتهاء من فتح الصفحة للرابط المدرج فى اللود مثلاً

سيقوم بعد ذلك بتنفيذ هذا الكود

تحياتى لك
وتمنياتى لك التوفيق



RE: سؤال بخصوص DOEVENTS ومشكله بالكود - dametucorazon - 13-04-19

حاضر يااخي اسال الله تيسيرا لكل امورك


RE: سؤال بخصوص DOEVENTS ومشكله بالكود - elgokr - 15-04-19

اللهم امين يارب العالمين
لى ولك وللجميع بامر الله

تحياتى لك
وتمنياتى لك التوفيق