VB是如何编写病毒的

VB是如何编写病毒的（4篇）

1.VB是如何编写病毒的 篇一

时下全国各地都在搞“电脑型福利彩票”，相信很多读者朋友都参与过或正准备参与吧，笔者也是一个“彩民”，已为中国福利事业贡献了XXX元了，不过好像运气不怎么好，至今连个末等奖也未中到，在投注时，彩号可以自己在投注单上选，也可以通过投注机随机选

时下全国各地都在搞“电脑型福利彩票”，相信很多读者朋友都参与过或正准备参与吧，笔者也是一个“彩民”，已为中国福利事业贡献了XXX元了，不过好像运气不怎么好，至今连个末等奖也未中到。在投注时，彩号可以自己在投注单上选，也可以通过投注机随机选取。那么，想不想自己编个程序来模拟“机选”呢?好!那就接着往下看吧!

首先，新建一个单窗体的工程，在上面画出七个TEXTBOX，最好是一个控件数组，这样编程时容易控制，再建一个COMMOND BUTTON，将CAPTION改为“随机产生”。在程序运行后，每点击一下COMMAND1，将随机产生一组数字并按从小到大的顺序显示在文本框中。下面就是程序部分：

Dim NumArray(1 To 7) As Integer′通用中定义

Private Sub Command1_Click()

Dim i, j, N As Integer

For i = 1 To 7

NumArray(i) = 0

Next i

Randomize

NumArray(1) = Fix(1 + 32 * (Rnd()))

j = 1

Do

N = Fix(1 + 32 * (Rnd()))

For i = 1 To j

If N = NumArray(i) Then

Exit For ′重复时

ElseIf i = j Then ′未重复时

NumArray(i + 1) = N

j = j + 1

Exit For

End If

Next i

Loop While j < 7

PopSort ′升序排列

For i = 1 To 7

Text1(i - 1).Text = NumArray(i)

Next i

End Sub

Private Sub PopSort() ′气泡排序法

Dim i, j, Temp As Integer

For i = 7 To 2 Step -1

For j = 7 - 1 To 1 Step -1

If i >= 7 - j + 1 Then

If NumArray(j + 1) < NumArray(j) Then

Temp = NumArray(j)

NumArray(j) = NumArray(j + 1)

NumArray(j + 1) = Temp

End If

End If

Next j

Next i

End Sub

本程序在VB6.0中文企业版、Win98SE中文版下调试通过，

为了简捷起见，这个程序还有很多不尽如人意的地方，比如不能保存等，喜欢编程的朋友可以充分发挥自己的聪明才智对其加以扩充。

原文转自：www.ltesting.net

2.VB是如何编写病毒的 篇二

关键词：VB；TTS；英语阅读教学

中图分类号：TP319文献标识码：B 文章编号：1673-8454（2009）14-0061-02

长期以来，农村中学英语的阅读教学，由于受教师发音不够标准的限制一直效果不佳。为破解这一难题，本人在VB编程中使用TTS技术，轻而易举实现了英语的流利朗读，并能自由调节朗读的速度与效率，极大的提高了英语阅读教学的效率。

那么TTS是什么呢？其实，TTS是微软出品的一套文字朗读引擎（Text-To-SpeechEngine），在VB编程中调用TTS实现英语的朗读。

下面以VB6.0为例详解具体的实现过程。

一、TTS引擎安装

TTS引擎所需的Microsoft Text-To-SpeechEngine与Microsoft Speech API软件既可以到微软的站点下载，也可以在“金山词霸.net”的安装光盘上找到（文件名为MSTTS.EXE与SPCHAPI.EXE）。安装了TTS引擎后，在WINDOWS所在文件夹下会生成一个SPEECH子文件夹，其中有一个Vtxtauto.tlb文件，在编程时要调用它。

二、在VB中引入Vtxtauto.tlb文件

进入VB6.0，执行菜单命令“文件/新建工程/标准EXE”并确定，然后执行菜单“工程”中的“引用”，单击“浏览”按钮到WINDOWS文件夹下的SPEECH子文件夹，打开Vtxtauto.tlb文件，则“VoiceText1.0 Type Library”被添加到引用列表中，选中它并单击确定。将库Vtxtauto引入VB后，可以通过菜单“视图”中的“对象浏览器”来了解它所封装的类，以及了解各类的成员函数与属性的意义与使用格式等信息。一些主要的方法与属性将在下面的源程序中给予注释，故在此不详细列出。

三、在窗体FORM1上放置所需控件并设置主要属性

在FORM1上添加三种Label控件，一个TextBox控件，一个HscrollBar控件,六个CommandButton控件。窗体及各控件的主要属性如下：

FORM1：Caption=“英文朗读”

LABEL1：Caption=“请输入英文文档”

LABEL2：Caption=“朗读速度”

LABEL3：Caption=“”

（LABEL3标签用来显示朗读速度值）

TEXT1：Text=“PleaseinputEnglishtext”，ToolTipText=“请输入或粘贴英文文档”，MultiLine=True,ScrollBars=3 – Both.

HSCROLL1：名称=SpeedChange ，Min=90 ，Max=300

(Min与Max属性值分别用来限定可调节的语速的最小值与最大值)

COMMAND1：名称=read，Caption=“朗读”

COMMAND2：名称=pause，Caption=“暂停”

COMMAND3：名称=stop，Caption=“停止”

COMMAND4：名称=prev，Caption=“上一句”

COMMAND5：名称=next，Caption=“下一句”

COMMAND6：名称=quit，Caption=“退出”

四、代码编写

在窗体装载时调用Register方法注册，括号内的两个参数是字符串，可以随便填。

Private Sub Form_Load( )

Call VTxtAuto. VTxtAuto. Register（Space(8)，Space(8)，）

因为语速的默认值为170，故水平滚动条的初值也设为170

SpeedChange. Value=170

End Sub

设置朗读速度调节代码，当水平滚动条的值Value发生变化时将其赋给控制语速的Speed属性Private Sub SpeedChange_Change( )

VTxtAuto. VTxtAuto. Speed= SpeedChange. Value Label3.Caption= SpeedChange. Value

End Sub

设置“朗读”按钮代码

Private Sub read_Click( )

如果朗读出错，则转到出错处理标记模块ErrorHandler

On Error GoTo ErrorHandler

调用方法Speak进行朗读，第一个参数是要朗读的文本，第二个参数是设置朗读风格

CallVTxtAuto. VTxtAuto.speak(Trim(Text1.Text),

vtxtsp_VERYHIGH+vtxtst_READING)

Exit Sub

ErrorHandler:

MsgBox”只能朗读英文文档，不能朗读汉字符号！”,,”出错信息”

End Sub

设置“暂停”按钮代码

Private Sub pause_Click( )

If VTxtAuto. VTxtAuto.IsSpeaking Then

如果属性IsSpeaking为真，则表示正在朗读，调用AudioPause方法暂停朗读

Call VTxtAuto. VTxtAuto. AudioPause

Pause. Caption=“恢复”

Else

如果已经处于暂停状态则调用AudioResume方法恢复朗读

Call VTxtAuto. VTxtAuto. AudioResume

Pause. Caption=“暂停”

End If

End Sub

设置“停止”按钮代码，调用Stop Speaking方法停止当前朗读

Private Sub stop_Click( )

Call VTxtAuto. VTxtAuto. Stop Speaking

End Sub

设置“上一句”按钮代码，调用AudioRewind方法往后跳过一句

Private Sub prev_Click( )

Call VTxtAuto. VTxtAuto. AudioRewind

End Sub

设置“下一句”按钮代码，调用AudioFastForward方法向前跳过一句

Private Sub next_Click( )

Call VTxtAuto. VTxtAuto. AudioFastForward

End Sub

设置“退出”按钮代码

Private Sub quit_Click( )

Unload Me

End Sub

说明：本程序在中文WINDOWS操作平台，VB6.0环境下运行通过。运行时在文本编辑框中输入或粘贴英文文档，然后单击“朗读”按钮就可播放读音。这样，不管在课上还是在课下，不管有无教师，学生只要打开电脑运行程序即可进行朗读练习，从而避免了因教师发音障碍带来的不便，极大地提高了英语阅读教学的效率！

五、程序改进思想

对于精于VB编程的电脑爱好者来说可对本程序作一些改进，例如增加从文本文件或数据库中读取文档的功能，增加让用户选择朗读的优先级、发声语气类型、发声音量调节功能。当然，这些功能实现起来稍为复杂一些，有兴趣的爱好者可以自行探索一下。

3.VB是如何编写病毒的 篇三

UDP 协议是一种无连接协议，两台计算机之间的数据传输类似于传递邮件：消息从一台计算机发送到另一台计算机，但是两者之间没有明确的连接。

由于UDP 协议不需要显式的连接，就需要在两个Winsock控件中间发送数据，关键需要完成以下的三步：

1.将RemoteHost属性设置为另一台计算机的名称。

2.将RemotePort属性设置为第二个控件的LocalPort属性。

3.调用Bind方法，指定使用的LocalPort。

因为两台计算机的地位可以看成“对等的”，这种应用程序也被称为点对点的应用程序。

下面将创建一个聊天应用程序，两个人可以通过它进行实时的交谈。请按照以下步骤制作：

1.创建一个新的 Standard EXE 工程。将缺省的窗体的名称修改为frmPeerA，将窗体的标题修改为“Peer A”。

2.在窗体中放入一个 Winsock 控件，并将其命名为 udpPeerA。在“属性”页上，单击“协议”并将协议修改为 UDPProtocol。

3.在窗体中添加两个 TextBox 控件。将第一个命名为 txtSend，第二个命名为 txtOutput。

4.为窗体添加如下的代码。

Private Sub Form_Load

′控件的名字为udpPeerA

With udpPeerA

′重点:必须将 RemoteHost 的值修改为对方计算机的名字。

RemoteHost= ″PeerB″

RemotePort = 1001 ′连接的端口号。

Bind 1002 ′绑定到本地的端口。

End With

frmPeerB.Show′显示第二个窗体。

End Sub

Private Sub txtSend_Change()

′在键入文本时，立即将其发送出去。

udpPeerA.SendData txtSend.Text

End Sub

Private Sub udpPeerA_DataArrival _

(ByVal bytesTotal As Long)

Dim strData As String

udpPeerA.GetData strData

txtOutput.Text = strData

End Sub

要创建第二个 UDP 伙伴，请按照以下步骤执行：

1.在工程中添加一个标准窗体，将窗体的名字修改为 frmPeerB，将窗体的标题修改为“Peer B”，

2.在窗体中放入一个 Winsock 控件，并将其命名为 udpPeerB。

3.在“属性”页上，单击“协议”并将协议修改为“UDPProtocol”。

4.在窗体上添加两个 TextBox 控件。将第一个命名为 txtSend，第二个命名为 txtOutput。

5.在窗体中添加如下代码

Private Sub Form_Load()

′控件的名字为 udpPeerB。

With udpPeerB

′重点:必须将RemoteHost的值改为对方计算机的名字。

RemoteHost= ″PeerA″

RemotePort = 1002 ′要连接的端口。

Bind 1001 ′绑定到本地的端口上。

End With

End Sub

Private Sub txtSend_Change()

′在键入后立即发送文本。

udpPeerB.SendData txtSend.Text

End Sub

Private Sub udpPeerB_DataArrival _

(ByVal bytesTotal As Long)

Dim strData As String

udpPeerB.GetData strData

txtOutput.Text = strData

End Sub

运行工程，然后在两个窗体的txtSend TextBox中分别键入一些文本。键入的文字将出现在另一个窗体的 txtOutput TextBox中。

这样，一个十分简单的实时聊天工具就做好了。

(广东 刘亮)

4.VB是如何编写病毒的 篇四

连日来，武汉不明原因的病毒性肺炎疫情牵动了全社会的目光。继武汉8名不明原因病毒性肺炎患者治愈出院后，1月9日一早又传来好消息，武汉不明原因的病毒性肺炎的“真凶”已经找到。据权威媒体报道，专家组认为，本次不明原因的病毒性肺炎病例的病原体初步判定为新型冠状病毒。

复旦大学附属上海市公共卫生临床中心党委书记卢洪洲教授指出，冠状病毒感染在全世界范围内都非常普遍，公众不必恐慌。冠状病毒是一类主要引起呼吸道、肠道疾病的病原体。这类病毒颗粒的表面有许多规则排列的突起，整个病毒颗粒就像一顶帝王的皇冠，因此得名“冠状病毒”。目前为止，已知的人类冠状病毒共有六种。其中，HCoV-229E、HCoV-NL63、HCoV-OC43和HCoV-HKU1四种冠状病毒感染机体后大多呈自限性经过，以鼻塞、流涕、打喷嚏等“普通感冒”症状为主，少数可有神经系统并发症。但是SARS-CoV和MERS-CoV两种冠状病毒均具有较高的致病性，可引发致死性肺炎。该两种冠状病毒临床特征相似，可以有明显的发热、头痛和肌痛、乏力等全身症状，部分病例也可以腹泻等消化道症状起病，可快速进展至呼吸急促、进行性呼吸困难等呼吸衰竭表现，也可伴有急性肾损伤等其他器官功能损害。冠状病毒感染后，治疗主要为对症及支持疗法。

