PrivaWhatsApp 蓝色勾te Declare Function FindWindow Lib user32 Alias FindWindowA (ByVal lpClassName As String, ByVal lpWindowName As StrWhatsApp网页版登陆ing) As Long
Private Declare FuncWhatsApp云控价格tion ShowWindow Lib user32 (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Const SW_HIDE = 0
Private Const SW_RESTORE = 9
'隐藏桌面图标
Private Sub Command1_Click()
Dim Hwd As Long
Dim rtn As Long
Hwd = FindWindow(Progman, vbNullString)
rtn = ShowWindow(Hwd, SW_HIDE)
End Sub
'显示桌面图标
Private Sub WhatsApp换手机号怎么办Command2_Click()
Dim Hwd As Long
Dim rtn As Long
Hwd = FindWindow(Progman, vbNullString)
rtn = ShowWindow(Hwd, SW_RESTORE)
End Sub

API：
Private Declare Function SetWindowPos& Lib user32 (ByVal hwnd As Long,ByVal hWndInsertAfter AsWhatsApp群链接怎么加入 Long, ByVal x As Long, ByVal y As Long,ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
窗体登陆事件加上：
SetWindowPos form1.hwnd, 1, 0, 0, 0, 0, 3
试试行不

Private Declare FunctionFindWindow Lib user32 AliasFindWindowA (ByVal lpClassNameAs String, By官方WhatsApp免费下载Val lpWindowName AsString) As Long

'读取外部图标 Picture1.Picture = LoadPicture( 路径+文件名)
'改变鼠标图WhatsApp的价值标 MousePointer属性就是设置鼠标指针形状的属性，有0～98种可以选择，如果这么多种你还不满意，就将其属性设置为99，然后将MouseIcon属性选择一个以.ico或.cur为扩展名的图标就行了，那个图标就是你鼠标的形状。MousePointer.ico=Picture1.Picture
简写：MousePointer.ico=LoadPictWhatsApp手机官网下载ure( 路径+文件名)
.............
删除鼠标图标（其实是恢复原WhatsApp webb来的样子）：MousePointer.ico=LoadPicture( )

这个用VB 实现比较难！！好像还没有好的方法！！！

WhatsApp要用加速器吗

隐藏桌面图标()和隐藏任务栏()

有点，用api了

WhatsApp中文网页版 - WhatsApp官网请注明：WhatsApp中文网页版 - WhatsApp官网 » WhatsApp密码忘记 VB隐藏别人界面所有图标的代码是什么?