الدخول لموقع من البرنامج

تحتاج الى اداة المتصفح لتضيفها الى برنامجك ايضا, لست خبير VB باي حال لكن الحديث منتشر عنها كثيرا في المنتدى

اما الباقي فهو عبارة عن دمج بارامترات طلب الـ POST التي تحوي على اسم المستخدم وكلمة المرور واي بارامتر آخر يطلبه موقع ياهو

تريد الدخول الى المسنجر عبر الموقع او الى البريد؟

جزاك الله خيرا أخى العزيز على الرد

اقتباس

الباقي فهو عبارة عن دمج بارامترات طلب الـ POST التي تحوي على اسم المستخدم وكلمة المرور واي بارامتر آخر يطلبه موقع ياهو

لم أفهم هذه الجزئيه نهائى فهذه أول مره أحاول فعل ذلك

اقتباس

تريد الدخول الى المسنجر عبر الموقع او الى البريد؟

أريد مثلا الدخول للبريد

وشكرا جزيلا أخى

حسنا, البريد, انظر الى التالي من السورس الخاص بصفحة الدخول:

<form method="post" action="https://login.yahoo.com/config/login?" autocomplete="off" name="login_form">
				 <input type="hidden" name=".tries" value="1">
				 <input type="hidden" name=".src" value="ym">
				 <input type="hidden" name=".md5" value="">
				 <input type="hidden" name=".hash" value="">
				 <input type="hidden" name=".js" value="">
				 <input type="hidden" name=".last" value="">
				 <input type="hidden" name="promo" value="">
				 <input type="hidden" name=".intl" value="us">
				 <input type="hidden" name=".bypass" value="">
				 <input type="hidden" name=".partner" value="">
				 <input type="hidden" name=".u" value="650ic5d3g2uvb">
				 <input type="hidden" name=".v" value="0">
				 <input type="hidden" name=".challenge" value="8SBAwElO54JX0IOismGQm71kVRE_">
				 <input type="hidden" name=".yplus" value="">
				 <input type="hidden" name=".emailCode" value="">
				 <input type="hidden" name="pkg" value="">
				 <input type="hidden" name="stepid" value="">
				 <input type="hidden" name=".ev" value="">
				 <input type="hidden" name="hasMsgr" value="0">
				 <input type="hidden" name=".chkP" value="Y">
				 <input type="hidden" name=".done" value="http://mail.yahoo.com">
				 <input type="hidden" name=".pd" value="ym_ver=0&c=">
 <input name="login" id="username" value="" size="17" class="yreg_ipt" type="text">
 <input name="passwd" id="passwd" value="" size="17" class="yreg_ipt" type="password">
<input type="checkbox" id="persistent" name=".persistent" value="y">
 <input type="submit" name=".save" value="Sign In">
				 </form>

هذه هي البارامترات التي اتكلم عنها

عندما تقوم بكتابة اسم المستخدم وكلمة السر وتفعيل الخيار الخاص بالـ checkbox او لا فهذه البيانات ترسل بالاضافة الى اخرى مخفية ضرورية للياهو الى صفحة معينة لمعالجتها

هذه الصفحة هي:

https://login.yahoo.com/config/login?

البارامترات المخفية قيم ثابتة لذلك نأخذها كما هي

ما يتغير هو ال login وال passwd و .persistent (لاحظ ان الخاصة name هي ما يشير الى اسم البارامتر)

بالتالي تضع ثلاث حقول للاسم, كلمة السر, والـ checkbox (لو اردت) او تمنحه قيمه ثابتة اما دوما فعّال او لا.

يصبح رابط الطلب هو التالي:

dim link as string
 link = "https://login.yahoo.com/config/login?.tries=1&.src=ym&.md5=&
