HKEY_CURRENT_USER\Identities\[nr
of id]\Software\Microsoft\Outlook
Express\[vers]
Then create
a new DWORD
value called
NoSplash,
and assign
the value
1. Remember
to take a
backup of
the Registry
before doing
this! For
more information
on how to
backup your
registry,
Convert WMF Files Into BMP Files in Visual Basic
Create a new
project, add
a form, then
put a picture
box and a
command button
into it. Add
block of code
into command
button click
event.
Private
Sub Command1_Click()
' Load meta
picture file
Picture1.Picture
= LoadPicture("C:\test.wmf")
'
Save meta
picture to
bitmap file
SavePicture
Picture1.Image,
"C:\test.bmp"
End Sub
Break an RGB color value into its components in
Visual Basic
Use :
r
= color And
&HFF&
g = (color
And &HFF00&)
\ &H100&
b = (color
And &HFF0000)
\ &H10000
There
are some system
colors that
have funny
values like
&H8000000F&.
Unfortunately
they don't
work this
way. You can
use the GetSysColor
API function
to find these
color values.
Use And to
mask off the
leftmost digit.
Then use GetSysColor
to see get
the color
value.
Public Declare
Function GetSysColor
Lib "user32"
Alias "GetSysColor"
_
(ByVal nIndex
As Long) As
Long
If
color And
&H80000000
Then color
= GetSysColor(color
And &HFFFFFF)
One
final case
occurs if
you use Point
to get the
color of a
pixel that
does not exist.
For example,
on a form
with ScaleMode
= vbPixels,
Point(-100,
-100) returns
-1 because
there is
no
pixel at (-100,
-100).
The
following
subroutine
breaks a color
into its components.
If the color
is -1, the
routine leaves
r, g, and
b unchanged.
Depending
on your application,
you may want
to set them
to default
values such
as 0 or 255.
Public
Declare Function
GetSysColor
Lib "user32"
Alias "GetSysColor"
_
(ByVal nIndex
As Long) As
Long
'
Break a color
into its components.
Private
Sub BreakColor(ByVal
color As Long,
ByRef r As
Long, ByRef
g As Long,
_
ByRef b As
Long)
If
color = &HFFFFFFFF
Then Exit
Sub
If
color And
&H80000000
Then _
color = GetSysColor(color
And &HFFFFFF)
r
= color And
&HFF&
g = (color
And &HFF00&)
\ &H100&
b = (color
And &HFF0000)
\ &H10000
End
Sub
How to Hack an EXE File
Could you
edit an executable
file when
it has been
compiled?
Yes, you could.
But you could
only change
the String
data. How?
Using the
MS-DOS Text
Editor. The
String data
is text, but
in the file
will appear
different.
For example,
if in the
application
appears
About
NotePad
in the compiled
file will
appear A
b o u t N
o t e P a
d with
an space between
each word.
Before modifying
the file,
make a back-up
of it. If
you want to
modify the
file, first
you have to
open it using
the MS-DOS
Text Editor
and open the
file as Binary.
Then activate
the Insert
key and search
for some text
data in the
program. But,
it isn't as
easy as said.
You have to
search it
manually,
'coz the words
are separated
by a space
between. Then
replace each
word for anyone
you want.
Example:
N
o t e P a
d to M
y P r o g
r
BE CAREFUL:
The file must
weight the
same than
the original;
if not, it
could not
work.
[Even then
the file may
not work.
For example,
it might calculate
its checksum
and notice
that you have
made changes.
This is certainly
a dangerous
technique.
So at least
make a backup
copy of the
file before
you mess with
it.
Installing Registry Entries
Here's an
easy way to
set registry
entries when
you install
a program.
First, create
the entries
manually on
your computer.
Put them in
their own
subtree if
possible.
Use the registry
editor to
export the
subtree containing
the entries.
This will
creates a
.REG file.
Include this
in the list
of files given
to the Package
and Deployment
Wizard. The
Wizard will
automatically
offer to run
the registry
file on the
target system
during installation
and that installs
the registry
values.
Learn ASCII Code in Visual Basic immediate window
Ever want
to know what
the chr number
is for a character?
Open the immediate
window by
pressing (CTRL+G)
and type ?Asc("")
and press
enter. The
result will
appear right
before your
very eyes.
Example:
the number
for a double
quote
?Asc("""")
would come
as 34
Using ADO in Access 2000
To use a Microsoft
Access 2000
database and
ADO you have
to add the
correct references
in your Visual
Basic project.
To add the
references
to your Visual
Basic project
follow the
instruction's
below.
Open
a project.
From the Project
menu, click
References.
From the list,
select Microsoft
ActiveX Data
Objects 2.1
Library.
From the list,
select Microsoft
ADO Ext. 2.1
for DDL and
Security.
From the list,
select Microsoft
Jet and Replication
Objects 2.1
Library.
Click OK.
This should
let you now
use an Access
2000 database
with an ADODC
control. However
Data form
Wizard will
still face
problems!
Understanding Error Handlers
When you use
On Error GoTo
and an error
occurs, VB
enters exception
mode. The
line you GoTo
is supposed
to be the
beginning
of an error
handler. If
an error occurs
within an
error handler,
the program
stops. What
you need to
do is leave
the error
handler and
resume normal
execution.
Then you can
use On Error
to establish
a new error
handler for
the next error.
You do this
with the Resume
statement.
See the help
for details.
In this case,
you can use
Resume LineLabel
to make the
program continue
execution
at a specific
line.
Unfortunately,
executing
Resume from
outside an
error handler
generates
an error.
Thus you cannot
place the
error handler
in the flow
of code the
way you have.
You need to
jump out to
the error
handler and
jump back
with Resume.
Below
is a subroutine
that demonstrates
two error
handler.
Private
Sub Command1_Click()
Dim i As Integer
On
Error GoTo
Error1
i = 1 / 0
' Divide by
zero.
Error1Resume:
On Error GoTo
Error2
i = 1000000
' Too big--overflow.
Error2Resume:
MsgBox "Finishing."
' Do not fall
through into
the error
handlers!
Exit Sub
Error1:
' Resume ends
error handler
mode.
MsgBox "First
error handler."
Resume Error1Resume
Error2:
' Resume ends
error handler
mode.
MsgBox "Second
error handler."
Resume Error2Resume
End Sub
Stop your modem from frequently disconnecting
