تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] سؤال فتح ايميل بشكل تلقائي
#1
السلام عليكم

انا هعمل برنامج بيفتح ايميل تلقائي يعني انا هوضع رابط موقع في ويب براوزر

وعاوز انا احط الايميل في الاكواد علشان يفتح الايميل تلقائي في طريقة ولا لا
الرد }}}}
تم الشكر بواسطة:
#2
استعمل كود Auto Login
Public Class Browser

كود :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  'Part 1: Load Yahoo login page in Form_Load event  
  WebBrowser1.Navigate("http://websiteurl/")
End Sub

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
  'Part 2: Locate the Username TextBox and automatically input your username  
  '<INPUT class=yreg_ipt id=username maxLength=96 size=17 name=login>  
  Dim theElementCollection As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("Input")
  For Each curElement As HtmlElement In theElementCollection
      Dim controlName As String = curElement.GetAttribute("id").ToString
      If controlName = "username" Then
          curElement.SetAttribute("Value", LoginForm.RadTextBoxUser.Text)
      End If
  Next

  'Part 3: Locate the Password TextBox and automatically input your password  
  '<INPUT class=yreg_ipt id=passwd type=password maxLength=64 size=17 value="" name=passwd>  
  theElementCollection = WebBrowser1.Document.GetElementsByTagName("Input")
  For Each curElement As HtmlElement In theElementCollection
      Dim controlName As String = curElement.GetAttribute("id").ToString
      If controlName = "passwd" Then
          curElement.SetAttribute("Value", LoginForm.RadTextBoxPass.Text)
      End If
  Next

  'Part 4: Locate the "Sign In" Button and automatically click it  
  '<INPUT type=submit value="Sign In" name=.save>  
  theElementCollection = WebBrowser1.Document.GetElementsByTagName("Input")
  For Each curElement As HtmlElement In theElementCollection
      If curElement.GetAttribute("value").Equals("Sign In") Then
          curElement.InvokeMember("click")
          'Javascript has a click method for we need to invoke on the current submit button element.  
      End If
  Next
End Sub

End Class
الرد }}}}
تم الشكر بواسطة:
#3
(06-04-16, 05:47 PM)ramygamalvb كتب : استعمل كود Auto Login
Public Class Browser

كود :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  'Part 1: Load Yahoo login page in Form_Load event  
  WebBrowser1.Navigate("http://websiteurl/")
End Sub

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
  'Part 2: Locate the Username TextBox and automatically input your username  
  '<INPUT class=yreg_ipt id=username maxLength=96 size=17 name=login>  
  Dim theElementCollection As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("Input")
  For Each curElement As HtmlElement In theElementCollection
      Dim controlName As String = curElement.GetAttribute("id").ToString
      If controlName = "username" Then
          curElement.SetAttribute("Value", LoginForm.RadTextBoxUser.Text)
      End If
  Next

  'Part 3: Locate the Password TextBox and automatically input your password  
  '<INPUT class=yreg_ipt id=passwd type=password maxLength=64 size=17 value="" name=passwd>  
  theElementCollection = WebBrowser1.Document.GetElementsByTagName("Input")
  For Each curElement As HtmlElement In theElementCollection
      Dim controlName As String = curElement.GetAttribute("id").ToString
      If controlName = "passwd" Then
          curElement.SetAttribute("Value", LoginForm.RadTextBoxPass.Text)
      End If
  Next

  'Part 4: Locate the "Sign In" Button and automatically click it  
  '<INPUT type=submit value="Sign In" name=.save>  
  theElementCollection = WebBrowser1.Document.GetElementsByTagName("Input")
  For Each curElement As HtmlElement In theElementCollection
      If curElement.GetAttribute("value").Equals("Sign In") Then
          curElement.InvokeMember("click")
          'Javascript has a click method for we need to invoke on the current submit button element.  
      End If
  Next
End Sub

End Class

طيب ممكن تظبطهم في مشروع صغير

(06-04-16, 05:47 PM)ramygamalvb كتب : استعمل كود Auto Login
Public Class Browser

كود :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  'Part 1: Load Yahoo login page in Form_Load event  
  WebBrowser1.Navigate("http://websiteurl/")
End Sub

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
  'Part 2: Locate the Username TextBox and automatically input your username  
  '<INPUT class=yreg_ipt id=username maxLength=96 size=17 name=login>  
  Dim theElementCollection As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("Input")
  For Each curElement As HtmlElement In theElementCollection
      Dim controlName As String = curElement.GetAttribute("id").ToString
      If controlName = "username" Then
          curElement.SetAttribute("Value", LoginForm.RadTextBoxUser.Text)
      End If
  Next

  'Part 3: Locate the Password TextBox and automatically input your password  
  '<INPUT class=yreg_ipt id=passwd type=password maxLength=64 size=17 value="" name=passwd>  
  theElementCollection = WebBrowser1.Document.GetElementsByTagName("Input")
  For Each curElement As HtmlElement In theElementCollection
      Dim controlName As String = curElement.GetAttribute("id").ToString
      If controlName = "passwd" Then
          curElement.SetAttribute("Value", LoginForm.RadTextBoxPass.Text)
      End If
  Next

  'Part 4: Locate the "Sign In" Button and automatically click it  
  '<INPUT type=submit value="Sign In" name=.save>  
  theElementCollection = WebBrowser1.Document.GetElementsByTagName("Input")
  For Each curElement As HtmlElement In theElementCollection
      If curElement.GetAttribute("value").Equals("Sign In") Then
          curElement.InvokeMember("click")
          'Javascript has a click method for we need to invoke on the current submit button element.  
      End If
  Next
End Sub

End Class

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  عمل تحديث تلقائي للبرنامج عبدالرحمن المكاوي 4 75 منذ 10 ساعة مضت
آخر رد: محمدصلاح
  [مشروع] سؤال حول كيفية ربط السكانر بمشروع vb.net safalo 1 30 أمس, 03:48 PM
آخر رد: أبو نوره
  [سؤال] اعذروني اخواني سؤال في الفيس بوك لسه مبتدئ 0 38 16-09-17, 02:09 PM
آخر رد: لسه مبتدئ
Big Grin [كود] شباب طريقة لإظهار الادوات بشكل شبه مخفى وليس الفورم badr.kamel 3 125 14-09-17, 05:07 AM
آخر رد: Mohamad Anan
  سؤال مستعجل اخواني Amjad 5 137 08-09-17, 07:20 PM
آخر رد: طـلال
  سؤال مستعجل اخواني وضروري Amjad 2 99 08-09-17, 05:42 AM
آخر رد: Amjad
  [سؤال] سؤال ضروري (الصوره) DF.12 0 74 28-08-17, 03:08 PM
آخر رد: DF.12
  [سؤال] سؤال بخصوص الListBox ابو روضة 12 407 23-08-17, 03:46 PM
آخر رد: ابو ليلى
  سؤال من الخبراء خاص بالتحزيم نبيل كونكت 0 60 19-08-17, 10:40 AM
آخر رد: نبيل كونكت
  سؤال الاتصال بقاعدة بيانات عن طريق Web Service كفاح 8 193 12-08-17, 01:29 AM
آخر رد: سلامات

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


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