Create an account

Very important

  • To access the important data of the forums, you must be active in each forum and especially in the leaks and database leaks section, send data and after sending the data and activity, data and important content will be opened and visible for you.
  • You will only see chat messages from people who are at or below your level.
  • More than 500,000 database leaks and millions of account leaks are waiting for you, so access and view with more activity.
  • Many important data are inactive and inaccessible for you, so open them with activity. (This will be done automatically)


Thread Rating:
  • 334 Vote(s) - 3.54 Average
  • 1
  • 2
  • 3
  • 4
  • 5
another error [nothing to do with basics :P]

#1
Public Class DFP

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

End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim ofd As New OpenFileDialog
ofd.Filter = "Exe files|*.exe|Jpg files|*.jpg|Bat files|*.bat|mp3 files|*.mp3"
ofd.ShowDialog()
TextBox1.Text = ofd.FileName
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IconInjector.Click
Dim sfd As New SaveFileDialog
sfd.Filter = "Exe files|*.exe|Jpg files|*.jpg|Bat files|*.bat|mp3 files|*.mp3"
sfd.ShowDialog()
Dim filesize As Double = Val(NumericUpDown1.Value)
IO.File.Copy(TextBox1.Text, sfd.FileName)
If RadioButton1.Checked Then
filesize = filesize * 1024
ElseIf RadioButton2.Checked Then
filesize = filesize * 1048576
ElseIf RadioButton3.Checked Then
filesize = filesize * 1073741824
ElseIf RadioButton4.Checked Then
filesize = filesize * 1099511627776
End If
Dim filetopump = IO.File.OpenWrite(sfd.FileName)
Dim size = filetopump.Seek(0, IO.SeekOrigin.[End])
While size < filesize
filetopump.WriteByte(0)
size += 1
End While
filetopump.Close()
If cb2.Checked Then IconInjector.InjectIcon(sfd.FileName, iconPath)
MsgBox("Successfully Pumped!")
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles iconPath.Click

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim ofd As New OpenFileDialog
ofd.Filter = "Ico files|*.ico"
ofd.ShowDialog()
TextBox1.Text = ofd.FileName
End Sub

Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk

End Sub

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cb2.CheckedChanged

If cb2.Checked Then
Button3.Enabled = True
Else
Button3.Enabled = False
End If
End Sub
End Class

in the bold line i get this error

Error 1 'InjectIcon' is not a member of 'System.Windows.Forms.Button'.

its nothing to do with basics because i googled it :tongue:

P.s.

Button 2's name is IconInjector
Reply

#2
You need that IconInjector class just below this thread.
Reply

#3
um... sadly you can't make a button be clicked. you can just add the button's click source to a new sub. like:

Hidden Content
You must

[To see links please register here]

or

[To see links please register here]

to view this content.

Reply

#4
i fucked up the iconchanger idea so much i ditched it

maybe with v 3.0?
Reply

#5
you can make a simple icon changer but with fLash's DLL
Reply

#6
^.^ dunno wht u mean sage =D

and ive learnt some nao lol
Reply



Forum Jump:


Users browsing this thread:
1 Guest(s)

©0Day  2016 - 2023 | All Rights Reserved.  Made with    for the community. Connected through