تقييم الموضوع :
  • 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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال فى الداتا جريد salah mansour 1 82 21-05-17, 12:09 AM
آخر رد: boudyonline
  [VB.NET] ترقيم تلقائي بشرط محمد بوقزاحة 1 62 17-05-17, 06:35 AM
آخر رد: alma2
  سؤال مهم فى اجازت العاملين salah mansour 9 133 17-05-17, 01:07 AM
آخر رد: salah mansour
Exclamation سؤال حول طباعة تقارير RDLC ndjakoub 1 39 16-05-17, 12:45 AM
آخر رد: alma2
  سؤال بخصوص التحكم بالمحرك عن طريق الحاسوب Basil Abdallah 2 61 16-05-17, 12:29 AM
آخر رد: alma2
  سؤال فى اجازات العاملين salah mansour 3 87 13-05-17, 02:57 AM
آخر رد: mansoor
  [VB.NET] اجعل ملفات Dll جزء من مشروعك مع سؤال 0theghost0 1 68 12-05-17, 10:47 PM
آخر رد: silverlight
  سؤال Mohamed20 1 55 12-05-17, 03:48 AM
آخر رد: mansoor
  [VB.NET] سؤال حول حفظ كوكيز موقع trakktour 2 94 10-05-17, 03:50 PM
آخر رد: trakktour
  سؤال محيرني rabeh.ram 2 71 08-05-17, 09:54 AM
آخر رد: rabeh.ram

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


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