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
Cool Links 
Channels 
