程序使用人数统计？大神进来给个思路？

rjtiantian

利用现有的免费资源解决：京东云擎布置网站入口,百度统计统计使用信息，Lisp主动访问网站提交访问信息。

具体方法如下：

1.打开http://jae.jd.com/ 注册京东的免费云擎，打开控制台，新建应用，记住这个二级域名，后面要用到。

2.打开 http://tongji.baidu.com/web/welcome/login 注册百度统计站长版（注意是站长版），网站里就填京东提供的二级域名，注册成功后会提供统计代码，复制代码。

3.切回京东云擎控制台，访问代码库。

4.创建一个文件，文件名为 index.php，创建后点编辑。

5.删除 <iframe 和 </ iframe > 之间的代码，在同样位置贴入复制的百度统计代码，完成后如下图，确认正确后点提交。

6.返回控制台，点 部署管理 — 代码库部署 – 快递部署 – 确定

7.部署成功后网络部分完成。

8.在Lisp中主动访问你的二级域名，只要访问这个页面就可以了，统计部分由百度统计完成。

(defun c:TT (/ ie SS)

; 打开统计页面

1. (defun c:Test (/ ie SS)
   
2.   
   
3.   ; 打开统计页面
   
4.   (setq ie (Vlax-Create-Object "InternetExplorer.Application" ))   
   
5.   (Vlax-Invoke ie 'Navigate "http://rjtiantian.jd-app.com")
   
6.   
   
7.   ;以下是你的程序
   
8.   (if (Setq SS (SSget))
   
9.     (Progn
   
10.       (alert "Hello World!")
    
11.       (SSSetfirst nil SS)
    
12.     )
    
13.   )
    
14. 
    
15.   ; 关闭统计页面
    
16.   (Vlax-Invoke-Method ie 'Quit)
    
17.   (vlax-release-object ie)
    
18.   
    
19.   (princ)
    
20. )
    

(defun c:Test (/ ie SS)<br />   <br />   ; 打开统计页面<br />   (setq ie (Vlax-Create-Object "InternetExplorer.Application" ))    <br />   (Vlax-Invoke ie 'Navigate "http://rjtiantian.jd-app.com")<br />   <br />   ;以下是你的程序<br />   (if (Setq SS (SSget))<br />     (Progn<br />       (alert "Hello World!")<br />       (SSSetfirst nil SS)<br />     )<br />   )<br /> <br />   ; 关闭统计页面<br />   (Vlax-Invoke-Method ie 'Quit)<br />   (vlax-release-object ie)<br />   <br />   (princ)<br /> )<br />

9.查看一下统计结果，统计结果很详细吧，绝对够用了。

详细信息查看：
http://tongji.baidu.com/web/welcome/login
用户名：rjtiantian1
密   码：mjtd.com

我的E-Mail：rjtiantian@vip.qq.com

spp_wall

rjtiantian 发表于 2014-10-19 21:36
利用现有的免费资源解决：京东云擎布置网站入口,百度统计统计使用信息，Lisp主动访问网站提交访问信息。具体 ...

参数类型错误: VLA-OBJECT nil

fl202

rjtiantian 发表于 2014-10-19 21:36
利用现有的免费资源解决：京东云擎布置网站入口,百度统计统计使用信息，Lisp主动访问网站提交访问信息。具体 ...

膜拜大神，有空试试！再次致谢！