Informações basicas, mas legal para quem está começando em VB

[AnonymousKesha 11]

Bom, venho aqui passar algumas linhas em VB que vão ajudar muitos iniciantes assim como eu!

São linha referentes a seu computador, ou o computador do cliente, ou se preferir "my.computer"

 

Vamos lá:

 

Computador

#Essas 3 linhas dão informações completas sobre o computador(Todas as informações vão sair em uma mensagem)

MsgBox(My.Computer.Info.OSFullName)

MsgBox(My.Computer.Info.OSPlatform.ToString)

MsgBox(My.Computer.Info.OSVersion.ToString)

 

#Essa linha informa o "nome" do computador

MsgBox(My.User.Name)

 

Teclado

 

#Essa linha informa se o botão Num Lock está ativado(Se for true = ativado, se for false = Desativado)

MsgBox(My.Computer.Keyboard.NumLock)

 

#Essa linha informa se o botão CapsLock está ativado(Se for true = ativado, se for false = Desativado)

MsgBox(My.Computer.Keyboard.CapsLock)

 

 

Externo

 

#Essa linha chama o navegador padrão + link desejado

System.Diagnostics.Process.Start("like")

 

#Essa linha chama o antigo e-mail do msn, não sei se ele ainda está ativado, tem que ter o windows live completo instalado,ela vai chama o windows live email,já com o email do destinario colocado

System.Diagnostics.Process.Start("mailto:[email protected]")

 

#Essa linha altera o regedit(Qualquer parte do regedir[valor] pode se alterado

My.Computer.Registry.SetValue("HKEY_LOCAL_*******\SYSTEM\CurrentControlSet\services\USBSTOR", "Start", TextBox1.Text)

Obs:Essa seguinte linha que coloquei vai alterar as portas USB, ou seja voce digita o valor 3=ativado ou 4=desativado, quando o valor é =4 as portas USB

não vão "reconhecer" pendrives ou qualquer outra coisa que não tenha memoria própria(o Mouse e teclado tem, por isso não são desativados)

Obs2:Para alterar qualquer outra parte do regedit,basta alterar o caminho do código

 

Ultima linha e a mas "legal"

#Essa linha lista todos os processos do Windows em uma listbox

For Each processo As Process In Process.GetProcesses()

If (processo.MainWindowTitle <> "") Then

ListBox1.Items.Add("Programa: " & processo.MainWindowTitle)

Else

ListBox1.Items.Add("Processo: " & processo.ProcessName)

End If

Next processo

End Sub

 

 

 

By:Yoshi