VB Decompiler :: View topic - CommonApp 2.0 [Exe Only]

VERSION 5.00
'Object Offset: 10121
Begin VB.Form frmMain
Caption = "Common Application 2" ' GuiOpcode: 1 Offset Dec: 10138
ScaleMode = 1 ' GuiOpcode: 25 Offset Dec: 10162
WhatsThisButton = -1 ' GuiOpcode: 66 Offset Dec: 10165
Picture="frmMain.frx":0000 ' GuiOpcode: 33 Offset Dec: 10167
Icon="frmMain.frx":0BDC ' GuiOpcode: 35 Offset Dec: 13204
LinkTopic = "Form1" ' GuiOpcode: 36 Offset Dec: 14295
ClientLeft = 60
ClientTop = 345
ClientWidth = 6930
ClientHeight = 7245
StartUpPosition = 3 ' GuiOpcode: 70 Offset Dec: 14321
'Object Offset: 14324
Begin VB.PictureBox PictureArray
Index = 9 ' GuiOpcode: 2 Offset Dec: 14348
Left = 3510
Top = 6630
Height = 330
Width = 285
TabIndex = 21 ' GuiOpcode: 18 Offset Dec: 14360
ScaleMode = 1 ' GuiOpcode: 26 Offset Dec: 14363
End
'Object Offset: 14369
Begin VB.PictureBox PictureArray
Index = 8 ' GuiOpcode: 2 Offset Dec: 14393
Left = 3150
Top = 6630
Height = 330
Width = 285
TabIndex = 20 ' GuiOpcode: 18 Offset Dec: 14405
ScaleMode = 1 ' GuiOpcode: 26 Offset Dec: 14408
End
'Object Offset: 14414
Begin VB.PictureBox PictureArray
Index = 7 ' GuiOpcode: 2 Offset Dec: 14438
Left = 2790
Top = 6630
Height = 330
Width = 285
TabIndex = 19 ' GuiOpcode: 18 Offset Dec: 14450
ScaleMode = 1 ' GuiOpcode: 26 Offset Dec: 14453
End
'Object Offset: 14459
Begin VB.PictureBox PictureArray
Index = 6 ' GuiOpcode: 2 Offset Dec: 14483
Left = 2370
Top = 6630
Height = 330
Width = 285
TabIndex = 18 ' GuiOpcode: 18 Offset Dec: 14495
ScaleMode = 1 ' GuiOpcode: 26 Offset Dec: 14498
End
'Object Offset: 14504
Begin VB.PictureBox PictureArray
Index = 5 ' GuiOpcode: 2 Offset Dec: 14528
Left = 1950
Top = 6630
Height = 330
Width = 285
TabIndex = 17 ' GuiOpcode: 18 Offset Dec: 14540
ScaleMode = 1 ' GuiOpcode: 26 Offset Dec: 14543
End
'Object Offset: 14549
Begin VB.PictureBox PictureArray
Index = 4 ' GuiOpcode: 2 Offset Dec: 14573
Left = 1530
Top = 6630
Height = 330
Width = 285
TabIndex = 16 ' GuiOpcode: 18 Offset Dec: 14585
ScaleMode = 1 ' GuiOpcode: 26 Offset Dec: 14588
End
'Object Offset: 14594
Begin VB.PictureBox PictureArray
Index = 3 ' GuiOpcode: 2 Offset Dec: 14618
Left = 1170
Top = 6630
Height = 330
Width = 285
TabIndex = 15 ' GuiOpcode: 18 Offset Dec: 14630
ScaleMode = 1 ' GuiOpcode: 26 Offset Dec: 14633
End
'Object Offset: 14639
Begin VB.PictureBox PictureArray
Index = 2 ' GuiOpcode: 2 Offset Dec: 14663
Left = 810
Top = 6630
Height = 330
Width = 285
TabIndex = 14 ' GuiOpcode: 18 Offset Dec: 14675
ScaleMode = 1 ' GuiOpcode: 26 Offset Dec: 14678
End
'Object Offset: 14684
Begin VB.PictureBox PictureArray
Index = 1 ' GuiOpcode: 2 Offset Dec: 14708
Left = 450
Top = 6630
Height = 330
Width = 285
TabIndex = 13 ' GuiOpcode: 18 Offset Dec: 14720
ScaleMode = 1 ' GuiOpcode: 26 Offset Dec: 14723
End
'Object Offset: 14729
Begin VB.PictureBox PictureArray
Index = 0 ' GuiOpcode: 2 Offset Dec: 14753
Left = 90
Top = 6630
Height = 330
Width = 285
TabIndex = 12 ' GuiOpcode: 18 Offset Dec: 14765
ScaleMode = 1 ' GuiOpcode: 26 Offset Dec: 14768
End
'Object Offset: 14774
Begin VB.PictureBox Picture2
Picture="frmMain.frx":101E ' GuiOpcode: 3 Offset Dec: 14792
Left = 90
Top = 2130
Height = 4320
Width = 4620
TabIndex = 4 ' GuiOpcode: 18 Offset Dec: 44868
ScaleMode = 1 ' GuiOpcode: 26 Offset Dec: 44871
'Object Offset: 44877
Begin VB.PictureBox Picture6
Left = 1455
Top = 2340
Height = 1290
Width = 1860
TabIndex = 9 ' GuiOpcode: 18 Offset Dec: 44904
ScaleMode = 1 ' GuiOpcode: 26 Offset Dec: 44907
'Object Offset: 44913
Begin VB.PictureBox Picture7
Left = 195
Top = 180
Height = 870
Width = 1395
TabIndex = 10 ' GuiOpcode: 18 Offset Dec: 44940
ScaleMode = 1 ' GuiOpcode: 26 Offset Dec: 44943
'Object Offset: 44949
Begin VB.CommandButton Command1
Caption = "Button" ' GuiOpcode: 1 Offset Dec: 44967
Left = 270
Top = 225
Height = 360
Width = 870
TabIndex = 11 ' GuiOpcode: 17 Offset Dec: 44986
End
End
End
'Object Offset: 44992
Begin VB.PictureBox Picture3
Left = 1665
Top = 60
Height = 1725
Width = 2250
TabIndex = 5 ' GuiOpcode: 18 Offset Dec: 45019
ScaleMode = 1 ' GuiOpcode: 26 Offset Dec: 45022
'Object Offset: 45028
Begin VB.PictureBox Picture4
Left = 180
Top = 165
Height = 1380
Width = 1785
TabIndex = 6 ' GuiOpcode: 18 Offset Dec: 45055
ScaleMode = 1 ' GuiOpcode: 26 Offset Dec: 45058
'Object Offset: 45064
Begin VB.PictureBox Picture5
Left = 210
Top = 150
Height = 1050
Width = 1395
TabIndex = 7 ' GuiOpcode: 18 Offset Dec: 45091
ScaleMode = 1 ' GuiOpcode: 26 Offset Dec: 45094
'Object Offset: 45100
Begin VB.TextBox Text1
Left = 180
Top = 285
Height = 435
Width = 975
Text = "Text1" ' GuiOpcode: 11 Offset Dec: 45124
TabIndex = 8 ' GuiOpcode: 18 Offset Dec: 45133
End
End
End
End
End
'Object Offset: 45141
Begin VB.PictureBox Picture1
Picture="frmMain.frx":8590 ' GuiOpcode: 3 Offset Dec: 45159
Left = 4905
Top = 2130
Height = 1680
Width = 1680
TabIndex = 3 ' GuiOpcode: 18 Offset Dec: 46964
ScaleMode = 1 ' GuiOpcode: 26 Offset Dec: 46967
End
'Object Offset: 46973
Begin MSWinsockLib.Winsock Winsock1 'Length:100
End
'Object Offset: 47074
Begin VB.TextBox txtItem
Left = 1695
Top = 90
Height = 285
Width = 2415
TabIndex = 2 ' GuiOpcode: 18 Offset Dec: 47100
Tag = "huge_long_tag__that was shank for the sake of readability on the forum__long_tagÿ" ' GuiOpcode: 33 Offset Dec: 47103
End
'Object Offset: 49713
Begin VB.ListBox lstItems
Left = 1680
Top = 570
Height = 1230
Width = 3375
TabIndex = 1 ' GuiOpcode: 17 Offset Dec: 49740
End
'Object Offset: 49744
Begin VB.CommandButton cmdAdd
Caption = "Add" ' GuiOpcode: 1 Offset Dec: 49760
Left = 4215
Top = 90
Height = 255
Width = 855
TabIndex = 0 ' GuiOpcode: 17 Offset Dec: 49776
End
End
'BEGIN Code List
Sub Function1()
End Sub
Sub Function2()
End Sub
Sub Sub1()
End Sub
Sub Sub2()
End Sub

Posted: Mon Aug 16, 2004 9:11 pm Post subject:

looking good I know the Events are indexed in COM. I got them out correctly using COM.....i will try to look tonight at my old code. _________________ -MrU

Posted: Mon Sep 13, 2004 5:59 pm Post subject:

MrU and Moog: When I analyze CommonApp2, I (and I am sure many others), can clearly see the existance of two functions and two subs (with appropriate text messages). However, when I actually run CA2, I can't seem to find the magic event that actually accesses them, other than the one Sub that runs on FormLoad. Since I don't have the source (hey, was it ever released?), I don't know where I should be looking. Are all those procs supposed to run automatically when CA2 is run, or should I be clicking my little heart out on the form someplace? Sarge

Posted: Mon Sep 13, 2004 6:12 pm Post subject:

The source for CommonApp2 was released but I don't have it either. It would nice to see. Whats going on with the bcode??my output is no longer in boxes like before

Posted: Mon Sep 13, 2004 6:31 pm Post subject: Source Code

[="vbgamer45":35cwjet9]The source for CommonApp2 was released but I don't have it either. It would nice to see. Whats going on with the bcode??my output is no longer in boxes like before[/:35cwjet9] Actually I do not recall the source code of common App 2 being released... I may have it somewhere... Moog is off the scene last i talked to him....but i will see what i can find. As far as the vbcode/pcode tags....thats all _aLfa_ _________________ -MrU

