What's new

ToxxicModder's Minature Tool Box

  • Thread starter ToxxicModder
  • Start date
  • Views 865
Status
Not open for further replies.
T

ToxxicModder

Newbie
Messages
5
Reaction score
0
Points
35
Hi welcome to my thread.
Today ill be showing you my new tool box i made!.
Its free and so far has no bugs!.We do need beta tester's.
Please show your support by registering we will automaticly activate your account.
NOTE: Admin,super mod,advanced helper,moderators... Postions are open!
If your not sure about the just msg me and ill give you pictures of how it looks...
NOTE: If you want the download you must:
• 1.Have a active se7en sins account
• 2.Have signed up at -Link Removed-
P.S If you think its a virus //F*CK YOUR SELF!
heres down load visit my web site for more cool stuff
-Link Removed-
HERE IS THE SORCE

↓↓↓THIS IS FORM 1 ↓↓↓


Code:
Imports System.Windows.Forms
Public Class Form1

Private Sub TabControl1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabControl1.Click


End Sub

Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
Try
System.Diagnostics.Process.Start("http://www.se7ensins.com/forums/user/393238-toxxicmodder/")
Catch
'Credit to XeNoN x VenIIm for coding this!..
End Try
End Sub

Private Sub GroupPanel4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupPanel4.Click
If TextBoxX2.Text = "" Then
LinkLabel2.Visible = False
Else
LinkLabel2.Visible = True
End If
End Sub

Private Sub ButtonX3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Name = (TextBoxX2.Text)
End Sub

Private Sub ButtonX4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX4.Click
Dim type As String = ComboBoxEx1.Text
If ComboBoxEx1.Text = "" Then
MsgBox("No file type selected")
Else


MsgBox(TextBoxX2.Text + " shall be converted into a " + type + " file.")
Dim oldfile As String = Mid(TextBoxX2.Text, 1, Len(TextBoxX2.Text) - 4)

FileCopy(TextBoxX2.Text, oldfile + type)
End If

End Sub

Private Sub ButtonX3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX3.Click

OpenFileDialog1.ShowDialog()

End Sub

Private Sub ButtonX5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
Dim file As String = OpenFileDialog1.FileName

TextBoxX2.Text = file
End Sub

Private Sub ComboBoxEx1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBoxEx1.SelectedIndexChanged

End Sub

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

End Sub

Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
TextBoxX2.Text = ""

End Sub

Private Sub LinkLabel3_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel3.LinkClicked
Try
System.Diagnostics.Process.Start("http://toxxicmodders.createmybb3.com/member.php?action=register")
Catch
'Credit to XeNoN x VenIIm for coding this!..
End Try
End Sub

Private Sub ButtonX5_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX5.Click
Dim Key As Integer
Key = (Rnd() * 11)

Select Case Key

Case 1
TextBoxX3.Text = "YOUR 25 DIGIT REAL/FAKE KEY HERE! CODE 1"

Case 2
TextBoxX3.Text = "YOUR 25 DIGIT REAL/FAKE KEY HERE! CODE 2"

Case 3
TextBoxX3.Text = "YOUR 25 DIGIT REAL/FAKE KEY HERE! CODE 3"

Case 4
TextBoxX3.Text = "YOUR 25 DIGIT REAL/FAKE KEY HERE! CODE 4"

Case 5
TextBoxX3.Text = "YOUR 25 DIGIT REAL/FAKE KEY HERE! CODE 5"

Case 6
TextBoxX3.Text = "YOUR 25 DIGIT REAL/FAKE KEY HERE! CODE 6"

Case 7
TextBoxX3.Text = "YOUR 25 DIGIT REAL/FAKE KEY HERE! CODE 7"

Case 8
TextBoxX3.Text = "YOUR 25 DIGIT REAL/FAKE KEY HERE! CODE 8"

Case 9
TextBoxX3.Text = "YOUR 25 DIGIT REAL/FAKE KEY HERE! CODE 9"

Case 10
TextBoxX3.Text = "YOUR 25 DIGIT REAL/FAKE KEY HERE! CODE 10"

Case 11
TextBoxX3.Text = "YOUR 25 DIGIT REAL/FAKE KEY HERE! CODE 11"

End Select
End Sub

Private Sub GroupPanel8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupPanel8.Click

End Sub

Private Sub ButtonX1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX1.Click

Timer1.Start()

End Sub

Private Sub GroupPanel1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupPanel1.Click

End Sub

Private Sub ButtonX2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX2.Click
Timer1.Stop()
MsgBox("Spammer has been stopped!.", MsgBoxStyle.Information)
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
SendKeys.Send(TextBoxX1.Text)
SendKeys.Send("{ENTER}")
End Sub

