A1VBCode Forums / Classic Visual Basic (VB 6 or earlier) / API

Apply hook to one process?

Rohni — Thu, 27 Oct 2011 21:29:15 GMT

This is what I have so far and Im testing it out on my Vb app first but for some reason its not picking up the WM_SIZE message.

Does anyone know how I can do that or what I'm doing wrong?

Thanks

Also if I could find Keiths VB Syntax Highlighter I would use it:

[code]
Public Type MSG
hwnd As Long
message As Long
wParam As Long
lParam As Long
time As Long
pt As POINTAPI
End Type

Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Public tempsize As Long
Public chromerect As RECT
Public win As Long
Public childwin As Long
Public classname As String
Public classlong As Long
Public Ret As Long

Private hMSGcb As Long
Private Const WH_GETMESSAGE As Long = 3

Private Const WM_SIZE As Long = &H5
Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" ( _
ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Private Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, _
ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" ( _
pDest As Any, pSource As Any, ByVal cb As Long)
Private Const WM_HOTKEY As Long = &H312
Private Const WM_SIZING As Long = &H214
Private Const WH_CALLWNDPROC As Long = 4

Private Const PM_REMOVE As Long = &H1

Private Function MSGCallback(ByVal Code As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

If wParam Or lParam = WM_SIZE Then
MDIForm1.Caption = "Size"
End If

MSGCallback = CallNextHookEx(hMSGcb, Code, wParam, lParam)
End Function

Public Sub HookMSG()
UnhookMSG
hMSGcb = SetWindowsHookEx(WH_GETMESSAGE, AddressOf MSGCallback, App.hInstance, 0&)
'MDIForm1.Caption = "L:" & hMSGcb
End Sub

Public Sub UnhookMSG()
If hMSGcb <> 0 Then
Call UnhookWindowsHookEx(hMSGcb)
hMSGcb = 0
End If
End Sub

[/code]

All of that is inside a module now could someone please explain to me why this is failing?

Thanks

RGB value

Takeshi — Mon, 06 Oct 2008 15:45:49 GMT

Hi ! I'm a new member in this forum. Could any one help me, how to get RGB values at every pixel from a image file ? But, that image file not open or show in my form, just get the RGB values. Then, i can change that RGB values and create a new image file. Honestly, i'm working an image encryption. Please, help me.... it's confused me so much. Thanks. GBU

NB : I'm sorry if my English is bad

Hard disk size

Shreeti_Tula — Tue, 09 Jun 2009 05:05:36 GMT

I know there are lots of question being asked about this but i still have not found the solution. Can anybody help to find the total size of hard disk not the logical size. GetDiskFreeSpaceEx only helps to get the logical size. Please help..

How to use COM API??[Google Earth]

soham.m17 — Fri, 24 Jun 2011 21:23:16 GMT

I'm relatively new to VB.NET programming.I am a C,C++ Programmer.but I know a little bit of VB.NET programming as I knew VB6 a little bit.

I want to use Google Earth COM API.Please give me some thought about Interfaces and Classes and how to use it for API.

My Code is :
[highlight]Public Class Form1
Private GE As EARTHLib.ApplicationGE
Public SC As EARTHLib.ISearchControllerGE
Private PID As Integer

Private Sub func_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles func.Click
Dim src, dest As String
Dim prg As Boolean
Dim feature_clct As EARTHLib.FeatureCollectionGE

GE = New EARTHLib.ApplicationGE
SC = New EARTHLib.SearchControllerGE()
src = txtsrc.Text
dest = txtdest.Text

While StrComp(src, "") <> 0 And StrComp(dest, "") <> 0
SC.Search(src)
Do
prg = SC.IsSearchInProgress()
Loop While prg = True
feature_clct = SC.GetResults()
End While

End Sub
End Class[/highlight]

This is throwing an error :
[quote]Unable to cast COM object of type 'EARTHLib.SearchControllerGEClass' to interface type 'EARTHLib.ISearchControllerGE'.
This operation failed because the QueryInterface call on the COM component for the interface with IID
'{524E5B0F-D593-45A6-9F87-1BAE7D338373}' failed due to the following error: Class not registered
(Exception from HRESULT: 0x80040154 (REGDB_E_CLASSNOTREG)).[/quote]

This is in the line no:

SC.Search(src)

So,plz give me necessarry suggestions.:confused:

How Do I get the source code?

antonio velasquez — Tue, 08 Mar 2011 15:15:56 GMT

How Do I get the source code of one application posted here

SOS , SOS , MEYDEY F1

Erkan Cetiner — Sun, 16 May 2010 03:39:34 GMT

I know hwnd number a textbox. how can i search a word in this textbox ?

(a other application of textbox)

i can't speak english

Why vbhide don't work in Windows Vista?

microtroyan — Sat, 15 Dec 2007 00:43:17 GMT

The next code works in XP but not in Windows Vista:

In XP execute the calculator (hide)
but in windows vista show the window's calculator.

I tried in Windows Vista as administrator, but I get the same result.

Please, help me.

Private Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation _
As String, ByVal lpFile As String, ByVal lpParameters _
As String, ByVal lpDirectory As String, ByVal _
nShowCmd As Long) As Long

