تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال بخصوص DOEVENTS ومشكله بالكود
#1
السلام عليكم
لدي كود اقوم بالضغط علي زر في صفحة ويب هذا الزر لادخال رابط الصورة لدي
اريد بمجد ان تظهر النافذه الخاصة بالصور يتم وضع الكود تلقائي
هذا كودي
مرات يشتغل ومرات لا يتم وضع الرابط في النافذه
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 
الرد }}}
تم الشكر بواسطة:


الردود في هذا الموضوع
سؤال بخصوص DOEVENTS ومشكله بالكود - بواسطة dametucorazon - 11-04-19, 12:03 PM


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم