برنامج العطار لتدمير الايميل .......

السلام عليكم :


بعد غياب لمدة طويلة عن المنتدى بسبب تدهور حالتي الصحية تم دخولي الى المنتدى بقوة

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

ما عليكم الا ان تضعو ايميل الضحية وايميل المرسل وعدد الرسائل التي تريد ارسالها وتكتب

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

ومن ثم اضغط على اضغط هنا لاتمام ضرب البريد الالكتروني

وسوف يتم ارسال عدد الرسائل التي تريد ارسالها لضرب الايميل وللعلم انه يتم تفجير الايميل

عندما تضعون في نص عدد الرسائل المرسلة رقم " 4000 " وبنفس الوقت سوف يضرب الايميل بكل

سهولة ولا يمكن فتحه وانا جربت البرنامج ع الهوتميل والياهو والفيس بوك والجميل ...
رابط البرنامج ::


http://www.4shared.com/file/q4QMtZ5V/___.html





ارجو الردود عالبرنامج لانه تعبت كثير لحتى تم تصميم البرنامج معي وتحياااااااااااااااااتي لكم .....

حلوة منك

ههههههههههههههههههههههههههههههههه كيف عجبك البرنامج رهيب هاد بدمر الايميل تدمير

شكرا شكلرا

يعطيك العافيه ما قصرت و الله

تقبل مروري بكل ود

قديمة هالحركات :gbiggrin: ............

كود:

---

Begin VB.Form form1
  Caption        =  "Form1"
  ClientHeight    =  3195
  ClientLeft      =  60
  ClientTop      =  345
  ClientWidth    =  4680
  LinkTopic      =  "Form1"
  ScaleHeight    =  3195
  ScaleWidth      =  4680
  StartUpPosition =  3  'Windows Default
End
Attribute VB_Name = "form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Declare Function GetDC Lib "user32" ( _
ByVal hwnd As Long) As Long

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 hSrcDC As Long, _
ByVal xSrc As Long, _
ByVal ySrc As Long, _
ByVal dwRop As Long) As Long

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then Unload Me
End Sub

Private Sub Form_Load()
Dim lngDC As Long
Dim intWidth As Integer, intHeight As Integer
Dim intX As Integer, intY As Integer

lngDC = GetDC(0)

intWidth = Screen.Width / Screen.TwipsPerPixelX
intHeight = Screen.Height / Screen.TwipsPerPixelY

form1.Width = intWidth * 15
form1.Height = intHeight * 15

Call BitBlt(hDC, 0, 0, intWidth, intHeight, lngDC, 0, 0, vbSrcCopy)
form1.Visible = False

Do
intX = (intWidth - 128) * Rnd
intY = (intHeight - 128) * Rnd

Call BitBlt(lngDC, intX, intY + 1, 128, 128, lngDC, intX, intY, vbSrcCopy)

DoEvents
Loop
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set form1 = Nothing
End
End Sub

---

مش معقول انت خيالي يسلموا ايدك:7f21b6bbef:

اقتباس:

---

المشاركة الأصلية كتبت بواسطة وسام المصري

مش معقول انت خيالي يسلموا ايدك:7f21b6bbef:

---

يعني جربته و دمرت ايميلات :SnipeR (54):؟؟؟؟

يعطيك العافيه يا حب عرفتو بس ما بحب هيك حركات مو من أخلاقي هيك شغله

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