Private Sub Form_Load()
ShellExecute hwnd, "open", "C:\windows\system32\calc.exe", vbNullString, vbNullString, vbhide
End Sub

How to integrate scanner with vb 6

belat — Thu, 25 Feb 2010 22:25:46 GMT

hi guys...
i just want to ask if how i can integrate scanner with vb 6
then after scanning of pictures i will save in the database....

thanks....

i just need the integration of scanner

please..............
thanks...

Need help with Create DC problem

javakenn — Mon, 16 Nov 2009 12:18:13 GMT

I'm wondering if someone can help me with my code specifically related to the Create DC. I am not a programmer and really don't have the vocab and what I have been ready on Google is just not helping. This program runs fine in Windows 98 and until 2 months ago was run only on Win 98, however, we need this program to now run on XP & 7.

Based on what I have read and figured out the error message I receive is due to the a failure in Create DC. So what I'm trying to figure out is what is different between 98 and XP? Could it be related to the print driver rather than the code itself, etc?

Anyway here is a good chunk of the code as it stands now, any help would be really, really appreciated!! Thanks in advance

'Begin to make date plot file
If chk_office.Value = 0 Then
'printr = OpenPrinter(Printer.DeviceName, lhPrinter, 0)
'l_ret = DocumentProperties(Me.hwnd, lhPrinter, Printer.DeviceName, lpInitData, pDevModeInput, 2)
'l_ret = ClosePrinter(lhPrinter)
If opt_18.Value = True Then
lpInitData.dmPaperSize = 257
Else
lpInitData.dmPaperSize = 258
End If
'This is the original command 9/7/09
'lhDC = CreateDC("", Combo1.Text, "FILE:", lpInitData)
'GoTo skip2
lhDC = CreateDC("WINSPOOL", Combo1.Text, "FILE:", lpInitData)

'just trying something 11-09-2009
'prntr_ret = OpenPrinter(Combo1.Text, pntrHand, 0)
'MsgBox Str(prntr_ret)
'lhDC = GetDC(prntr_ret)

'11-09-2009
'createDC is not returning a DC for any printer
'tried using openprinter but still returns 0
'program works when using an existing textout.plt
'if a textout.plt does not exist on the c drive, a zero kB file is generated and the for loop below
'does not iterate because LOF(1) is less than 1

MsgBox Str(lhDC), vbOKOnly, "lhDC"

ret_val = GetLastError()

'MsgBox Str(ret_val), vbOKOnly, "GetLastError"

nHeight = -MulDiv(16, GetDeviceCaps(lhDC, 90), 72)

hFont = CreateFont(nHeight, 0, 0, 0, 700, 0, 0, 0, 0, 0, 0, 0, FF_ROMAN, "Times New Roman")

MyDocInfo.lpszDocName = List1.List(0)
MyDocInfo.lpszOutput = "c:\textout.plt"

read_fil = StartDoc(lhDC, MyDocInfo)
read_fil = StartPage(lhDC)

read_fil = SetTextColor(lhDC, RGB(255, 0, 0))

read_fil = SelectObject(lhDC, hFont)

dt = Format(Date, "m-d-yyyy")

