-
.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)CODICEImports 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)CODICEMsgBox("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
. -
~Luke .
User deleted
Tutto questo per cosa? Scusa ma non ho capito in cosa consisterebbe lo scherzo xD . -
.
che non si apre nessun altro programma tranne che un sacco di bottoni cosi che se non sa come liberarsene, Riavvia il pc è una cosa per infastidiere una persona una burla per vendicarti di quello che ti hanno fatto . -
~Luke .
User deleted
Non basta fare Ctrl + Altr + Canc e andare sul Task Manager per chiudere tutto? xD . -
.
Si, ma se non lo sa è divertente l'ho scritto . -
~Luke .
User deleted
Mi puoi dare il link di un'interfaccia del genere? Giusto per vedere come viene xD . -
.
non lo ho perchè non l'ho salvato visto che li creo io molti di questi vuoi che te lo creo? ^ _ ^ ? . -
~Luke .
User deleted
Ok 
. -
.
A si mi sono sbagliato questo qui mette un Rumore fastidioso per le orecchie ne ho diversi scusami :sisi
ecco qui la prova: Click.
Non li ricordo tutti
.
Pokémon Flame [Soluzione e Download Pokemon: X,Y, Bianco 2,Nero 2, Bianco,Nero, CuoreOro,AnimaArgento, Platino,Diamante,Perla] 
Off Topic - How To
Bottone Fastidioso VB |
Web