Posted: Mon Sep 13, 2004 8:18 pm Post subject:

[="vbgamer45":3eq7dpnn]Whats going on with the bcode??my output is no longer in boxes like before[/:3eq7dpnn] Am I blind, or everything is fine? The source of CA2 was released on this forum, you guys are just lazy, problem is the link is broken (viewtopic.php?p=2075), so go bother moog _________________ One thing only I know, and that is that I know nothing. (Socrates)

Posted: Mon Sep 13, 2004 9:09 pm Post subject:

Like I said. i probably have a copy....i will see what i can find. decompiler.com is not active anymore....so yea I wouldnt call it lazy _________________ -MrU

Posted: Tue Sep 14, 2004 4:36 am Post subject:

Just a thought on identifying event procedures ... All COM objects boil down to a "method list", a table of function pointers, ie the VTable. The ordering is fixed, and for intrinsic VB objects like a Form, it's quite likely that the VTable is going to be always in the same order, whether in IDE or runtime or pcode or whatever .... Perhaps all you need is one valid snapshot, eg: VB.Label1.Vtable = "Click, Caption, GotFocus, " Reading the Vtable for a control at runtime is easy, so I'd use that, get a little proggie to list the first 20 words of its VTable, which is found by De-refing ObjPtr(Control), compare that to an ASM listing of itself, and hey presto ..., work out the standard event handler ordinal positions for that method... That's the theory, anyway Hmmm... it's entirely possible you won't have a clue what I'm talking about ... I'm sure I could explain it in plain English, if I were called upon to do so ... _________________ [size=75:2sg2dqh1]At first, I was irridescent. Then, I became transparent. Finally, I was absent ...