If opt_18.Value = True Then
lReturn = CLng(Printer.ScaleWidth)
l_ret = CLng(Printer.ScaleHeight)
'MsgBox Str(GetDeviceCaps(lhDC, HORZRES)) + " " + Str(GetDeviceCaps(lhDC, VERTRES)) + " " + Str(Printer.ScaleWidth)
read_fil = TextOut(lhDC, lReturn - 400, l_ret - 594, dt, Len(dt))
Else
lReturn = CLng(Printer.ScaleWidth)
l_ret = CLng(Printer.ScaleHeight)
'MsgBox Str(GetDeviceCaps(lhDC, HORZRES)) + " " + Str(GetDeviceCaps(lhDC, VERTRES)) + " " + Str(lReturn) + " " + Str(l_ret)
read_fil = TextOut(lhDC, lReturn - 525, l_ret - 594, dt, Len(dt))
End If

read_fil = EndPage(lhDC)
read_fil = EndDoc(lhDC)

read_fil = DeleteObject(hFont)

read_fil = DeleteDC(lhDC)

skip2:

'Put needed data into array by finding certain sequences

lbl_progress.Caption = "Getting date and making into plt..."
lbl_progress.Visible = True
lbl_progress.Refresh

'file_source = "c:\textout.plt"

Open "c:\textout.plt" For Binary As #1

ok_to_proceed = False

For x = 1 To LOF(1)
Get #1, x, buffer
If ok_to_proceed = False Then
If buffer = 27 Then
x = x + 1
Get #1, x, buffer
If buffer = 37 Then
x = x + 1
Get #1, x, buffer
If buffer = 49 Then
x = x + 1
Get #1, x, buffer
If buffer = 65 Then
y = 1
ok_to_proceed = True
Else
For y = 1 To 3
date_text(y) = 0
Next y
End If
Else
date_text(1) = 0
date_text(2) = 0
End If
Else
date_text(1) = 0
End If
End If
Else
If buffer = 80 Then
x = x + 1
Get #1, x, buffer
If buffer = 71 Then
date_text(y) = 27
y = y + 1
date_text(y) = 37
y = y + 1
date_text(y) = 49
y = y + 1
date_text(y) = 65
Exit For
Else
date_text(y) = 80
y = y + 1
date_text(y) = buffer
End If
Else
date_text(y) = buffer
End If
y = y + 1
End If
Next x

Close #1

'Kill "c:\textout.plt"

.......

Win32 API for this code?

CodedOne — Sun, 15 Nov 2009 14:04:16 GMT

Hi everyone

I have tried to ask on few forums already but no success so far.

I have been trying to search for the software which ''co-operates'' with icon hints - yellow windows that appear after moving the mouse cursor on them.

Many times I manually have to check several houndreds icon hints. All of those files are audio files - only mp3. While doing this, I have in purpose to find (if it/they even exist) the files (of course first i need to determinate inside which folders do i search) where their icon hints does NOT ( ! ) show the ''Duration'' line with data. But moving the cursor on each icon can be very annoying, specially if you have many of them. Files are located in many subfolders with lets say maximum 10 files in each of the subfolder so detail folder's view option won't be useful.

Everything I got so far that ''might'' be useful are those 3 lines:

ILCreateFromPath()
SHBindToParent() to IShellFolder2
IShellFolder2::GetDetailsEx() to get PSGUID_AUDIO & PIDASI_TIMELENGTH

Firstly I had no idea what this could be. Then I was doing some research on the google and found that it could be related with win32 api. However, no matter if it is or not, I still don't know what to do with those 3 lines - where to paste them, where to save, what extension, how to use.

It might be correct, might not.

So if I could please someone to check this or to suggest me some other solution for my issue.

Hopfully I added the topic to the right section of the forum.

Thank you and best wishes to everyone.

Windows-analyzer API question

Senith — Sat, 10 Oct 2009 17:42:15 GMT

I'm making a Web toolbar addon for text exitors, but my program needs to get the handle of the edit controls.

What I need to do is get the handle of the textbox in other applications.

Like what the analyzer program does, but I can't figure out how to do it and I know I need API's to do it but I don't know what ones to use.

Thanks

Overwriting...

manikandan.sap — Tue, 01 Sep 2009 08:35:03 GMT

I have an exe file that it was developed by me by using VB6....

The problem is i have 7 forms in that project...

Among that 7 forms one of my form have some spelling mistakes in caption property...

But i deleted the project file long back...

Can i overwrite my exe file to correct the spelling mistake of the form...

FreightQuote.com API

