Turkhackteam.net/org - Turkish Hacking & Security Platform  
Geri git   Turkhackteam.net/org - Turkish Hacking & Security Platform >
Programlama
> C# j# vb.net (.NET dilleri)

C# j# vb.net (.NET dilleri) Bu dillerin eğitim videolarının, open source projelerin ve gerekli dökümanların paylaşım alanı.





THT Video Oynatıcı

C# j# vb.net (.NET dilleri)

Yeni Konu aç Cevapla
 
Seçenekler
Alt bir Hafta önce   #1
  • Asteğmen
  • Üye Bilgileri
Üyelik tarihi
03/2019
Mesajlar
Konular

Teşekkür (Etti): 32
Teşekkür (Aldı): 3


Arrow THT Video Oynatıcı



Merhaba ben 1q1 THT için video oynatıcı yaptım umarım beğenirsiniz
Dosya.tc - Ücretsiz, Hızlı ve Kolay Dosya Paylaşımı
http://www.virustotal.com/#/file/25c...40f9/detection

Programdan görüntüler:






Program kodları
Kod:
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MsgBox("THT")

    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        MsgBox("TurkHackTeam")
    End Sub

    Private Sub Videolar_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Videolar.SelectedIndexChanged
        AxWindowsMediaPlayer1.URL = TextBox1.Text
        AxWindowsMediaPlayer1.URL = Videolar.Text
    End Sub

    Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click
        AxWindowsMediaPlayer1.Ctlcontrols.play()
    End Sub

    Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
        AxWindowsMediaPlayer1.Ctlcontrols.pause()
    End Sub

    Private Sub PictureBox4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox4.Click
        OpenFileDialog1.ShowDialog()
        If Windows.Forms.DialogResult.OK Then
            For Each track As String In OpenFileDialog1.FileNames
                Videolar.Items.Add(track)
            Next


        End If
    End Sub

    Private Sub PictureBox5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox5.Click
        AxWindowsMediaPlayer1.Ctlcontrols.previous()
    End Sub

    Private Sub PictureBox6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox6.Click
        AxWindowsMediaPlayer1.Ctlcontrols.next()
    End Sub
