VB Decompiler

Anonymous · New User Joined: 10 Feb 2008 Posts: 0

Has anyone done any research on msvbvm60.dll (note that there is actually a debugging symbols file for it available), in particular figuring out the prototypes of all the various functions that it exports?

Christoph_vW · New User Joined: 21 Sep 2004 Posts: 1

Here are some of them:

'MSVBVM60.DLL
Declare Sub rtcBeep Lib "msvbvm60.dll" ()
Declare Sub rtcDoEvents Lib "msvbvm60.dll" ()
Declare Function rtcTrimBstr Lib "msvbvm60.dll" (ByVal lpString As Long) As String
Declare Function rtcRightTrimBstr Lib "msvbvm60.dll" (ByVal lpString As Long) As String
Declare Function rtcLeftTrimBstr Lib "msvbvm60.dll" (ByVal lpString As Long) As String
Declare Function rtcUpperCaseBstr Lib "msvbvm60.dll" (ByVal lpString As Long) As String
Declare Function rtcLowerCaseBstr Lib "msvbvm60.dll" (ByVal lpString As Long) As String
Declare Function rtcSpaceBstr Lib "msvbvm60.dll" (ByVal lCount As Long) As String
Declare Function rtcRightCharBstr Lib "msvbvm60.dll" (ByVal lpString As Long, ByVal lCount As Long) As String
Declare Function rtcLeftCharBstr Lib "msvbvm60.dll" (ByVal lpString As Long, ByVal lCount As Long) As String
Declare Function rtcGetDateBstr Lib "msvbvm60.dll" () As String
Declare Function rtcGetTimeBstr Lib "msvbvm60.dll" () As String
Declare Function rtcGetTimer Lib "msvbvm60.dll" () As Long
Declare Function rtcInStrRev Lib "msvbvm60.dll" (ByVal lpStringCheck As Long, ByVal lpStringMatch As Long, ByVal lStart As Long, ByVal lCompare As Long) As Long
Declare Function VarPtrArray Lib "msvbvm60.dll" Alias "VarPtr" (Ptr() As Any) As Long
Declare Function vbaLenBstr Lib "msvbvm60.dll" Alias "__vbaLenBstr" (ByVal lpString As Long) As Long
Declare Function vbaLenBstrB Lib "msvbvm60.dll" Alias "__vbaLenBstrB" (ByVal lpString As Long) As Long
Declare Function vbaInStr Lib "msvbvm60.dll" Alias "__vbaInStr" (ByVal lStart As Long, ByVal lpStringMatch As Long, ByVal lpStringCheck As Long, ByVal lCompare As Long) As Long
Declare Sub GetMem1 Lib "msvbvm60" (ByVal Addr As Long, RetVal As Byte)
Declare Sub GetMem2 Lib "msvbvm60" (ByVal Addr As Long, RetVal As Integer)
Declare Sub GetMem4 Lib "msvbvm60" (ByVal Addr As Long, RetVal As Long)
Declare Sub GetMem8 Lib "msvbvm60" (ByVal Addr As Long, RetVal As Currency)
Declare Sub PutMem1 Lib "msvbvm60" (ByVal Addr As Long, ByVal NewVal As Byte)
Declare Sub PutMem2 Lib "msvbvm60" (ByVal Addr As Long, ByVal NewVal As Integer)
Declare Sub PutMem4 Lib "msvbvm60" (ByVal Addr As Long, ByVal NewVal As Long)
Declare Sub PutMem8 Lib "msvbvm60" (ByVal Addr As Long, ByVal NewVal As Currency)

'VBA6.DLL
Declare Function EbExecuteLine Lib "vba6.dll" (ByVal StringToExec As Long, ByVal Any1 As Long, ByVal Any2 As Long, ByVal CheckOnly As Long) As Long
Declare Sub EbTerm Lib "vba6.dll" ()
Declare Function EbDoIdle Lib "vba6.dll" () As Long
Declare Function EbMode Lib "vba6.dll" () As Long
Declare Function EbShutdownEventMonitors Lib "vba6.dll" () As Long

Dr Memory · Expert Joined: 16 Aug 2004 Posts: 147 Location: Surrey, UK

I think most of us have an interest in the VB runtime for a variety of reasons - knowledge of various specific areas varies according to one's particular areas of research...

Some functions are well known, many are less so ...

I don't think anybody has approached it with a view to trying to document every function, and such a document would be an epic tome, and would require explanations for many functions whose true purpose still remains unknown ...

A Google search on any particular exported name is usually a good indicator of how much is generally known (or how many people are interested, or aware of) that function ...

If you explain your area of interest, perhaps we could help more ...
_________________
[size=75:2sg2dqh1]At first, I was irridescent. Then, I became transparent. Finally, I was absent ...

golem · Often here Joined: 18 Nov 2002 Posts: 73

Here is my contribution.

rtcBeep sounds a bell sound.

Glad to help out.

Psst... You might want to review the validity of your parameter list of some of your string handling functions... Starting position?

Carry on!
golem

sarge · Moderator Joined: 24 Sep 2002 Posts: 194

And what about

Beep( DWORD dwFreq, DWORD dwDuration)?

And maybe even the Return value?

Sarge

Dr Memory · Expert Joined: 16 Aug 2004 Posts: 147 Location: Surrey, UK

Has anybody figured out rtcAckerman yet?
_________________
[size=75:2sg2dqh1]At first, I was irridescent. Then, I became transparent. Finally, I was absent ...

sarge · Moderator Joined: 24 Sep 2002 Posts: 194

As for the return value, maybe we can follow the example of these fine gentlemen:

Nitwit #1: "Hey, I used the BEEP command, but the computer didn't beep!"
Nitwit #2: "Are you sure you have the volume turned up?"

Surely this type of analytical behavior is beneficial to us all!

Sarge