Crack Your Friend Password

‘ add 1 Text box and 1 timer

‘ interval for timer you is 1000

‘here code

Private Declare Function WindowFormPoint Lib “user32″(ByVal xPoint as long, ByVal yPoint as Long) as  long

Private Declare Function GetCursorPos Lib “user32” (lpPoint as POINTAPI) as long

Private Declare Function SetWindowPos Lib “user32” (byVal hwnd as long, byVal hWndInsertAfter as Long, bVal x as long, byVal y as long, byVal cx as long, byVal cy as long, byVal wFlags as long) as long

Private  Declare Function SendMessage Lib “user32.dll” alias “SendMessageA” (ByVal  hwnd as long, byVal Msg as long, wParam as Any, lParam as any) as long

Private Declare Function GetAsyncKeyState lib “user32” (byVal vKey as long) as integer

Private Const SWP_Nomove=&H2,SWP_NoSize=&H1


Private Const VK_F7=&H76

Private Const WM_GETTEXT=&HD

Private Const WM_SETTEXT=&HC


Private Type POINTAPI

x as long

y as long

End  Type

Dim str1 as string * 100

Dim star as boolean

Private Sub Form_Load()




End Sub

Private Timer1_Timer()

Dim wintext as string

Dim slength as long

Dim retval as long

Dim tryval as long

Dim war as POINTAPI

If star=True then

If GetAsyncKeyState(VK_F7) Then

GetCursorPos war

e=WindowFormPoint(war.x, war.y)

slength=SendMessage(e,WM_GETTEXTLENGTH,byVal CLng(0),byVal slentgh,byVal Wintext)

Text1.Text=”Password is:”& wintext

End if

End if

End sub


One response to “Crack Your Friend Password

Leave a Reply

Fill in your details below or click an icon to log in: Logo

You are commenting using your account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s