End Class
program tasarım kodları
Kod:
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form1
    Inherits System.Windows.Forms.Form

    'Form overrides dispose to clean up the component list.
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
        Me.AxWindowsMediaPlayer1 = New AxWMPLib.AxWindowsMediaPlayer()
        Me.Videolar = New System.Windows.Forms.ListBox()
        Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
        Me.ListBox1 = New System.Windows.Forms.ListBox()
        Me.TextBox1 = New System.Windows.Forms.TextBox()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.PictureBox6 = New System.Windows.Forms.PictureBox()
        Me.PictureBox5 = New System.Windows.Forms.PictureBox()
        Me.PictureBox4 = New System.Windows.Forms.PictureBox()
        Me.PictureBox3 = New System.Windows.Forms.PictureBox()
        Me.PictureBox2 = New System.Windows.Forms.PictureBox()
        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
        CType(Me.AxWindowsMediaPlayer1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'AxWindowsMediaPlayer1
        '
        Me.AxWindowsMediaPlayer1.Enabled = True
        Me.AxWindowsMediaPlayer1.******** = New System.Drawing.Point(-1, 0)
        Me.AxWindowsMediaPlayer1.Name = "AxWindowsMediaPlayer1"
        Me.AxWindowsMediaPlayer1.OcxState = CType(resources.GetObject("AxWindowsMediaPlayer1.OcxState"), System.Windows.Forms.AxHost.State)
        Me.AxWindowsMediaPlayer1.Size = New System.Drawing.Size(610, 420)
        Me.AxWindowsMediaPlayer1.TabIndex = 0
        '
        'Videolar
        '
        Me.Videolar.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                    Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.Videolar.FormattingEnabled = True
        Me.Videolar.******** = New System.Drawing.Point(607, 115)
        Me.Videolar.Name = "Videolar"
        Me.Videolar.Size = New System.Drawing.Size(196, 407)
        Me.Videolar.TabIndex = 3
        '
        'OpenFileDialog1
        '
        Me.OpenFileDialog1.FileName = "Videolar"
        '
        'ListBox1
        '
        Me.ListBox1.FormattingEnabled = True
        Me.ListBox1.******** = New System.Drawing.Point(606, 325)
        Me.ListBox1.Name = "ListBox1"
        Me.ListBox1.Size = New System.Drawing.Size(197, 199)
        Me.ListBox1.TabIndex = 3
        '
        'TextBox1
        '
        Me.TextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(162, Byte))
        Me.TextBox1.ForeColor = System.Drawing.Color.Lime
        Me.TextBox1.******** = New System.Drawing.Point(223, 470)
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.Size = New System.Drawing.Size(306, 26)
        Me.TextBox1.TabIndex = 4
        '
        'Label1
        '
        Me.Label1.AutoSize = True
        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(162, Byte))
        Me.Label1.ForeColor = System.Drawing.Color.Lime
        Me.Label1.******** = New System.Drawing.Point(220, 435)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(172, 18)
        Me.Label1.TabIndex = 7
        Me.Label1.Text = "İnternetten Video Ekle"
        '
        'PictureBox6
        '
        Me.PictureBox6.BackgroundImage = Global.THT_Video_Oynatıcı.My.Resources.Resources.Button_Next_icon__1_
        Me.PictureBox6.******** = New System.Drawing.Point(350, 388)
        Me.PictureBox6.Name = "PictureBox6"
        Me.PictureBox6.Size = New System.Drawing.Size(25, 24)
        Me.PictureBox6.TabIndex = 12
        Me.PictureBox6.TabStop = False
        '
        'PictureBox5
        '
        Me.PictureBox5.BackgroundImage = Global.THT_Video_Oynatıcı.My.Resources.Resources.back_icon
        Me.PictureBox5.******** = New System.Drawing.Point(304, 388)
        Me.PictureBox5.Name = "PictureBox5"
        Me.PictureBox5.Size = New System.Drawing.Size(25, 24)
        Me.PictureBox5.TabIndex = 11
        Me.PictureBox5.TabStop = False
        '
        'PictureBox4
        '
        Me.PictureBox4.BackgroundImage = Global.THT_Video_Oynatıcı.My.Resources.Resources.Button_Add_icon__1_
        Me.PictureBox4.******** = New System.Drawing.Point(673, 27)
        Me.PictureBox4.Name = "PictureBox4"
        Me.PictureBox4.Size = New System.Drawing.Size(49, 48)
        Me.PictureBox4.TabIndex = 10
        Me.PictureBox4.TabStop = False
        '
        'PictureBox3
        '
        Me.PictureBox3.BackgroundImage = Global.THT_Video_Oynatıcı.My.Resources.Resources.Button_Play_icon
        Me.PictureBox3.******** = New System.Drawing.Point(630, 78)
        Me.PictureBox3.Name = "PictureBox3"
        Me.PictureBox3.Size = New System.Drawing.Size(33, 32)
        Me.PictureBox3.TabIndex = 9
        Me.PictureBox3.TabStop = False
        '
        'PictureBox2
        '
        Me.PictureBox2.BackgroundImage = Global.THT_Video_Oynatıcı.My.Resources.Resources.Button_Pause_icon
        Me.PictureBox2.******** = New System.Drawing.Point(738, 78)
        Me.PictureBox2.Name = "PictureBox2"
        Me.PictureBox2.Size = New System.Drawing.Size(33, 31)
        Me.PictureBox2.TabIndex = 8
        Me.PictureBox2.TabStop = False
        '
        'PictureBox1
        '
        Me.PictureBox1.BackgroundImage = Global.THT_Video_Oynatıcı.My.Resources.Resources.thtlogo
        Me.PictureBox1.******** = New System.Drawing.Point(-1, 426)
        Me.PictureBox1.Name = "PictureBox1"
        Me.PictureBox1.Size = New System.Drawing.Size(215, 198)
        Me.PictureBox1.TabIndex = 5
        Me.PictureBox1.TabStop = False
        '
        'Form1
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.BackColor = System.Drawing.Color.White
        Me.ClientSize = New System.Drawing.Size(809, 622)
        Me.Controls.Add(Me.PictureBox6)
        Me.Controls.Add(Me.PictureBox5)
        Me.Controls.Add(Me.PictureBox4)
        Me.Controls.Add(Me.PictureBox3)
        Me.Controls.Add(Me.PictureBox2)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.PictureBox1)
        Me.Controls.Add(Me.TextBox1)
        Me.Controls.Add(Me.Videolar)
        Me.Controls.Add(Me.AxWindowsMediaPlayer1)
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.Name = "Form1"
        Me.Text = "THT Video Oynatıcı v1"
        CType(Me.AxWindowsMediaPlayer1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub
    Friend WithEvents AxWindowsMediaPlayer1 As AxWMPLib.AxWindowsMediaPlayer
    Friend WithEvents Videolar As System.Windows.Forms.ListBox
    Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
    Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
    Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
    Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox3 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox5 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox6 As System.Windows.Forms.PictureBox

End Class

Konu 1q1 tarafından (bir Hafta önce Saat 21:28 ) değiştirilmiştir..
 Offline  
 
Alıntı ile Cevapla
Teşekkür

CodeTyper Teşekkür etti.
Alt bir Hafta önce   #2
  • Teğmen
  • Üye Bilgileri
Üyelik tarihi
12/2018
Nereden
İstihbarat
Mesajlar
Konular

Teşekkür (Etti): 103
Teşekkür (Aldı): 48




Teşekkürler ama geliştirip (tasarımı vb.) kodları verir isen daha iyi olur.



___________________________________________

Essential NetTools İle Bilgisayara Sızma (hackleme):
Essential NetTools


Konu DWTCN tarafından (bir Hafta önce Saat 21:04 ) değiştirilmiştir..
 Offline  
 
Alıntı ile Cevapla
Teşekkür

1q1 Teşekkür etti.
Alt bir Hafta önce   #3
  • Asteğmen
  • Üye Bilgileri
Üyelik tarihi
01/2019
Nereden
ATATÜRKİYE
Mesajlar
Konular

Teşekkür (Etti): 6
Teşekkür (Aldı): 11




Tasarım zayıf kalmış gibi

Konu EKA0 tarafından (bir Hafta önce Saat 21:05 ) değiştirilmiştir..
 Offline  
 
Alıntı ile Cevapla
Teşekkür

1q1 Teşekkür etti.
Alt bir Hafta önce   #4
  • Asteğmen
  • Üye Bilgileri
Üyelik tarihi
03/2019
Mesajlar
Konular

Teşekkür (Etti): 32
Teşekkür (Aldı): 3




Alıntı:
EKA0´isimli üyeden Alıntı Mesajı göster
Tasarım zayıf kalmış gibi
teşekkürler geliştireceğim
 Offline  
 
Alıntı ile Cevapla
Alt bir Hafta önce   #5
  • Üsteğmen
  • Üye Bilgileri
Üyelik tarihi
12/2018
Nereden
Networks
Mesajlar
Konular

Teşekkür (Etti): 65
Teşekkür (Aldı): 114




Emegine saglik umarim daha da gelistirirsin ozellikle tasarim acisindan.



___________________________________________

Beyin Bir Donanımdır Herkeste Vardır,
Akıl İse Bir Yazılımdır Herkeste Yoktur.
 Offline  
 
Alıntı ile Cevapla
Teşekkür

1q1 Teşekkür etti.
Alt bir Hafta önce   #6
  • Asteğmen
  • Üye Bilgileri
Üyelik tarihi
03/2019
Mesajlar
9
Konular
1

Teşekkür (Etti): 1
Teşekkür (Aldı): 0




Güzel olmuş ellerine sağlık ama ufak tefek iyileştirmeler yapabilirsin
 Offline  
 
Alıntı ile Cevapla
Alt bir Hafta önce   #7
  • Teğmen
  • Üye Bilgileri
Üyelik tarihi
12/2018
Nereden
İstihbarat
Mesajlar
Konular

Teşekkür (Etti): 103
Teşekkür (Aldı): 48




Virüstotal ve Dosya adları uymuyor. Düzeltir misin ?
Yoksa konu silinebilirler



___________________________________________

Essential NetTools İle Bilgisayara Sızma (hackleme):
Essential NetTools

 Offline  
 
Alıntı ile Cevapla
Alt bir Hafta önce   #8
  • Asteğmen
  • Üye Bilgileri
Üyelik tarihi
03/2019
Mesajlar
Konular

Teşekkür (Etti): 32
Teşekkür (Aldı): 3




Alıntı:
0uTCasT´isimli üyeden Alıntı Mesajı göster
Emegine saglik umarim daha da gelistirirsin ozellikle tasarim acisindan.
Fikirlerin için teşekkürler geliştireceğim kodları verdim isterseniz sizde katkıda bulunabilirsiniz
 Offline  
 
Alıntı ile Cevapla
Alt bir Hafta önce   #9
  • Asteğmen
  • Üye Bilgileri
Üyelik tarihi
03/2019
Mesajlar
Konular

Teşekkür (Etti): 32
Teşekkür (Aldı): 3




Alıntı:
DWTCN´isimli üyeden Alıntı Mesajı göster
Virüstotal ve Dosya adları uymuyor. Düzeltir misin ?
Yoksa konu silinebilirler
şey rar dosyasını yüklüyorum ancak ismini göstermiyor sebebi ne acaba?

Konu 1q1 tarafından (bir Hafta önce Saat 21:23 ) değiştirilmiştir..
 Offline  
 
Alıntı ile Cevapla
Alt bir Hafta önce   #10
  • Yüzbaşı
  • Üye Bilgileri
Üyelik tarihi
09/2018
Nereden
Öteki taraf
Mesajlar
Konular

Teşekkür (Etti): 13
Teşekkür (Aldı): 90




eline sağlık tasarım biraz daha zenginleştirilebilir



___________________________________________

█║▌│█│║▌║││█║▌║▌║

© Copyrigt 1995-2019

 Offline  
 
Alıntı ile Cevapla
Cevapla

Bookmarks

Seçenekler


Bilgilendirme Turkhackteam.net/org
Sitemizde yer alan konular üyelerimiz tarafından paylaşılmaktadır.
Bu konular yasalara uygunluk ve telif hakkı konusunda yönetimimiz tarafından kontrol edilse de, gözden kaçabilen içerikler yer alabilmektedir.
Bu tür konuları turkhackteamiletisim [at] gmail.com mail adresimize bildirebilirsiniz, konular hakkında en kısa sürede gerekli işlemler yapılacaktır.
Please Report Abuse, DMCA, Harassment, Scamming, Warez, Crack, Divx, Mp3 or any Illegal Activity to turkhackteamiletisim [at] gmail.com

Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz.
Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.



         

Powered by vBulletin® Copyright ©2000 - 2019

TSK Mehmetçik Vakfı

Türk Polis Teşkilatını Güçlendirme Vakfı

Google+

web tasarım

wau