Private Sub ButtonX6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX6.Click
MsgBox(TextBoxX3.Text + " has been copied to your clip board!.", MsgBoxStyle.Information)
Clipboard.Clear()
Clipboard.SetText(TextBoxX3.Text)
End Sub

Private Sub LinkLabel4_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)

End Sub

Private Sub ButtonX7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX7.Click
notepad.Show()
End Sub

Private Sub LinkLabel4_LinkClicked_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)

End Sub

Private Sub ButtonX8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX8.Click
OpenFileDialog2.ShowDialog()


End Sub

Private Sub OpenFileDialog2_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog2.FileOk
Dim file As String = (OpenFileDialog2.FileName)
TextBoxX4.Text = (OpenFileDialog2.FileName)

End Sub

Private Sub ButtonX9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX9.Click
Clipboard.Clear()
Clipboard.SetText(TextBoxX4.Text)
End Sub

Private Sub ButtonX11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX11.Click
Try
AxWindowsMediaPlayer1.URL = TextBoxX4.Text
Catch ex As Exception
MsgBox("No song")

End Try
End Sub

Private Sub ButtonX10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX10.Click
mediaplayer.Show()
End Sub

Private Sub TextBoxX4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBoxX4.TextChanged
If TextBoxX4.Text = "When you open your music file dictionary will apear here!." Then
ButtonX11.Enabled = False
Else
ButtonX11.Enabled = True
End If
End Sub
End Class



↓↓↓↓ THIS IS NOTE PAD ↓↓↓↓↓




Code:
Public Class notepad
Private Sub ButtonX1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX1.Click
TextBoxX1.Text = ""
MsgBox("All text has been erased", MsgBoxStyle.Information)
End Sub
Private Sub notepad_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
Private Sub TextBoxX1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBoxX1.TextChanged
If TextBoxX1.Text = "" Then

TextBoxX1.ReadOnly = False
End If
End Sub
Private Sub TextBoxX2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
End Sub
Private Sub TextBoxX2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
End Class




↓↓↓ HERE IS THE MEDIA PLAYER ↓↓↓↓



Code:
Public Class mediaplayer
Private Sub ButtonX1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX1.Click
Try
OpenFileDialog1.ShowDialog()

ListBox1.Visible = True
Catch ex As Exception
MsgBox("No song")
End Try
End Sub
Private Sub BindingSource1_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub ListBox1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox1.DragDrop
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
Dim draggedFiles As String() = CType(e.Data.GetData(DataFormats.FileDrop), String())
Dim Files As String() = CType(e.Data.GetData(DataFormats.FileDrop), String())
For Each filename As String In draggedFiles
ListBox1.Items.Add(filename)
Next
ListBox1.SelectedIndex = 0
End If
End Sub
Private Sub ListBox1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox1.DragEnter
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
e.Effect = DragDropEffects.Copy
End If
End Sub
Private Sub ListBox1_DragLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.DragLeave
End Sub
Private Sub ListBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseClick
End Sub
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
winplayer.URL = ListBox1.SelectedItem

End Sub
Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
For Each track As String In OpenFileDialog1.FileNames
ListBox1.Items.Add(track)
Next
Dim file As String = OpenFileDialog1.FileName


End Sub
Private Sub ListBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub mediaplayer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
winplayer.URL = ListBox1.SelectedItem
End Sub
Private Sub GroupPanel1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub winplayer_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles winplayer.Enter
End Sub
Private Sub GroupPanel2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupPanel2.Click
End Sub
Private Sub PanelEx1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PanelEx1.Click
End Sub
End Class
Here is pics of my program:
http://s1141.photobu...t=Capture-5.png

http://i1141.photobu...74/Capture2.png

http://s1141.photobu...%3DCapture3.png

http://s1141.photobu...%3DCapture4.png
http://i1141.photobu...mediaplayer.png
Please msg me for any details!.
 
Wheen

Wheen

Bytesexual
Retired
Programmer Grammar Nazi Mr. Nice Guy
Messages
6,145
Reaction score
2,342
Points
665
You cannot release a program that requires membership on another site. In addition, please provide a virus scan. If both of these prerequisites have been met, PM me and I will unlock the thread.
 
Status
Not open for further replies.

Similar threads

W
Replies
6
Views
754
Who_Is_This
W
ZZ9 x iHaXoRZz
Replies
11
Views
2K
ikjmnkiuyhgtr4fg
I
E
Replies
6
Views
2K
NinjaWaffles
NinjaWaffles
TehRylie
Replies
4
Views
400
TehRylie
TehRylie
Top Bottom
Login
Register