Eklenecekler:
3 adet label
1 adet timer
Gerekli ayarlar:
Label1 Location: 11; 9 yapın.
Label2 Location: 82; 9 yapın.
Label3 Location: 34; 38 yapın.
Ve geldi label boyutlarına.
Label1 ve Label2 'nin boyutunu: 7 yapın.
Bunları ekledikten sonra hemen forma sağ tık yapıp view code diyoruz.
Ve ordaki herşeyi silip şu kodu ekliyoruz:
Kod:
3 adet label
1 adet timer
Gerekli ayarlar:
Label1 Location: 11; 9 yapın.
Label2 Location: 82; 9 yapın.
Label3 Location: 34; 38 yapın.
Ve geldi label boyutlarına.
Label1 ve Label2 'nin boyutunu: 7 yapın.
Bunları ekledikten sonra hemen forma sağ tık yapıp view code diyoruz.
Ve ordaki herşeyi silip şu kodu ekliyoruz:
Kod:
Kod:
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.Timer1.Enabled = True
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedToolWindow
Me.StartPosition = FormStartPosition.CenterScreen
Me.Width = 228
Me.Height = 94
Me.Label1.Width = 65
Me.Label1.Height = 12
Me.Label2.Width = 118
Me.Label2.Height = 12
Me.Label3.Width = 132
Me.Label3.Height = 13
Me.Text = "Seheylan Loader"
Me.Label1.Text = "Loader Status: "
Me.Label2.Text = "Waiting For wolftü.bin..."
Me.Label3.Text = "seheylan -- BetaCrews.net"
Me.TopMost = True
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
If (Enumerable.Count(Of Process)(Process.GetProcessesByName("wolftü.bin"))) Then
Label2.Text = "wolftü.bin Found"
Me.Hide()
End If
End Sub
End Class
:d