.hash=&.js=&.last=&promo=&.intl=&.bypass=&.partner=&
.u=650ic5d3g2uvb&.v=0&.challenge=8SBAwElO54JX0IOismGQm71kVRE_&
.yplus=&.emailCode=&pkg=&stepid=&.ev=&hasMsgr=0&.chkP=Y&
.done=http://mail.yahoo.com&.pd=ym_ver=0&c=&login= " & username.text & "&passwd=" & password.text & "&.persistent=y"

والذي لو قمت بكتابة اسمك وكلمة السر في المكان المخصص في الرابط وقمت بوضعه في المتصفح لتم تسجيلك الى البريد

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

لا املك فيجوال على هذا الجهاز والا كنت تذكرت الاسم WebBrowser او شئ من هذا القبيل لست متأكدا.

نفس الأمر للمسنجر عبر المتصفح.

ملاحظة: الرابط موزع الى اسطر كي لا تظهر الصفحة بصورة مشوهة, ضعه على سطر واحد او قسمه ضمن الفيجوال بالصورة المناسبة باستخدام & _

السلام عليكم

جزاك الله خيرا على المساعده

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

أخى العزيز عرفت أزاى أوصل للسورس الخاص بالصفحه وجربت على منتدى www.bramjnet.com/vb3

ووصلت لحقل كلمة السر وأسم المستخدم وكان بالشكل التالى

<td class="alt2" nowrap="nowrap" style="padding:0px">



		<!-- login form -->

		<form action="login.php?do=login" method="post" onsubmit="md5hash(vb_login_password, vb_login_md5password, vb_login_md5password_utf, 0)">

		<script type="text/javascript" src="clientscript/vbulletin_md5.js?v=364"></script>

		<table cellpadding="0" cellspacing="3" border="0">

		<tr>

			<td class="smallfont"><label for="navbar_username">ÇÓã ÇáÚÖæ</label></td>

			<td><input type="text" class="bginput" style="font-size: 11px" name="vb_login_username" id="navbar_username" size="10" accesskey="u" tabindex="101" value="ÇÓã ÇáÚÖæ" onfocus="if (this.value == 'ÇÓã ÇáÚÖæ') this.value = '';" /></td>

			<td class="smallfont" colspan="2" nowrap="nowrap"><label for="cb_cookieuser_navbar"><input type="checkbox" name="cookieuser" value="1" tabindex="103" id="cb_cookieuser_navbar" accesskey="c" />ÍÝÙ ÇáÈíÇäÇÊ¿</label></td>

		</tr>

		<tr>

			<td class="smallfont"><label for="navbar_password">ßáãÉ ÇáãÑæÑ</label></td>

			<td><input type="password" class="bginput" style="font-size: 11px" name="vb_login_password" id="navbar_password" size="10" tabindex="102" /></td>

			<td><input type="submit" class="button" value="ÊÓÌíá ÇáÏÎæá" tabindex="104" title="ÇÏÎá ÇÓã ÇáÚÖæ æßáãÉ ÇáãÑæÑ ÇáÎÇÕÉ Èß Ýí ÇáÍÞæá ÇáãÌÇæÑÉ áÊÓÌíá ÇáÏÎæá, Ãæ ÇÖÛØ Úáì ÑÇÈØ 'ÇáÊÓÌíá' áÅäÔÇÁ ÍÓÇÈ ÎÇÕ Èß." accesskey="s" /></td>

المشكله أنى مش عارف أطلع أسم الفورم صح ولا حقل اليوزر الصو ولا حتى كلمة السر لانه مش زى الياهو وأنا مليش خلفيه غير ب oracle و vb6

أزاى أطلع البيانات المطلوبه

الأخ الفاضل ...

هل لابد من خلال Yahoo؟

لو لا، (وتريد تطبيق ذلك على البريد الالكترونى فقط) يمكنك استخدام Gmail فهو يتيح لك قراءة رسائلك من خلال بروتوكول POP3 ، وارسال رسائل من خلال SMTP

فإستخدام (SMTP و POP3) كان متاح مجانى فى ياهوو من فترة، ولكن حالياً غير متاح فى الإشتراك المجانى