Dbennett4995 — Wed, 17 Jun 2009 19:34:05 GMT

Has anyone ever has any previous experience with integrating the FreightQuote.com API with ASPdotnetstorefront? Our source code is VB.NET. The freightquote.com programmer's reference uses XML. In the midst of implementing this myself I have ran into a couple of issues. Specifically within the RTshipping.vb file. I am still searching for someone who could lend a helping hand with this code.

Readfile/write file API

Shreeti_Tula — Mon, 08 Jun 2009 02:23:32 GMT

Hi! I am doing a program in which user give sector of harddisk, then that sector must be read and write to another file( disk imaging (only some parts)). The problem i am having is that i can read the sector from the specified harddisk but am not able to write or append to new file. The new file i created always shows the 0 byte. Can anybody help me with the readfile and writefile Api?

Thanks in advance.

sector copy

Shreeti_Tula — Fri, 01 May 2009 07:14:49 GMT

Hi, I wanted to know, is it possible to copy sector by sector instead of file copy in VB? Is there certain windows function for that? Please help
Shree

Holding down API

leonel80 — Fri, 03 Oct 2008 22:23:41 GMT

I've been looking around the net for quite a while. I can't find anything about holding down a key (be it for a certain time or until disabled). Basically what I'm trying to do is a program to hold down the CTRL-key.

Any help is appreciated, I'll keep searching.

Stock Picks

form1.log file error

rajastyle — Mon, 23 Jun 2008 09:48:32 GMT

Sir g can Any One Help Me to Sought ought this Problem Please

crystal32.ocx is not found when loading a programe

and Form.log is not found

pasting data to other applications

rahesh — Sat, 07 Jun 2008 06:35:55 GMT

hi friends

i need to create a program that have the facility to paste data in the clipboard to any other programs (notepad,wordpad etc) using shortcut key(ctrl+M). can someone please help me in this.

Registry File

Takeshi — Tue, 04 Nov 2008 15:28:14 GMT

Hi... How to create a Registration Entries file? It association with registry editor of course. I want to create a key file. Thanx. GBU.

Some API code used in VB2005

jamesnguyen_anewtech — Sun, 15 Mar 2009 09:45:30 GMT

Dear all,

These API function I tried with VB2005 and it worked fine. You can write vb application to open , close and move , resize another window application as word, excell. You also can use trasparent API to make color of window application fade away , until it disappear

'move

<DllImport("user32.dll", EntryPoint:="MoveWindow", CharSet:=CharSet.Auto)> _

Public Shared Function MoveWindow(ByVal hWnd As IntPtr, _

ByVal X As Int32, _

ByVal Y As Int32, _

ByVal nWidth As Int32, _

ByVal nHeight As Int32, _

ByVal bRepaint As Boolean _

) As Boolean

End Function

'transparence

Const LWA_COLORKEY As Int32 = 1

Const LWA_ALPHA As Int32 = 2

Const GWL_EXSTYLE As Int32 = (-20)

Const WS_EX_LAYERED As Int32 = 524288

Private Declare Function apiGetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Int32, ByVal nIndex As Int32) As Int32

Private Declare Function apiSetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Int32, ByVal nIndex As Int32, ByVal dwNewLong As Int32) As Int32

Private Declare Function apiSetLayeredWindowAttributes Lib "user32" Alias "SetLayeredWindowAttributes" (ByVal hWnd As Int32, ByVal crKey As Int32, ByVal bAlpha As Byte, ByVal dwFlags As Int32) As Int32

Private nhwnd1, nhwnd2, nhwnd3, nhwnd4, nhwnd5, nhwnd6 As Int32

'maximize minimize

Public sbl As String = ""

Private Const SW_SHOWMINIMIZED As Int32 = 2 'Minimize constant

Private Const SW_SHOWMAXIMIZED As Int32 = 3 'Minimize constant

Private Const sw_shownomal As Int32 = 1 'Minimize constant

<DllImport("user32.dll", EntryPoint:="ShowWindow", CharSet:=CharSet.Auto)> _

Private Shared Function ShowWindow(ByVal hwnd As Int32, ByVal nCmdShow As Int32) As Int32

End Function 'ShowWindow API

'lock

<DllImport("user32.dll", ExactSpelling:=True, CharSet:=CharSet.Auto)> _

