Tutorial Microsoft Fix it

Dezembro 2016


O Microsoft Fix It é um software de diagnóstico que permite detectar os problemas que poderiam comprometer o bom funcionamento de seu sistema Windows. Ele efetua buscas proativas dos danos e efetua uma atualização regular de seus softwares trazendo os corretivos necessários. Ele pode efetuar uma análise completa do conjunto do seu sistema, detectar os erros e corrigi-los. O Microsoft Fix It propõe algumas ferramentas bastante úteis que permitem implementar as performances de seu Windows.

Este software permite corrigir muitos problemas encontrados nos produtos da Microsoft tais como: Windows, Internet explorer, Leitor Windows média, Xbox, Zune, Windows Phone, Office, Windows Serveur, Exchange, Forefront serveur security, Dynamics

SQL serveur

Por exemplo, este software permite reparar os seguintes problemas encontrados no Windows: resolve os problemas de arquivos ou de pastas no Windows, tem uma solução automatizada para resolver a lentidão de seu PC, repara os problemas comuns de manutenção de seu PC, Windows Search não afixa resultados ou não arranca mais, solução aos problemas das fotos Windows 7 e Vista, os leitores CD, DVD ou o gravador não funcionam mais, os efeitos Aero Glass não funcionam no Windows Vista, aumente a autonomia de seu computador ou PC portátil, resolução de problemas de exibição de tela : texto ilegível, resolução de problemas : Windows Update não funciona mais.

Para utilizar este software acesse o link aqui, ou então clique no site Kioskea aqui:





Selecione a zona de problemas e, depois, selecione o problema que se aproxima mais do seu. Em seguida selecione o tipo de problema encontrado e clique em Lançar agora e depois Registre o arquivo obtido:


Execute em seguida o software baixado:



Deixe o software instalar-se:


Aceite as condições do contrato de licença Microsoft:


O software se instala:


Escolha a opção Detectar o problemas e aplicar os corretivos (recomendado):


O software detecta automaticamente os problemas. Depois, você deverá marcar todas as opções que correspondem aos problemas encontrados. Uma interface de recapitulação mostra os problemas encontrados e os corretivos efetuados:



Para maiores informações clique em Exibir os detalhes do relatório:


Em seguida é solicitado se seu problema foi resolvido:



Se for o caso, está pronto para você!

Se não for o caso, marque a opção Não, o problema não foi resolvido , o que te levará ao site do suporte da Microsoft, onde você poderá buscar ajuda no fórum da comunidade Microsoft,

Se seu aplicativo não for utilizado em seu PC e que sua barra de tarefas for configurada para ser "Retrátil", esta demonstração não é necessária para você. ela foi organizada para que somente um botão ou um atalho de teclado seja necessário para seu funcionamento.

No módulo geral


'*************************
'*** Lermite ******
'*** 06/03/2010 ******
'*************************
Opção explicita
Public Alternar As Boolean

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowPlacement Lib "user32" (ByVal hwnd As Long, lpwndpl As WINDOWPLACEMENT) As Long
Public Declare Function SHAppBarMessage Lib "shell32.dll" (ByVal dwMessage As Long, pData As AppBarData) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As _
Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Private Type POINTAPI
X As Long
Y As Long
End Type
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Public Type AppBarData
cbSize As Long
hwnd As Long
uCallbackMessage As Long
uEdge As Long
rc As RECT
lParam As Long
End Type
Private Type WINDOWPLACEMENT
Length As Long
FLAGS As Long
showCmd As Long
ptMinPosition As POINTAPI
ptMaxPosition As POINTAPI
rcNormalPosition As RECT
End Type
Public WinPlacement As WINDOWPLACEMENT

Public Const ABS_ALWAYSONTOP = &H2
Public Const ABS_AUTOHIDE = &H1
Public Const ABM_GETSTATE = &H4
Public Const ABM_SETSTATE = &HA

' Encontra hwnd da barra das tarefas
Private Function GetHwndBT() As Long
GetHwndBT = FindWindow("shell_traywnd", "")
End Function

Private Function BarData() As Integer
Dim BarDt As AppBarData
BarData = SHAppBarMessage(ABM_GETSTATE, BarDt)
End Function

'Voltar para o valor true (Verdadeiro) se a barra de tarefas for retrátil
Public Function BarMode() As Boolean
Dim ret As Integer
ret = BarData()
BarMode = (ret = ABS_AUTOHIDE + ABS_ALWAYSONTOP Or ret = ABS_AUTOHIDE)
End Function

'Aplique as propriedades à barra de tarefas
'Mode = 0 : veja a barra de tarefas
'Mode = 1 : esconde a barra das tarefas
Public Sub ChangeTaskBar(Mode As Long)
Dim BarDt As AppBarData
Dim ret As Long

'Entrada dos parâmetros

BarDt.cbSize = Len(BarDt)
BarDt.hwnd = GetHwndBT
BarDt.lParam = Mode
'Aplique
ret = SHAppBarMessage(ABM_SETSTATE, BarDt)

If ret = 0 Then
Call MsgBox("erreur lors de l'appel de SHAppBarMessage", vbCritical + vbOKOnly, "Erreur")
End If
End Sub

Sub MaximizeAppli()
Static a As Boolean
Static Changer As Integer
If Changer = 0 Then
'Ver se a barra de tarefas é retrátil
Alterar = IIf(BarMode, 1, 2)
End If
a = Not a
If Changer = 2 Then
'A barra de tarefas não é retrátil / Ressort
Call ChangeTaskBar(Abs(a))
End If
'O Aplicativo será sempre maximizada para tela cheia.
Application.WindowState = IIf(a, xlMaximized, xlNormal)
End Sub

Três exemplos para empregar a função

Um atalho de teclado
Em uma linha, clique em Macro e selecione MaximizeAppli, depois em Opção atribua uma letra ao atalho.

Um botão formulário: atribua a função MaximizeAppli ao botão

Com um botão em Userform
Atenção: o userForm deve ser chamado com Show 0
No código do botão do UserForm
Private Sub CommandButton1_Click()     
MaximizeAppli
Dim T, L
'Exemplo para posicionar o botão em torno dos botões do sistema do aplicativo.
L = Application.Left + Application.Width - UFbouton.Width - 60
T = Application.Top + 2
Me.Move L, T, 40, 14 ' à se adaptar
End Sub


Você pode baixar um arquivo de demonstração que retoma as três soluções acima.
Nota: as funções OterCadreUF e transparência aplicadas ao UserFom estão ali para a demonstração e não são indispensáveis.

Download do arquivo demonstração

Veja também :
Este documento, intitulado « Tutorial Microsoft Fix it »a partir de CCM (br.ccm.net) está disponibilizado sob a licença Creative Commons. Você pode copiar, modificar cópias desta página, nas condições estipuladas pela licença, como esta nota aparece claramente.