|
Again iam putting my question,I havse seen s/w that locks folder and files and prompt for password how can i similar achieve in vb6 and through which api
|
|
|
|
|
|
chanu1982@rediffmail.com wrote:
Again iam putting my question,I havse seen s/w that locks folder and files and prompt for password how can i similar achieve in vb6 and through which api
Wow! This is the first time you've mentioned that this is what you wanted to do with locking files and folders!
Next time, don't take 4 posts to explain what you really want to do!
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Sorry sir,
I thought i annoyed you but my intention was not that , actually no one learns and become genius from by birth or from mother's belly . I have asked different question about at that time and these time and mostly you have answered thanks for that and accept sorry from these small programmer.
|
|
|
|
|
Hello
I wanted to know how to register an ActiveX.EXE file (writen in VB6).
as long as regsvr32.exe only registers ActiveX.dll and .OCX files.
I tried running the file, but it didn't help while I had a previously registered activex exe (which the same name) in some other location. when I try to create an object from the activex exe, the object returned from CreateObject is the object from the first activex..
How can I create an object from the second activex exe?
(THE FIRST ACTIVEX.EXE WAS REGISTERED BY VB6 WHILE I COMPILED IT)
Also I'd be glad if you tell me how to unregister the activex exe file?
Thanks in advance.
|
|
|
|
|
---------------------------
RegSvr32
---------------------------
Usage: regsvr32 [/u] [/s] [/n] [/i[:cmdline]] dllname
/u - Unregister server
/s - Silent; display no message boxes
/i - Call DllInstall passing it an optional [cmdline]; when used with /u calls dll uninstall
/n - do not call DllRegisterServer; this option must be used with /i
---------------------------
---------------------------
|
|
|
|
|
To extend what progload posted. You have to use RegSvr32 to unregister the first control, then you can use it to register the new one.
RegSvr32 /u c:\path\to\first\ActiveX.dll
RegSvr32 c:\path\to\new\ActiveX.dll
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Hi
I know the usage of regsvr32.
but you know, I said that my object is an ActiveX EXE not an ActiveX DLL.
and regsvr32 is unable to register activex exe files.
(My last file to register has an extention of .EXE rather than .DLL created using the ActiveX EXE template in vb6 projects.)
Do you know any other ways (rather than regsvr32 -which doesn't help in this case-) that help me mregister the active X exe?
Thanks
|
|
|
|
|
if it is a <activexfilename>.exe it is self-registering(does not need the flag to register),you just run it to register it or use the optional flag:
ActivexFileName.exe /regserver <<<--- optional flag
To UnRegister it, you run it with the flag like this:
ActivexFileName.exe /unregserver
Is this what your looking for?
progload
|
|
|
|
|
Thank you! 
it was JUST what I was looking for.
|
|
|
|
|
I've been trying for days to write a piece of VB.NET code that will read from winamp's memory space the paths of the files from the current winamp playlist.
The GETPLAYLISTFILE command of the winamp API will only return a pointer to the position of the asked path. An article available on http://msmvps.com/ch21st/archive/2004/02/26.aspx provides a VB6 implementation of this, using the ReadProcessMemory Windows API command. Through digging and asking around, I managed to read the memory contents that winamp points to, but I can't seem to be able to decode them!
In the attached code below that contains all you need to recreate my problem. The function always returns the following giberish: "UVßwXjÝw
======================================================================
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
MsgBox(Me.GetPlaylistFile(0))<br />
End Sub<br />
<br />
Private Const PROCESS_VM_READ As Long = &H10<br />
Private Const IPC_GETPLAYLISTFILE = 211<br />
<br />
Private Declare Auto Function FindWindow Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr<br />
<br />
Private Declare Auto Function SendMessage Lib "user32" (ByVal hwnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As IntPtr<br />
<br />
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As IntPtr, ByRef lpdwProcessId As IntPtr) As IntPtr<br />
<br />
Private Declare Function OpenProcess Lib "kernel32" _<br />
(ByVal dwDesiredAccess As Integer, _<br />
ByVal bIneritHandle As Boolean, _<br />
ByVal dwProcessId As IntPtr) As IntPtr<br />
<br />
Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As IntPtr, ByRef lpBase As IntPtr, ByVal lpBuffer() As Byte, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Boolean<br />
<br />
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As IntPtr) As Boolean<br />
<br />
Private Function FindWinamp() As IntPtr<br />
Return FindWindow("Winamp v1.x", vbNullString)<br />
End Function<br />
<br />
Public Function GetPlaylistFile(ByVal TrackNo As Integer) As String<br />
Dim winampWindow As IntPtr = FindWinamp()<br />
Dim fileName As String = String.Empty<br />
<br />
If Not IsNullPtr(winampWindow) Then<br />
<br />
Dim lp As IntPtr = SendMessage(winampWindow, &H400, TrackNo, IPC_GETPLAYLISTFILE)<br />
<br />
If Not IsNullPtr(lp) Then<br />
<br />
Dim pid As IntPtr<br />
<br />
Call GetWindowThreadProcessId(winampWindow, pid)<br />
If Not IsNullPtr(pid) Then<br />
<br />
Dim hWinampProcess As IntPtr = OpenProcess(PROCESS_VM_READ, False, pid)<br />
<br />
If Not IsNullPtr(hWinampProcess) Then<br />
<br />
Dim buffer(1000) As Byte<br />
Dim bytesWritten As Integer<br />
<br />
If ReadProcessMemory(hWinampProcess, lp, buffer, buffer.Length, bytesWritten) Then<br />
<br />
fileName = System.Text.Encoding.Default.GetString(buffer)<br />
End If<br />
<br />
CloseHandle(hWinampProcess)<br />
End If<br />
<br />
End If<br />
<br />
End If<br />
<br />
End If<br />
<br />
Return fileName<br />
<br />
End Function<br />
<br />
<br />
Private Function IsNullPtr(ByVal ptr As IntPtr) As Boolean<br />
Return ptr.Equals(IntPtr.Zero)<br />
End Function<br />
|
|
|
|
|
Private Const WM_USER As Integer = &H400S
Private Const IPC_GETPLAYLISTFILE As Integer = 211
Private Const PROCESS_VM_READ As Integer = &H10S
Private Const IPC_GETLISTPOS As Integer = 125
Private Const MAX_PATH As Integer = 260
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
ByVal lpszClassName As String, _
ByVal lpszWindowName As String _
) As Integer
Private Declare Function GetWindowThreadProcessId Lib "user32" ( _
ByVal hWnd As Integer, _
ByRef lpdwProcessId As Integer _
) As Integer
Private Declare Function OpenProcess Lib "kernel32" ( _
ByVal dwDesiredAccess As Integer, _
ByVal bInheritHandle As Integer, _
ByVal dwProcessId As Integer _
) As Integer
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
ByVal hWnd As Integer, _
ByVal Msg As Integer, _
ByVal wParam As Integer, _
ByVal lParam As Integer _
) As Integer
Private Declare Function ReadProcessMemory Lib "kernel32" ( _
ByVal hProcess As Integer, _
ByVal lpBaseAddress As Integer, _
ByRef lpBuffer As Byte, _
ByVal nSize As Integer, _
ByRef lpNumberOfBytesRead As Integer _
) As Integer
Private Declare Function CloseHandle Lib "kernel32" ( _
ByVal hObject As Integer _
) As Integer
Private hWndWinamp As Integer
Private Function GetWinampWindow() As Integer
GetWinampWindow = FindWindow("Winamp v1.x", vbNullString)
End Function
'// changed code
'// Public Function GetPlayingFileName() as String
Public Function GetFileName(ByVal iIndex As Integer) As String
Dim strFileName As String
Dim lp, lpWinamp As Integer
'// removed code
'//Dim iIndex As Integer
Dim PID As Integer
Dim bRet As Integer
Dim dwRead As Integer
Dim Buffer(MAX_PATH) As Byte
Dim Temp As String
hWndWinamp = GetWinampWindow()
If hWndWinamp = 0 Then
GetFileName = ""
Exit Function
End If
'// changed code
'// get currently playing song index number, from a zero based index
'//iIndex = SendMessage(hWndWinamp, WM_USER, 0, IPC_GETLISTPOS)
'//
'// send message to winamp and return file name and path of song
lp = SendMessage(hWndWinamp, WM_USER, iIndex, IPC_GETPLAYLISTFILE)
If lp = 0 Then
GetFileName = ""
Exit Function
End If
Call GetWindowThreadProcessId(hWndWinamp, PID)
lpWinamp = OpenProcess(PROCESS_VM_READ, 0, PID)
If lpWinamp = 0 Then
GetFileName = ""
Exit Function
End If
bRet = ReadProcessMemory(lpWinamp, lp, Buffer(0), MAX_PATH, dwRead)
Call CloseHandle(lpWinamp)
Temp = ConvertToStringFromBytes(Buffer)
strFileName = Temp.Trim
Return strFileName
End Function
Public Function ConvertToStringFromBytes(ByRef abData() As Byte) As String
Return System.Text.Encoding.Default.GetString(abData)
End Function
Private Sub Command1_Click(ByVal eventSender As System.Object, _
ByVal eventArgs As System.EventArgs) Handles Command1.Click
'// changed code
'//MsgBox(GetPlayingFileName())
MsgBox(GetFileName(0))
End Sub
|
|
|
|
|
hi
i use in my program access database.when i make setup from my program and publish it to cd and run it in another computer it dont recognize path of database
please help me
|
|
|
|
|
it might be helpful to post how your telling the program where to find the DB.
|
|
|
|
|
hi
i am using from odbc and in it's conectionstring there is path of database for example: e:\ac.mdb
|
|
|
|
|
And, is the database being added as part of the Setup? Is the database being installed to the correct directory? Is your application looking in the correct directory?
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Did you hardcode the path of the database? If so, and if it is installed in the same directory as you program...use application.StartupPath to make sure the path is correct.
|
|
|
|
|
please many help me
i dont know what's your idea
and say me with a example
thanks
|
|
|
|
|
If your database is in the same directory as your program I would do something like this:
Dim pstrFile as String<br />
pstrFile = Application.StartPath & "\(databasename).mdb"
|
|
|
|
|
hi
i am using from adodc ond in data link properties
in database name i typed :Application.StartPath & "../vb2/db1.mdb"
vb2 is folder that my project and database is there.
but there is an error :operatio cannot be complate or error of provider
in provider i select :microsoft jet 4.0 ole db provider
thanks
|
|
|
|
|
Also...make sure you added the database to your installation setup.
|
|
|
|
|
How can i stop a control in a container to lose focus upon a key press event or other keyboard event. I am making an article but i cant figure out how to do this, or if this isnt possible how can you tell what made a control lose focus? in vb.net
Visual Basic Lover
|
|
|
|
|
Found the answer ma self wooohooo, inherit the container base class and override the on process dialog key sub, then disallow all control keys and raise custom events, according to liking.
Visual Basic Lover
|
|
|
|
|
I want to acess msconfig programmatically using vb6 in all versions of win os and how can write registry entry in it
|
|
|
|
|
MSConfig doesn't expose an API you can use. All it's doing is making modifications to the registry. (Well, some things require more than registry changes...)
But, you need to make the same changes to the Registry that MSConfig makes. Since VB6 doesn't have native support for accessing the the Registry, you have to call into the Win32 API Registry function to make it work.
You can find plentry of examples of this using Google[^].
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
