How to make animation star

Animated images are often used to embellish the view, in the form vb we can also touch up the look with the animation. Here I give examples of animation in vb

Create a form with some labels and a timer, with propertis masing2 as follows:
Form -> backcolor = select color black, borderstyle-0 = none, 2 = windowstate-maximized.
Label1 dst ... -> Backstyle-transparant = 0, l = caption, font = webdings (size = 72), here I use the 35 labels (label1 name = s / d label35).
Timer1 -> interval = 100.

source code for the following:

Private Sub Timer1_Timer ()
Label1.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label2.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label3.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label4.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label5.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label6.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label7.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label8.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label9.ForeColor = RGB ( Rnd * 255, Rnd * 255, Rnd * 255) Label10.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label11.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label12. ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label13.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label14.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label15.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label16.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label17.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label18.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label19.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label20.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label21.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label22.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) = Label23.ForeColor RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label24.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label25.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label26.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label27.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label28.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label29.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label30.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label31.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label32.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label33.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label34.ForeColor = RGB ( Rnd * 255, Rnd * 255, Rnd * 255) Label35.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255)
End Sub

Simple Tricks protect CD Collection

Perhaps for those of you that have a CD collection software, music, video, and others have studied kesel ama temen without the permission of your CD collection you borrow, if at Untung cd still restore the situation seprti but what if the cd is even goresannya add? that have puzzled even mo nyuruh change what I can change no loss ......?


Perhaps for those of you that have a CD collection software, music, video, and others have studied kesel ama temen without the permission of your CD collection you borrow, if at Untung cd still restore the situation seprti but what if the cd is even goresannya add? that have puzzled even mo nyuruh change what I can change no loss?

Well here I have a few tips for your users visual basic. Tips are only valid for the Windows operating system but for those of you who like utak especial use on other operating systems. The principle that I want to do is as follows:

1. CD can only be used for the computer that our recommendations only.
2. CD will be out of the cdrom if it is not appropriate that we would want.

Now for those of you who may often berkutat with VB I do not think will have a problem with the work to be done or even this is a job peas. Use of the CD can only be on the computer we have recommendations how this can be done! Perhaps each person will have a different way but here I will submit one of the ways that can be used. How will I do is by reading the serial Disk on the computer. So why do I use this? This is because I take each Disk serialnya different on each operating system. So even if a Disk in the Disk, but if there is some operating system then serialnya akan different.

To sourcenya is as follows:

Source Code Form
---------------->

Private Sub Form_Load ()
Dim buffer As String * 255
Dim d As Long
Dim Y
X = GetPrivateProfileString ( "SERIAL", "NO", "(error)", _
buffer, 255, "C: \ bowoCD.ini") 'Read file
Y = Left (buffer, X)
If Y = "(error)" Then
retvalue = mciSendString ( "set CDaudio door open", _
retrunString, 127, 0) 'Exit Cd
End
Else
If Y = sn ( "c:") & "-" & sn ( "d:") Then
MsgBox "Selamat cDNYa USING Bowo eKOWIDODo", _
vbInformation, "Bowo INFO" 'Show message
End
Else
retvalue = mciSendString ( "set CDaudio door open", retrunString, _
127, 0) 'Exit Cd
End
End If
End If
End Sub


Source Code Module
----------------------->
Public Declare Function GetPrivateProfileString lib "kernel32" _
Alias "GetPrivateProfileStringA" (_ ByVal lpApplicationName
As String, ByVal lpKeyName As Any, ByVal lpDefault As String, _
ByVal lpReturnedString As String, ByVal nSize As Long, ByVal _
lpFileName As String) As Long

