IlmuKomputer.Com

Hack facebook.com email yahoo gmail password

noreply@blogger.com (Safay) — Wed, 03 Feb 2010 11:42:00 +0000

Nancy Drew Legend of the Crystal Skull

noreply@blogger.com (Safay) — Mon, 16 Nov 2009 17:37:00 +0000

Bruno Bolet was the owner of the "Whisperer," a crystal skull rumored to protect its holder from almost any cause of death, except murder. When Bruno died, his nephew Henry came to wrap up his affairs, but he couldn't find the skull among the clutter of the manor. The player, as Nancy Drew and, on occasion, her best friend Bess Marvin, must find the skull and solve the mystery of Bruno's murder.

In this installment of the Nancy Drew PC series you can assume the role of Bess to help Nancy solve the mystery. The game is 3D and mostly point-and-click. The player can question suspects face-to-face or by the phone, solve puzzles crucial to the game, explore locations such as a curio shop and mansion, and try to distinguish the murder weapon.

The Search in on for an Unearthly Artifact in New Orleans!

Bruno Bolet was the proud owner of the "Whisperer," a crystal skull rumored to protect its holder from almost any cause of death , except murder. When Bruno passed away, his nephew Henry came to wrap up his affairs, but he couldn't find the skull among the clutter of the creepy Bolet manor. You'll need to team up with Nancy's best friend Bess Marvin to find this mystical artifact before it falls into the wrong hands!

Features:
* Play as Nancy and Bess Marvin
* Outwit Bruno's pet iguana, alligator, and spider
* Navigate the mansion by candlelight
* Choose from Junior or Senior Detective difficulty levels

JUST UNRAR AND PLAY,
Game+Walkthrough, 953 MB:

Download Link

http://rapidshare.com/files/251288703/Nancy_Drew_17_Legend_of_the_Crystal_Skull.part01.rar.html
http://rapidshare.com/files/251302272/Nancy_Drew_17_Legend_of_the_Crystal_Skull.part02.rar.html
http://rapidshare.com/files/251302748/Nancy_Drew_17_Legend_of_the_Crystal_Skull.part03.rar.html
http://rapidshare.com/files/251317072/Nancy_Drew_17_Legend_of_the_Crystal_Skull.part04.rar.html
http://rapidshare.com/files/251317693/Nancy_Drew_17_Legend_of_the_Crystal_Skull.part05.rar.html
http://rapidshare.com/files/251334701/Nancy_Drew_17_Legend_of_the_Crystal_Skull.part06.rar.html
http://rapidshare.com/files/251335384/Nancy_Drew_17_Legend_of_the_Crystal_Skull.part07.rar.html
http://rapidshare.com/files/251356092/Nancy_Drew_17_Legend_of_the_Crystal_Skull.part08.rar.html
http://rapidshare.com/files/251356809/Nancy_Drew_17_Legend_of_the_Crystal_Skull.part09.rar.html
http://rapidshare.com/files/251382337/Nancy_Drew_17_Legend_of_the_Crystal_Skull.part10.rar.html

pass:smartwarez.org

Jonathan Kane The Protector

noreply@blogger.com (Safay) — Mon, 16 Nov 2009 17:25:00 +0000

Hired to protect Jennifer is elite British mercenary Jonathan Kane. Hunted by Scarlet Vengeance, Kane and Jennifer must combine their skills to stay one step ahead of their enemies and destroy the artifact before it falls into the terrorists’ hands.

Packed with action, suspense, intrigue, love and betrayal, Jonathan Kane: The Protector is a searing first-person shooter featuring intense, visceral fire-fights combined with stunning stealth interludes. When faced with a menace like the terrorist group, Scarlet Vengeance, you are the planet’s only hope for survival! The thrilling plot unravels through eye-popping in-game and cinematic cutscenes that immerse you in a living, breathing world where danger lurks around every corner.
Features:

Play as both Jonathan Kane - a hardened British mercenary and former MI6 agent trained in counter-terrorist tactics - and Jennifer Guile - a beautiful and wily US archaeologist.
Two distinct gameplay modes - searing, tactical shooting action (Kane) and tense, stealth sections (Jennifer).
Use your environment to hide and take cover. Enter into third-person mode when in cover to acquire a better overview of your surroundings. Lean out from behind cover to engage your enemies with minimal exposure. Blind fire around corners when severely pinned down.
Superb world physics where objects are splintered, shattered and sent flying by barrages of bullets and explosions, creating massively believable battlefields. The player can even shoot enemies - and be shot - through thin walls, adding a further tactical element.
Enemies intelligently seek out and utilize cover - just like you.
And more…
Recommended System Req:

Pentium 4, 3 GHz class processor
1 GB RAM for Windows XP, 2 GB Ram for Windows Vista
Sound card supporting 3D sound
512 MB nVidia 8800 GT graphics card or better
Release Name: Jonathan_Kane_The_Protector-GOW

