عبد الغني محسن

لحذف رموز معينة من جملة نصية : Public Function Clean(sString As String) As String Dim nLength As Integer Dim nStart As Integer Dim sOne As String Dim sNoWay As String ' sNoWay = " ',-.()!_$*<>/?;:=+" ' الحروف المراد حذفها If Not IsNull(sString) Then nLength = …

لإبطال مفعول زر X في النافذة : Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Cancel = True End Sub

لجعل مفتاح Tab يعمل بدلاً من Enter ( مجرد فكرة ) : Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then SendKeys "{TAB}" KeyAscii = 0 End If End Sub

تأجيل تنفيذ الكود لفترة معينة : 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

لإخفاء لسان تبويب الخلفية من نافذة العرض : Private Const HKEY_CURRENT_USER = &H80000001 Private Const REG_DWORD = 4 Private Declare Function RegCloseKey Lib "advapi32.dll" _ (ByVal hKey As Long) As Long Private Declare Function RegCreateKey Lib "advapi32.dll" …

أعتقد أن الموعد بعد صلاة العشاء متأخر لأن الهجوم قد يطول لذلك أرى أن نحدد الوقت ظهراً. وإن كنتم تروا غير ذلك أعلموني

ولمن يريد استخدام محرك الدرة الحربي فعلينا الهجوم على موقع http://www.kahane.org/ لأنه الموقع المكتوب للمهاجمة في هذا البرنامج حالياً أرجو وضع روابط لبرامجكم حاولت أن أضع روابط للبرامج التي سأستخدمها لكن لم أتمكن من تحميل هذه الملفات لا أدري لماذا. لمن يريد أن…

معك حق أخي Sadman لكنا بدأنا الموضوع ودعنا نضرب ضربة واحدة على الأقل إخواني هل مازلتم على موعدكم غدا الأربعاء إن شاء الله مساءً بعد صلاة العشاء أقترح أن نبدأ بالموقع : www.israel.org

عزيزي حسين وأنا هذا ايميلي agmsoft@scs-net.org أرجو أن ترسل لي الشرح بأسرع وقت ممكن أخي الكريم جزاك الله خيراً على مجهودك الرائع الذي لا ينسى

أخي الكريم لم أفهم عليك. إليك ما قمت بعمله: كتبت في TO agmsoft@scs-net.org وفي From ss@hotmail.com والسيرفر mail.hotmail.com ووضعت عنوان ونص للرسالة ووضعت الخيار Normal وضغطت Send ثم فتحت البريد agmsoft@scs-net.org ولم أجد أي رسالة.

عزيزي حسين معليش تحملني قليلاً أنت جربت البرنامج أرسلت رسالة من البرنامج الجديد ولم تصل. ما هو السبب؟؟؟

لمعرفة إحداثيات اللون الذي يقع تحت مؤشر الفأرة. ضع Timer1 و Label2 Option Explicit Private Type POINTAPI x As Long y As Long End Type Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long Private Declare Fu…

هل لديك صورة ونريد أن تجعلها تغمق ألوانها حتى تصبح سوداء ( بطريقة جميلة ) إليكم الكود : Option Explicit Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSr…

ضع أداة (Picture) وسمها pic3d ثم أضف Class Module ضع الكود التالي في Class Module : Option Explicit Const PI = 3.141593 Const PS_SOLID = 0 Dim HALF_SCREEN_WIDTH As Long Dim HALF_SCREEN_HEIGHT As Long Dim HPC As Long Dim VPC As Long Dim ASPECT_COMP As Long Priv…

لجعل صورة ملونة متدرجة بلون فضي : Picture1.ScaleMode = vbPixels x = Picture1.ScaleWidth y = Picture1.ScaleHeight For i = 0 To y - 1 For j = 0 To x - 1 pixel = Picture1.Point(j, i) red = pixel Mod 256 green = ((pixel And &HFF00) / 256) Mod 256 blue = (pixel And…

لمعرفة دقة عرض الشاشة : Dim intWidth As Integer Dim intHeight As Integer intWidth = Screen.Width Screen.TwipsPerPixelX intHeight = Screen.Height Screen.TwipsPerPixelY MsgBox "Screen Resolution:" + Str$(intWidth) + " x" + Str$(intHeight)

شكراً لكم يا اخوة على ما بذلتوه من جهد أخي حسين شكراً لك على البرنامج لكنه لم يعمل أرسلت رسالة بواسطته ولم تصل هل يشترط أن يكون هناك حساب في Outlook Express ؟؟؟ كتب اسم المرسل وبريده واسم المرسل إليه وبريده والعنوان وص الرسالة لكن لم تصل. فما هو السبب ؟؟؟؟ أرج…

يا اخوة وجدت هذا الكود لارسال رسالة من مصدر مجهول لكن المشكلة لم أعرف الأدوات المطلوبة أرجو ممن يتمكن من عمل مشروع جاهز بهذا الكود مع الأدوات أن يضعه لنا مشكوراً. هذا الكود لارسال رسأل من مصدر مجهول الأدوات: text box- 6 com-2 winsock-3 وهناك أدوات أخرى مستخدمة…

أخي حسين أرجو من الله العليّ القدير أن تكون قد وجدت ما أريد. وآمل أن تضع الكود بأسرع ما أمكن.

أيضاً للحصول على باث الويندوز بطريقة الا بي آي. ضع هذا في الموديول: Public Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long Public Declare Function GetSystemDirectory Lib "…