(f)الكود الرابع والخمسون(f)
لإخفاء المشيرة وإظهارها
Private Declare Function ShowCursor Lib "user32" _ (ByVal bShow As Long) As Long Private Sub Command1_Click() X = ShowCursor(False) End Sub Private Sub Command2_Click() X = ShowCursor(True) End Sub
أكواد للمبتدئين
مغلقاستطلاعرائج
(f)الكود الخامس والخمسون(f)
طلب الاتصال بالإنترنت
Const FTP_TRANSFER_TYPE_UNKNOWN = &H0
Const FTP_TRANSFER_TYPE_ASCII = &H1
Const FTP_TRANSFER_TYPE_BINARY = &H2
Const INTERNET_DEFAULT_FTP_PORT = 21 ' default
for FTP servers
Const INTERNET_SERVICE_FTP = 1
Const INTERNET_FLAG_PASSIVE = &H8000000 ' used
for FTP connections
Const INTERNET_OPEN_TYPE_PRECONFIG = 0 '
use registry configuration
Const INTERNET_OPEN_TYPE_DIRECT = 1 '
direct to net
Const INTERNET_OPEN_TYPE_PROXY = 3 '
via named proxy
Const
INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY =
4 ' prevent using java/script/INS
Const MAX_PATH = 260
Private Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type
Private Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * MAX_PATH
cAlternate As String * 14
End Type
Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal
hInet As Long) As Integer
Private Declare Function InternetConnect Lib "wininet.dll" Alias
"InternetConnectA" (ByVal hInternetSession As Long, ByVal
sServerName As String, ByVal nServerPort As Integer, ByVal
sUserName As String, ByVal sPassword As String, ByVal lService As
Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Private Declare Function InternetOpen Lib "wininet.dll" Alias
"InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As
Long, ByVal sProxyName As String, ByVal sProxyBypass As String,
ByVal lFlags As Long) As Long
Private Declare Function FtpSetCurrentDirectory Lib "wininet.dll" Alias
"FtpSetCurrentDirectoryA" (ByVal hFtpSession As Long, ByVal
lpszDirectory As String) As Boolean
Private Declare Function FtpGetCurrentDirectory Lib "wininet.dll" Alias
"FtpGetCurrentDirectoryA" (ByVal hFtpSession As Long, ByVal
lpszCurrentDirectory As String, lpdwCurrentDirectory As Long) As
Long
Private Declare Function FtpCreateDirectory Lib "wininet.dll" Alias
"FtpCreateDirectoryA" (ByVal hFtpSession As Long, ByVal
lpszDirectory As String) As Boolean
Private Declare Function FtpRemoveDirectory Lib "wininet.dll" Alias
"FtpRemoveDirectoryA" (ByVal hFtpSession As Long, ByVal
lpszDirectory As String) As Boolean
Private Declare Function FtpDeleteFile Lib "wininet.dll" Alias
"FtpDeleteFileA" (ByVal hFtpSession As Long, ByVal lpszFileName
As String) As Boolean
Private Declare Function FtpRenameFile Lib "wininet.dll" Alias
"FtpRenameFileA" (ByVal hFtpSession As Long, ByVal lpszExisting
As String, ByVal lpszNew As String) As Boolean
Private Declare Function FtpGetFile Lib "wininet.dll" Alias
"FtpGetFileA" (ByVal hConnect As Long, ByVal lpszRemoteFile As
String, ByVal lpszNewFile As String, ByVal fFailIfExists As Long,
ByVal dwFlagsAndAttributes As Long, ByVal dwFlags As Long,
ByRef dwContext As Long) As Boolean
Private Declare Function FtpPutFile Lib "wininet.dll" Alias
"FtpPutFileA" (ByVal hConnect As Long, ByVal lpszLocalFile As
String, ByVal lpszNewRemoteFile As String, ByVal dwFlags As Long,
ByVal dwContext As Long) As Boolean
Private Declare Function InternetGetLastResponseInfo Lib
"wininet.dll" Alias "InternetGetLastResponseInfoA" (lpdwError As
Long, ByVal lpszBuffer As String, lpdwBufferLength As Long) As
Boolean
Private Declare Function FtpFindFirstFile Lib "wininet.dll" Alias
"FtpFindFirstFileA" (ByVal hFtpSession As Long, ByVal
lpszSearchFile As String, lpFindFileData As WIN32_FIND_DATA,
ByVal dwFlags As Long, ByVal dwContent As Long) As Long
Private Declare Function InternetFindNextFile Lib "wininet.dll" Alias
"InternetFindNextFileA" (ByVal hFind As Long, lpvFindData As
WIN32_FIND_DATA) As Long
Const PassiveConnection As Boolean = True
Private Sub Form_Load()
Dim hConnection As Long, hOpen As Long, sOrgPath As String
'open an internet connection
hOpen = InternetOpen("API-Guide sample program",
INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString,
0)
'connect to the FTP server
hConnection = InternetConnect(hOpen, "your ftp server",
INTERNET_DEFAULT_FTP_PORT, "your login", "your password",
INTERNET_SERVICE_FTP, IIf(PassiveConnection,
INTERNET_FLAG_PASSIVE, 0), 0)
'create a buffer to store the original directory
sOrgPath = String(MAX_PATH, 0)
'get the directory
FtpGetCurrentDirectory hConnection, sOrgPath, Len(sOrgPath)
'create a new directory 'testing'
FtpCreateDirectory hConnection, "testing"
'set the current directory to 'root/testing'
FtpSetCurrentDirectory hConnection, "testing"
'upload the file 'test.htm'
FtpPutFile hConnection, "C:test.htm", "test.htm",
FTP_TRANSFER_TYPE_UNKNOWN, 0
'rename 'test.htm' to 'apiguide.htm'
FtpRenameFile hConnection, "test.htm", "apiguide.htm"
'enumerate the file list from the current directory ('root/testing')
EnumFiles hConnection
'retrieve the file from the FTP server
FtpGetFile hConnection, "apiguide.htm", "c:apiguide.htm", False,
0, FTP_TRANSFER_TYPE_UNKNOWN, 0
'delete the file from the FTP server
FtpDeleteFile hConnection, "apiguide.htm"
'set the current directory back to the root
FtpSetCurrentDirectory hConnection, sOrgPath
'remove the direcrtory 'testing'
FtpRemoveDirectory hConnection, "testing"
'close the FTP connection
InternetCloseHandle hConnection
'close the internet connection
InternetCloseHandle hOpen
End Sub
Public Sub EnumFiles(hConnection As Long)
Dim pData As WIN32_FIND_DATA, hFind As Long, lRet As Long
'set the graphics mode to persistent
Me.AutoRedraw = True
'create a buffer
pData.cFileName = String(MAX_PATH, 0)
'find the first file
hFind = FtpFindFirstFile(hConnection, "*.*", pData, 0, 0)
'if there's no file, then exit sub
If hFind = 0 Then Exit Sub
'show the filename
Me.Print Left(pData.cFileName, InStr(1, pData.cFileName,
String(1, 0), vbBinaryCompare) - 1)
Do
'create a buffer
pData.cFileName = String(MAX_PATH, 0)
'find the next file
lRet = InternetFindNextFile(hFind, pData)
'if there's no next file, exit do
If lRet = 0 Then Exit Do
'show the filename
Me.Print Left(pData.cFileName, InStr(1, pData.cFileName,
String(1, 0), vbBinaryCompare) - 1)
Loop
'close the search handle
InternetCloseHandle hFind
End Sub
Sub ShowError()
Dim lErr As Long, sErr As String, lenBuf As Long
'get the required buffer size
InternetGetLastResponseInfo lErr, sErr, lenBuf
'create a buffer
sErr = String(lenBuf, 0)
'retrieve the last respons info
InternetGetLastResponseInfo lErr, sErr, lenBuf
'show the last response info
MsgBox "Error " + CStr(lErr) + ": " + sErr, vbOKOnly + vbCritical
End Sub(f)الكود السادس والخمسون(f)
تأجيل تنفيذ الكود لفترة معينة
Public Sub Delay(HowLong As Date)
TempTime = DateAdd("s", HowLong, Now)
While TempTime > Now
DoEvents
Wend
End Sub
Private Sub Command1_Click()
Delay 5
MsgBox "test"
End Sub(f)الكود السابع والخمسون(f)
لمنع تشغيل أكثر من نسخة من البرنامج
Private Sub Form_Load() If App.PrevInstance = True Then MsgBox "لا يمكن تشغيل أكثر من نسخة من البرنامج" Unload Me Exit Sub End If End Sub
(f)الكود الثامن والخمسون(f)
لنسخ خلفية سطح المكتب إلى نموذجك
Private Declare Function PaintDesktop Lib "user32" _ (ByVal hdc As Long) As Long Private Sub Command1_Click() PaintDesktop Form1.hdc End Sub
(f)الكود التاسع والخمسون(f)
لنسخ الصورة أو قلبها عمودياً أو أفقياً
Private Sub Command1_Click() 'الوضع الطبيعي النسخ Picture2.PaintPicture Picture1.Picture, 0, 0, _ Picture1.Width, Picture1.Height, 0, 0, _ Picture1.Width, Picture1.Height, vbSrcCopy End Sub Private Sub Command2_Click() 'الوضع الافقي Picture2.PaintPicture Picture1.Picture, 0, 0, _ Picture1.Width, Picture1.Height, Picture1.Width, _ 0, -Picture1.Width, Picture1.Height, vbSrcCopy End Sub Private Sub Command3_Click() 'الوضع العمودي Picture2.PaintPicture Picture1.Picture, 0, 0, _ Picture1.Width, Picture1.Height, 0, Picture1.Height, _ Picture1.Width, -Picture1.Height, vbSrcCopy End Sub Private Sub Command4_Click() 'لقلب الصورة Picture2.PaintPicture Picture1.Picture, 0, 0, _ Picture1.Width, Picture1.Height, Picture1.Width, _ Picture1.Height, -Picture1.Width, -Picture1.Height, vbSrcCopy End Sub
(f)الكود الستون(f)
لعمل مفاتيح اختصار
Private Const MOD_ALT = &H1 Private Const MOD_CONTROL = &H2 Private Const MOD_SHIFT = &H4 Private Const PM_REMOVE = &H1 Private Const WM_HOTKEY = &H312 Private Type POINTAPI x As Long y As Long End Type Private Type Msg hWnd As Long Message As Long wParam As Long lParam As Long time As Long pt As POINTAPI End Type Private Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long Private Declare Function UnregisterHotKey Lib "user32" (ByVal hWnd As Long, ByVal id As Long) As Long Private Declare Function PeekMessage Lib "user32" Alias "PeekMessageA" (lpMsg As Msg, ByVal hWnd As Long, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long, ByVal wRemoveMsg As Long) As Long Private Declare Function WaitMessage Lib "user32" () As Long Private bCancel As Boolean Private Sub ProcessMessages() Dim Message As Msg 'loop until bCancel is set to True Do While Not bCancel 'wait for a message WaitMessage 'check if it's a HOTKEY-message If PeekMessage(Message, Me.hWnd, WM_HOTKEY, WM_HOTKEY, PM_REMOVE) Then 'minimize the form WindowState = vbMinimized End If 'let the operating system process other events DoEvents Loop End Sub Private Sub Form_Load() Dim ret As Long bCancel = False 'register the Ctrl-F hotkey ret = RegisterHotKey(Me.hWnd, &HBFFF&, MOD_CONTROL, vbKeyF) 'show some information Me.AutoRedraw = True Me.Print "Press CTRL-F to minimize this form" 'show the form and Show 'process the Hotkey messages ProcessMessages End Sub Private Sub Form_Unload(Cancel As Integer) bCancel = True 'unregister hotkey Call UnregisterHotKey(Me.hWnd, &HBFFF&) End Sub
فهرس الأكواد السابقة
(1) لمعرفة اسم اليوم (f)
(2) لمعرفة اسم الشهر (f)
(3) لإضافة نص متحرك (f)
(4) هل الجهاز متصل بالإنترنت (f)
(5) التأكد من وجود ملف (f)
(6) حجم الملف بالبايت (f)
(7) وقت تشغيل الويندوز (f)
(8) تشغيل ملف صوتـMDIــي (f)
(9) ملف فيديو في صورة (f)
(10) التعامل مع الحافظة (f)
(11) حذف أي ملف (f)
(12) عمل ملف جديد (f)
(13) الفرق بين تاريخين (f)
(14) معرف مسار الـTemp (f)
(15) تحميل ملف من على الإنترنت (f)
(16) الزمن والتاريخ (f)
(17) نسخ الملفات (f)
(18) فتح صفحة إنترنت (f)
(19) ملف فيديـ AVI ـو (f)
(20) رش الألوان على الفورم (f)
(21) إغلاق الفورم بطريقة جميلة (f)
(22) التحكم في رفع وخفض الصوت (f)
(23) إنشاء مجلد جديد (f)
(24) معرفة مسار مجلـSystemـد (f)
(25) حصر الماوس داخل نطاق محدد (f)
(26) إزالة البرنامج من الـ Ctrl + Alt + Del (f)
(27) تغيير اسم القرص الصلب (f)
(28) عمل نسخة مشتركة من البرنامج (f)
(29) طباعة نص (f)
(30) منع نسخ أو لصق أي ملف (f)
(31) تشغيل ملف صوتي من نـramـوع (f)
(32) تسجيل الخروج من الويندوز (f)
(33) إنشاء Command Button و Text Box بواسطة الكود (f)
(34) معرفة اسم المختدم ومجلد الويندوز ومجلد النظام (f)
(35) فتح الـ CD-ROM وإغلاقه (f)
(36) التقاط صورة للفورم في الحافظة (f)
(37) تنفيذ أوامر عند الضغط على F9 أو F10 (f)
(38) تغيير دقة عرض الشاشة (f)
(39) صهر الشاشة (f)
(40) عمل فورم شفاف (f)
(41) عمل شاشة افتتاحية للبرنامج (f)
(42) إيقاف الماوس ولوحة المفاتيح عن العمل (f)
(43) نقل ملف (f)
(44) جعل الفورم في المقدمة (f)
(45) تحريك Label بطريقة مسلية (f)
(46) كرات صغيرة تتبع الماوس (f)
(47) معرفة إصدارة الويندوز (f)
(48) تأثير على الـ Label (f)
(49) التقاط صورة للشاشة (f)
(50) إمهال النظام 60 ثانية قبل إغلاقه (f)
(51) تحديد دقة عرض الشاشة (f)
(52) التجسس على لوحة المفاتيح (f)
(53) مؤثر جميل على الفورم (f)
(54) إخفاء المشيرة وإظهارها (f)
(55) طلب الاتصال بالإنترنت (f)
(56) تأجيل تنفيذ الكود لفترة معينة (f)
(57) منع تشغيل أكثر من نسخة من البرنامج (f)
(58) نسخ خلفية سطح المكتب إلى نموذجك (f)
(59) نسخ الصورة أو قلبها (f)
(60) عمل مفتاح اختصار (f)
أخي العزيز: إذا أعجبتك هذه الفكرة أرجو أن لا تبخل بصوتك
صوت من فضلك
(f)الكود الحادي والستون(f)
حساب عدد سطور ملف نصي
Private Sub Command1_Click() Open "c:autoexec.bat" For Input As #1 Count: SS = SS + 1 Line Input #1, x If EOF(1) Then Label1.Caption = SS Exit Sub Else GoTo Count: End If Close End Sub
(f)الكود الثاني والستون(f)
لترجمة النجوم *** في كلمات السر إلى حروف عادية
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Private Type POINTAPI x As Long y As Long End Type Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub Timer1_Timer() Const EM_SETPASSWORDCHAR = &HCC Dim coord As POINTAPI s = GetCursorPos(coord) x = coord.x y = coord.y h = WindowFromPoint(x, y) Dim NewChar As Integer NewChar = CLng(0) retval = SendMessage(h, EM_SETPASSWORDCHAR, ByVal NewChar, 0) End Sub
(f)الكود الثالث والستون(f)
تغيير خصائص ملف
Private Sub COMMAND1_CLICK() SetAttr "C:data.txt", vbHidden SetAttr "C:data.txt", vbReadOnly SetAttr "C:data.txt", vbArchive End Sub
(f)الكود الرابع والستون(f)
حساب عدد حروف TextBox
Private Sub Command1_Click()
MsgBox ("عدد الحروف = " + Str(Len(Text1.Text)))
End Sub(f)الكود الخامس والستون(f)
لتحريك صورة مع مؤشر الماوس
Option Explicit Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Picture1.Move X - 200, Y - 200 End Sub
(f)الكود السادس والستون(f)
التأكد من عمل البرنامج من على الـ CD-ROM
Private Declare Function GetDriveType Lib "kernel32.dll" Alias "GetDriveTypeA" _ (ByVal nDrive As String) As Long Private Sub Form_Load() Dim driveType As Long driveType = GetDriveType(Mid(App.Path, 1, 3)) If driveType <> 5 Then 'إنهاء البرنامج إذا كان لايشتغل من القرص المدمج End End If End Sub
(f)الكود السابع والستون(f)
لتحريك الفورم عن طريق الماوس
ضع هذا الكود في الموديول Declare Function ReleaseCapture Lib "user32" () As Long Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Public Const HTCAPTION = 2 Public Const WM_NCLBUTTONDOWN = &HA1 ضع هذا الكود في الفورم Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) ReleaseCapture SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0& End Sub
(f)الكود الثامن والستون(f)
رسم خطين متقاطعين حسب حركة الماوس
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, _ X As Single, Y As Single) Me.Cls Line (X, 0)-(X, Me.ScaleHeight), vbRed Line (0, Y)-(Me.ScaleWidth, Y), vbGreen End Sub
(f)الكود التاسع والستون(f)
لعكس اتجاه النص
Public Function reversestring(revstr As String) As String Dim doreverse As Long reversestring = "" For doreverse = Len(revstr) To 1 Step -1 reversestring = reversestring & Mid$(revstr, doreverse, 1) Next End Function Private Sub Command1_Click() Dim strResult As String strResult = reversestring(Text1.Text) Text2.Text = strResult End Sub
(f)الكود السبعون(f)
لإضافة حدث عند الضغط على زر الماوس الأيمن
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) IF BUTTON=2 THEN msgbox "الزر الأيمن للماوس" END IF End Sub
فهرس الأكواد السابقة
(1) لمعرفة اسم اليوم (f)
(2) لمعرفة اسم الشهر (f)
(3) لإضافة نص متحرك (f)
(4) هل الجهاز متصل بالإنترنت (f)
(5) التأكد من وجود ملف (f)
(6) حجم الملف بالبايت (f)
(7) وقت تشغيل الويندوز (f)
(8) تشغيل ملف صوتـMDIــي (f)
(9) ملف فيديو في صورة (f)
(10) التعامل مع الحافظة (f)
(11) حذف أي ملف (f)
(12) عمل ملف جديد (f)
(13) الفرق بين تاريخين (f)
(14) معرف مسار الـTemp (f)
(15) تحميل ملف من على الإنترنت (f)
(16) الزمن والتاريخ (f)
(17) نسخ الملفات (f)
(18) فتح صفحة إنترنت (f)
(19) ملف فيديـ AVI ـو (f)
(20) رش الألوان على الفورم (f)
(21) إغلاق الفورم بطريقة جميلة (f)
(22) التحكم في رفع وخفض الصوت (f)
(23) إنشاء مجلد جديد (f)
(24) معرفة مسار مجلـSystemـد (f)
(25) حصر الماوس داخل نطاق محدد (f)
(26) إزالة البرنامج من الـ Ctrl + Alt + Del (f)
(27) تغيير اسم القرص الصلب (f)
(28) عمل نسخة مشتركة من البرنامج (f)
(29) طباعة نص (f)
(30) منع نسخ أو لصق أي ملف (f)
(31) تشغيل ملف صوتي من نـramـوع (f)
(32) تسجيل الخروج من الويندوز (f)
(33) إنشاء Command Button و Text Box بواسطة الكود (f)
(34) معرفة اسم المختدم ومجلد الويندوز ومجلد النظام (f)
(35) فتح الـ CD-ROM وإغلاقه (f)
(36) التقاط صورة للفورم في الحافظة (f)
(37) تنفيذ أوامر عند الضغط على F9 أو F10 (f)
(38) تغيير دقة عرض الشاشة (f)
(39) صهر الشاشة (f)
(40) عمل فورم شفاف (f)
(41) عمل شاشة افتتاحية للبرنامج (f)
(42) إيقاف الماوس ولوحة المفاتيح عن العمل (f)
(43) نقل ملف (f)
(44) جعل الفورم في المقدمة (f)
(45) تحريك Label بطريقة مسلية (f)
(46) كرات صغيرة تتبع الماوس (f)
(47) معرفة إصدارة الويندوز (f)
(48) تأثير على الـ Label (f)
(49) التقاط صورة للشاشة (f)
(50) إمهال النظام 60 ثانية قبل إغلاقه (f)
(51) تحديد دقة عرض الشاشة (f)
(52) التجسس على لوحة المفاتيح (f)
(53) مؤثر جميل على الفورم (f)
(54) إخفاء المشيرة وإظهارها (f)
(55) طلب الاتصال بالإنترنت (f)
(56) تأجيل تنفيذ الكود لفترة معينة (f)
(57) منع تشغيل أكثر من نسخة من البرنامج (f)
(58) نسخ خلفية سطح المكتب إلى نموذجك (f)
(59) نسخ الصورة أو قلبها (f)
(60) عمل مفتاح اختصار (f)
(61) عدد سطور الملف (f)
(62) ترجمة كلمات السر (f)
(63) تغيير خصائص الملف (f)
(64) عدد حروف الـ Text (f)
(65) تحريك الصورة مع الماوس (f)
(66) التأكد من عمل البرنام من على الـ CD-ROM (f)
(67) تحريك الفورم بالماوس (f)
(68) رسم خطين حسب حركة الماوس (f)
(69) عكس اتجاه النص (f)
(70) تفعيل الزر الأيمن للماوس (f)
بسم الله الرحمن الرحيم
السادة أعضاء المنتدى (f)(f) السلام عليكم ورحمة الله وبركاته (f)(f) وبعد
إلى كل من أعجبته هذه الفكرة أو استفاد منها، أرجو منكم أن تقبلوا اعتذاري، فأنا سأنقطع عن المنتدى تقريباً لمدة شهرين من الآن، نظراً لظروف :'( الدراسة القاسية :'(، وبالتالي فلن يمكنني ذلك من وضع أكواد جديدة، وأنا آسف جداً لذلك، ولكن أعدكم بالعودة القوية ابتداء من يوم 15/6/2003م.
كما أرجو أن تقوموا بالتصويت على هذه الفكرة، فإن ذلك سيكون دافعاً لأن أعود إليكم بشكل أفضل ..... وإليكم تحياتي ..... عبد الله فتحي
(f)(f)(f)(f)(f)
جزاك الله خيراً
شكرا لك يا أخي على هذه الجهود الرائعة و أنا أتمنى لك التوفيق في امتحاناتك و نحن ننتظرك في يوم 15 حزيرا لأنني أيضا سأنقطع عن المنتدى حتى ذلك اليوم بسبب الامتحانات .
أخوك : سعد (f)
الف شكر يا اخ عبد الله وادعوا الله ان يوفقك للخير دائما
اخوك فى الله حسام
شكراً لك يا اخى الكريم على هذا المجهود العظيم الذى تبذله و اتمنى لك التوفيق من كل قلبى و الى الامام ;)
[
SIZE=5]فى حد هنا اسكندرانى يا جدعان , عايزين نتعرف
هذا الموضوع مغلق.