Size: 1.67 GB
Download link
RAPIDSHARE
http://rapidshare.com/files/307078899/PTKJ.part01.rar
http://rapidshare.com/files/307078857/PTKJ.part02.rar
http://rapidshare.com/files/307078075/PTKJ.part03.rar
http://rapidshare.com/files/307080020/PTKJ.part04.rar
http://rapidshare.com/files/307078292/PTKJ.part05.rar
http://rapidshare.com/files/307079738/PTKJ.part06.rar
http://rapidshare.com/files/307078387/PTKJ.part07.rar
http://rapidshare.com/files/307078619/PTKJ.part08.rar
http://rapidshare.com/files/307078939/PTKJ.part09.rar
http://rapidshare.com/files/307078163/PTKJ.part10.rar

NETLOAD
http://netload.in/dateirlADxUr9d6/PTKJ.part01.rar.htm
http://netload.in/dateiinQ7CBrln7/PTKJ.part02.rar.htm
http://netload.in/dateihff0UadGRU/PTKJ.part03.rar.htm
http://netload.in/dateiucGsaGEpQU/PTKJ.part04.rar.htm
http://netload.in/dateimX5nZ4NMU0/PTKJ.part05.rar.htm
http://netload.in/dateiUuvgngk3V2/PTKJ.part06.rar.htm
http://netload.in/dateisWfAg21G2Y/PTKJ.part07.rar.htm
http://netload.in/dateiEnMjhBB8Ir/PTKJ.part08.rar.htm
http://netload.in/dateidonY23ubqV/PTKJ.part09.rar.htm
http://netload.in/datei2dMYfSv3ir/PTKJ.part10.rar.htm

FILEFACTORY
http://www.filefactory.com/file/a1b00f3/n/PTKJ.part01.rar
http://www.filefactory.com/file/a1b00f1/n/PTKJ.part02.rar
http://www.filefactory.com/file/a1b00f7/n/PTKJ.part03.rar
http://www.filefactory.com/file/a1b00f6/n/PTKJ.part04.rar
http://www.filefactory.com/file/a1989h1/n/PTKJ.part05.rar
http://www.filefactory.com/file/a2d3667/n/PTKJ.part06.rar
http://www.filefactory.com/file/a2d7b16/n/PTKJ.part07.rar
http://www.filefactory.com/file/a1b00f5/n/PTKJ.part08.rar
http://www.filefactory.com/file/a15geh5/n/PTKJ.part09.rar
http://www.filefactory.com/file/a2beac5/n/PTKJ.part10.rar

STORAGE
http://www.storage.to/get/MXJkwLm1/PTKJ.part01.rar
http://www.storage.to/get/oW3A4yMa/PTKJ.part02.rar
http://www.storage.to/get/KmXj8WHc/PTKJ.part03.rar
http://www.storage.to/get/MxeewZw1/PTKJ.part04.rar
http://www.storage.to/get/jDuku44f/PTKJ.part05.rar
http://www.storage.to/get/pQ3UNGPb/PTKJ.part06.rar
http://www.storage.to/get/pnVdt2yn/PTKJ.part07.rar
http://www.storage.to/get/TACMiGUu/PTKJ.part08.rar
http://www.storage.to/get/2pOWkC55/PTKJ.part09.rar
http://www.storage.to/get/Ruq3R9qc/PTKJ.part10.rar

CRACK MICROSOFT GENUINES

noreply@blogger.com (Safay) — Wed, 29 Apr 2009 08:44:00 +0000

Windows you want to be original please download the software and follow the tutorial
Download

Dll,Exe,Dat,Drv File Scanner

noreply@blogger.com (Safay) — Mon, 20 Apr 2009 12:20:00 +0000

Description:This code enables you to v
! iew all procedures and
functions what DLL,DAT,EXE,DRV file has. It displays them to your screen and later you can
use this file with Delphi.