وكذلك الوضع بالنسبة لـ Hotmail، ولكن الايميلات القديمة المجانية فى Hotmail مازالت محتفظة بهذه الميزة

أيضاً يمكنك مراجعت: برامج ارسال بريد الكترونى مباشرتاً بالمرفقات والصور

شكراً

أخوانى جزاكم الله خيرا ولكن لا أريد أرسال رساله الى الأيميل من خلال البرنامج ولكن برنامج الأخ Eng. Usama El-Mokadem ممتاز جا وبعد أذنه أريد تضمينه فى البرنامج مع ذكر مبرمجه

مأ أ ريد هو الدخول لمنتدى بأسم المستخدم وكلمة السر من خلال البرنامج الخاص بى بمعنى البرنامج سيكون متاح لمستخدمى منتدى معين فقط ويريد صاحب المنتدى التأكد من أن أعضاء المنتدى المسجلين سيستخدمون البرنامج

حقل أسم المستخدم هكلمة السر سهل أعرفهم بس أزاى أعرف أسم الفورم الخاص بالصفحه زى الياهو

وشكرا

يوجد اقتراح : وهو استخدام SendKeys لكنني ما ادري ما نتيجته ولم أجربه

أرجو الرد ...

طريقة الأخ Junkie سليمه وأشتغلت تمام

اللى أنا عاوزه دلوقت

<form method="post" action="https://login.yahoo.com/config/login?" autocomplete="off" name="login_form">

ده من السورس كود لصفحة الياهو اللى بيعرفنى ان صفحة الدخول (form) أسمها login_form

أهو كل المشكله معايه دلوقتى فى انى مش عارف اطلع أسم الفورم ده لأى منتدى ومش عارف ليه

أزاى أعرف أسم الفورم أرجو رد شافى لهذه المشكله

هذا ما تبحث عنه, اعتقد اني كنت واضحاً في الشرح

  <!-- login form -->
  <form action="login.php?do=login" method="post" onsubmit="md5hash(vb_login_password, vb_login_md5password, vb_login_md5password_utf, 0)">
  <script type="text/javascript" src="clientscript/vbulletin_md5.js?v=364"></script>
  <input type="text" class="bginput" style="font-size: 11px" name="vb_login_username" id="navbar_username" size="10" accesskey="u" tabindex="101" value="اسم العضو" onfocus="if (this.value == 'اسم العضو') this.value = '';">
  <input type="checkbox" name="cookieuser" value="1" tabindex="103" id="cb_cookieuser_navbar" accesskey="c">
  <input type="password" class="bginput" style="font-size: 11px" name="vb_login_password" id="navbar_password" size="10" tabindex="102">
  <input type="submit" class="button" value="تسجيل الدخول" tabindex="104" title="ادخل اسم العضو وكلمة المرور الخاصة بك في الحقول المجاورة لتسجيل الدخول, أو اضغط على رابط 'التسجيل' لإنشاء حساب خاص بك." accesskey="s">
  <input type="hidden" name="s" value="b074cf89013b8f8adec7927f43aef9a9" />
  <input type="hidden" name="do" value="login" />  
  <input type="hidden" name="vb_login_md5password" />
  <input type="hidden" name="vb_login_md5password_utf" />
  </form>
  <!-- / login form -->

ويكون لديك:

dim link as string
link = "www.bramjnet.com/vb3/login.php?do=login&vb_login_username=" & username.text & "&vb_login_password=" & password.text & "&do=login&vb_login_md5password=" & md5password & "&vb_login_md5password_utf=" & md5password_utf

من الشفرة التالية قم بتشكيل module وقم بتضمينه في مشروعك:

Attribute VB_Name = "MD5Driver"
'/******************************************************************************
' *  Copyright (C) 2000 by Robert Hubley.									  *
' *  All rights reserved.													  *
' *																			*
' *  This software is provided ``AS IS'' and any express or implied			*
' *  warranties, including, but not limited to, the implied warranties of	  *
' *  merchantability and fitness for a particular purpose, are disclaimed.	 *
' *  In no event shall the authors be liable for any direct, indirect,		 *
' *  incidental, special, exemplary, or consequential damages (including, but  *
' *  not limited to, procurement of substitute goods or services; loss of use, *
' *  data, or profits; or business interruption) however caused and on any	 *
' *  theory of liability, whether in contract, strict liability, or tort	   *
' *  (including negligence or otherwise) arising in any way out of the use of  *
' *  this software, even if advised of the possibility of such damage.		 *
' *																			*
' ******************************************************************************
'
'  Module: MD5Driver
'
'  DESCRIPTION:
'	 This is a set of support routines which call MD5 Message Digest functions.
'	 These functions are written in C and compiled to a DLL (md5.dll) which
'	 must be located in the system32 or program director in order for these
'	 routines to work.
'
'	 MD5 algorithm produces a 128 bit digital fingerprint (signature) from an
'	 dataset of arbitrary length.  For details see RFC 1321.
'
'  AUTHOR:
'	 Robert M. Hubley 12/1999
'
'
'  NOTES:
'
'
'  CHANGE HISTORY:
'
'	 1.0.0  RMH	2000/1/5	  Original version
'
'

'=
'= Compiler Flags
'=
Option Explicit


'=
'= User Defined Types
'=
Private Type MD5_CONTEXT
	State(3) As Long
	Count(1) As Long
	buffer(63) As Byte
End Type


'=
'= API Declarations
'=
Private Declare Sub MD5Init Lib "md5.dll" _
	(lpContext As MD5_CONTEXT)

Private Declare Sub MD5Update Lib "md5.dll" _
	(lpContext As MD5_CONTEXT, lpBuffer As Any, ByVal hInputLength As Long)

Private Declare Sub MD5Final Lib "md5.dll" _
	(lpDigest As Any, lpContext As MD5_CONTEXT)


'
' Digest a file to a hex string
'
Public Function DigestFileToHexStr(FileName As String) As String
	Dim udtContext As MD5_CONTEXT
	Dim bytDigest(15) As Byte
	Dim bytData(63) As Byte
	Open FileName For Binary Access Read As #1
	MD5Init udtContext
	Do While Not EOF(1)
		Get #1, , bytData
		If Loc(1) < LOF(1) Then
			MD5Update udtContext, bytData(0), 64
		End If
	Loop
	MD5Update udtContext, bytData(0), LOF(1) Mod 64
	Close #1
	MD5Final bytDigest(0), udtContext
	DigestFileToHexStr = DigestToString(bytDigest)
End Function


'
' Function to digest a text string and output the result as a string
' of hexadecimal characters.
'
Public Function DigestStrToHexStr(SourceString As String) As String
	Dim udtContext As MD5_CONTEXT
	Dim bytDigest(15) As Byte
	Dim bytData() As Byte

	MD5Init udtContext
	bytData = StringToArray(SourceString)
	MD5Update udtContext, bytData(0), Len(SourceString)
	MD5Final bytDigest(0), udtContext
	DigestStrToHexStr = DigestToString(bytDigest)
End Function

'
' A utility function which converts a string into an array of
' bytes.
'
Private Function StringToArray(InString As String) As Byte()
	Dim lngI As Long
	Dim bytBuffer() As Byte
	ReDim bytBuffer(Len(InString))
	For lngI = 0 To Len(InString) - 1
		bytBuffer(lngI) = Asc(Mid(InString, lngI + 1, 1))
	Next lngI
	StringToArray = bytBuffer
End Function

'
' Return a HEX string representation of a byte array
'
Private Function DigestToString(Digest() As Byte) As String
	Dim lngI As Long
	For lngI = 0 To UBound(Digest)
		' Pad with a "0" character if the HEX byte is less than 16 decimal
		If Digest(lngI) < 16 Then
			DigestToString = DigestToString & "0" & Hex(Digest(lngI))
		Else
			DigestToString = DigestToString & LCase(Hex(Digest(lngI)))
		End If
	Next lngI