Posted: Tue Sep 14, 2004 8:08 am Post subject:

Well, we all already know that, but you don't need to create a snapshot. You can use plain COM to retrieve the event names (; By the way, VB5 events order are diferent, or it has less events (in some cases) than VB6 (: _________________ One thing only I know, and that is that I know nothing. (Socrates)

Posted: Tue Sep 14, 2004 9:50 am Post subject:

Yes, of course, you can iterate the member names ... Now all you need is one snapshot of the EXE's VTable for that object taken at runtime, and you can identify the true "name" for that "cmdObj.Event" label MrUnleaded was looking for .... _________________ [size=75:2sg2dqh1]At first, I was irridescent. Then, I became transparent. Finally, I was absent ...

Posted: Tue Sep 14, 2004 11:10 am Post subject:

Iterate? What for? The events are in the same order as the VB5/6.OLB, you just have to do a simple formula like: <event index in the exe> - <insert some random number here> to retrieve the COM index of the event. Unless your talking about Native compiled EXE's, then I'm afraid I must agree with your method _________________ One thing only I know, and that is that I know nothing. (Socrates)

Posted: Tue Sep 14, 2004 3:31 pm Post subject:

[="Dr Memory":1nvv0kmw]Sorry for the mistaken identity there! It's the same principle in all cases really .... I was wondering whether the structure mappings have advanced to the point where we can drill down to these VTables yet? If not, a runtime VTable might be used as a "key" to search the EXE and find exactly where they are ... but if we already know, then that's that ...[/:1nvv0kmw] well....the thing is the VTables are not stored in the exe which we are examining. they are either stored in an ocx, dll, or a type lib file(olb?). most of the info on the vb controls is stored in VB6.OLB. I have never bothered to "drill down" the file as the typelib viewer(an example on this board) can pull all the necessary info out of the file using COM api/classes. I really dont see a point to drill down in this case. i do not think i have retrieved any invalid data through this method.... _________________ -MrU

Posted: Fri Oct 01, 2004 7:04 pm Post subject: Screenshot: vbInFORMant("CommonApp2.exe")

The first screenshot shows the "snaffle" process - the background form is provided by the vbInformant server, a standard VB6 ActiveX DLL, but running as an in-process in the target (with the help of a small but sharp tool) ... the host window is self-evident, and the small window is the tool's front-end, which doesn't do much at all except list the currently running VB6 exe's (or any EXE using a VB6 ActiveX dll with a GUI), and when I click on one of those, it invokes the small, sharp tool to attach the "clip-on" COM service to the target. The server could do its work without any visible trace, but for the demo (and to show off a bit) it shows its own Form on which it has logs its progress during the FRM generation process - it enumerates all the host's controls as it produces them ... The "???.vbp" in the caption is a reminder to myself to go and fetch this from the header structures - as I mentioned earlier, I'm not using them at this stage, it's all COM and a couple of surgical tools ... [font=Comic Sans MS:363rhr6p]Sorry, guys, I tried twice to upload a jpg (136kb) but it gets an error Have I exceeded the size limit? Or should I try a gif?[/font:363rhr6p] _________________ [size=75:2sg2dqh1]At first, I was irridescent. Then, I became transparent. Finally, I was absent ...

Posted: Mon Oct 04, 2004 1:09 pm Post subject:

So what you're saying is....no CommonApp2 source? sarge

Posted: Mon Oct 04, 2004 3:15 pm Post subject:

What "error" do you get? I like the concept.... you could possibly turn this into an process to save the state of a VB exe. like a pause and play type operation on the exe. _________________ -MrU

