*******如果要在自己的程序中使用其他软件的数据，至少该具备哪能些条件？加上前几个问题，共400分相送。在线等待，三日内结贴。

[dxqxiaoqiang]

现在想做一个数据处理软件的功能扩展程序，需要对这个程序的中间数据进行运算，并给出结果。但没有这个软件的源码，只知道这个软件的数据格式，除了利用存盘数据文件进行二次开发外，还有什么好的方法。我手头有一个调用此软件进行其他工作的一个*.obs的脚本文件,但不知怎么用,对此提出建议也可。
可参见http://expert.csdn.net/Expert/topic/1508/1508219.xml?temp=.8889124
http://expert.csdn.net/Expert/topic/1506/1506076.xml?temp=1.552981E-02
http://expert.csdn.net/Expert/topic/1506/1506107.xml?temp=6.234378E-02
共四百分相送.

[yesry]

把脚本贴出来
[e-mail]

[Chxis]

??

[Jagen在路上]

这个软件有没有相应的二次开发接口阿，或者基于COM的也可以阿！

[dxqxiaoqiang]

继续等待

[meCAD]

帮忙up

[dxqxiaoqiang]

II (8/15/2001)
'Software to control Pike MappIR with OPUS Software

'REQUIREMENTS
' 1) AutoPro profiles are located in the C:\AutoPro5\profile directory.
' 2) Profiles extension for the Wafer MappIR are *.waf files.
' 3) OPUS 3.0 or later loaded in the c:\OPUS_NT directory
' 4) Pike AutoPro 5.0
' 5) Experiment file (AutoPro.xpm) located in C:\OPUS_NT\XPM

'RECOMMENDATIONS
' 1) Pike AP5.exe 644 kb file to be loaded
' This correction corrects occasional halts in runs

'*********VARIABLES*****************
dim wdat
dim dat
dim points, commandline
Dim name 'User Supplied Spectral Filename
Dim fullname 'variable used to construct the active spectra with the full data path c:opus_nt\data\test.0
Dim SampleNumber 'The sample number in Series, used to stored data in a sequence
Dim AnalysisResult 'The Value of the Analysis Result
Dim Method 'The value of the user selected quant method read from cbo_quant combo box
Dim Profile 'The value of the Autopro Profile, read from the Combowaf combo box

'**********CONSTANTS ***************
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8

Set FileSyst = CreateObject("Scripting.FileSystemObject")


Sub Form_OnLoad
status.caption = "Loading form ..."
Dim FileSyst, f, EachFile, FileList, FolderPath, FileExten
'Read the desired path and extension.
FolderPath = "C:\Autopro5\profile"
FileExten = "waf"
'Setup a call to the file system.
Set FileSyst = CreateObject("Scripting.FileSystemObject")
'Setup a call to the desired folder.
Set f = FileSyst.GetFolder(FolderPath)
'Read all the files in the folder and store them in FileList.
Set FileList = f.Files
'Loop through each file in the list and read its extension.
'Add it to the list if it is correct.
For Each EachFile In FileList
If (FileSyst.GetExtensionName(EachFile.Name)) = FileExten Then
combowaf.AddItem EachFile.Name 'Add to ComboBox
End If
next
'Read the desired path and extension.
FolderPath = "C:\opus_nt\quant"
FileExten = "q1"
'Setup a call to the file system.
Set FileSyst = CreateObject("Scripting.FileSystemObject")
'Setup a call to the desired folder.
Set f = FileSyst.GetFolder(FolderPath)
'Read all the files in the folder and store them in FileList.
Set FileList = f.Files
'Loop through each file in the list and read its extension.
'Add it to the list if it is correct.
'For Each EachFile In FileList
' If (FileSyst.GetExtensionName(EachFile.Name)) = FileExten Then
' cbo_quant.AddItem EachFile.Name 'Add to ComboBox
'End If
'Next
status.caption = "Ready for Setup ..."
End Sub