End Function

ثم تقوم باستخدام الوظيفة بالصورة التالية:

md5password = DigestStrToHexStr(password.text)

لكن يبقى لديك صيغة الـ utf والتي اكره التفكير في كيفية اخراجها :P

السلام عليكم

إذا كنت تريد قراءة اسم الFORM من صفحة الInternet Explorer فيمكنك مراجعة المثال

الموجود هنا Internet Explorer Forms

أخى العزيز ماحدث أنه لم يخرج رساله خطا ولم يفعل شى فى نفس الوقت

أخى DreamNet برنامجك لا يقرا فورم المنتدى ولكن مواقع فقط

شكرا للجميع

أنا جربت المثال المحمل من موقع PSC على صفحة دخول المنتدى وأعطى النتيجة التالية

المثال يعمل مع صفحات الأنترنت اكسبلورر

moslem_12002 كتب:

أخى العزيز ماحدث أنه لم يخرج رساله خطا ولم يفعل شى فى نفس الوقت

هذا لي ام للأخ؟

أخى العزيز Junkie البرنامج لا يفعل شى ظاهر ولكن لاحظت بعد كتابة أسم المستخدم وكلمة السر

وأضغط دخول يقوم برنامج الكاسبر عندى بسؤالى حول السماح لهذه العمليه

وحتى لو سمحت لا يحدث شى أعتقد أنه يمرر القيم ولكن يمنع صفحة الدخول من الظهور

أخى العزيز DreamNet لقد جربت المثال على منتديان عربيان ولم يظهر شى

بل ظهرت بجوار أسم الفورم فراغ فقط

ولكن عند تجريب المثال مع أى موقع وليس منتدى يعمل 100%

أعتقد أن سبب ظهوره فى منتدى الفريق العربى هو وجود صفحه خاصه للدخول

وليست أغلب المنتديات كذلك

وقد بحثت فى المنتدى وجدت مثال موافق تماما لمثال الأخ العزيز Junkie

ولكن المشكله به ايضا أن لا أستطيع معرفة اسم الفورم

ولكن به عيب هو انه يقوم بأظهار صفحة الموقع وبعد تحميلها يقوم بكتابة أسم المستخدم وكلمة السر

ثم يقوم بعملية الدخول أع أنه لا يدخل مباشره حيث أنه فى الياهو أظهر لى صفحة الدخول فى بريد الياهو

ثم أدخال كلمة المرور ثم الدخول

وميزة برنامج الأخ Junkie

أنه يقوم بالدخول ولكن يتم أيقاف العمليه ببرنامج الفيروسات

لقد وصلت لأغلب ما أريد سأقوم بتجريب برنامج الأخ DreamNet

على أغلب المنتديات العربيه ثم سأضع البرنامج الذى وجدته حتى يراه الأخ Junkie

عسى أن يدلنا على طريقة الدخول بدون أظهار صفحة الدخول

اانا لم اضع برنامج, وضعت افكار, لو وضعت المثال الذي قمت باختباره لاختبرناه علنا نجد المشكلة ان شاء الله

السلام عليكم

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

أرجو أن كنت تستطيع تصحيح وضعه ليعمل مع المنتدى أن تصححه فالكثيير غير يحتاجه

Yahoo_Login_By_Pharaonic_Guy.rar

ردا علي رسالتك ..

قم بتغيير شفرة حدث DocumentComplete للأتي :

Private Sub IE_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim objElement As Object
On Error GoTo Hell
If IsLoging Then
   Set objElement = IE.Document.getElementById("vb_login_username")
   If objElement.getAttribute("Type") = "text" Then
	  objElement.Value = "UserName"
	  Set objElement = IE.Document.getElementById("vb_login_password")
	  If objElement.getAttribute("Type") = "password" Then
		 objElement.Value = "Password"
		 objElement.Form.submit
	  End If
   End If
   IsLoging = False
 End If
