|
You can record sound by using Windows API
Microsoft provides an API mciSendString to recording sound
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer
Thanks
ANubhava Dimri
mailto: anubhava.prodata@gmail.com
|
|
|
|
|
I don't want to record voice through microphone but I want to record song that is being played by wmp in my program.
Thanks.
Gagan
|
|
|
|
|
Hey,
I got the following code for a Mouse Hook
(http:
Imports System.Runtime.InteropServices
Imports System.Reflection
Imports System.Drawing
Imports System.Threading
Imports TestMouseHook
Public Class Class1
Private f As New Form1()
Public Structure POINTAPI
Public x As Long
Public y As Long
End Structure
Public Structure MSLLHOOKSTRUCT
Public pt As POINTAPI
Public MouseData As Long
Public Flags As Long
Public Time As Long
Public dwExtraInfo As Long
End Structure
Constants
Public Const WM_RBUTTONDOWN = H204
Public Const WM_RBUTTONUP = H205
Private Const WH_MOUSE_LL = 14 Hook Flag
Private Const HC_ACTION = 0
Public mHandle As Integer
Public Declare Function UnhookWindowsHookEx Lib "user32" _
(ByVal hHook As Integer) As Integer
Public Declare Function SetWindowsHookEx Lib "user32" _
Alias "SetWindowsHookExA" (ByVal idHook As Integer, _
ByVal lpfn As MouseHookDelegate, ByVal hmod As Integer, _
ByVal dwThreadId As Integer) As Integer
Private Declare Function GetAsyncKeyState Lib "user32" _
(ByVal vKey As Integer) As Integer
Private Declare Function CallNextHookEx Lib "user32" _
(ByVal hHook As Integer, _
ByVal nCode As Integer, _
ByVal wParam As Integer, _
ByVal lParam As MSLLHOOKSTRUCT) As Integer
Public Function MouseCallback(ByVal Code As Integer, _
ByVal wParam As Integer, _
ByRef lParam As MSLLHOOKSTRUCT) As Integer
If (Code = HC_ACTION) Then
Debug.WriteLine(wParam.ToString())
Select Case wParam
Case WM_RBUTTONDOWN, WM_RBUTTONUP
Debug.WriteLine(wParam.ToString())
Return 1
End Select
End If
Return CallNextHookEx(mHandle, _
Code, wParam, lParam)
End Function
Public Delegate Function MouseHookDelegate( _
ByVal Code As Integer, _
ByVal wParam As Integer, ByRef lParam As MSLLHOOKSTRUCT) _
As Integer
<marshalas(unmanagedtype.functionptr)> _
Private callback As MouseHookDelegate
Public Sub HookMouse(ByRef ff As Form)
f = ff
callback = New MouseHookDelegate(AddressOf MouseCallback)
mHandle = SetWindowsHookEx( _
WH_MOUSE_LL, callback, _
Marshal.GetHINSTANCE( _
Assembly.GetExecutingAssembly.GetModules()(0)).ToInt32, 0)
End Sub
Public Sub UnHookMouse()
Call UnhookWindowsHookEx(mHandle)
End Sub
End Class
I created a Class called Class1, just as in the example.
When I execute the following code the hook is actually set, but when I click outside my application the click isn't registered.
Dim MouseHook as New Class1
MouseHook.HookMouse(Me)
I think that this is happening because there is no event for an "outside application click". Now my question is: How can I make an event that is fired when the mouse is clicked outside my application using the functions declared in the class? I never "made" an event before, if it's even possible
I was hoping you guys could help me out
All help is appreciated,
--Zaegra--
|
|
|
|
|
Hi All,
i want to know that how can i create video of system activities.
Like : Keylogger capture keys which you are typed same i want to capture video which i am working in system.
Pls help it is needful.Thanks
Best Regard
Anubhava Dimri
mailto: anubhava.prodata@gmail.com
|
|
|
|
|
Well, you build a Windows-service, and depending on the resources you create a streaming video or you take some simple screenshots.
There are multiple samples here and on Google on creating Services and on capturing the desktop as an image.
Good luck \o/
I are troll
|
|
|
|
|
It's very unlikely you're going to get much help with a project like this. Writing a keylogger has serious security issues attached to it and there's just about no legitimate uses for such an app.
|
|
|
|
|
The other day I read Windows Movie Maker was just fine for this (screen shots+audio).
|
|
|
|
|
Hi,
Please help me for creating video by using picture.
Best Regard
Anubhava Dimri
mailto: anubhava.prodata@gmail.com
|
|
|
|
|
You can use the System.Drawing namespace for your screenshots
some sample code is available here[^], or you can go to here[^] for a broader search to begin.
As for the keylogger, no I won't really help you out on that one.
|
|
|
|
|
Hi,
How many time intervel is sufficent for getting screenshot for creating video. and How to create video by using screenshot.
Best Regard
Anubhava Dimri
mailto: anubhava.prodata@gmail.com
|
|
|
|
|
eg_Anubhava wrote: How many time intervel is sufficent for getting screenshot for creating video.
Minimal 48 frames/second, anything else is unacceptable!
eg_Anubhava wrote: and How to create video by using screenshot.
You show the pictures reeelly fast, one after another
I are troll
|
|
|
|
|
Did you mean something like this[^]? If not, check out this[^].
|
|
|
|
|
Is Windows Media Encoder is necessery for this application.
mailto: anubhava.prodata@gmail.com
|
|
|
|
|
I don't know, I would check by doing some research[^]
|
|
|
|
|
Hi Friends,
How to assign shortcut keys for toolbar buttons? I have tried using "&" in button text,this works in normal button but not in toolbar buttons.Please guide me.
Note: using windows Application
Thanks in advance...
|
|
|
|
|
|
Thanks for your reply,
but, i am not setting shortcut keys for vs.net...
I need to add shortcut keys for my own application
|
|
|
|
|
There is no shortcut for ToolBarButtons. Normally you would create a corresponding MenuItem and set the Shortcut property of that. If you haven't created a MainMenu then you would have to set the KeyPreview property of the form to True and handle the KeyDown event, testing for whatever key combination you wanted to use as the shortcut key. Then you could call the same method that you would call from the ToolBar.ButtonClick event handler when that particular button is clicked.
[source: jmcilhinney at vbforums.com]
|
|
|
|
|
If you do not want a menu you can also look at Hotkey
Private Declare Function RegisterHotKey Lib "user32" (ByVal hwnd As IntPtr, ByVal id As Integer, ByVal fsModifiers As Integer, ByVal vk As Integer) As Integer
Private Declare Function UnregisterHotKey Lib "user32" (ByVal hwnd As IntPtr, ByVal id As Integer) As Integer
Private Declare Function GlobalAddAtom Lib "kernel32" Alias "GlobalAddAtomA" (ByVal lpString As String) As Short
Private Declare Function GlobalDeleteAtom Lib "kernel32" (ByVal nAtom As Short) As Short
there is on CP a very good in VB.net example
Jan
|
|
|
|
|
|
|
Thanks a lot Friend.
I tried using Mainmenu, its working fine.
|
|
|
|
|
Hi
My code displays the error in top
cmd = New SqlCommand("spStudent", con1)
cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.Add(New SqlParameter("@EnterDate", SqlDbType.DateTime, 8))
cmd.Parameters("@EnterDate").Value = "01/09/2009"
cmd.CommandTimeout = 1800
cmd.ExecuteNonQuery()
Sda = New SqlDataAdapter(cmd)
Sda.Fill(dt)
How to resolve this problem... please help
Regards,
Samson
modified on Friday, January 9, 2009 5:35 AM
|
|
|
|
|
Try:
cmd.Parameters("@EnterDate").Value = New Date(1, 9, 2009)
|
|
|
|
|
cmd.Parameters("@EnterDate").Value = New Date(1, 9, 2009)
This one is Date(year, month, Date) Format.
But my Format is MM/dd/yyyy.... Please help further
With Regards,
Samson
|
|
|
|