Salamlar...Bu gün mən sizlərə AA Team üçün Visual basicdə kodlaşdırdığım Proqramı təqdim edirəm...
Source:
Kod:
Form1(Səhifə):
Public Class Form1
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Form2.Show()
End Sub
End Class
e]
Kod:
Form2(Səhifə2)
Public Class Form2
Private Sub ArxaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RəngToolStripMenuItem.Click
RichTextBox1.Undo()
End Sub
Private Sub AçToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AçToolStripMenuItem.Click
Try
Dim dlg As OpenFileDialog = New OpenFileDialog
dlg.Title = "Açıldı"
dlg.Filter = "Fayl Text Dəstəkləyir (*.txt)|*.txt"
If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
RichTextBox1.LoadFile(dlg.FileName)
End If
Catch ex As Exception : End Try
End Sub
Private Sub YeniToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaxlaToolStripMenuItem.Click
RichTextBox1.Clear()
End Sub
Private Sub ProqramistToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProqramistToolStripMenuItem.Click
MsgBox("Coded by K3N4N")
End Sub
Private Sub ŞriftSeçToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ŞriftSeçToolStripMenuItem.Click
Try
Dim dlg As FontDialog = New FontDialog
dlg.Font = RichTextBox1.Font
If dlg.ShowDialog = System.Windows.Forms.DialogResult.OK Then
RichTextBox1.Font = dlg.Font
End If
Catch ex As Exception : End Try
End Sub
Private Sub YaddaşaVerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BaglaToolStripMenuItem.Click
Try
Dim dlg As SaveFileDialog = New SaveFileDialog
dlg.Title = "Yaddaşa ver"
dlg.Filter = "Fayl Text Dəstəkləyir (*.txt)|*.txt"
If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
RichTextBox1.SaveFile(dlg.FileName, RichTextBoxStreamType.RichText)
End If
Catch ex As Exception : End Try
End Sub
Private Sub QabaqToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QabaqToolStripMenuItem.Click
RichTextBox1.Redo()
End Sub
Private Sub KəsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KəsToolStripMenuItem.Click
RichTextBox1.Cut()
End Sub
Private Sub KopToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KopToolStripMenuItem.Click
RichTextBox1.Copy()
End Sub
Private Sub YapıştırToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YapıştırToolStripMenuItem.Click
RichTextBox1.Paste()
End Sub
Private Sub TəmizləToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TəmizləToolStripMenuItem.Click
RichTextBox1.Clear()
End Sub
Private Sub HamsınıIşarələToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HamsınıIşarələToolStripMenuItem.Click
RichTextBox1.SelectAll()
End Sub
Private Sub RəngSeçToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RəngSeçToolStripMenuItem.Click
Try
Dim dlg As ColorDialog = New ColorDialog
dlg.Color = RichTextBox1.ForeColor
If dlg.ShowDialog = System.Windows.Forms.DialogResult.OK Then
RichTextBox1.ForeColor = dlg.Color
End If
Catch ex As Exception : End Try
End Sub
Private Sub AATeaMToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AATeaMToolStripMenuItem.Click
MsgBox("Anti-armenia.ORG/ HaCKinG and Securty Portal")
End Sub
End Class
y Portal")
End Sub
End Class[/code]
Yükləmə linki:
Endir.az
Share.az
Virus Total:
SHA256: 31934823e255f1f7a8d22a8bd5d9c06aa9685d56c60aede5b5b99e31552deb92
SHA1: 827d51831412d99a01d7faca5175168dc76dcb51
MD5: bb82871c1c3673ae845059d493f74db6
File size: 1.9 MБ ( 2020864 bytes )
File name: NotePad++.exe
File type: Win32 EXE
Detection ratio: 0 / 42
Analysis date: 2012-07-10 12:40:30 UTC ( 0 минут ago )
Antivirus Result Update
AhnLab-V3 - 20120710
AntiVir - 20120710
Antiy-AVL - 20120710
Avast - 20120710
AVG - 20120710
BitDefender - 20120710
ByteHero - 20120704
CAT-QuickHeal - 20120710
ClamAV - 20120710
Commtouch - 20120710
Comodo - 20120710
DrWeb - 20120710
Emsisoft - 20120710
eSafe - 20120708
F-Prot - 20120710
F-Secure - 20120710
Fortinet - 20120710
GData - 20120710
Ikarus - 20120710
Jiangmin - 20120710
K7AntiVirus - 20120709
Kaspersky - 20120710
McAfee - 20120710
McAfee-GW-Edition - 20120710
Microsoft - 20120710
NOD32 - 20120710
Norman - 20120710
nProtect - 20120710
Panda - 20120710
PCTools - 20120710
Rising - 20120710
Sophos - 20120710
SUPERAntiSpyware - 20120710
Symantec - 20120710
TheHacker - 20120710
TotalDefense - 20120710
TrendMicro - 20120710
TrendMicro-HouseCall - 20120709
VBA32 - 20120710
VIPRE - 20120710
ViRobot - 20120710
VirusBuster - 20120709