Private Shared Function SetWindowPos( _

ByVal hWnd As IntPtr, ByVal hWndInsertAfter As IntPtr, _

ByVal x As Integer, ByVal y As Integer, _

ByVal cx As Integer, ByVal cy As Integer, _

ByVal flags As Integer) As Boolean

End Function

Private Const SWP_NOSIZE As Integer = &H1

Private Const SWP_NOMOVE As Integer = &H2

Private Const SWP_NOZORDER As Integer = &H4

Private Const SWP_NOREDRAW As Integer = &H8

Private Const SWP_NOACTIVATE As Integer = &H10

Private Const SWP_FRAMECHANGED As Integer = &H20

Private Const SWP_SHOWWINDOW As Integer = &H40

Private Const SWP_HIDEWINDOW As Integer = &H80

Private Const SWP_NOCOPYBITS As Integer = &H100

Private Const SWP_NOOWNERZORDER As Integer = &H200

Private Const SWP_NOSENDCHANGING As Integer = &H400

Private Const SWP_DRAWFRAME As Integer = &H20

Private Const SWP_NOREPOSITION As Integer = &H200

Private Const SWP_DEFERERASE As Integer = &H2000

Private Const SWP_ASYNCWINDOWPOS As Integer = &H4000

'lock

how can i use yahoo finance database in my website dynamicaly

lakhanijay_coolboy — Wed, 26 Mar 2008 02:11:33 GMT

i want to make a application that nee to use yahoo finance ...

such the link is given that "download data" that i want to use how can i use in my website....???

thnx in advance...

Opaque Screensaver over a form

RohanHenry — Mon, 16 Feb 2009 00:07:43 GMT

Hi Friends,

I need some help, I need to apply a opaque screen saver over a form when the user isn't doing anything the opaque screen saver should run, when the user touches the mouse the screen saver shoud disappear and the form is visible. When the user leaves the mouse idle for some time say about 60sec the screen saver should appear.

Please could anyone let me know if this is posssible and help me with how to code this using VB.Net.

Thanks and Regards,

Rohan Henry

Creating an API for a windows application

mmathys — Fri, 04 Jul 2008 12:28:49 GMT

I am writing a windows application using VB.NET 2005 and I would like to create an API for it, however, I have no clue on where or how to get started. I tried adding a ProgId to my windows form, but when I would try to use CreateObject or GetObject to get a reference to the application, I would receive an error saying "could not create ActiveX object". If anyone has any advice or information to share, I would greatly appreciate it.

Thanks!

Michael

I want to create a API with a little help please

affinity1991 — Sat, 15 Mar 2008 23:20:47 GMT

Hi, i would like to create a API just like this one http://www.steampowered.com, but i am making it so that i can have my own games on there not the ones on steam...

Thanks, Affinity

Pinvoke DLL need help

johnng — Tue, 16 Sep 2008 16:07:03 GMT

I am trying to complete my project with third party dll using vb.net ,
i cant call the function RDA_ReadAlarmList as below ,
this function call return a integer value and receive the RDA_ReadAlarmList Structure and RDA_AlarmSearchParam as a parameter.

Hope the bro here can help me on this , already headache for few week on this .. what --> RDS_AlarmList **outAlarmList means ?
Structure array ? How should i call this in vb.net ?

Function
10.8.1 It acquires an alarm list ( The asynchronousness ).

int WINAPI RDA_ReadAlarmList(RDS_AlarmList **outAlarmList, RDS_AlarmSearchParam *inAlarmSearchParam);

Structure
11.8.4 The alarm list search parameter
typedef struct {
RDE_SearchDir dir; The direction of the search
RDE_SearchMode mode; The browse mode
int num; The number of the searches (1-1000)
bool senser[16]; The sensor true...The sensor is valid.
int year; The year ( The 4 digit Christian era )
int month; The month (1-12)
int day; The day (1-31)
int hour; The hour (0-23)
int minute; The minute (0-59)
int second; The second (0-59)
} RDS_AlarmSearchParam;

