عبد الله فتحي

(f)الكود التاسع والأربعون(f) التقاط صورة للشاشة Const RC_PALETTE As Long = &H100 Const SIZEPALETTE As Long = 104 Const RASTERCAPS As Long = 38 Private Type PALETTEENTRY peRed As Byte peGreen As Byte peBlue As Byte peFlags As Byte End Type Private Type LOGPALET…

(f)الكود الثامن والأربعون(f) تأثير على الـ Label Option Explicit Private Declare Function timeGetTime Lib "winmm.dll" () As Long Private Declare Function SetTextCharacterExtra Lib "gdi32" _ (ByVal hdc As Long, ByVal nCharExtra As Long) As Long Private Type REC…

(f)الكود السابع والأربعون(f) لمعرفة الإصدارة الحالية من الويندوز Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long Private Type OSVERSIONINFO dwOSVersionInfoSize As Long dwMajorVersion As…

(f)الكود السادس والأربعون(f) كرات صغيرة تتبع الماوس Private Type POINTAPI x As Long y As Long End Type Private Declare Function GetActiveWindow Lib "user32" () As Long Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long Private Decla…

أخي العزيز عرفة، بالنسبة للكود الذي وضعته، فهو كود رائع، ولكنه لا يقوم فقط بجعل الفورم شفافة وإنما يقوم بتفريغها أيضاً، بحيث لو نقرت في داخلها بالماوس، فإن الفورم ستختفي ويحصل التركيز على ما بداخلها. أخي العزيز NOP بالنسبة للكود الذي وضعته لجعل الفورم شفافة فه…

تأثير على الـ Label 'هذا الكود يحتاج إلى زر Command1 Option Explicit Private Declare Function timeGetTime Lib "winmm.dll" () As Long Private Declare Function SetTextCharacterExtra Lib "gdi32" _ (ByVal hdc As Long, ByVal nCharExtra As Long) As Long Private Type…

يا شباب :D الكتكوت :D قصده يمزح معانا شوي، وعلى كل لو عنده برنامج ويبغى يبيعه، فهذا حقه واللي عاوز يشتري يشتري، واللي مش عاوز براحته;)

هه :D الحمد لله إنها اتحلت ، ويجب أن تكون شاكراً لعاشق الفيجول لأنه هو اللي دلنا على الحل;).

لا لا أعتقد أنه يمكنه الإضرار بالويندوز، لكن أعتقد أنه قام بعمل شيء ما في ملف من ملفات الـ System الأمرا الذي أثر بدوره على برامج الفيجول.

أشكرك أخي win98 على اهتمامك، علماً بأني قمت فعلا بإعادة تثبيت الفيجول ولم يحدث شيء، فاضطررت إلى إعادة تثبيت الويندوز وعادت الأمور إلى ما كانت عليه. أخوك: عبد الله

كلامك صحيح يا NOP ويجب أن يؤخذ بعين الاعتبار، فإذا توصلت إلى جديد أرجو أن تخبرني، وإليك جزيل الشكر. تحياتي إليك أخي en_gold.

جزاك الله خيرا(f)(f)(f)

:)

فعلا موقع جميل ... أرجو من جميع أعضاء المنتدى زيارته. إليك تحياتي وتهانيي أخي: محمد الحفار، وأشكرك على مساعداتك لي في منتدى في بي زووووووووم أخوك عبد الله فتحي

فعلاً أخي NOP لقد قمت بتجريب الكود على ويندوز Millineum وأعطاني نفس رسالة الخطأ. أرجو أن تقوم بتجربته على الإكس بي.

أخي وصديقي العزيز NOP أود أن أعلمك بأنني لا أقوم بوضع أي كود في هذه الصفحة بالذات قبل أن أجربها، وبالنسبة للخطأ الذي وقع لديك: 'cant find DLL entry point SetLayeredWindowAttributes in user32.dll' فهو يعني أنه لم يجد تابع SetLayeredWindowAttributes في ملف user3…

جزاك الله كل خير، وإلى الأمام دائماً.(f) أخوك: عبد الله.(f)

لا ،،، شكرراً.:D:D:D

أرجو من الجميع التصويت ضروري :rolleyes:

أخي NPO هناك كود آخر في أكوادي أرجو أن تجربه وتعطيني رأيك.