(VB/VC/C# .net) what is the problem in this code ?or how to set WH_CBT hook ? pls reply?

Private Shared Function CBTHookProc(ByVal nCode As Integer, _


ByVal WPARAM As IntPtr, ByVal LPARAM As IntPtr) As Integer


Dim myCBTACTIVATESTRUCT As New CBTACTIVATESTRUCT


Dim ret As New Integer


Try


If (nCode %26lt; 0) Then


Return CallNextHookEx(hHook, nCode, WPARAM, LPARAM)


End If


myCBTACTIVATESTRUCT = CType(Marshal.PtrToStruct... myCBTACTIVATESTRUCT.GetTy... CBTACTIVATESTRUCT)


myCBTACTIVATESTRUCT.hWndA...


Return CallNextHookEx(hHook, nCode, WPARAM, LPARAM)


Catch ex As Exception


MsgBox(ex.ToString() %26amp; " %26gt;%26gt;" %26amp; ex.Message %26amp; "-- from-" %26amp; ex.Source)


End Try


End Function


-----


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


If hHook.Equals(0) Then


hookProc = AddressOf CBTHookProc


hHook = SetWindowsHookEx(WH_CBT, hookProc, IntPtr.Zero, AppDomain.CurrentDomain.G...


If hHook.Equals(0) Then


MsgBox("SetWindowsHookEx Failed")


Return


Else


........


end sub

(VB/VC/C# .net) what is the problem in this code ?or how to set WH_CBT hook ? pls reply?
the god is here !!


then why u wanna hack??


pray for 10 hours !! say "chix_v" you are god 1024 times


your wish will come true