11.8.4 The alarm list item
typedef struct {
int listNumber; The list supervision number (0-9999)
int alarmNumber; The alarm list number (1-10000)
bool isEnable; The alarm validity / the invalidity ( true: Valid, false: Invalid )
int year; The year ( 4 digits )
int month; The month (1-12)
int day; The day (1-31)
int hour; The hour (0-23)
int minute; The minute (0-59)
int second; The second (0-59)
int block; The device index
int field; The field number
int drive; The playback point drive number
int vol; The playback point VOLUME number
int camera; The camera number ( 0: The emergency, 1-: The camera number )
RDE_Alarm alarmType; The alarm type
} RDS_AlarmList;

Hiding Restore button in System menu and also in Menu bar -pls help

jasan — Fri, 11 Apr 2008 01:02:51 GMT

Hi,

I am using vb.net 2005

My form is set to maximized inside the MDI. i need to hide the restore button in both system menu and also in menu bar top right corner.

I have tried api. but it only disables the restore menu in System menu which is in top left corner.

when the mouse is hovered on top right corner, the restore button portion is highlighted and the form gets restored when clicked which is meaningless.

can anyone help pls

how to save and retrieve sound from database

ndah1000 — Tue, 01 Apr 2008 08:05:34 GMT

looking solutions on how to save and sound from database(access, firebird,mysql) in vb6.0

Can't find entry point acmsdi_return_pointer in acmsdi.dll

Shenba — Fri, 28 Dec 2007 00:54:47 GMT

Hi,

I am using same DLL in two applications and one is working fine and in another I am getting the Run-time error 453: Can't find entry point acmsdi_return_pointer in acmsdi.dll

Here is the piece which I am trying to ..

Declare Function Acmsdi_Return_Pointer Lib "acmsdi.dll" (workspace As Any) As Long

options(0).option = ACMSDI_OPT_PWD_EXPIRING
options(0).address = Acmsdi_Return_Pointer(pwd_exp_buffer)
options(1).option = ACMSDI_OPT_END_LIST

Please help me.

Dual Monitor API or Pen Tablet API?

Lucha — Wed, 25 Jul 2007 06:08:54 GMT

Hi everyone!

I'm making a program in Visual Basic 6 that uses this:

1º - I have extended desktop, I mean, my desktop width is two monitors. My graphic card

supports clone mode, I mean, the second monitor copies the first monitor exactly.
2º - I have a Pen Tablet. I have set it up to work with the second monitor. I can change with

the tablet's configuration program, making the tablet work with the first monitor.

The questions are:

a) How can I switch between "extended desktop" and "clone mode" with the program I have made

in Visual Basic 6?
b) How can I make the tablet work with the monitor 1 or the monitor 2 with my program?

If it's needed to program this as subprograms in other language like C, C++, C#, vb.net, etc,

I will do it for sure.

Thank all of you for all your answers and your time.

I want to invisibly control webbrowser control iwebbrowser2 in form

eugene2005 — Wed, 13 Jun 2007 22:25:23 GMT

I want to invisibly control webbrowser control iwebbrowser2 in form
How to send a click to webbrowser control iwebbrowser2 control it clicks ok on simple html but if there is iframe or frame then it does not click on it

Any suggestions?
I don’t want to click by parsing html code body.outerhtml, tagname ("A").click

Private Sub Command2_Click()

Dim lHandle As Long
lHandle = GetHandle(ie)
MsgBox lHandle

SendClick lHandle, Val(Text2.Text), Val(Text3.Text)
End Sub

Public Sub SendClick(lnghWND As Long, X As Long, Y As Long)
Dim lngResult As Long
Dim lnglParam As Long
lnglParam = (Y * &H10000) + X
lngResult = SendMessage(lnghWND, WM_LBUTTONDOWN, 0&, ByVal lnglParam)
lngResult = SendMessage(lnghWND, WM_LBUTTONUP, 0&, ByVal lnglParam)
txtlog.Text = lnghWND & " " & X & " " & Y & vbCrLf & txtlog.Text
End Sub

My idea is to control IE instance by software

eugene2005 — Wed, 13 Jun 2007 22:18:52 GMT

My idea is to control IE instance by software
I want to solve my problems in two ways

First one is by controlling IE by mouse_event with cursorpos but not with sendmesage or postmessage API.
I want to invisibly control IE instance and click on it where I want to by sending mouse_event, but without user notice, is there any chance?

Is it possible to control IE for example in background while PC is idle and screensaver works?
Or perhaps when PC is idle detect it and show JPEG screenshot and work with mouse_event on background, so to call behind the scene?
Or perhaps in parallel user mode FAST USER SWITCH terminal service?

I don’t want to click by parsing html code body.outerhtml, tagname ("A").click
Any suggestions or any ideas with technical details?

IE Controller source code here http://fresh-news.info/update/iecontrol.rar

Verify windows password

danasegarane — Thu, 17 Aug 2006 07:53:38 GMT

Dear all,

Is there any method to verify the windows password.?

<--- N00B - Source Snippets for....

Shiin — Wed, 19 Apr 2006 17:53:08 GMT

Hey all.

Been wanting to make my own little Peer-to-Peer Chatroom with WEBCam functionality.
I've been searching the internet to no end for small code snippets for Peer-to-Peer Chat and also WEBCam Peer-to-Peer stuff.

If anyone's got any helpfull links (for VB6) to get my idea rolling, i'd be very much gratefull.

~Shiin

How to create reports based on TFS Source Control content?

Wojtek — Wed, 28 Mar 2007 05:21:48 GMT

Hello,

I have a task to create set of reports based on data from TFS source control.

I must create these reports using reporting services technology.

As an example, I have a report that must count net line of code checked-in last day by specified user.

What technology and approach should I take to realize this task?

Is it possible to get source code data from source control directly to reports using SQL/T-SQL or need use Source control API?

Had someone of you done similar task?

Thanks!

Wojtek

To build Triangular Colored Command Button

sunil borwankar — Sat, 11 Nov 2006 07:49:47 GMT

I want to make colored command button of Triangular Shape. I used Window API programming to call commands for coloring irregular shapes and Active X Interface Wizard for making command button look like actual command button. Every thing is fine but the command button is not getting colored. Please suggest some method. My programme is attached here with.

getting text from another program

bwarn70 — Sat, 02 Sep 2006 11:02:36 GMT

I am coding in vb2005... I am trying to create an interface between two programs (an accounting program & an imaging program). What I want to happen... select item (text) in accounting program and then by pressing a hotkey, pass the text to the imaging program to run a search. I started out trying to use sendmessage api and found that in VB i was having problems due to not being able to create pointers for the call. I am now thinking that the best way to get the text from the accounting program may be through the Microsoft Active Accessibility but am having trouble finding any documentation on how to use it. And maybe this isn't the best approach either. Any help and input would be greatly appreciated.

Tasks:
1 - hotkey creation & responce - DONE
2 - Get selected text from syslistview in accounting software
2a - Get hWnd for syslistview - DONE
2b - Get index of selected item - DONE
2c - Get text of selected item - PROBLEM
3 - Pass text into imaging software to run search - DONE

API:add to startup

n00b — Fri, 05 Jan 2007 07:49:19 GMT

I need my program to start everytime when widows starts.
How can I add my program to STARTUP ?
any API ? or suggestions ?

thanks.

Friendly name for com ports

dbrownproto — Tue, 07 Nov 2006 16:59:06 GMT

Hello

I am new to this forum. I have been trying to locate a method of determining the friendlyname of a com port. I have found a "setupdigethwprofilefriendlyname" api but I do not know how to use it.

Any help would be greatly appreciated.

Dave

SAPI 4, Direct Speech and foreign language

Zion — Mon, 19 Feb 2007 18:47:01 GMT

Hi folks,

I've downloaded the KAREN and HANS voices from the Microsoft agent website, which is the Dutch Lernout & Haspie TTS3000 engine. I've found some code to list the available engines in a combobox, but this only lists the default MS engines. This, due to the fact that these voices are Sapi 5 complient. The voices I would like to use are only Sapi 4. Is there a way to use this engine as default on form load or something? I'm writing a program in dutch, which helps children with homework. I would like the displayed words to be read out load as well.

Now, i've played with the languageid, but can't seem to find the right ID on the net for it or my syntax is totally wrong.

Any help would be greatly appreciated.

Hans

Accessing ATA registers in Windows 2k

VBIllini — Tue, 09 Jan 2007 18:58:04 GMT

I have an application I need to write which accesses the ATA registers in Windows 2k. Does anyone know how to do this using VB. I assume there is a dll which may be out there, but I am not sure. I know in Windows 95/98/Me this is fairly easy, but I am not sure how to do this with 2k or even XP. Thanks in advance.

-Samir