Bottone Fastidioso VB

« Older Newer »

Paralizer

Posted on 16/2/2012, 15:52 by: Paralizer

Senior Member

Group: Admin

Posts: 27,291

Status: Anonymous

Bottone Fastidioso VB

Volete Fare uno scherzo a dei vostri amici che hanno burlato a voi? Benissimo, Questo è il topic adatto per imparare.
Per la prima cosa Scaricate Visual Basic 2010 Qui: Click .
Dopo aver aperto il programma andate a File e cliccate nuovo Proggetto cliccate windows Form e chiamatelo con un nome "invitante" come ad esempio photoshop Cs5 + Crack e poi cliccate OK.
Inserite un Bottone sul Form in questo modo:

SPOILER (clicca per visualizzare)

E impostatelo circa in questo modo:

SPOILER (clicca per visualizzare)

E poi, modificate il Text Button Con : Download Od Altro.
Ora fate Doppio click non sul bottone ma sul form, cancelalte tutto il codice all'interno ed inserite questo codice:

SPOILER (clicca per visualizzare)

CODICE

Imports System.Runtime.InteropServices
Public Class Form1
<StructLayout(LayoutKind.Sequential)> _
Public Structure MARGINS
Public Destra As Integer
Public Sinistra As Integer
Public Su As Integer
Public Giu As Integer
End Structure
Declare Auto Function DwmIsCompositionEnabled Lib "dwmapi.dll" Alias "DwmIsCompositionEnabled" (ByRef pfEnabled As Boolean) As Integer
Declare Auto Function DwmExtendFrameIntoClientArea Lib "dwmapi.dll" Alias "DwmExtendFrameIntoClientArea" (ByVal hWnd As IntPtr, ByRef pMargin As Margins) As Integer
Dim pMargins As New MARGINS With {.Su = +10, .Sinistra = +10, .Destra = +10, .Giu = +10}
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim en As Boolean = False
DwmIsCompositionEnabled(en)
If en Then
DwmExtendFrameIntoClientArea(Me.Handle, pMargins)
End If
Me.TransparencyKey = Color.FromKnownColor(KnownColor.ActiveCaption)
Me.BackColor = Me.TransparencyKey
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
Me.ShowInTaskbar = False
End Sub
End Class

Dopo averlo Fatto, cliccate 2 volte il bottone e all'interno mettete questo codice:

SPOILER (clicca per visualizzare)

CODICE

MsgBox("Scherzetto", MsgBoxStyle.Critical, "Warning!")
Console.Beep(4500, 5000000)

Al posto di scherzetto potrete scrivere qualche altra cosa.

Bene poi attivate il programma cliccate il bottone e resterà Tutto però con un rumoraccio di sottofondo che vi romperà i timpani
Per poi chiuderlo non vi basterà altro che Attivare TaskManager.
Personarlmente vi consiglio anche di modificare il nome del form nelle stesso modo di come avete modificato quello del Bottone solo cliccando una volta sul form e modificare la propietà Text.

Edited by » Fire - 16/2/2012, 17:08

Web

8 replies since 16/2/2012, 15:52 57 views