Membuat Teks di Layar

Kode berikut ini akan membuat atau memunculkan teks di area layar secara terus-menerus.
Buat sebuah Project baru dengan sebuah Form didalamnya. Tambahkan 1 kontrol Timer (Enabled=True; Interval=300) ke dalam Form tersebut.


[ VB 6.0 ]
Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
Const s = "Virus Layar Aneh"

Di bagian 'Form_Load' ketikkan :

App.TaskVisible = False
Me.Hide

Lalu di bagian 'Timer1_Timer' ketikkan :

Dim l As Long
l = GetWindowDC(GetDesktopWindow)

Randomize
TextOut l, Rnd * (Screen.Width / Screen.TwipsPerPixelX), Rnd * (Screen.Height / Screen.TwipsPerPixelY), s, Len(s)

[ VB .NET ]
Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Integer) As Integer
Private Declare Function GetDesktopWindow Lib "user32" () As Integer
Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Integer, ByVal x As Integer, ByVal y As Integer, ByVal lpString As String, ByVal nCount As Integer) As Integer
Const s = "Virus Layar Aneh"

Di bagian 'Form1_Shown' ketikkan :

Me.Hide()

Lalu di bagian 'Timer1_Tick' ketikkan :

Dim i As Integer = GetWindowDC(GetDesktopWindow)

Randomize()
TextOut(i, Rnd() * Screen.PrimaryScreen.Bounds.Width, Rnd() * Screen.PrimaryScreen.Bounds.Height, s, Len(s))

CATATAN : Isi teks yang muncul dapat dirubah dengan mengganti kode yang berwarna merah.