Posted: Tue Sep 14, 2004 1:15 pm Post subject:

[="Dr Memory":327gql6q]Yes, of course, you can iterate the member names ... Now all you need is one snapshot of the EXE's VTable for that object taken at runtime, and you can identify the true "name" for that "cmdObj.Event" label MrUnleaded was looking for ....[/:327gql6q] I am not looking for it.....maybe it was vbgamer.... I have some experience with COM and yea... you and _aLfa_ are right. The vtable....is stored in COM....all you need is a class or set of functions to retrieve the entry based on the ID.....this vtable id appears in pcode often as well. this is how you determine "cmdObj.Event" in pcode. as for native....maybe _aLfa_ knows... _________________ -MrU

Posted: Tue Sep 14, 2004 3:19 pm Post subject:

Sorry for the mistaken identity there! It's the same principle in all cases really .... I was wondering whether the structure mappings have advanced to the point where we can drill down to these VTables yet? If not, a runtime VTable might be used as a "key" to search the EXE and find exactly where they are ... but if we already know, then that's that ... _________________ [size=75:2sg2dqh1]At first, I was irridescent. Then, I became transparent. Finally, I was absent ...

Posted: Fri Oct 01, 2004 4:02 pm Post subject:

[:3gi073x1]well....the thing is the VTables are not stored in the exe which we are examining. they are either stored in an ocx, dll, or a type lib file(olb?). [/:3gi073x1] I would hazard a guess, that such an exe will have no GUI, but will access only project-global objects like App, Printer, Screen etc ... they are entirely contained in the runtime library vtable and all ... Or, it could still have a GUI, but one provided by external (public) objects only - some COM server or DLL .... Could I have a look at the exe? It sounds quite educational ... _________________ [size=75:2sg2dqh1]At first, I was irridescent. Then, I became transparent. Finally, I was absent ...

Posted: Fri Oct 01, 2004 11:42 pm Post subject:

I've made GIF versions - I've posted them in another BB fine, but still I'm getting errors (non-specific "unable to download") sigh .... They are only 96 and 130 kb ... ?????? (help _aLfa_ !!!) _________________ [size=75:2sg2dqh1]At first, I was irridescent. Then, I became transparent. Finally, I was absent ...

Posted: Tue Oct 05, 2004 2:39 pm Post subject:

A series of form snapshots can be wrapped in a simple VBP wrapper that lets it emulate a "PowerPoint" presentation - forget screenshots. I now have "Save complete Form", or "Save new display state" which just adds a properties update procedure to the existing form... the wrapper just provides "Next" and "Prev" buttons, all else is automatic. Compile and send the EXE, which will compress to a smaller file than any single JPG screenshot would... The error code when I upload attachments is non-specific, and doesn't occur until right at the end (a considerable time!) - it doesn't give any reason it just says "Unable to load "... I'll try again and get the exact text of the message ... Sarge: Yes, it's a bit weak, really! No source code extraction ... Maybe next week ..... _________________ [size=75:2sg2dqh1]At first, I was irridescent. Then, I became transparent. Finally, I was absent ...

Posted: Tue Oct 05, 2004 2:46 pm Post subject:

[="MrUnleaded":aazc5585]What "error" do you get? I like the concept.... you could possibly turn this into an process to save the state of a VB exe. like a pause and play type operation on the exe.[/:aazc5585] Reporting and Automation both have potentially interesting uses of this This is what I get when I attach any file, even a little zip: Upload Error: Could not upload Attachment to ./files/ss_gui_snaffle_001.gif. _________________ [size=75:2sg2dqh1]At first, I was irridescent. Then, I became transparent. Finally, I was absent ...

Posted: Tue Oct 05, 2004 2:47 pm Post subject:

I can load them quite happily at xtremevbtalk.com, so I don't know what the problem is ... some IE compatibility problem? Is there an FTP access method? _________________ [size=75:2sg2dqh1]At first, I was irridescent. Then, I became transparent. Finally, I was absent ...

