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
