كيف يتم ادراجه في تكست؟؟

أخي الكريم ، هل كل الإيميلات مخزنة بصورة صفحة ويب أم أنها مخزنة بصورة ملف نصي Text !!!

إذا كان ملف نصي فإقراً الملف كما يلي :

Open "Path File" For Input As #1
Text1.Text = Input(Lof(1),1)
Close#1

أما إذا كان ملف من ويب :

يجب عليك إستخدام آداة الويب .. من Combonents إختر أمر Microsoft Internet Control .

WebBrowser1.Navigate2 "Path File"

أبحث بالمنتدي عنه فستجد العديد من الأمثلة

شكراً

لا هذا ليس ويب اخي كايرو

انت لما تمشي وراء هذا المسار هتلاقي ايميلات الياهو الي دخلت في برنامج الياهو ماسنجر

ومتسجله في هذا المسار على هيئه فلدرات

تحياتي .................

فؤاد سعد

أخي الكريم ، هناك آداة تدعي DirListBox ، أو مكتبة خاصة Scripting تفيد بذلك ...

أمممممممممممممممم

أنا آسف أخي الكريم ، صراحتاً أنا لا أملك مثال حالياً ، ولكن إنتظرني قليلاً لأصنع لك مثال بسيط ، أو يجوز أن هناك أمثلة بالمنتدي ، أو أن هناك إحدي الأعضاء يتشارك قبل ردي عليك

آسف أخي الكريم

شكراً

اقتباس

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

طريقة غريبة في وضع السؤال !!

الكود أنت من يكتبه ويستنتجه لا أن تنتظر شخص يعطيك كود جاهز

مثلاً لو اردت معرفة أسماء المجلدات في \Yahoo!\Messenger\Profiles

بامكانك استخدام FindFirstFile ,FindNextFile

أو طرق أخرى بحيث تحصل على أسماء المجلدات

راجع الوصلة التالية وغير في الكود بما يتناسب مع المشكلة

http://support.microsoft.com/kb/185476/en-us

بالنسبة للـ Registry فهناك دوال خاصة للتعامل معه

Registry Functions

أما إن كنت تريد كود جاهز فانتظر أحد الأخوة يضع لك الكود ...

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

شكرا لك اخي سفير انا هضور وهشوف

تحياتي ....................

فؤاد سعد

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

انا لم اطلب شي غير ذلك

تحياتي...............

فؤاد سعد

انشئ model وضع الكود الآتي

Option Explicit

  Public Const HKEY_CLASSES_ROOT = &H80000000
  Public Const HKEY_CURRENT_USER = &H80000001
  Public Const HKEY_LOCAL_MACHINE = &H80000002
  Public Const HKEY_USERS = &H80000003
  Public Const HKEY_PERFORMANCE_DATA = &H80000004
  Public Const HKEY_CURRENT_CONFIG = &H80000005
  Public Const HKEY_DYN_DATA = &H80000006

  Public Const REG_NONE = 0
  Public Const REG_SZ = 1
  Public Const REG_EXPAND_SZ = 2
  Public Const REG_BINARY = 3
  Public Const REG_DWORD = 4
  Public Const REG_DWORD_BIG_ENDIAN = 5
  Public Const REG_MULTI_SZ = 7

 Declare Function RegOpenKey Lib "advapi32.dll" _
Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, _
phkResult As Long) As Long
  Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
  Declare Function RegEnumKey Lib "advapi32.dll" Alias "RegEnumKeyA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpName As String, ByVal cbName As Long) As Long

وفي الفورم أضف command و list

Private Sub Command1_Click()
Dim hKey As Long, Ret As Long, Name  As String, Idx As Long
Dim value As String
		  List1.Clear

		  Idx = 0
		  Name = String(256, Chr(0))
		  value = "Software\yahoo\Profiles"
		If RegOpenKey(HKEY_CURRENT_USER, value, hKey) <> ERROR_SUCCESS _
		Then
			MsgBox "Error opening key."
			Exit Sub
		End If
		  Do

				  Ret = RegEnumKey(hKey, Idx, Name, Len(Name))
				  If Ret = 0 Then
						  List1.AddItem Left(Name, InStr(Name, Chr(0)) - 1)
						  Idx = Idx + 1
				  End If
		  Loop Until Ret <> 0

		  RegCloseKey hKey
End Sub

بعد أن تحصل على القائمة ستجد من ضمنها default بامكانك إستثناءه .

بامكانك تغيير الكود بحيث تضع الناتج في مكان اخر غير list ...

الف شكر اخي سفير شكلي تعبتك معي وخليتك تعملي الكود

انا متشكر جدا اخي وجاري التجربه

تحياتي...............

فؤاد سعد

شكرا اخي تمت العمليه بنجاح

تحياتي....................

فؤاد سعد