|
I'm a newbie so maybe this is a daft question but why do you need to? If you just put
Imports Microsoft.Win32
at the top of your class, does that do the trick?
|
|
|
|
|
How to get the target path of shortcut files(.lnk)?
|
|
|
|
|
I'm trying to read text and maybe pixels from a windows application. The application has list boxes and a text box. I tried an example i found using WM_GETTEXT, which works for some applications like Notepad (textbox Edit), and the windows calculator, but when I probed for the class name of the progam i'm trying to read from, it says #32770, and the same WM_GETTEXT trick doesn't work.
Does anyone have advice for what I should try?
|
|
|
|
|
I used spy++ to find out that the text I want is sent through messages like this:
EM_REPLACESEL lpszReplace:0012f050("Text I want to scrape")
|
|
|
|
|
I made a little application that grabs random pixels from a scanned photo and figures out the R, G, & B values of that pixel. Then it's supposed to trasfer those values found into one of three other PictureBox controls. one for red, one for green and one for blue. I used this formula:
lColor = picPhoto.Point(x,y)<br />
iRed = lColor Mod 256<br />
iGrn = lColor \ 256 Mod 256<br />
iBlu = lColor \ 65536 Mod 256<br />
<br />
picRed.pset (x,y),RGB(iRed,iRed,iRed)<br />
picGrn.pset (x,y),RGB(iGrn,iGrn,iGrn)<br />
picBlu.pset (x,y),RGB(iBlu,iBlu,iBlu)
The Mysterious problem is that only the blue channel is doing what it's supposed to, producing a nice greyscale rendering of the blue channel pixels in question. The other two just produce noise. I can't figure out why. I checked and double checked all the properties of the PictureBox controls, and they're exactly the same. I also double checked the formula for separating the iRed, iGrn, and iBlu factors from the lColor value.
Any thoughts? Try it for yourself, see if you can get it to work. What am i doing wrong?
----------------------------------
Okay. I figured it out. The problem was the computation of the x,y coordinates for the red and green windows. It was computing the right colors, but it was putting them in the wrong places. It works now. Thanks.
"Go to, I’ll no more on’t; it hath made me mad." - Hamlet
|
|
|
|
|
Your math is a little off. Here's a working example:
Private Sub mnuSplit_Click()
Dim x, y As Long
Dim RGBColor As Long
Dim R, G, B As Long
Debug.Print "Image Height: " & pctSource.Height
Debug.Print "Image Width : " & pctSource.Width
For y = 0 To pctSource.Height
For x = 0 To pctSource.Width
RGBColor = pctSource.Point(x, y)
R = GetRGB(RGBColor, 1)
G = GetRGB(RGBColor, 2)
B = GetRGB(RGBColor, 3)
pctRed.PSet (x, y), R
pctGreen.PSet (x, y), G * 256
pctBlue.PSet (x, y), B * 65536
DoEvents
Next
Next
End Sub
Function GetRGB(RGBval As Long, Num As Integer) As Integer
' Pass in Num = 1 to return the Red value, 2 for Green, and 3 for Blue
GetRGB = RGBval \ 256 ^ (Num - 1) And 255
End Function
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Nope. That didn't do it. The problem is somewhere else. I applied your code to it and it's doing the exact same thing.
I'm pretty sure your math formula and mine are outputting the same results. I'll try stepping through it yet again to see if I can find the solution that way.
Thanks for your help, and let me know if you think of anything else. 
"Go to, I’ll no more on’t; it hath made me mad." - Hamlet
|
|
|
|
|
Funny, that exact code works perfectly on mine. I can send you the project if you want, but theres nothing more to it than buttons and 4 PictureBoxes. What color depth do you have your video card set at? When you use the PictureBox Point and PSet methods, you're not getting the color depth of the image, you're getting the color depth of the screen it's displayed on. The code will work with 32 and 24 bit colors depths only.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Actually I figured out the problem. I edited my original post with the answer. It was a problem with the x,y coordinates rather than the color or the pixels. It was finding the right colors but putting them in the wrong places. Hence the noise.
Thanks for your help.
"Go to, I’ll no more on’t; it hath made me mad." - Hamlet
|
|
|
|
|
I've completed an application and was trying to run it in another unit with JIT debugging enabled. It showed me the following error:
JIT Debugging failed with the following error:0x800405a6
I've searched for the documentation on this and it tells me the that:
This error occurs if you attempt to do Just-In-Time debugging on a machine where there is no user logged onto the console. As a result, there is no session in which to display the Just-In-Time debugging dialog box.
Even though I was logged in the machine and I had Debugger Users Privilege. Anybody encountered this before?
|
|
|
|
|
Knowing only an interface, how do I enumerate all the classes in a local machine that implement that particular interface? Do I have to register all the implementers in the local machine's GAC?
|
|
|
|
|
Hi friends
In my SQL query I have like this
Str = "ame's account"
Qr= "select * from Tab where fld='" & Str & "'"
Because of the 's in the where clause string its showing syntax error how to solve this
Any clarification let you know,
Thanks
Shan
|
|
|
|
|
Shanmukeswara Rao wrote:
Str = "ame's account"
Qr= "select * from Tab where fld='" & Str & "'"
I have had this same problem before. You should use parameters in your query. Combining the strings like this is prone to a SQL injection attack also. The way you use a parameter query depends on if you are using MS SQL or ODBC (MS Access) for your database. If you provide more information or more sample of your code I can show you better.
Laterness...
Doug
|
|
|
|
|
My Database is MSAccess,
Earlier I used to solve once this, concatenated with ` symbol before and after the string, now it is not working.
Thanks
Shan
|
|
|
|
|
Str = "ame's account"
Qr = "select * from Tab where fld=?"
Dim cmd As OdbcCommand = New OdbcCommand(Qr, OdbcConnection1)
Dim param1 as OdbcParameter = New OdbcParameter("name", OdbcType.VarChar)
param1.Value = Str
cmd.Parameters.Add(param1)
then execute the command...
Dim dr As OdbcDataReader = cmd.ExecuteReader()
Laterness...
Doug
|
|
|
|
|
You could try checking your strings with this code to eliminate SQL Injection:
<br />
str=replace("ame's account","'","''")<br />
This will replace the single quotation with a double quotation, which is interpreted by SQL parsers as a literal single quotation mark. This would somewhat prevent SQL Injection.
|
|
|
|
|
Nice try, but it won't eliminate any injection attacks. The attack merely has to include his code between two single quotes marks to defeat your method.
The better way, and the most recommended way BY FAR, is to use parameterized queries. The parameter objects look for known injection techniques and takes care of all your argument escaping for you. String concantenation is most definately a poor technique to use with queries.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Regarding the safety of str=replace("ame's account","'","''"), I think it is relatively safe. Whatever way you want to swing it, there is no way that a user can insert a ' that will not be escaped.
my blog
|
|
|
|
|
Just escaping the ' was not the point. The technique was billed as a method to prevent SQL injection attacks, and it's not...
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Sorry to split hairs Dave, but...your advice is good, but your facts are wrong.
If you escape every string value in every SQL string that you construct, (and also take care to sanitize all numeric values), then you are in fact safe from SQL injection.
The problem with the escaping approach is that it is difficult to apply consistently. For example, most programmers will neglect to escape values that they obtain from cookies, or the session, or the database. That is a mistake, because users can often affect that data too.
my blog
|
|
|
|
|
I'll accept that. 
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Hi there. I've got a question on how to program a system that can open a PDF document by opening chapters of a document in the same content document. I'm planning to do something like a PDF viewer which allows only viewing the document based on pages using the Table of COntents. However i'm unsure on how to apply them in .NET. Thx for the help...
|
|
|
|
|
Hi, I just have the project that open PDF file in adobe acrobat reader from our application vb6. It might not answer your question but just give you an idea.
1. In VB6, create a form with one button name Command1.
2. Put the following code on the general declaration section. (It call to the windows API)
Private Declare Function ShellExecuteA Lib "shell32" (ByVal hWnd As Long, _<br />
ByVal Op As String, ByVal file As String, ByVal params As String, _<br />
ByVal directory As String, ByVal ShowCmd As Long) As Long
3. Double click Button1 and write the following code.
Call ShellExecuteA(0, vbNullString, "C:\PDF_File.pdf", vbNullString, _<br />
vbNullString, vbShowNormal)
Note:
* There is no component or reference were added to this project.
* I got an idea from expert-exchange website. But I have changed some option in the code to match my file path.
Roath Kanel
APO-CEDC
Save Children Norway-Cambodia Office
|
|
|
|
|
I have a form layed out in Visual Studio .NET Professional, and I have 30 buttons layed out, I have sound files on the hard drive, and I would like to associate those sounds with those buttons.
So when the Sounds.exe is run, and I press the first button then the sound is automatically played.
Is there a way to link the sound to the button?
And also when I build the .exe file is the sound file added to the .exe file?
I am all new to this, and have created some code from a webpage that talked about embedding sounds, so I used the code as you see below :
Class SoundButton
Inherits Button
'API call for playing sounds in memory
Private Declare Function PlaySound Lib "winmm.dll" (ByVal data() As Byte, _
ByVal hMod As IntPtr, ByVal hwFlags As Integer) As Integer
Private Const SND_ASYNC As Integer = &H1 'Play asynchronously
Private Const SND_MEMORY As Integer = &H4 'Play wav in memory
'The .wav will be stored in this byte array
Private Shared ClickSound As Byte()
Shared Sub New()
'Get running assembly name
Dim NameSpc As String = _
Reflection.Assembly.GetExecutingAssembly().GetName().Name.ToString()
'Look for the button click sound in the resource stream.
'This example has a resource called hello1.wav
Dim WavStrm As IO.Stream = _
Reflection.Assembly.GetExecutingAssembly().GetManifestResourceStream( _
NameSpc + "." + "hello1.wav")
'ReDim the byte array to be the size of the embedded .wav
ReDim ClickSound(CType(WavStrm.Length, Integer))
'Load the .wav from the stream into the byte array
WavStrm.Read(ClickSound, 0, Int(CType(WavStrm.Length, Integer)))
End Sub
'Override the OnClick event to play the sound
Protected Overrides Sub OnClick(ByVal ea As EventArgs)
Call PlayWav(ClickSound)
MyBase.OnClick(ea)
End Sub
'Play embedded .wav resource
Public Sub PlayWav(ByVal WavResource As Byte())
PlaySound(WavResource, IntPtr.Zero, SND_ASYNC Or SND_MEMORY)
End Sub
End Class
The hello1.wav file is the file I wanted to play when i ran the app.
If you want to see my source code you can get it here :
h**p://home.pacific.net.au/~jf3000/sounds.zip
Id appreciate any help at all on this, and just let me know how to get the first button going so I know where to take it from there.
You will have to tell me in the most earliest of beginners terms, cos im still trying to understand something ive only just started.
Someone mentioned in a forum to play a sound use this : PlaySound() but that lost me.
samitha
|
|
|
|
|
If your going to have 30 sounds, don't embedded them as resources, it'll just make compiling your app that much longer, especially if they're large sound files. Just leave them as files. The code is really easy when you don't have all the junk of resources to look through. If your just starting out -> KEEP IT SIMPLE!
Private Declare Ansi Function PlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Enum PlaySoundFlags
Sync = &H0
Async = &H1
[Loop] = &H8
NoStop = &H10
NoDefault = &H2
End Enum
Private Sub btnPlaySoundSync_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlaySoundSync.Click
Me.Cursor = Cursors.WaitCursor
PlaySound("C:\Program Files\ahead\Nero\Beeth5th.wav", PlaySoundFlags.Sync)
Me.Cursor = Cursors.Default
End Sub
Private Sub btnPlaySoundAsync_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlaySoundAsync.Click
Me.Cursor = Cursors.WaitCursor
PlaySound("C:\Program Files\ahead\Nero\Beeth5th.wav", PlaySoundFlags.Async)
Me.Cursor = Cursors.Default
End Sub
This code assumes you have two buttons on your form, named btnPlaySoundSync and btnPlaySoundAsync.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
