Wolfteam Oyun Videosu / Wolfteam Oyun Bugları / Programlama / Grafikerlik Paylaşımlar...

Ders1

WebBrowser yapımı video + kodlar !

Video :

Kodlar :

Public Class Form1

    Private Sub ToolStripButton7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton7.Click
        Form2.Show()
        Form2.RichTextBox1.Text = Me.WebBrowser1.DocumentText
    End Sub

    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        WebBrowser1.Navigate(ToolStripComboBox1.Text)
        ToolStripComboBox1.Items.Add(ToolStripComboBox1.Text)
        ToolStripButton3.Enabled = True
    End Sub

    Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
        WebBrowser1.Stop()
    End Sub

    Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click
        WebBrowser1.GoBack()
        ToolStripButton4.Enabled = False
    End Sub

    Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton4.Click
        WebBrowser1.GoForward()
    End Sub

    Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton5.Click
        WebBrowser1.Refresh()
    End Sub

    Private Sub ToolStripButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton6.Click
        WebBrowser1.GoHome()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.GoHome()
    End Sub

    Private Sub WebBrowser1_ProgressChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser1.ProgressChanged
        ToolStripProgressBar1.Maximum = e.CurrentProgress
        If e.CurrentProgress > 0 Then
            ToolStripProgressBar1.Value = e.CurrentProgress
        End If
    End Sub

    Private Sub ToolStripLabel1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripLabel1.Click
        WebBrowser1.Navigate("http://www.wolfteamfrm.com/uye-xblast1-64532.html")
    End Sub
End Class

Ders 2 :

Spammer Yapımı :

Video + Kodlar !

Video :

Kodlar :

Public Class Form1

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        SendKeys.Send(TextBox1.Text)
        SendKeys.Send(**{Enter}**)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Start()
        Label1.Text = "Spammer Aktif"
        Label1.ForeColor = Color.Green
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Stop()
        Label1.Text = "Spammer Pasif"
        Label1.ForeColor = Color.Red
    End Sub

    Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        If e.KeyCode = Keys.F3 Then
            Button1.PerformClick()
        End If
        If e.KeyCode = Keys.F4 Then
            Button2.PerformClick()
        End If
    End Sub
End Class

Ders 3 :

Site IP Bulucu Program yapımı :

Anlatım + Kodlar

Yorum: #1

(Ders)Site IP Bulucu Program Yapımı.

İlk önce yeni bir proje açıyoruz.Ardından formumuza 2 Buton 2 Textbox ekliyoruz..

1.Buton Yazısı = IP Adresi Bul
2.Buton Yazısı = Çıkış

Designi kafanıza göre ayarlayın(Textbox1 Üstte olsun Ve Textbox2'ninde ReadOnly özelliğini True yapın)

Öncelik Kodumuz

Imports System.Net

Bu şekilde kodu yazıyoruz..
Şimdi IP Adresi Bul Butonunun Kodu :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim hostname As IPHostEntry = Dns.GetHostByName(TextBox1.Text)
        Dim ip As IPAddress() = hostname.AddressList
        TextBox2.Text = ip(0).ToString
    End Sub