Posted: Tue Oct 05, 2004 3:51 pm Post subject:

i increased your quota. try to upload again. _________________ -MrU

Posted: Wed Oct 06, 2004 2:18 am Post subject: The Last Picture Show

Hokey dokey, here we go ... Curses, it's the same result ... wot a pain ... it's something about this box and this forum ... I uploaded from the laptop just a couple of weeks back ... nuts ... I could email them to you and you could put them in maybe? The irony is, I don't need screenshots any more, not for showing VB apps, I just give you a very small zipped EXE which shows the real thing. But if I can't upload those either that kind of cruels the idea .... I might try putting SP6 on this box tomorrow, see if that helps - it's still running SP0, and IE5.0 ... _________________ [size=75:2sg2dqh1]At first, I was irridescent. Then, I became transparent. Finally, I was absent ...

Posted: Wed Oct 06, 2004 3:31 pm Post subject:

yea if you cant upload something, you can email them to me, just send it to the address in my profile. and put a subject like "please upload" or whatever. This goes for everyone. _________________ -MrU

Posted: Wed Oct 06, 2004 5:04 pm Post subject:

Actually, my comment was NOT aimed at your new stuff....I was refering to my original question some dozens of posts ago. Where IS the CommonApp2 source code, so I can see how to activate those "hidden" function routines, so I can see if RACE 3.4 parses them correctly. Sarge

Posted: Wed Oct 06, 2004 5:11 pm Post subject:

[="sarge":ocw7x70f]Actually, my comment was NOT aimed at your new stuff....I was refering to my original question some dozens of posts ago. Where IS the CommonApp2 source code, so I can see how to activate those "hidden" function routines, so I can see if RACE 3.4 parses them correctly. Sarge[/:ocw7x70f]To answer that....i did look through my stuff to find it, but to no avail. it was once posted on extra.decompiler.com the person who would most likely have it would be moog. If anyone wants to make a new commonapp....go right ahead. post the exe then after a month or so you can post the source. _________________ -MrU

Posted: Thu Oct 07, 2004 8:06 pm Post subject:

Sorry, Sarge! I thought you were just being witty! Thanks MrU - I'll do that - I will try SP6 too ... _________________ [size=75:2sg2dqh1]At first, I was irridescent. Then, I became transparent. Finally, I was absent ...

Posted: Sun Oct 10, 2004 4:40 am Post subject: for whatever reason...

Here you go Dr Memory I got the same error you got.....but its fixed now. there was a file permissions problem. Anyways feel free to test it out. _________________ -MrU

Posted: Sun Oct 10, 2004 8:03 am Post subject:

Thanks! I originally thought the problem might be in the files themselves, but got the same error when I tried a zip file containing them. Does the permissions error you got tell us anything? Something I can do before uploading the files maybe? _________________ [size=75:2sg2dqh1]At first, I was irridescent. Then, I became transparent. Finally, I was absent ...

Posted: Mon Oct 11, 2004 3:32 am Post subject:

no...it was something we didnt do when the board was updated.... noone had "write" permission to the directory where the files go.....but they do now. so just upload like you were before and you should ge good to go. _________________ -MrU

Posted: Tue Oct 12, 2004 7:48 am Post subject:

Cool, glad that's sorted ... _________________ [size=75:2sg2dqh1]At first, I was irridescent. Then, I became transparent. Finally, I was absent ...

Posted: Thu Oct 21, 2004 10:55 pm Post subject:

Moog thought of things like that so i wouldnt be surprised. Sarge,aLfa,Dr Memory, if any of you would like to recompile the source that Anna submitted for us...then we can repost it. just to make sure the source is a valid representaton of the exe btw Thanks Anna. _________________ -MrU

	VB Decompiler Forum Index -> Common Application Programs	All times are GMT Goto page 1, 2, 3 Next
Page 1 of 3