Vector Keranjang

Easter Bunny Tricks shows a playful bunny carrying Easter Eggs underground, that way he can't be discovered. Happy Easter for all our Vector Open Stock folks. Under Creative Commons 3.0 Attribution License.

Download Here

Source Code Porn Blocker Vb6

Aplikasi yang dibuat menggunakan Visual Basic 6 ini berfungsi untuk ngblok content porno di komputer, untuk orang tua yang pengen menghindari anak-anak mereka dari konten konten porno yang bisa merusak ahlak mereka baiknya menjalankan program ini di komputer yang dipakai oleh anak anak mereka. tapi program ini masih dalam source code jadi bisa dikembangin sesuka hati kita.

Download Here

Creating a Serial Number for the application

Applications that are distributed with shareware methods usually have time limits in its use and if the time limit is up then the user must activate the application by registering or purchasing a license to the owner of the application by way of mentioning the serial number on an existing application.

There are also types of shareware are not using a time limit, but place restrictions on facilities that can be used. Even some that do not use time limits or restrictions on the facility, but will always be applications that use display ads at the time the application is used.

When the owner receives the registration application or payment of the user who wants to do the activation, then the owner of the application will send the activation key to users to be included on the form provided on the application of activation used.
If you are the owner of the application you do not want activation key can be used by several different users to knowingly duplicate application for personal gain, this can be handled by creating a different serial number for each different user (one user of the serial number) so that the activation key can only be used by one user only.
To create a serial number unique to each user we can use the serial number contained on the disk, so any applications that are installed on different computers it will have a different serial number.
Example of application serial number and activation key by using the serial number contained on the disk can be seen in the example the following program

[sourcecode language="vb"]
Option Explicit

Private 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

Private Function GetHDDSerialNumber(ByVal DriveLetter As String) As String
Dim SN As Long
Dim VolumeNameBuff As String
Dim FileSystemBuff As String

VolumeNameBuff = String$(255, Chr$(0))
FileSystemBuff = String$(255, Chr$(0))
GetVolumeInformation UCase(DriveLetter) & “:\”, _
VolumeNameBuff, 255, SN, 0, 0, FileSystemBuff, 255
GetHDDSerialNumber = Trim(Hex$(SN))
End Function

Private Function CreateAppSerialNumber _
(ByVal HDDSerialNumber As String) As String
Dim i As Integer
Dim temp As String
Dim temp2 As String

temp = Empty
For i = 1 To Len(HDDSerialNumber) Step 2
temp = temp & Mid(HDDSerialNumber, i + 1, 1) & _
Mid(HDDSerialNumber, i, 1)
Next

For i = Len(temp) To 1 Step -1
Select Case Asc(Mid(temp, i, 1)) + 1
Case 48 To 57, 65 To 90, 97 To 122
temp = temp & Chr(Asc(Mid(temp, i, 1)) + 1)
Case Else
temp = temp & Mid(temp, i, 1)
End Select
Next

For i = 1 To Len(temp) Step 2
temp2 = temp2 & Mid(temp, i, 1) & _
Mid(temp, Len(temp) \ 2 + i, 1)
Next

CreateAppSerialNumber = temp2
End Function

Public Function CreateActivationKey _
(ByVal AppSerialNumber As String) As String
Dim i As Integer
Dim j As Integer
Dim temp As String

temp = Empty
For i = 1 To Len(AppSerialNumber) \ 2
temp = temp & (Asc(Mid(AppSerialNumber, i, 1)) Xor _
Asc(Mid(AppSerialNumber, Len(AppSerialNumber) \ 2 + 1, 1)))
Next
CreateActivationKey = Hex$(Val(temp))
End Function

Private Sub Form_Load()
txtSerialNumber.Text = CreateAppSerialNumber(GetHDDSerialNumber(”c”))
End Sub

Private Sub cmdHint_Click()
MsgBox “Activation Key: ” & _
CreateActivationKey(CreateAppSerialNumber _
(GetHDDSerialNumber(”C”)))
End Sub

