- 3 Mar 2019
- 52
- 2
Merhaba ben 1q1 geçen sefer paylaştığımda tasarımı kötüydü biraz daha düzelttim virüstotalde 56 motordan 7 motor virüs olarak algılıyor niye bilmiyorum içine virüste koymadım ismini de göstermiyor ama umarım beğenirsiniz
:
Dosya.tc - Ücretsiz, Hızlı ve Kolay Dosya Paylaşımı
http://www.virustotal.com/#/file/8f82f01ddf72ee0110913d4b53aa8aa4f10f881bb51d5f1347dcd4e19735547f/detection
programdan resimler:
Fazla detaya girmiyorum kullandıkça zaten anlıyacaksınız kullanımı basit daha da geliştireceğim aslında ilk başta böyle olması gerekirdi ama sağlık olsun:
VB KODLAR:
VB TASARIM KODLAR:
: Dosya.tc - Ücretsiz, Hızlı ve Kolay Dosya Paylaşımı
http://www.virustotal.com/#/file/8f82f01ddf72ee0110913d4b53aa8aa4f10f881bb51d5f1347dcd4e19735547f/detection
programdan resimler:
Fazla detaya girmiyorum kullandıkça zaten anlıyacaksınız kullanımı basit daha da geliştireceğim aslında ilk başta böyle olması gerekirdi ama sağlık olsun
:VB 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 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 ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
AxWindowsMediaPlayer1.Ctlcontrols.play()
End Sub
Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
AxWindowsMediaPlayer1.Ctlcontrols.pause()
End Sub
Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton5.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 ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click
AxWindowsMediaPlayer1.Ctlcontrols.previous()
End Sub
Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton4.Click
AxWindowsMediaPlayer1.Ctlcontrols.next()
End Sub
Private Sub ToolStripButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton6.Click
MsgBox("TurkHackTeam")
End Sub
End Class
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 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 ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
AxWindowsMediaPlayer1.Ctlcontrols.play()
End Sub
Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
AxWindowsMediaPlayer1.Ctlcontrols.pause()
End Sub
Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton5.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 ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click
AxWindowsMediaPlayer1.Ctlcontrols.previous()
End Sub
Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton4.Click
AxWindowsMediaPlayer1.Ctlcontrols.next()
End Sub
Private Sub ToolStripButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton6.Click
MsgBox("TurkHackTeam")
End Sub
End Class
Son düzenleme:
