给脚本计费

foboy

本来俺是给人做脚本收点小钱的，后来觉得累，不如写几个好点的脚本按时间收费， 就做了个脚本计费的功能。现在拿出来和大家分享一下。
该功能需要用我的网站作为服务器实现按时间给脚本计费。接口如下：
以下接口直接在浏览器中访问时会重定向到本站首页，必须用POST方式访问才会返回正常数据！(不排除以后改为加密方式)
注册接口：
http://maijiaoben.com/xyq/p_usersign.php?user=&pass=&spass=&systeminfo=&softid=
user为用户名，pass为密码，spass为第二密码（用于找回），systeminfo为系统硬件信息，softid为软件的代码（用来防止一个用户能登陆多种软件）
返回值：
注册成功：success
有同名或者本机已经注册过用户：sameuser
其他错误：error
登陆接口：
http://maijiaoben.com/xyq/p_userlogin.php?user=&pass=&systeminfo=&softid=
返回值：
diffsoft：软件序列号不符
diff：硬件信息不符
guoqi：用户余额不足
nouser：无此用户
返回空字符为其他错误
登陆成功则返回： 天数，登陆次数
用户自己再拆分此字符串
用本接口可实现按照天、周、月和次数为脚本计费。
另外还有用户充值、解绑计算机等接口，在此就不公布了。本来想把软件也发出来，但是上面有我的广告图片，发出来恐怕AU3论坛的管理员不高兴，就不发啦。
发一个登陆的例子：（add_msg()是我更新GUI的自定义函数）

        $_to_send_info = "user=" & encode_url($re_user) & "&pass=" & $re_pass & "&spass=" & $re_pass_re & "&systeminfo=" & $systeminfo & "&softid=" & $softid
        $_the_result = _post_info_to_web($web_server & "p_usersign.php", $_to_send_info)
        Switch $_the_result
                Case "success"
                        add_msg("注册成功！")
                        GUICtrlSetData($Input_user,$re_user)
                        GUICtrlSetData($Input_password,$re_pass)
                        Login_user()
                Case "sameuser"
                        add_msg("有同名用户存在或者本机注册过用户！")
                        Return
                Case "error"
                        add_msg("注册失败，请重试！")
                        Return
        EndSwitch

POST服务器的函数：

Func _post_info_to_web($_to_post_url = "", $_to_post_info = "", $_to_post_referer = "")
        Local $_post_result
        If $_to_post_url == "" Then
                SetError(1)
                Return
        EndIf
        If $_to_post_referer == "" Then $_to_post_referer = $_to_post_url
        $oHTTP = ObjCreate("microsoft.xmlhttp")
        $oHTTP.Open("post", $_to_post_url, False)
        $oHTTP.setRequestHeader("Cache-Control", "no-cache")
        $oHTTP.setRequestHeader("Content-Type", "application/x-www-form-urlencoded")
        $oHTTP.setRequestHeader("Referer", "http://maijiaoben.com")
        $oHTTP.setRequestHeader("Content-Length", StringLen($_to_post_info))
        $oHTTP.Send($_to_post_info)
        $_post_result = BinaryToString($oHTTP.responseText)
        If StringLen($_post_result) > 20 Then
                $_post_result = ""
                SetError(1)
        EndIf
        Return $_post_result
EndFunc   ;==>_post_info_to_web

附上两张截图，我已经尽量把LOGO图片少露出来了，管理员大人千万不要再说我带有图片广告了。谢谢。

rikthhpgf2005

过路看看

tcwmkim

学习了。。。很好~

zmj2008

学习了  很好  我这里也做了和这个功能差不多的程序

lubb

放出源码才是真的好。。

foboy

其实这算不上什么有独立功能的脚本， 只是个提交信息然后根据返回的信息执行操作的问题，怎么使用全看自己，没必要放源码。任何人可以使用这个接口。

catcher

不是源码作品吧,放展览区好点

guland

不错不错 哈哈  

javarike

买什么广告？？

newstar20088

佩服呢~~   努力学习

lilonghua

路过！！看看！！

guoguo188

看不明白 留个脚印 以后再来

455901394

学习下，终于找到组织了

hollandmfq

雷锋精神传天下！谢谢分享！

jkq920

没弄懂....