[教学]：论surfer8的启动

holz

可怜我刚才写了半天，因为不知道如何把图贴到文中，结果错放到附件了，白白打了半天字。

ft，严重ft。

其实我想说的是，如果大家有和我一样，使用最早泄漏出来的那个surfer8序列号的话，肯定遇到一个问题，那就是安装完surfer8后，那个序列号用了十天就失效了，一启动surfer8就问你序列号，可是你这时候输入什么序列号也不行阿，他都告诉你非法，既然非法，那么就不能使用surfer8拉。

这么ft的问题，当时折腾到我，还被领导狂扁。

终于有一天，我发现了一个秘密……
话说经过N次重装Surfer8之后，有一次就发现了，因为当时我在搞一个Script，就忘了surfer8是不能用的，于是按F5运行，怪事出现了，我的Surfer8正常的启动了也！
第一反映当然是以为Surfer8发完疯了，于是退出再重启，又问我序列号！
转回Scripter，运行脚本，Surfer8又出来了，没有问我序列号阿，全部功能逐个试，全部正常，打开关于对话框，我那个序列号在那里阿。

这个问题太恶心了！Golden Software也不能这样整人阿，于是请出FileMon和RegMon两位大师，用两种方法启动Surfer8，结果发现直接运行Surfer.exe和用脚本启动Surfer调用的动态链接库有一些不同。终于知道问题所在，那就好办
下面就是启动Surfer8的N种方法，如果你和我一样遇到这个问题，可以试试。

首先第一个方法当然是使用Scripter，打开Surfer8的Scripter（不是Grapher的那个，不然他就会告诉你应用程序对象找不到），输入下面的代码：
Option Explicit '要求变量声明，可以不使用
Sub Main
dim SurferApp as Object '定义一个对象变量，用来指向Surfer8的
On Error resume Next '关闭错误报告，使程序可以继续
set SurferApp=GetObject(,"Surfer.Application") '注意那个逗号阿，这句是取Surfer应用程序对象，如果Surfer已经打开，当然不用再重新启动了。
If Err.Number<>0 then Set SurferApp=CreateObject("Surfer.Application") '如果没有，就创建一个Surfer应用程序对象，也就是启动Surfer拉。
On error goto 0 '打开错误报告
SurferApp.Visible=True '一定不能忽略这一句，不然Surfer已经启动你也看不到程序窗口阿。
SurferApp.Documents.Add '这句新建一个Plot窗口，省得你多点几下鼠标了。
End Sub

看看，就是这么简单！输入完以上代码，按F5，等一会，Surfer8出来了，现在关闭Scripter，干活罢。
当然你不希望每次都输入阿，把上面的代码保存为StartSurfer8.bas，每次用Scripter载入这个文件运行一下，就可以使用Surfer8了。
这个方法有个好处，就是别人用不了你的surfer8，人家问你的时候你就很无奈的告诉人家找不到序列号阿，所以本来我有很多很爽的东西要给你看现在没办法了……

wowoaicad

花点时间看看论坛的帮助说明及这个帖子“晓东CAD空间－论坛使用方法FLASH教学”很快就适应了，帖子在这儿： http://www.xdcad.net/forum/showthread.php?s=&threadid=21358

holz

大家到文章中心看罢，我把这个放到文章中心了。
周末在家带小孩，在自己的机器上做了三个Surfer8的Flash，可惜家里没钱上网，我有没有软驱，等我想办法拷过来，大家可以看看。
感谢wowoaicad！

tsy_sds_chwr

能给我Email一个吗?
我的Email是amber12772@sina.com

glifen

能给我Email一个吗?