Sub CMD_Background_Click
profile = "c:\autopro5\profile\" &combowaf.text
results = form.Opusexecute("ExternalProgram (0, {XPF=1, XST=2, XPR='C:\AutoPRO5\newfile.exe', XPA='"&profile&"', XWI=1, XWS=0, XCW=0, XSB=0, DDE=0, DDS='', DDT='', DDI='', DDD=''});")
results = form.OpusRequest("ExternalProgram (0, {XPF=1, XST=2, XPR='C:\AutoPRO5\init.exe', XPA='', XWI=1, XWS=0, XCW=1, XSB=0, DDE=0, DDS='', DDT='', DDI='', DDD=''});")
Status.caption = "To Collect A Background 1:Active AutoPro 2: Change to Manual Mode 3: Move to the Desired Background Position 4: Change Mode Back to Automatic 5: Return to This Program and Select OK"
msgbox "(By default backgrounds scans are taken in the HOME POSITION. Follow the directions on the screen if you wish to take a background is a position other than HOME (Press OK to Continue) "
name = runname.text
Status.caption = "Collecting Background ..."
result = form.OpusRequest("MeasureReference (0, {EXP='AutoPro', PTH='c:\OPUS_NT\XPM', XPP='C:\OPUS_NT\XPM', CNM='Default', NAM='"&name&"', SFM='', SNM=''});")
Status.caption = "Background Complete ..."
End Sub


Sub START_Click
dim i
status.caption = "Measuring First Sample ..." 'Displays message"
samplenumber = 1
profile = Combowaf.text
status.caption = "Initializing MAPPIR Profile" &profile
for i = 1 to points
status.caption = "Moving to Sample Position" &samplenumber
result = form.OpusRequest("ExternalProgram (0, {XPF=1, XST=0, XPR='C:\AutoPRO5\point.exe', XPA='"&samplenumber&"', XWI=1, XWS=0, XCW=1, XSB=0, DDE=0, DDS='', DDT='', DDI='', DDD=''});")
status.caption = "Measuring Sample Position " &samplenumber
name = runname.text
name = name &"_" &samplenumber
fullname = "c:\opus_nt\data\" &name &".0"
shortname = name &".0"
Result = form.OpusRequest("MeasureSample (0, {EXP='AutoPro', PTH='C:\OPUS_NT\Data', XPP='C:\OPUS_NT\XPM', CNM='Default', NAM='"&name&"', SFM='', SNM=''});")
samplenumber = samplenumber + 1
status.caption = "Measurement Complete "
next
End Sub



Sub Combowaf_Click
'read the total number of measurement points for the selected Autopro Waf profile
commandline = "c:\autopro5\profile\" &combowaf.text
Set Dat=FileSyst.OpenTextFile(Commandline,1,True)
points = Dat.Readline
points = Dat.Readline
points = Dat.Readline
points = Dat.Readline
points = Dat.Readline
points = Dat.Readline
points = Dat.Readline
points = Dat.Readline
points = cdbl(points)
End Sub


Sub LOAD_Click
result = form.OpusRequest("ExternalProgram (0, {XPF=1, XST=0, XPR='C:\AutoPRO5\load.exe', XPA='', XWI=1, XWS=0, XCW=1, XSB=0, DDE=0, DDS='', DDT='', DDI='', DDD=''});")
End Sub


Sub UNLOAD_Click
result = form.OpusRequest("ExternalProgram (0, {XPF=1, XST=0, XPR='C:\AutoPRO5\unload.exe', XPA='', XWI=1, XWS=0, XCW=1, XSB=0, DDE=0, DDS='', DDT='', DDI='', DDD=''});")
End Sub


9 AutoPro2.obsForm @€ , , ? , ? &{B54F3741-5B07-11cf-A4B0-00AA004A55E8}

[dxqxiaoqiang]

*.OBS文件开头部分用记事本打开后是乱码，可能是格式部分吧。
手头没有二次开发接口，只有别人的一个二次开发例程，如上。

[dxqxiaoqiang]

游戏外挂是怎么做的，是不是必须有二次开发接口，我认为我要做的工作类似一个软件外挂，是为了实现一些补充的功能。希望给点意见。在线等待，午夜前结贴。

[yesry]

在注册表找到{B54F3741-5B07-11cf-A4B0-00AA004A55E8}
用VB创建{B54F3741-5B07-11cf-A4B0-00AA004A55E8}的COM。然后通过VB的IDL描述能力，猜这个COM的函数及其功能。

[dxqxiaoqiang]

yesry() ：
VB的IDL描述怎么用，能否给点资料或详细一点的建议。我对其一无所知。

[dxqxiaoqiang]

yesry() ：
我现在手头还没有这个软件，需要从别人那里拿注册表。明天我发给你，你帮我看一下好吗？谢谢！

[dxqxiaoqiang]

在线等待。再等一天结贴。

[MiniStrong]

把任务说明白点，我帮你看看。
[e-mail]

[dxqxiaoqiang]

to MiniStrong:
我已经发过去了。

[dxqxiaoqiang]

结贴.