结合本次武汉出现的新型冠状病毒，卢洪洲认为，对不明原因肺炎需加强认识，同时满足：发热(腋下体温≥38℃);具有肺炎的影像学特征;发病早期白细胞总数降低或正常，或淋巴细胞分类计数减少;经规范抗菌药物治疗3-5天病情无明显改善或呈进行性加重四个临床特征后，需考虑不明原因肺炎。若发现不明原因肺炎后，对于一定程度上呈现时间空间聚集性的呼吸道传染性疾病，医院要强化临床分诊以快速发现和报告不明原因肺炎病例，对疑似或确诊病例进行隔离观察和治疗;医疗机构和公共卫生场所应充分环境通风和清洁，建立可持续的感染防控基础设施;在诊疗和护理可能或确诊的相关病例时，或对相关标本进行临床检测和科学研究时，应采取相应级别的防护措施，以进一步降低传播风险。不明原因肺炎患者一旦出现严重呼吸道感染症状，卢洪洲提醒因根据病情采取呼吸机机械通气、体外膜式氧合(ECMO)等对症支持治疗。用药时，卢洪洲建议，广谱抗病毒药物对冠状病毒仍无确切疗效，神经氨酸酶抑制剂奥司他韦对流感有效，对冠状病毒则无效果。

卢洪洲提醒，预防病毒性肺炎还是要增强卫生健康意识，平时加强锻炼，规律作息，提高自身免疫力。此外，即使天气寒冷，也要注意居室和办公室通风，通风可以减少空气中的病毒数量，从而减少感染;家人或办公室同事在流行季患病了，其他人应该注意隔离，以减少传染机会;病毒性肺炎和流感流行季，要尽量少到人群密集的场所;外出乘地铁、公交等公共交通回家后，要及时换掉外套，洗手、洗鼻。卢洪洲表示，全人群对流感普遍易感，药物预防不能代替疫苗接种，接种流感疫苗是预防流感病毒感染及其严重并发症的最有效手段。

什么是冠状病毒?

专家：冠状病毒是自然界广泛存在的一大类病毒，属于RNA病毒，一般作为呼吸道的病原存在。冠状病毒引起的呼吸道感染并不太严重，一般情况下甚至超不过流感。

此前严重急性呼吸综合征(SARS)和中东呼吸综合征(MERS)病毒就是变异了的冠状病毒。虽然它们与严格的传统概念中对冠状病毒的描述并不完全、绝对的一致，但从分类上属于冠状病毒。

另据中国疾控中心1月9日消息：迄今为止，除本次在武汉引起病毒性肺炎暴发疫情的新的冠状病毒外，共发现6种可感染人类的冠状病毒。包括4种常见的人冠状病毒(229E、NL63、OC43和HKU1型)，以及SARS、MERS。

常见的人冠状病毒(包括229E、NL63、OC43和HKU1型)，通常会引起轻度或中度的上呼吸道疾病，如感冒。症状主要包括流鼻涕、头痛、咳嗽、咽喉痛、发热等，有时会引起肺炎或支气管炎等下呼吸道疾病，心肺疾病患者、免疫力低下人群、婴儿和老年人中较为常见。

MERS-CoV和SARS-CoV常引起较为严重症状。MERS症状通常包括发热、咳嗽和呼吸急促，甚至发展为肺炎，病死率约为34.4%。SARS症状通常包括发热、畏寒和身体疼痛，甚至发展为肺炎，病死率约为9.6%。

确认发现一个新型病毒，需要哪些步骤?

专家：一般来说，通过基因组学方法可以鉴定出病毒属于哪个种类，但仅仅是基因组学的鉴定，还不能表明病毒的生物学特性。所以还要做生物学特性分析，包括感染特征、进入机体以后引起的病理特征等。这些全部研究完成后，才能确定病毒有何特征，会引起什么疾病，人体会产生什么免疫反应。