procedure GetFunctionNamesFromDLL(DLLName: string; List: TStrings);
type chararr = array[0..$FFFFFF] of char;
var h: THandle;
i, fc: integer;
st: string;
arr: pointer;
ImageDebugInformation: PImageDebugInformation;
begin
List.Clear;
DLLName := ExpandFileName(DLLName);
if not FileExists(DLLName) then Exit;
h := CreateFile(PChar(DLLName), GENERIC_READ, FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
if h = -1 then Exit;
ImageDebugInformation := MapDebugInformation(h, PChar(DLLName), nil, 0);
if ImageDebugInformation = nil then Exit;
arr := ImageDebugInformation^.ExportedNames;
fc := 0;
for i := 0 to ImageDebugInformation^.ExportedNamesSize - 1 do
begin
if chararr(arr^)[i] = #0 then
begin
st := PChar(@chararr(arr^)[fc]);
if length(st) > 0 then List.Add(st);
if (i > 0) and (chararr(arr^)[i - 1] = #0) then Break;
fc := i + 1; end;
end;
UnmapDebugInformation(ImageDebugInformation);
CloseHandle(h);
end;
info planetsourcecode.com

access application version information programmatically.

noreply@blogger.com (Safay) — Sat, 04 Apr 2009 19:06:00 +0000

Name: access application version information programmatically.
Description:This function will read the file version information from your application's executable file. It does this through the Win32 API functions GetFileV ersionInfoSize(), GetFileVersionInfo(),and VerQueryValue(). This can be very useful if you have your IDE set to increment build numbers each time you compile your project, as it can be used to return the current version number. Since I use the version number in a lot of my applications, it's really a pain to have to update a global constant each time the version number changes. This makes it mucheasier. Please note: I found a version of this code in the Borland Delphi 6 help files, and modified it so it would be a function, and return only the file versi on information. Additionally, there were very few comments, so I commented much of the code as well. You can view the original code if you do a search in the help files for "Reading version information

function Application_Version: String;
const
InfoNum = 10;
InfoStr: array[1..InfoNum] of string = ('CompanyName', 'FileDescription', 'FileVersion', 'InternalName', 'LegalCopyright', 'LegalTradeMarks', 'OriginalFileName', 'ProductName', 'ProductVersion', 'Comments');
var
S: string; n, Len, i: DWORD;
Buf: PChar; Value: PChar;
begin
S := Application.ExeName; //this application's EXE filename
n := GetFileVersionInfoSize(PChar(S), n); // the return value is the size in bytes of the file's version information.
Result := ''; (* this sets a default result in case a file version isn't found.
I add this to functions because the compiler will bug you that
the result may not be defined otherwise. you could change this,
or remove it alltogether, although it's probably best to leave it. *)
if n > 0 then begin
Buf := AllocMem(n); // allocate the needed amount of memory into the buffer
GetFileVersionInfo(PChar(S), 0, n, Buf); // store the file version information in the memory buffer. it stores all of the values listed in the InfoStr array.
for i := 1 to InfoNum do
if VerQueryValue(Buf, PChar('StringFileInfo\040904E4\' + InfoStr[i]), Pointer(Value), Len) then
if trim(lowerCase(InfoStr[i])) = 'fileversion' then Result := Value;// loop through each value until we find the "FileVersion" information.
FreeMem(Buf, n); // free the memory we stored in the buffer.
end;
end;
info planetsourcecode.com

Automated e-mail

noreply@blogger.com (Safay) — Sat, 04 Apr 2009 19:03:00 +0000

Set objMail = CreateObject("CDONTS.Newmail")
objMail.From = "techsupport@xyz.com"
objMail.To = "mary@aol.com"
objMail.Subject = "Welcome"
objMail.Body = "You have been added to our automated tech support system. Thank you."
objMail.Send
Set objMail = Nothing

Displays the time that has been played

noreply@blogger.com (Safay) — Sat, 04 Apr 2009 18:50:00 +0000

Private Sub Timer1_Timer()
Min = MediaPlayer1.CurrentPosition \ 60
Sec = MediaPlayer1.CurrentPosition - (Min * 60)
If Min > 0 Or Sec > 0 Then
lblElapsedTime = "Elapsed Time: " & Format(Min, "0#") _
& ":" & Format(Sec, "0#")
Else
lblElapsedTime = "Elapsed Time: 00:00"
End If
End Sub

A search or find using optional parameters

noreply@blogger.com (Safay) — Thu, 02 Apr 2009 21:23:00 +0000

Name: A search or find using optional parameters

Description:This stored procedure demonstrates how to create a search that accepts multiple optional parameters. Only parameters that are provided with values will be used to filter the results. This is useful for dynamic searches when the user selects or provides values for one or more fields to be searched, but not all of the fields are required.

CREATE PROCEDURE usp_FindAuthor

/* ALL parameters are optional */
@LastName varchar(200) = NULL,
@FirstName varchar(200) = NULL,
@ZipCode varchar(200) = NULL,
@Contract varchar(200) = NULL
AS
IF @LastName IS NULL

BEGIN
/* IF the parameter IS null, THEN this statement will
cause the SELECT TO NOT filter BY last name. */
SET @LastName = '%'
END

ELSE

BEGIN
/* Since we want TO search FOR this last name, ADD the
wildcard TO require the SELECT to RETURN ALL
last names that BEGIN WITH this value. */
SET @LastName = @LastName + '%'
END

IF @FirstName IS NULL

BEGIN
/* IF the parameter IS null, THEN this statement will
cause the SELECT TO NOT filter BY first name. */
SET @FirstName = '%'
END

info http://planetsourcecode.com
ELSE

BEGIN
/* Since we want TO search FOR this last name, ADD the
wildcard TO require the SELECT to RETURN ALL
first names that BEGIN WITH this value. */
SET @FirstName = @FirstName + '%'
END

IF @ZipCode IS NULL

BEGIN
/* IF the parameter IS null, THEN this statement will
cause the SELECT TO NOT filter BY zip code. */
SET @ZipCode = '%'
END

ELSE

BEGIN
/* Since we want TO search FOR this zip code, ADD the
wildcard TO require the SELECT to RETURN ALL
zip codes that BEGIN WITH this value. */
SET @ZipCode = @ZipCode + '%'
END

IF @Contract IS NULL

BEGIN
/* IF the parameter IS null, THEN this statement will
cause the SELECT TO NOT filter BY contract. */
SET @Contract = '%'
END

/* Since we want TO search FOR contracted authors AND
this is a bit field, do NOT ADD the wildcard.
The same IS true FOR numeric fields AND dates. */
SELECT
au_id,
au_lname,
au_fname,
phone,
address,
city,
state,
zip,
contract
FROM
pubs..authors WITH (NOLOCK)
WHERE
au_lname LIKE @LastName
AND
au_fname LIKE @FirstName
AND
zip LIKE @ZipCode
AND
contract LIKE @Contract

Code to get the last day of the given month

noreply@blogger.com (Safay) — Thu, 02 Apr 2009 21:08:00 +0000

-- Name: Code to get the last day of the
--      given month!
-- Description:To get the last day of th
--     e given month!
-- By: Narayana Vyas Kondreddi
--
-- Assumes:I'm using GETDATE() in my que
--     ry to get the current date. If you want
--     to use the SQL statement against another
--      date, please replace GETDATE() with tha
--     t date.
--
--This code is copyrighted and has-- limited warranties.Please see http://
--     www.Planet-Source-Code.com/vb/scripts/Sh
--     owCode.asp?txtCodeId=312&lngWId=5--for details.

Calculate Age

noreply@blogger.com (Safay) — Thu, 02 Apr 2009 19:58:00 +0000

-- Name: Calculate Age
-- Description:How to calculate AGE in y
-- ears. (note: The DATEDIFF function in MS
-- SQL Server gives the distance between y
-- ear boundaries & as such cannot be used
-- to calculate the age.)
-- By: Umachandar

DECLARE @birthday datetime, @d datetime
SELECT @birthday = '12/31/1998', @d = '1/1/99'
SELECT datediff(yy, @birthday, @d) -
(case WHEN (datepart(m, @birthday) > datepart(m, @d)) OR
(datepart(m, @birthday) = datepart(m, @d) AND
datepart(d, @birthday) > datepart(d, @d))
THEN 1
ELSE 0

end) AS Age1
-- Just for completion, another way to d
-- o the same
SELECT year ( dateadd( dd, datediff ( dd , @birthday , @d ) ,
'1900-01-01 00:00' ) ) - 1900
-- To find out if a year is leap year or
-- not, use
IF ( year ( @d ) % 400 = 0 ) Or
( year( @d ) % 4 = 0 AND year ( @d ) % 100 <> 0 )
PRINT 'Leap Year - 366 days'
else
PRINT 'Not a leap year - 365.25 days'

Info http://planetsourcecode.com

Leaving the Mouse Pointer in the middle of the control

noreply@blogger.com (Safay) — Tue, 31 Mar 2009 12:40:00 +0000

#If Win32 Then
Type RECT
left As Long
top As Long
right As Long
bottom As Long
End Type
Declare Sub GetWindowRect Lib "User32" (ByVal hWnd As _
Long, lpRect As RECT)
Declare Sub SetCursorPos Lib "User32" (ByVal X As _
Long, ByVal Y As Long)
#Else
Type RECT
left As Integer
top As Integer
right As Integer
bottom As Integer
End Type

Declare Sub GetWindowRect Lib "User" (ByVal hWnd _
As Integer, lpRect As RECT)
Declare Sub SetCursorPos Lib "User" (ByVal X As _
Integer, ByVal Y As Integer)
#End If

Emphasis to detect the Enter key.

noreply@blogger.com (Safay) — Tue, 31 Mar 2009 12:39:00 +0000

Private Sub Combo1_KeyPress(KeyAscii As Integer)

If KeyAscii = vbKeyReturn Then
WebBrowser1.Navigate (Combo1.Text)
End If

End Sub

Change the style Checkbox or Option Button at runtime

noreply@blogger.com (Safay) — Tue, 31 Mar 2009 12:32:00 +0000

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long, ByVal newValue As Long) As Long

Const GWL_STYLE = (-16)
Const BS_PUSHLIKE = &H1000&

Sub SetButtonStyle(Ctrl As Control, ByVal Graphical As Boolean)
If Graphical Then
SetWindowLong Ctrl.hWnd, GWL_STYLE, GetWindowLong(Ctrl.hWnd, _
GWL_STYLE) Or BS_PUSHLIKE
Else
SetWindowLong Ctrl.hWnd, GWL_STYLE, GetWindowLong(Ctrl.hWnd, _
GWL_STYLE) And Not BS_PUSHLIKE
End If
Ctrl.Refresh
End Sub

Visual Basic : Sending parameters using Winsock.

noreply@blogger.com (Safay) — Mon, 30 Mar 2009 03:23:00 +0000

Private Sub Winsock1_Connect()
Dim strData As String
Dim szData As String

szData = "email=" & Text1.Text & "&name=" & Text2.Text
strData = "POST /daftar.asp HTTP/1.0" & vbCrLf
strData = strData & "Accept: text/plain" & vbCrLf
strData = strData & "Content-type: application/x-www-form-urlencoded" & vbCrLf
strData = strData & "Content-length:" & Str$(Len(szData)) & vbCrLf
strData = strData & vbCrLf
strData = strData & szData & vbCrLf & vbCrLf

Winsock1.SendData strData
End Sub

visual Basic : Search for files cookies

noreply@blogger.com (Safay) — Mon, 30 Mar 2009 03:09:00 +0000

'Module1.bas:
Option Explicit

Public Const ERROR_CACHE_FIND_FAIL As Long = 0
Public Const ERROR_INSUFFICIENT_BUFFER As Long = 122

Public Const LMEM_FIXED As Long = &H0

Public Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type

Public Type INTERNET_CACHE_ENTRY_INFO
dwStructSize As Long
lpszSourceUrlName As Long
lpszLocalFileName As Long
CacheEntryType As Long
dwUseCount As Long
dwHitRate As Long
dwSizeLow As Long
dwSizeHigh As Long
LastModifiedTime As FILETIME
ExpireTime As FILETIME
LastAccessTime As FILETIME
LastSyncTime As FILETIME
lpHeaderInfo As Long
dwHeaderInfoSize As Long
lpszFileExtension As Long
dwExemptDelta As Long
End Type

Public Declare Function FindFirstUrlCacheEntry Lib "Wininet.dll" _
Alias "FindFirstUrlCacheEntryA" _
(ByVal lpszUrlSearchPattern As String, _
lpFirstCacheEntryInfo As Any, _
lpdwFirstCacheEntryInfoBufferSize As Long) As Long

Public Declare Function FindNextUrlCacheEntry Lib "Wininet.dll" _
Alias "FindNextUrlCacheEntryA" _
(ByVal hEnumHandle As Long, _
lpNextCacheEntryInfo As Any, _
lpdwNextCacheEntryInfoBufferSize As Long) As Long

Public Declare Function FindCloseUrlCache Lib "Wininet.dll" _
(ByVal hEnumHandle As Long) As Long

Public Declare Sub CopyMemory Lib "kernel32" _
Alias "RtlMoveMemory" _
(pDest As Any, _
pSource As Any, _
ByVal dwLength As Long)

Public Declare Function lstrcpyA Lib "kernel32" _
(ByVal RetVal As String, ByVal Ptr As Long) As Long

Public Declare Function lstrlenA Lib "kernel32" _
(ByVal Ptr As Any) As Long

Public Declare Function LocalAlloc Lib "kernel32" _
(ByVal uFlags As Long, _
ByVal uBytes As Long) As Long

Public Declare Function LocalFree Lib "kernel32" _
(ByVal hMem As Long) As Long

'Di Form1:
Private Function GetStrFromPtrA(ByVal lpszA As Long) As String

GetStrFromPtrA = String$(lstrlenA(ByVal lpszA), 0)
Call lstrcpyA(ByVal GetStrFromPtrA, ByVal lpszA)

End Function

Private Function GetCacheURLList(cacheType As Long) As Long

Dim ICEI As INTERNET_CACHE_ENTRY_INFO
Dim l_hFile As Long
Dim sCacheFile As String
Dim l_nCount As Long
Dim l_dwBuffer As Long 'variables to accommodate the buffer
Dim l_pntrICE As Long 'variable to hold pointer memory

'set buffer ke 0
l_dwBuffer = 0

'do the test with the first file cache buffer = 0.
l_hFile = FindFirstUrlCacheEntry(vbNullString, ByVal 0, l_dwBuffer)

'if the above fails, the API will send the error ERROR_INSUFFICIENT_BUFFER.
Take the value as a benchmark.
If (l_hFile = ERROR_CACHE_FIND_FAIL) And _
(Err.LastDllError = ERROR_INSUFFICIENT_BUFFER) Then

'alokasikan buffer value obtained
l_pntrICE = LocalAlloc(LMEM_FIXED, l_dwBuffer)

If l_pntrICE Then

'set pointer to a memory location
CopyMemory ByVal l_pntrICE, l_dwBuffer, 4

'do a search first cache files again with the buffer and the pointer that is filled. If successful then the value l_hfile = 1
l_hFile = FindFirstUrlCacheEntry(vbNullString, ByVal l_pntrICE, l_dwBuffer)

If l_hFile <> ERROR_CACHE_FIND_FAIL Then

'successful search. Do looping for cache obtained.
Do

CopyMemory ICEI, ByVal l_pntrICE, Len(ICEI)

If (ICEI.CacheEntryType And cacheType) Then

'extract string from memory and displayed in the list box
sCacheFile = GetStrFromPtrA(ICEI.lpszSourceUrlName)
List1.AddItem sCacheFile
l_nCount = l_nCount + 1

End If

'clear pointer and the memory
Call LocalFree(l_pntrICE)

'do a search following the cache file. The first set of buffer value to 0. API will send ERROR_INSUFFICIENT_BUFFER, take the value as a benchmark.
l_dwBuffer = 0
Call FindNextUrlCacheEntry(l_hFile, ByVal 0, l_dwBuffer)

' alokasikan buffer obtained
l_pntrICE = LocalAlloc(LMEM_FIXED, l_dwBuffer)
CopyMemory ByVal l_pntrICE, l_dwBuffer, 4

'do looping until the last file cache.
Loop While FindNextUrlCacheEntry(l_hFile, ByVal l_pntrICE, l_dwBuffer)

End If 'l_hFile

End If 'l_pntrICE

End If 'l_hFile

'clear memory
Call LocalFree(l_pntrICE)
Call FindCloseUrlCache(l_hFile)

GetCacheURLList = l_nCount

End Function

Private Sub Command1_Click()

Dim l_numEntries As Long
Dim l_CacheType As Long

l_CacheType = &H100000
l_numEntries = GetCacheURLList(l_CacheType)

List1.Visible = True
End Sub

Does not permit a user to visit a particular site

noreply@blogger.com (Safay) — Mon, 30 Mar 2009 03:04:00 +0000

Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, _
URL As Variant, Flags As Variant, TargetFrameName As Variant, _
PostData As Variant, Headers As Variant, Cancel As Boolean)

If InStr(1, URL, "playboy.com") Then
Cancel = True
MsgBox "Sorry, that site is restricted!"
End If

End Sub

String Functions

noreply@blogger.com (Safay) — Sat, 28 Mar 2009 23:45:00 +0000

Name: _ String Functions _
Description:Includes many common useful string functions.
Reverse string, Remove extra spaces, Delimit string, Alterna
ting caps, Proper case, and Count number
of occurances of a string in a string. V
ote if you like it!
Info By Planet-Source-Code.com

Public Function ReverseString(TheString As String) As String

ReverseString = ""


For i = 0 To Len(TheString) - 1
 ReverseString = ReverseString & Mid(TheString, Len(TheString) - i, 1)
Next i

End Function



Public Function RemoveExtraSpaces(TheString As String) As String

Dim LastChar As String
Dim NextChar As String
LastChar = Left(TheString, 1)
RemoveExtraSpaces = LastChar


For i = 2 To Len(TheString)
NextChar = Mid(TheString, i, 1)



If NextChar = " " And LastChar = " " Then
Else
 RemoveExtraSpaces = RemoveExtraSpaces &
    '     NextChar

End If

LastChar = NextChar
Next i

End Function



Public Function DelimitString(TheString As String,
Delimiter As String) As String

DelimitString = ""


For i = 1 To Len(TheString)


 If i <> Len(TheString) Then
     DelimitString = DelimitString & Mid(TheString, i, 1) & Delimiter
 Else
     DelimitString = DelimitString & Mid(TheString, i, 1)
 End If

Next i

End Function



Public Function AltCaps(TheString As String, Optional
StartWithFirstCharacter As Boolean = True) As String

Dim LastCap As Boolean
AltCaps = ""
If StartWithFirstCharacter = False Then LastCap = True


For i = 1 To Len(TheString)


 If LastCap = False Then
     AltCaps = AltCaps & UCase(Mid(TheString, i, 1))
     LastCap = True
 Else
     AltCaps = AltCaps & LCase(Mid(TheString, i, 1))
     LastCap = False
 End If

Next i

End Function



Public Function Propercase(TheString As String) As String

Propercase = UCase(Left(TheString, 1))


For i = 2 To Len(TheString)


 If Mid(TheString, i - 1, 1) = " " Then
     Propercase = Propercase & UCase(Mid(TheString, i, 1))
 Else
     Propercase = Propercase & LCase(Mid(TheString, i, 1))
 End If

Next i

End Function



Public Function CountCharacters(TheString As String,
CharactersToCheckFor As String) As Integer

Dim Char As String
Dim ReturnAgain As Boolean
CountCharacters = 0


For i = 1 To Len(TheString)


 If i < (Len(TheString) + 1 - Len(CharactersToCheckFor)) Then
     Char = Mid(TheString, i, Len(CharactersToCheckFor))
     ReturnAgain = True
 Else
     Char = Mid(TheString, i)
     ReturnAgain = False
 End If

 If Char = CharactersToCheckFor Then CountCharacters = CountCharacters + 1
 If ReturnAgain = False Then Goto NextPos
Next i

NextPos:

End Function

A Working Search Engine

noreply@blogger.com (Safay) — Sat, 28 Mar 2009 23:38:00 +0000

Write something in a text box and it will tell you If the item exists!!! Try It, And Vote It.
You must create 1 text box 1 button 1 list box
Description:A working search engine for text boxes, TESTED!

Private Sub Command1_Click()

List1.ListIndex = 0

For i = 0 To List1.ListCount - 1

If List1 = Text1.Text Then
MsgBox "Found"
Exit Sub
Else

If List1.ListIndex = List1.ListCount - 1 Then
MsgBox "Not Found"
Exit Sub
Else
List1.ListIndex = List1.ListIndex + 1
End If

End If

Next i

End Sub

Private Sub Form_Load()

MsgBox "Vote If You Like"
List1.AddItem "nironsoft"
List1.AddItem "volen"
List1.AddItem "notbad?"
List1.AddItem "volencho"
List1.AddItem "NironSoft"
List1.AddItem "Cool"
List1.AddItem "searchengine"
List1.AddItem "search"
List1.AddItem "tape something"
List1.AddItem "awesome"
List1.AddItem "yeah"
End Sub

info : planetsourcecode.com

Line crossing test

noreply@blogger.com (Safay) — Fri, 27 Mar 2009 21:49:00 +0000

! Name: line crossing test
! Description:quickly work out if 2 lines cross given their end point coordinates. Also calculate the intersection point
Returns:boolean (whether they cross or not) coordinate of crossing point

type
TPointFLoat = record
X : Real;
Y : Real;
end;

// determine if 2 line cross given their end-points
function LinesCross(LineAP1, LineAP2, LineBP1, LineBP2 : TPoint) : boolean;
Var
diffLA, diffLB : TPoint;
CompareA, CompareB : integer;
begin
Result := False;
diffLA := Subtract(LineAP2, LineAP1);
diffLB := Subtract(LineBP2, LineBP1);
CompareA := diffLA.X*LineAP1.Y - diffLA.Y*LineAP1.X;
CompareB := diffLB.X*LineBP1.Y - diffLB.Y*LineBP1.X;
if ( ((diffLA.X*LineBP1.Y - diffLA.Y*LineBP1.X) < CompareA) xor
((diffLA.X*LineBP2.Y - diffLA.Y*LineBP2.X) < CompareA) ) and
( ((diffLB.X*LineAP1.Y - diffLB.Y*LineAP1.X) < CompareB) xor
((diffLB.X*LineAP2.Y - diffLB.Y*LineAP2.X) < CompareB) ) then
Result := True;
end;
// return intersection point of 2 lines
function LineIntersect(LineAP1, LineAP2, LineBP1, LineBP2 : TPoint) : TPointFloat;
Var
LDetLineA, LDetLineB, LDetDivInv : Real;
LDiffLA, LDiffLB : TPoint;
begin
LDetLineA := LineAP1.X*LineAP2.Y - LineAP1.Y*LineAP2.X;
LDetLineB := LineBP1.X*LineBP2.Y - LineBP1.Y*LineBP2.X;
LDiffLA := Subtract(LineAP1, LineAP2);
LDiffLB := Subtract(LineBP1, LineBP2);
LDetDivInv := 1 / ((LDiffLA.X*LDiffLB.Y) - (LDiffLA.Y*LDiffLB.X));
Result.X := ((LDetLineA*LDiffLB.X) - (LDiffLA.X*LDetLineB)) * LDetDivInv;
Result.Y := ((LDetLineA*LDiffLB.Y) - (LDiffLA.Y*LDetLineB)) * LDetDivInv;
end;
// subtract 1 vector from another
function Subtract(AVec1, AVec2 : TPoint) : TPoint;
begin
Result.X := AVec1.X - AVec2.X;
Result.Y := AVec1.Y - AVec2.Y;
end;

Info : planetsourcecode.com

Video Bitrate Calculator

noreply@blogger.com (Safay) — Fri, 27 Mar 2009 21:03:00 +0000

This program was designed to be used as a Video Bitrate Calculator for determining the maximum quality possible based on the file size required, the audio quality and the length of the video/movie.

Description:This program was designed to be used as a Video Bitrate Calculator for determining the maximum quality possible based on the file size required, the audio quality and the length of the video/movie.

download sorce code here --> Download

info : planetsourcecode.com

can share pictures of money

noreply@blogger.com (Safay) — Fri, 27 Mar 2009 20:15:00 +0000

It is not a secret anymore that the internet we can keep the various documents in the case of one of them is save the images from our own results catapult. By saving diinternet we can continue memajang photos through Pertemanan site (social networking) without having to upload again, we easily copy the code. One of the photo storage site that is free shareapic.net. Shareapic is a free online photo and image hosting and sharing service that allows users to upload their favorite Shareapic to the server. The answer is, Shareapic not only free, but also pay money for photo sharing.

Free image hosting / photo can also get a unique revenue sharing / shareing model that compensates users pay and direct them to friends, family members, friends, visitors to your site or blog to see Shareapic. Users can also host a gallery can be displayed to visitors to earn money when visitors see the gallery. However, income is only obtained when a unique user clicking on each day and see the photos.

Shareapic of other advantages are as follows:

1. Upload unlimited images with no space restrictions.
2. There is no limit on file size.
3. Create unlimited galleries.
4. Pay (up to) $ 0.22 per 1000 pic views, although it's likely that the amount of
payment will be much less of this quota.
5. Bidvertiser can add code to your own photo gallery and articles.
6. Pay out within 7 days via PayPal when your account balance is over $ 20.00.7. One click posting to or embed Myspace, Blogger, Xanga, Hi5, and more.
for registration, you can here

Alternative to the TRACE macro

noreply@blogger.com (Safay) — Mon, 23 Mar 2009 20:31:00 +0000

Description:If you create the following pre processor macro and then use this in place of a TRACE then the output is such that if you

double click on the line in the output window it takes you to the line of
code where the INFO statement is. It is great for navigating code quickly
while debugging.

#ifdef _DEBUG
#define INFO ::AfxTrace("%s(%i): ",__FILE__,__LINE__); ::AfxTrace
#else
#define INFO ((void)0)
#endif

info :planetsourcecode.com

Columna search and replace

noreply@blogger.com (Safay) — Mon, 23 Mar 2009 20:19:00 +0000

DESCRIPTION: Columna search and replace

Sub ColReplace ()
'If no text selected, exit
if ActiveDocument.Selection = "" Then Exit Sub
strTitle = "Columna Search-and-Replace"
y2 = ActiveDocument.Selection.CurrentLin
x2 = ActiveDocument.Selection.CurrentColumn
y1 = ActiveDocument.Selection.TopLine
x1 = Int( x2 - Instrb(ActiveDocument.Selection, vbCR)/2 + .5)
strFind = Input( "Enter word to search for", strTitle )
if strFind = "" Then Exit Sub
strReplace = InputBox("Replace with what word?", strTitle )
ActiveDocument.Selection.EndOfLin
ActiveDocument.Selection = ActiveDocument.Selection + stfFind
do while y1 <= y2 ActiveDocument.Selection.GoToLine y1 ActiveDocument.Selection.StartOfLine do while ActiveDocument.Selection.CurrentColumn < x1 ActiveDocument.Selection.CharRight dfMove, 1 Loop do while ActiveDocument.Selection.CurrentColumn < x2 ActiveDocument.Selection.CharRight dsExtend, 1 Loop ActiveDocument.Selection.ReplaceText strFind, strReplace y1 = y1 + 1 Loop ActiveDocument.Selection.EndOfLine for i = 1 To Len( strFind ) ActiveDocument.Selection.BackSpace Next End Sub

Info : planetsourcecode.com

Koneksi Visual Basic 6 Ke MySQL

noreply@blogger.com (Safay) — Mon, 23 Mar 2009 19:54:00 +0000

This article will only discuss about how the Visual Basic 6 application can communicate with MySQL database.
Create a new procedure in the MDI form, or in your Module and make sure that the Module, the procedure is Public, so you can be called from your main form. Give the name of the procedure that represents a connection with you. For example, make the connection.
I create the procedure is as follows:

Private Sub buat_koneksi()
Dim ConnString As String
Dim db_name As String
Dim db_server As String
Dim db_port As String
Dim db_user As String
Dim db_pass As String
'//error traping
On Error GoTo buat_koneksi_Error
'/isi variable
db_name = "databaseku"
db_server = "localhost" 'change if you have a server in another computer
db_port = "3306"    'default port is 3306
db_user = "root"    'should use another username.
db_pass = "your password"
'/create a connection string
ConnString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER="
& db_server & ";DATABASE=" & db_name & ";UID=" & db_user & ";PWD=" &
db_pass &";PORT=" & db_port & ";OPTION=3"
'/open connection
With Conn
.ConnectionString = ConnString
.Open
End With
'___________________________________________________________
On Error GoTo 0
Exit Sub

buat_koneksi_Error:
MsgBox "There was an error with the server, check whether the server
isalready running !", vbInformation, "Cek Server"
End Sub

To call the procedure, simply call in your main form (or a form where
you want to start a connection you) by typing

call buka_koneksi

And do not forget to make the first object conn conn variable and usually is made so
that the Public can be called anywhere. Biasaya I create disuatu Module is a
collection of its variable Public. Declare a variable with write:

Public Conn                 As New ADODB.Connection

And as usual, when you close the application, you must first close the
connection to your MySQL. Usually this procedure close connection I put
in the block MDIForm_Unload.

If Conn.State = adStateOpen Or Conn.State = adStateConnecting Then
Conn.Close
Set Conn = Nothing
End If

that in making the first part of the Visual Basic 6 applications and MySQL, for next we will discuss about how to open a table-a table in MySQL

info : www.edisusanto.com