奇迹MU-通过网贾查询游戏里的积分、荣耀点、世界币

瑶哥

通过网页查询奇迹玩家的积分情况，下面是核心代码，WCoinC、WCoinP、GoblinPoint 分别对应游戏中的“积分、世界币、荣耀点“
理论上说，此代码合适103以上的所有版本，个别版本报错的话，修改相应的表名即可。

1.   Dim currentPoints,currentCoins,currentGlory
   
2.     Dim querySql
   
3.     querySql = "SELECT WCoinC,WCoinP,GoblinPoint FROM CashShopData WHERE AccountID = '" & account & "'"
   
4.     Set rs = conn.Execute(querySql)
   
5.     If Not rs.EOF Then
   
6.         currentPoints = rs("WCoinC")
   
7.         currentCoins = rs("WCoinP")
   
8.         currentGlory = rs("GoblinPoint")
   
9.     End If
   
10.     rs.Close
    
11. 
    
12.     Response.Write "不可能，绝对不可能，公益怀旧服哪来的充值入口==^.^== <br>"
    
13.     Response.Write "当前账户:" & account & ",积分:" & currentPoints & ",世界币:" & currentCoins & ",荣耀点:" & currentGlory
    
14.     Response.End
    
15. End If

复制代码

配合一个html界面即可查询用户积分，把代码修改下即可进行积分的充值

qwe524

这界面。。很像chatgpt3.5写的。。

瑶哥

qwe524 发表于 2024-7-5 18:26
这界面。。很像chatgpt3.5写的。。

,能有更高效的方法是最好的

zhangyuan9913

帮顶一下，金币到手