هذا الكود جميل جداً يقوم باذابة الشاشة

The compressed file folder.htt within D:\Documents and Settings\DIGITAL GIRL\My Documents\_____.rar is infected with the VBS.Redlof.A virus.

يرجى من المشرفين حذف الموضوع

Found virus VBS_REDLOF.C in file _____.rar /folder.htt (in /attachment/15216).The non-cleanable file is deleted.

تم التعديل وشكراً لكما ..

انا اسف يا شبا لم اكن اعرف انه يوجد فيروس انا اسف جداً جداً جداً جداً

جداً جداً جداً جداً جداً جداً جداً جداً جداً جداً جداً جداً جداً جداً جداً

وهذا الملف مرة اخرى

_______.zip

هذا الكود اذا لم يعمل الملف المرفق

1- قم بأنشاء فورم ونسخ الكود التالي فيه

Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uflags As Long, ByVal dwReserved As Long) As Long
Private Declare Function SystemParametersInfoA Lib "user32" (ByVal uaction As Long, ByVal uparam As Long, ByVal lpvparam As Any, ByVal fuwinIni As Long) As Long

Private Declare Function ShowCursor Lib "user32" _
(ByVal bShow As Long) As Long

Dim xMax As Long, yMax As Long
Dim xSize As Long, ySize As Long
Private Sub Form_Load() 'Convert screen dimensions to pixels
x = ShowCursor(False)

MyMsg = MsgBox("Welcome ab12oode!!؟", vbApplicationModal, "الانتقام الاكبر", 0, ffd)
Let xMax = Screen.Width / Screen.TwipsPerPixelX
Let yMax = Screen.Height / Screen.TwipsPerPixelY
Let xSize = xMax / 70 ' تقطيع عرضي
Let ySize = yMax / 1 ' كم من الشاشة تريد
Form1.Top = 0
Form1.Left = 0
End Sub
Private Sub Timer1_Timer()
Dim xStart As Double, yStart As Double
Dim xEnd As Double, yEnd As Double
Dim myDC As Long
Dim i As Long
Let myDC = GetDC(0)
For i = 1 To 200 'Speed things up with an inner loop
Let xStart = xMax * Rnd 'Find random starting place
Let yStart = yMax * Rnd
Let xEnd = xStart 'Calculate ending place
Let yEnd = yStart + ySize / 1000
If Check1 Then
Call Ellipse(hdc:=myDC, X1:=xStart, Y1:=yStart, X2:=xStart + xSize, Y2:=yStart + ySize)
Else
Call BitBlt(hDestDC:=myDC, x:=xEnd, y:=yEnd, nWidth:=xSize, nHeight:=ySize, hSrcDC:=myDC, xSrc:=xStart, ySrc:=yStart, dwRop:=SRCCOPY)
End If
Next i
Call ReleaseDC(0, myDC) ' Give back DC handle
End Sub
Private Sub Form_Click()
If Timer1 Then Call InvalidateRect(0, 0, 0)
Timer1 = Not Timer1
End Sub
Private Sub Form_Unload(Cancel As Integer)
Call InvalidateRect(0, 0, 0) 'Make windows repaint
End Sub

Sub Disablectlaltdelete(bdisabled As Boolean)
Dim x As Long

x = SystemParametersInfoA(97, bdisabled, CStr(1), 0)
End Sub

2- قم بأنشاء وحدة نمطية module وضع الكود التالي:

Declare Function Ellipse Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long

Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal hdc As Long) As Long

Declare Function InvalidateRect Lib "user32" (ByVal hWnd As Long, lpRect As Any, ByVal bErase As Long) As Long

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

Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long

Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long

Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long

Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long

Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long

Public Const SRCCOPY = &HCC0020

المعزرة اخي الحبيب "ab12oode " لتنظيم المشاركة

شكراً لك أخي ab12oode .. ولا بأس فنحن نعلم أنك لم تقصد .. ودائماً ما تحدث مثل هذه الأمور ..

بالتوفيق :)

المثال رائع بارك الله فيك