Skinner - JF3000 Software

  • Thread starter Thread starter JF3000
  • Start date Start date
J

JF3000

If anyone is interested I create a few freeware apps, if you want to know
more about me just look my nick up in google, im everywhere.

I wanted to introduce a simple bit of software for someone to test for me,
please post any bugs.

Skinner lets you place a background on your Internet Explorer, very simple
to use, just choose your background and its all done, to remove the
background back to default, re-run the application and choose remove.

Download :

http://tinyurl.com/6lkay

Forum :

http://s7.invisionfree.com/JF3000

Thanks.

JF3000

P.S. The links on my site to other applications are currently down, if you
require an app ive made simply ask for the link and I will post it to you,
or here. Thank you.
 
JF3000 said:
if you want to know
more about me just look my nick up in google, im everywhere.
Click to expand...

I did and got back a *lot* of hits regarding spyware and cracks...
 
hahahahaha yeah right gimme a break, ill even post the source code and u
show me where this spyware is?
 
Seems to me u just like to hit people where it hurts hard so they get no
where. Here is the source for the app, this is the main source, if u got
spyware its not from me. Prove to me u can find spyware in my source please
:


VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frmMain
Appearance = 0 'Flat
BackColor = &H0000FFFF&
Caption = "Skinner 2.5 - JF3000 Software"
ClientHeight = 3615
ClientLeft = 60
ClientTop = 345
ClientWidth = 7560
Icon = "frmMain.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 241
ScaleMode = 3 'Pixel
ScaleWidth = 504
StartUpPosition = 2 'CenterScreen
Tag = "100"
Begin VB.Frame fra4
BackColor = &H0000FFFF&
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 615
Left = 5760
TabIndex = 21
Top = 5760
Visible = 0 'False
Width = 3495
Begin VB.Frame fraLine
BackColor = &H00FFC0C0&
Height = 30
Index = 3
Left = 120
TabIndex = 22
Top = 510
Width = 3270
End
Begin VB.Label lblInfo
BackColor = &H0000FFFF&
Caption = "Click Finish"
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 660
Index = 11
Left = 150
TabIndex = 29
Tag = "114"
Top = 1785
Width = 3165
End
Begin VB.Image imgPreview
BorderStyle = 1 'Fixed Single
Height = 735
Left = 120
Stretch = -1 'True
Top = 600
Width = 3135
End
Begin VB.Label lblInfo
BackColor = &H0000FFFF&
Caption = "Is this correct?"
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Index = 10
Left = 120
TabIndex = 25
Tag = "113"
Top = 240
Width = 2895
End
Begin VB.Label lblX
AutoSize = -1 'True
BackColor = &H0000FFFF&
Caption = "X = 100 Pixel"
ForeColor = &H00FF0000&
Height = 195
Left = 150
TabIndex = 24
Top = 1500
Width = 930
End
Begin VB.Label lblY
AutoSize = -1 'True
BackColor = &H0000FFFF&
Caption = "Y = 100 Pixel"
ForeColor = &H00FF0000&
Height = 195
Left = 1590
TabIndex = 23
Top = 1500
Width = 930
End
End
Begin VB.Frame fra3
BackColor = &H0000FFFF&
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 705
Left = 5775
TabIndex = 13
Top = 4830
Visible = 0 'False
Width = 3480
Begin MSComDlg.CommonDialog cdlgOpen
Left = 2790
Top = 1305
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.CommandButton cmdBrowse
Height = 360
Left = 2820
Style = 1 'Graphical
TabIndex = 17
Tag = "201"
Top = 810
UseMaskColor = -1 'True
Width = 435
End
Begin VB.TextBox txtPath
BackColor = &H0000FF00&
Height = 315
Left = 270
Locked = -1 'True
MaxLength = 255
TabIndex = 16
Top = 810
Width = 2385
End
Begin VB.Frame fraLine
BackColor = &H00000000&
Height = 150
Index = 2
Left = 120
TabIndex = 14
Top = 480
Width = 3270
End
Begin VB.Label lblInfo
BackColor = &H0000FFFF&
Caption = "Please select your BMP file.
( BMP Only )"
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 600
Index = 9
Left = 270
TabIndex = 27
Tag = "112"
Top = 1770
Width = 3180
End
Begin VB.Label lblInfo
BackColor = &H0000FFFF&
Caption = "Y = 80 pixel"
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 195
Index = 8
Left = 1650
TabIndex = 20
Tag = "111"
Top = 1500
Width = 915
End
Begin VB.Label lblInfo
BackColor = &H0000FFFF&
Caption = "X = 800 pixel"
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 195
Index = 7
Left = 525
TabIndex = 19
Tag = "110"
Top = 1500
Width = 915
End
Begin VB.Label lblInfo
BackColor = &H0000FFFF&
Caption = "Suggestion size :"
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 195
Index = 6
Left = 270
TabIndex = 18
Tag = "109"
Top = 1230
Width = 1830
End
Begin VB.Label lblInfo
BackColor = &H0000FFFF&
Caption = "Browse your bitmap picture."
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 315
Index = 5
Left = 225
TabIndex = 15
Tag = "108"
Top = 255
Width = 2895
End
End
Begin VB.Frame fra2
BackColor = &H0000FFFF&
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 4140
Left = 1830
TabIndex = 7
Top = 3900
Visible = 0 'False
Width = 3495
Begin VB.Frame fraLine
BackColor = &H00000000&
Height = 135
Index = 1
Left = 120
TabIndex = 11
Top = 600
Width = 3270
End
Begin VB.OptionButton optChoice
BackColor = &H0000FFFF&
Caption = "&Remove skin"
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 285
Index = 1
Left = 420
TabIndex = 9
Tag = "106"
Top = 1290
Width = 1600
End
Begin VB.OptionButton optChoice
BackColor = &H0000FFFF&
Caption = "&Change skin"
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 285
Index = 0
Left = 420
TabIndex = 8
Tag = "105"
Top = 900
Value = -1 'True
Width = 1600
End
Begin VB.Label lblInfo
Alignment = 2 'Center
BackColor = &H0000FFFF&
Caption = "Please choose your option"
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 285
Index = 4
Left = 150
TabIndex = 28
Tag = "107"
Top = 1650
Width = 3165
End
Begin VB.Label lblInfo
BackColor = &H0000FFFF&
Caption = "Click your choice"
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 195
Index = 3
Left = 255
TabIndex = 10
Tag = "104"
Top = 255
Width = 2895
End
End
Begin VB.PictureBox picSize
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H0000FFFF&
BorderStyle = 0 'None
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 645
Left = 9540
ScaleHeight = 43
ScaleMode = 3 'Pixel
ScaleWidth = 80
TabIndex = 26
Top = 4335
Visible = 0 'False
Width = 1200
End
Begin VB.CommandButton cmdBack
Appearance = 0 'Flat
BackColor = &H0000FFFF&
Caption = "< &Back"
Enabled = 0 'False
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 4125
Style = 1 'Graphical
TabIndex = 3
Tag = "115"
Top = 2880
Width = 900
End
Begin VB.CommandButton cmdNext
Appearance = 0 'Flat
BackColor = &H0000FFFF&
Caption = "&Next >"
Default = -1 'True
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 5085
Style = 1 'Graphical
TabIndex = 2
Tag = "116"
Top = 2880
Width = 900
End
Begin VB.CommandButton cmdClose
Appearance = 0 'Flat
BackColor = &H0000FFFF&
Caption = "&Close"
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 6060
Style = 1 'Graphical
TabIndex = 1
Tag = "118"
Top = 2880
Width = 900
End
Begin VB.Frame fra1
BackColor = &H0000FFFF&
Height = 2400
Left = 3480
TabIndex = 0
Top = 240
Width = 3855
Begin VB.CommandButton cmdAbout
Appearance = 0 'Flat
BackColor = &H0000FFFF&
Caption = "&About"
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 840
Style = 1 'Graphical
TabIndex = 30
Top = 1800
Width = 1695
End
Begin VB.Frame fraLine
Height = 30
Index = 0
Left = 135
TabIndex = 5
Top = 750
Width = 3510
End
Begin VB.Label lblInfo
BackColor = &H0000FFFF&
Caption = "This application will let you change your
default Internet Explorer background to anything you like."
BeginProperty Font

Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 975
Index = 1
Left = 120
TabIndex = 6
Tag = "102"
Top = 960
Width = 3555
End
Begin VB.Label lblInfo
Alignment = 2 'Center
BackColor = &H00C0E0FF&
BackStyle = 0 'Transparent
Caption = "Welcome to Skinner"
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 420
Index = 0
Left = 240
TabIndex = 4
Tag = "101"
Top = 240
Width = 3255
End
End
Begin VB.Label lblInfo
Alignment = 2 'Center
BackColor = &H0000FFFF&
Caption = "Click the ""Next"" button to proceed."
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 315
Index = 2
Left = 3480
TabIndex = 31
Tag = "103"
Top = 3270
Width = 3465
End
Begin VB.Image imgLogo
BorderStyle = 1 'Fixed Single
Height = 3330
Left = 120
Picture = "frmMain.frx":382A
Stretch = -1 'True
Tag = "200"
ToolTipText = "Copyright to JF3000 Software"
Top = 120
Width = 3165
End
Begin VB.Label lblPage
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "1"
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 300
Left = 9660
TabIndex = 12
Top = 5175
Width = 630
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*********************************************************
'** Project Name : Skinner 2.5 **
'** Writer : JF3000 Software **
'** Release : October 2004 **
'** Description : Changes IE Background **
'** Comment : . **
'** Website : http://s7.invisionfree.com/JF3000 **
'** Email : - **
'*********************************************************

Private Sub Form_Load()
Dim rtn As String
Dim pPath As String
LoadResStrings Me
pPath = App.Path & "\Resource\"
cmdBrowse.Picture = LoadResPicture(CInt(201), vbResBitmap)

rtn = GetStringValue(HKEY_CURRENT_USER, "Software\Microsoft\Internet
Explorer\Toolbar", "BackBitmap")
If rtn <> "False" Then
optChoice(1).Enabled = True
Else
optChoice(1).Enabled = False
End If
End Sub

Private Sub cmdAbout_Click()
frmAbout.Show
End Sub

Private Sub cmdBack_Click()
lblPage.Caption = lblPage.Caption - 1
cmdNext.Enabled = True
cmdNext.Caption = LoadResString(CInt(116))

Select Case lblPage.Caption
Case Is = 1
fra1.Visible = True
fra2.Visible = False
fra1.Move fra2.Left, fra2.Top, fra2.Width, fra2.Height
cmdBack.Enabled = False
Case Is = 2
fra2.Visible = True
fra3.Visible = False
fra2.Move fra3.Left, fra3.Top, fra3.Width, fra3.Height
Case Is = 3
fra3.Visible = True
fra4.Visible = False
fra3.Move fra4.Left, fra4.Top, fra4.Width, fra4.Height
End Select
End Sub

Private Sub cmdNext_Click()
lblPage.Caption = lblPage.Caption + 1
cmdBack.Enabled = True

If cmdNext.Caption = LoadResString(CInt(117)) Then UpdateComplete

Select Case lblPage.Caption
Case Is = 2
fra1.Visible = False
fra2.Visible = True
fra2.Move fra1.Left, fra1.Top, fra1.Width, fra1.Height
Case Is = 3
fra2.Visible = False
fra3.Visible = True
fra3.Move fra2.Left, fra2.Top, fra2.Width, fra2.Height
Case Is = 4
If CheckPath = False Then Exit Sub
fra3.Visible = False
fra4.Visible = True
fra4.Move fra3.Left, fra3.Top, fra3.Width, fra3.Height
cmdNext.Caption = LoadResString(CInt(117))
End Select
End Sub

Private Sub cmdBrowse_Click()
On Error GoTo errHandler
With cdlgOpen
.CancelError = True
.DefaultExt = "BMP"
.DialogTitle = "Open"
.Filter = "Bitmap picture (*.bmp)|*.bmp"
.FileName = ""
.ShowOpen
txtPath.Text = .FileName
End With
Exit Sub
errHandler:
End Sub

Private Sub Form_Unload(Cancel As Integer)
XClosing Me
End Sub

Private Sub cmdClose_Click()
XClosing Me
End Sub
 
JF3000 said:
hahahahaha yeah right gimme a break, ill even post the source code and u
show me where this spyware is?
Click to expand...

Heh. Just telling what I found. You said to look up your nick and I did.
 
JF3000 said:
Seems to me u just like to hit people where it hurts hard so they get no
where. Here is the source for the app, this is the main source, if u got
spyware its not from me. Prove to me u can find spyware in my source please
Click to expand...

AFAIC, get lost. I don't have time to waste with you.
 
If anyone is interested I create a few freeware apps, if you want to know
more about me just look my nick up in google, im everywhere.

I wanted to introduce a simple bit of software for someone to test for me,
please post any bugs.

Skinner lets you place a background on your Internet Explorer, very simple
to use, just choose your background and its all done, to remove the
background back to default, re-run the application and choose remove.

Download :

http://tinyurl.com/6lkay

Forum :

http://s7.invisionfree.com/JF3000

Thanks.

JF3000

P.S. The links on my site to other applications are currently down, if you
require an app ive made simply ask for the link and I will post it to you,
or here. Thank you.
Click to expand...
At your suggestion I did a Goggle search for JF3000:

Yeah, you're everywhere on google where cracks are distributed for
copyrighted programs, which pretty much makes you a thief and a liar.
(if a man steals he lies, and if a man lies he steals) You could be the
greatest programmer in the world, but you have a reputation for being a
thief and a liar, so who wants your code? Not Me! Your posting is in the
same class as the lads posting all the virus & worms all over usenet:
UNTRUSTED! & UNWANTED!
 
hahahaha noob, its people like u that go out of there way to punish others,
why dont u stop picking on others and sit on the corner. As for yourself,
why did I find u in places where they place people like u in jail?
 
JF3000 said:
hahahaha noob, its people like u that go out of there way to punish others,
why dont u stop picking on others and sit on the corner. As for yourself,
why did I find u in places where they place people like u in jail?
Click to expand...

Why did you suggest that people did a Google search on your nym?
 
Back
Top