- Verificar Internet :
PHP:
www.google.com", 10) Then
MsgBox("Acesso a internet!", MsgBoxStyle.Information)
End If
Catch ex As Exception
MsgBox("Nao ha acesso a internet", MsgBoxStyle.Critical)
End Try
End If
End Function- Fechar Aplicativo Com Mensagen:
PHP:
If MsgBox("Deseja fechar?", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then
Me.Close()
End If- VERIFICANDO CAPS LOCK:
PHP:
If My.Computer.Keyboard.CapsLock = True Then
MsgBox("Caps Lock Está Ativada!")
Else
MsgBox("Caps Lock Está Desativada!")
End If- FORM TRANSPARENTE AO MOVER :
PHP:
Private Const WM_NCLBUTTONDOWN As Long = &HA1
Private Const WM_NCLBUTTONUP As Long = &HA0
Private Const WM_MOVING As Long = &H216
Private Const WM_SIZE As Long = &H5
Protected Overrides Sub DefWndProc(ByRef m As System.Windows.Forms.Message)
Static LButtonDown As Boolean
If CLng(m.Msg) = WM_NCLBUTTONDOWN Then
LButtonDown = True
ElseIf CLng(m.Msg) = WM_NCLBUTTONUP Then
LButtonDown = False
End If
If LButtonDown Then
If CLng(m.Msg) = WM_MOVING Then
If Me.Opacity <> 0.9 Then Me.Opacity = 0.5
ElseIf CLng(m.Msg) = WM_SIZE Then
If Me.Opacity <> 0.6 Then Me.Opacity = 0.6
End If
ElseIf Not LButtonDown Then
If Me.Opacity <> 1.0 Then Me.Opacity = 1.0
End If
MyBase.DefWndProc(m)- Baixar arquivos para o pc:
PHP:
My.Computer.Network.DownloadFile("Aqui o link", "Aqui o nome como será baixado")- Abrir Pagina Na WEB:
PHP:
Process.Start("coloque o link aqui")- Verificar se foi aberto como adm:
PHP:
If My.User.IsInRole(ApplicationServices.BuiltInRole.A dministrator) Then
MsgBox("O Programa foi aberto como administrador!!!")
Else
MsgBox("O Programa deve ser aberto como Administrador!! o programa sera fechado!")
Me.Close()
End If- MINIMIZAR FORM :
PHP:
Me.WindowState = FormWindowState.Minimized- MAXIMIZAR FORM:
PHP:
Me.WindowState = FormWindowState.Maximized- Colocar Delay :
PHP:
Threading.Thread.Sleep(5000)- Mostrar Senha:
PHP:
If CheckBox2.Checked Then
TextBox2.PasswordChar = ""
Else
TextBox2.PasswordChar = "*"
End If
My.Settings.check2 = CheckBox2.Checked
End Sub- BLOQUEAR TEXTBOX :
PHP:
TextBox1.Enabled = false- ABRIR IMAGEM :
PHP:
OpenFileDialog1.ShowDialog()
If OpenFileDialog1.FileNames.Length > 0 Then
PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
End If- mostrar 2 mensagem no button:
PHP:
if button1.text = "" then
'timer1.stop
button1.text = ""
'timer1.start- 'Desliga o Computador
PHP:
System.Diagnostics.Process.Start("shutdown", "-s -t 00")
'Reinicia o Computador
System.Diagnostics.Process.Start("shutdown", "-r -t 00")
'Faz Logout no Computador
System.Diagnostics.Process.Start("shutdown", "-l -t 00")- ABRIR FORM DEPOIS DO PROCESSO:
PHP:
TIMER1
Enable: True
Interval: 100
If Process.GetProcessesByName("**********").Length > 0 Then
Form2.Show()
End If