Hell:
 Resume Next
End Sub

جزاك الله خيرا أخى Pharaonic_Guy على الرد

الأ أنه لم يحدث شى سوى أن الصفحه فتحت ولكن لم يحدث دخول وعندما أوقفت كود غلق الخطا ظهر الخطأ التالى

المثال كان علي برامج نت

علي العموم هذا هو المشروع معدل ومجرب قبل ارفاقه ..

Forum_Login_By_Pharaonic_Guy.rar

أخى الكريم Pharaonic_Guy الف الف الف مليون شكر على المساعده والرد على الرساله والمثال ألحمد لله أشتغل تمام وجربت على أكثر من منتدى

وعشره على عشره بس فى الحقيقه مع الفريق العربى رفض تماما الدخول

وطلب بسيط كمان كده علشان اتاكد أنى فهمت الكود صح

هناحجزت

اقتباس

Dim objElement As Object

وهنا حقل أدخال أسم المستخدم فى المنتدى

اقتباس

("vb_login_username")

وهنا أسم المفتاح اللى هينضغط عليه بالكود

اقتباس

submit

وبالنسبه للباقى فهو ثابت مع أى منتدى لانه خاص ب

اقتباس

IE

زى

اقتباس

IE.Document.getElementById

و

اقتباس

objElement.Value

صح كده ولا انا فاهم غلط

وأكرر شكرى لكل من ساهم فى الموضوع وجزاكم الله خيرا وجعله الله فى ميزان حسناتكم

أخ مسلم ..

اكيد لاحظت إن فيه اختلاف بين اسماء العناصر بين مختلف أنوع المواقع والمنتديات ..

يعني الكود اللي فوق داعم لمنتديات VB اصدار معين ..

وستحتاج أن تجمع اسماء عناصر الدخول لجميع المنتديات والمواقع التي تريد دعمها .. ووضعها تحت

IF URL Like "www.example.com" Then

وأسماء عناصر الدخول لمنتدي الفريق العربي هي :

document.LOGIN.UserName.value
document.LOGIN.PassWord.value
document.LOGIN.submit

اقتباس

هناحجزت

Dim objElement As Object

يتم الاعلان عن كائن عام .. والأصح أن يتم تحديد نوع الكائن

فبما إننا سنتعامل مع عنصر Text في الصفحة فالمفروض أن نقول الآتي

Dim objElement As IHTMLInputTextElement

ولكن يلزمك إضافة مكتبة Microsoft HTML Object ..قبل تجربة الكود السابق .. وإلا سيعطي رسالة Defined Type Not Defined

وكل عنصر Text له خاصية Value ..للتحكم في قيمته

----

الوظيفة getElementById تستخدم للوصول إلي عنصر في الصفحة بواسطة الـ ID .. وبالتالي نمرر اسم العنصر المطلوب الوصول إليه .. ونسند هذا العنصر إلي الكائن الذي لدينا ObjElement

ومن خصائص العنصر TEXT إنه يمكن عمل Submit منه .. وسيتم عمل Post لفورمه تسجيل الدخول ..

----

و IE هو اسم كلاس الويب براوسر .. ويمكنك تغييره ..

جزاك الله خيرا على الشرح والتوضيح وكل ما قدمت وشكرا على مساعدتى بهذا البرنامج الجميل كنت أحتاج هذه الجزئيه بشده جعله الله فى ميزان حسناتك

موضوع جميل جدا والله

بس أنا عندي سؤال اعتقد انه مش صعب عليكم

انا عندي موقع مجاني على geocities .com واريد أن أقوم بملء صناديق النص هذه باستخدام الكود في vb6 لكي يتم تحميل الملفات على الموقع

ارجو الرد ضروري

الصورة في المرفقات وشكرا لكم مقدما