visual basic Alguns Codigos Eficientes vb.net

[Dagger_Hacking 3]

Vo Mostrar alguns Codigos bem eficiente para seus projetos !

 

1.✓ Esse codigo tem a mesma função do Timer :

Public Sub ESPERA(ByVal INTERVALO As Integer)

Dim PARADA As New Stopwatch

PARADA.Start()

Do While PARADA.ElapsedMilliseconds < INTERVALO

Application.DoEvents()

Loop

PARADA.Stop()

End Sub

 

2.✓ Esse codigo serve para baixar um texto para um TextBox :

Dim webclient1 As System.Net.WebClient = New System.Net.WebClient()

Dim NN As String = webclient1.DownloadString("Link do Host\arquivo.txt")

TextBox1.text = NN

 

3.✓ Esse codigo serve para Reiniciar sua Aplicação :

System.Windows.Forms.Application.Restart()

Me.Refresh()

 

4.✓ Esse codigo serve para um AutoUpdate :

Dim NN As String = New System.Net.WebClient().DownloadString("Sua Host \ Versão.txt")

If (Nome do seu projeto.My.MyProject.Application.Info.Version.ToString() <> str1 < 0) Then

If (MsgBox("Nova Atualização Disponivel !!", MsgBoxStyle.Information, "Atualização")) Then

Nome do seu projeto.My.MyProject.Computer.Network.DownloadFile("Link de Download Update", System.Windows.Forms.Application.StartupPath & "\Nome do seu projeto " & NN & ".exe")

Interaction.MsgBox("Nome do seu projeto " & NN & ".exe foi baixada com sucesso", MsgBoxStyle.OkOnly, Nothing)

Process.Start(Application.StartupPath + "\Nome do seu projeto")

End

End If

End If

 

5.✓ Esse codigo serve para mover uma PictureBox :

Dim Offset As Point

Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles PictureBox1.MouseDown

Offset = New Point(-e.X, -e.Y)

End Sub

 

Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles PictureBox1.MouseMove

If e.Button = Windows.Forms.MouseButtons.Left Then

Dim Pos As Point = Me.PointToClient(MousePosition)

Pos.Offset(Offset.X, Offset.Y)

PictureBox1.Location = Pos

End If

End Sub

 

6.✓ Esse codigo serve para excluir uma chave do regedit :

My.Computer.Registry.CurrentUser.DeleteSubKey("Software\Chave")

 

7.✓ Esse codigo serve para copiar texto de uma label :

Clipboard.SetText(LinkLabel1.Text)

 

8.✓ Esse codigo muda o valor de uma chave do regedit :

Dim regkey = My.Computer.Registry.LocalMachine.OpenSubKey("HARDWARE\Chave", True)

regkey.SetValue("SubChave", "8", Microsoft.Win32.RegistryValueKind.String) ' Aonde ta 8 coloca o valor para qual quer ser alterado !

 

9.✓ Esse codigo serve para criar subkey no regedit :

Dim regKey As RegistryKey

regKey = Registry.LocalMachine.OpenSubKey("SOFTWARE", True)

regKey.CreateSubKey("SubKey")

regKey.Close()

MsgBox("Criado")

Codigo Disponibilizado por : Dagger_Hacking ✓

Gostou ? Deixe seu Curtir ae :D

[Loukobicho 167]

Dagger obrigado por postar esses códigos, eu estava numa dúvida terrível de um projeto que estou fazendo e você me salvou. :)