|
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
|
|
|
|
|
Hi
Im trying to import text in hebrew from word and excel into a string variable.
The text I receive is not encoded correctly (LTR instead of RTL).
I cant change the files and I need to show this text in an XML file.
I need som kind of convertion function.
Please Help !!!
Alex
|
|
|
|
|
|
Im trying to retreive bi-directional mixed text (english with hebrew) from microsoft excel sheets using Range(...).Text
The text that Im receiving is not correctly ordered.
Im looking for a function that can fix the text so that it is visually encoded so that i will be able to display the text in a non-RTL capable container (Macromedia Flash).
|
|
|
|
|
|
I want to run my exe files built in windows xp/2000/nt/9x
during boot up not after the desktop is shown,I tried in msconfig but it does not work,
please help me
|
|
|
|
|
|
Can you have any idea or link to create the servic in vb6
which runs before explorer.exe because similar program is running in my college a password form appears before the desktop is showed,If not done in vb6 any other lang is invited.
|
|
|
|
|
VB6 won't build a service. You have to launch your application using a second app. Search the web for "VB6 run as service". Better yet, Google search results...[^]
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