Public Declare Function mciSendString lib "winmm.dll" Alias _
"mciSendStringA" (ByVal lpstrCommand As String, ByVal _
lpstrReturnString As String, ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long

Public Declare Function GetVolumeInformation lib "kernel32" Alias _
"GetVolumeInformationA" (ByVal lpRootPathName As String, _
ByVal lpVolumeNameBuffer As String, _ ByVal nVolumeNameSize As
Long, lpVolumeSerialNumber As Long, _ lpMaximumComponentLength
As Long, lpFileSystemFlags As Long, ByVal _
lpFileSystemNameBuffer As String, _ ByVal nFileSystemNameSize
As Long) As Long

Sn Public Function (ByVal RootPatch As String) As String
As String Dim vollabel
As Long Dim volsize
Dim Serial As Long
As Long Dim MaxLen
Dim Flags As Long
Dim name As String
As Long Dim Namesize
Dim s As String

If GetVolumeInformation (RootPatch, vollabel, volsize, serial, _
MaxLen, Flags, name, Namesize) Then
s = Format (Hex (series), "00000000")
sn = Left (s, 4) + "-" + Right (s, 4)
Else
sn = "0000-0000"
End If
End Function


Well after so you can mengeceknya first run with the Run or press F5 if it is correct then your cdrom akan keluar.
If you like it then has to be able to make the application exe from the File -> Make ... . exe. And wait until the process is complete save the document in your folder. Rename the file for example I cekcd.exe

The next step is to create applications that run when the CD input. How can I do with the make autorun cd autorun file to create. Open your text editor such as notepad and input source such as this

/--------------------- \
Source Code Aotorun
[autorun]
OPEN = cekcd.exe
ICON = cekcd.exe
\ ---------------------/


Save with the name autorun.inf on the map where you store cekcd.exe.

You see more in the table Source Code to the Form 5

GetPrivateProfileString ( "SERIAL", "NO", "(error)", buffer, 255, "C: \ bowoCD.ini")

Well here is c: \ bowoCD.ini the source file is being read
bowoCD.ini on kandar C with the name of the key and the Serial No and if
akan value not found (error). For that you need to create more
this file and stored on kandar C: \. To name the file as you can
but also to change the name of reading paper. Sourceya as
following:

Source Code Aotorun
[SERIAL]
NO = XXXX-XXXX-XXXX-XXXX

Save with the name and input value bowoCD.ini XXXX-XXXX-XXXX-XXXX appropriate serial Disk you. Now you're ready to burn your CD collection and do not forget to input file autoran.inf and cekcd.exe that you have made on the CD without any input in the map. To medapatkan serial is on the letter XXXX-XXXX-XXXX-XXXX, you can create applications using the distinctive Module Source Code and Source Code form, especially on line 11. May be used if there is such a question can ask on this web forum or ask directly to me.

Author: Bowo Ekowidodo @! @ Img11
Web: http://www12.brinkster.com/indocel/

Search for words in ListBox

'Copyright by x-vb @ jhie
'http://www.vbbego.cjb.net
'Author: x-vb @ jhie - 7/19/2004

Option explicit
Private Declare Function SendMessage lib "User32" _
Alias "SendMessageA" (ByVal hWnd As Long, ByVal _
wMsg As Integer, ByVal wParam As Integer, _ lParam
As Any) As Long
Const LB_FINDSTRING = & H18F

Private Sub Form_Load ()
With List1
. Clear
. AddItem "CPU"
. AddItem "RAM"
. AddItem "ROM"
. AddItem "Cache"
. AddItem "motherboard"
. AddItem "Hard Disk"
. AddItem "Floppy Disk"
End With
End Sub

Private Sub Text1_Change ()
List1.ListIndex = SendMessage (List1.hWnd, _
LB_FINDSTRING, -1, ByVal Text1.Text)
End Sub
> swap

Retrieving Data / Pictures

GetData function is used to retrieve the contents of the clipboard
can be a text or image.

Basic syntax:
Clipboard.Getdata ([format clipboard])

Clipboard format consists of several types of

Constant value description
-------------------------------------------------- -----
vbCFBitmap 2 Bitmap (. bmp files)
vbCFMetafile 3 Metafile (. wmf files)
vbCFDIB 8-Device independent bitmap (DIB)
vbCFPalette 9 Color palette


Example:

Dim Msg
On Error Resume Next
Msg = "Choose OK to load bitmap into the clipboard."
MsgBox Msg
Clipboard.Clear 'Clear the Clipboard.

'Take a picture of the file and save it to the clipboard
Clipboard.SetData LoadPicture ( "C: \ vbBego.BMP")

MsgBox "Showing a picture from the clipboard"
Picture = Clipboard.GetData () 'Copy from Clipboard.

Tips And Trick & Animation Form

You can simply copy and paste the per-example to try to script this ...


Example 1:
Private Sub Form_Unload(Cancel As Integer)
Me.BackColor = vbWhite ' warna belakang putih
WindowState = 2 ' maximized-kan
DrawWidth = 4 '/ ketebalan
For i = 1 To 16000
Bawah = Bawah + 1
Kanan = Kanan + 1
PSet (Rnd * Kanan, Rnd * Bawah), QBColor(Rnd * 15)
Next i
End Sub


Example 2:
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
cepat = 150
While Left + Width < left =" Left" top =" Top">



Example 3:
Private Sub Timer1_Timer()
Dim LingkaranX, LingkaranY, Radius
ScaleMode = 3
LingkaranX = ScaleWidth / 2
LingkaranY = ScaleHeight / 2
For Radius = 0 To 100
Circle (LingkaranX + Radius / 2, LingkaranY), Radius, RGB(Rnd * 215, Rnd * 55, Rnd * 15)
Next Radius
End Sub


Example 4:
Private Sub Form_Load()
Me.AutoRedraw = True
BackColor = 0
For i = 1 To 500
CurrentX = i * 100
CurrentY = i * 100
h = h & i
ForeColor = i * 10000
Print h
Next i
End Sub

Example 5:
Private Sub Form_Load()
Me.AutoRedraw = True
Me.DrawWidth = 10
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form_MouseMove 1, 0, X, Y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Caption = "PosisiX=" & X & " - " & "PosisiY=" & Y
If Button = 1 Then
PSet (X, Y), vbBlue
End If
End Sub

How To Find Files with VB

Private Declare Function SearchTreeForFile Lib "imagehlp" _
(ByVal RootPath As String, ByVal InputPathName As String, _
ByVal OutputPathBuffer As String) As Long
Private Const MAX_PATH = 260
Private Sub Form_Load()


Dim tempStr As String, Ret As Long
tempStr = String(MAX_PATH, 0)
Ret = SearchTreeForFile("c:", "calc.exe", tempStr)
If Ret <> 0 Then
MsgBox "Lokasi file di " + Left$(tempStr, _
InStr(1, tempStr, Chr$(0)) - 1)
Else
MsgBox "File tidak ditemukan!"
End If
End Sub

Tips Making Weakness Program

In fact to avoid the breakthrough software that we may be quite difficult to make, yes, but here we strive to protect our semampu results of the paper itself is one.

Itung-itung effort we make in the cracker in membongkarnya he .. he ..


Among the colleagues who may still have what I have not
avoid or minimize weaknesses that made the program,
not so easy to crack by other people.

In fact, to avoid may be slightly difficult, but we do try
semampu protect our own what works one. Itung-itung
efforts we make in the cracker in membongkarnya he .. he ..



Oke aja directly to our main discussion, we Kalo liat some local programmers in making the program often compare the situation
a process with an object or a caption.

As an example that I often find spt this:

If cmdSave.Enabled = False Then
......
Else
......
End IF

Or

If cmdSave.Caption = "OK" Then
......
Else
......
End IF


Or

If cmdSave.Visible = True Then
......
Else
......
End IF

Should avoid such a process, why should be avoided?
he ... he .. surely you can right now many tools that can be
Property modify the object during a Run-Time, such as the
return the object to disable, change a caption, to activate the menubar
dll that is not active ...

We recommend using a variable for a condition for the benchmark,
so that in the more difficult to crack. (This program does not mean we
can not dicrack, but make it as a step only)

For programs that are associated with the database, do not forget to include the function pemblokan a special character. ('),--, Such as quotation marks or a semicolon (;) depends on a database that is used.
This is intended to avoid the breach to the application or to a system using the techniques SQLInjection.

Although this technique may have been spelled out and the ancient classics, but that spt is often found in some program that is so.


While the program for use Winsock component, such as, should the data / packet must be sent in enskripsi first. To be protected from piracy or data packets that dibajak by the snifer. usually use the program packet sniffer to view.

Then use the initial connection, or in other words use a password to connect to the program that we create. So that other people can try to enter our disconnect automatically.


To compile a project, the stages become executable file, do not select the type of P-Code, as akan dicrack with easy to use program WKTVBDE (WKTVBDebugger) made Mr. Mr & Silver. Snow.
(To learn this, please get your information in the
http://vbdebug.cjb.net)

Try to compile the executable in the form of a Native-Code, hua .. but h. ..
too compile with this type can also still in use crack SmartCheck made NuMega. but do not worry more
difficult than Native-Code P-Code @! img1 @

The next step to protect the program you use programs
Compressor executable Detection and BreakPoint.
This is done to avoid permanent changes in the resource and
check the program debugger is active in memory, usually
debugger program that is widely used SoftICe.

In fact many programs that commercial Compressor such as:

- 32LITE v0.02d
- Six-Two-Four
- AinExe v2.23
- APack v0.99b
- APLib v0.20b
- AVPack v1.22
- Ax v2.2
- CauseWay Compressor
- Diet v1.45f
- EPACK 1.6
- LGLZ v1.04b
- LzExe v0.91
- Megalite v1.20a +
- PACK v2.01
- PKLite v2.01
- PK-Smart v1.0b
- PMODE / W v1.33
- Pro-Pack v2.19
- RJCRUSH 1:10
- RUCC/386 v1.01
- SYSPACK v0.1 1
- T-PACK v0.5
- Etc. ...

(to get the above software can be searched using google or the site can http://www.exetools.com)

you can use one of them. But I suggest that the search does not
popular or what you can create your own @! img16 @. Usually programs like Compressor popular programs have to return it
back to the original form of its executable, or in other words can be Decompress again.

In fact there have also use Compressor program, this can reduce the size of executable files and can change the structure of the exe which there plaintext characters to be strange:)

Such protection is more effective than lumayan no protection at all. And will make the new cracker, but how this will be easier in perforated by the old cracker.

Ok, I just think he is ... ... .. he may be among colleagues
I like, even laughing can view this article.
hik ... hik .. Yes it is fair, the articles I write for the set aside that have not been a newbie at all ... .. ops, I also still looking for and much to learn, .. so we end the course of writing this article ok bro?

Data Report

Data Report is a facilities program (module) that is included in the
applications Visual Basic (VB6) to make a report, in which
source data comes from the Data Environment Designer (DED).
While the Data Environment is an object of men -
specify the relationship to the data source (database) and men -
dekripsikan statements (criteria) of the data / records that you want to in -
get.
Indeed, the application program, Data Report is rarely used,
more general applications use Crystal Reports program. This
the specification (statements), which declared the DED
can not be modified through the program code so that the information
Data that is displayed through the Report seem rigid (not flexible),
not so many benefits.
Although the benefits of the Data Report is very minimal, no one
Data Report to learn as a way of
show the data / reports in a supplied preformatted form.
To the authors will guide you to see how the record
AlbumList shown from the table. Proceed with the case reports
transactions as sales illustration to show like -
which records from multiple tables together in a report.