奇迹MU-通过网站查询游戏里的积分、荣耀点、世界币
本帖最后由 瑶哥 于 2025-5-19 13:50 编辑通过网页查询奇迹玩家的积分情况,下面是核心代码,WCoinC、WCoinP、GoblinPoint 分别对应游戏中的“积分、世界币、荣耀点“
理论上说,此代码合适103以上的所有版本,个别版本报错的话,修改相应的表名即可。
Dim currentPoints,currentCoins,currentGlory
Dim querySql
querySql = "SELECT WCoinC,WCoinP,GoblinPoint FROM CashShopData WHERE AccountID = '" & account & "'"
Set rs = conn.Execute(querySql)
If Not rs.EOF Then
currentPoints = rs("WCoinC")
currentCoins = rs("WCoinP")
currentGlory = rs("GoblinPoint")
End If
rs.Close
Response.Write "不可能,绝对不可能,公益怀旧服哪来的充值入口==^.^== <br>"
Response.Write "当前账户:" & account & ",积分:" & currentPoints & ",世界币:" & currentCoins & ",荣耀点:" & currentGlory
Response.End
End If配合一个html界面即可查询用户积分,把代码修改下即可进行积分的充值
这界面。。很像chatgpt3.5写的。。 qwe524 发表于 2024-7-5 18:26
这界面。。很像chatgpt3.5写的。。
:,能有更高效的方法是最好的 帮顶一下,金币到手 帮顶一下,金币到手
页:
[1]