Private Sub cmdOK_Click()
If txtActivationKey.Text = CreateActivationKey(txtSerialNumber.Text) Then
MsgBox “Thank you!”, vbOKOnly Or vbInformation, App.Title
Else
MsgBox “Wrong answer!”, vbOKOnly Or vbInformation, App.Title
End If
End Sub

Private Sub cmdCancel_Click()
Unload Me
End Sub

[/sourcecode]

Source Code Sistem Pakar Diagnosa TV dengan VB6

Nah kalau beberpa jam yang lalu ane posting Source code Sistem Pakar Otomotif sekarang ane posting lagi ni source code aplikasi sistem pakar pake Visual basic 6. nah dari pada ribet capek ane ngetikin yang perlu udah deh donload aja kemudian tes sendiri..hehhe :)

Download Here

Source Code Aplikasi Kredit barang Elektronik Pada Lia Elektronik Langsa

Ok.capek juga ternyata Buat postingngan ya..tapi gak apalah sekedar ngeblog sambil facebookan.kali ini ane mw sahe Source Code Aplikasi Penjualan barang secara Kredit di sebuah Swalayan Daerah Langsa, Aceh.Aplikasi ini dibuat menggunakan Visual Basic 6 dan Databse SQL Server dan beberapa OCX. kira-kira screen shootnya digambar berikut:

Download Here

ThemeForest - Premium Wordpress Portfolio Themes

ThemeForest - Premium Wordpress Portfolio Themes - REUPLOADED
10 Themes | WP | PHP | HTML | Fonts | PSD | 551 MB
ThemeForest Premium Wordpress Prortfolio Themes:
PictureThis - Fullscreen Portfolio WordPress Theme
Gridnik - Elite Portfolio Wordpress Theme
Display 3 in 1 – Business & Portfolio Wordpress Themes
Anan – For Photography Creative Portfolio
Anolox - Premium Portfolio WP Theme
MediaReel – Portfolio WordPress Theme
Impresa - Business and Portfolio WordPress Theme
Quest – Photography and Portfolio Theme
SilverSlide - Premium TF Portfolio Theme
Artisan Creatif – WordPress Portfolio Theme
Read more: http://www.tinydl.com/scripts/1060171803-themeforest-corporate-premium-10-wordpress-themes.html#ixzz1zjRombSs

Download Here

E-Learning PHP & MYSQL

1. Login Admin

2. Halaman Utama Admin

3. Halaman Guru

4. Halaman Siswa

Trik Internet Gratis XL Terbaru Juni 2012

Trik Internet Gratis XL Terbaru Juni 2012 Trik Internet Gratis XL Terbaru Juni 2012 :Trik Internet Gratis XL Terbaru Juni 2012Pada hari ini Posting Terbaru saya adalah bagamna cara internetan gratis dengan XL 2012 SETTING HP Setting Hp Menggunakan Opera APN: www.xlgprs.net Proxy: 62.109.11.180 Port: 80 SETTING OPERA MINI HANDLER FrontQuery:http://123.Xl.Co.Id/cgi-bin/nphproxy.cgi/010110A/http/217.212.230.34/PZF_ID#6666 Remove Port: dicentang Proxy Type: no proxy SETTING HP Setting Hp Menggunakan Ucweb -APN : standar -proxy : 95.211.0.120 -port : 80 SETTING UCWEB HANDLER Setting ucweb FQ : m.facebook.com/nph- ahmadinejad.ir/20/http/ Ok itu saja postingann Trik Internet Gratis XL Terbaru Juni 2012. selamat mencoba

Cheat Point Blank Terbaru Juni 2012

Cheat Point Blank Terbaru Juni 2012, OK sobat Pecinta Point Blank yang suka ngecit atau main curang. sebenernya ngecheat itu dilarang tapi apa boleh buat banyak yang butuh sih karena gak punya skill perang ala perang beneran. Cheat Point Blank Terbaru Juni 2012