关于序例号的问题

yangff

http://rpg.blue/upload_program/files/登陆密码范例.exe,能力有限每次玩都要输入CD-KEY
叶舞枫的登陆系统改。
,默认是1234678

幻の飞鱼

LS这个有点问题，而且是用了1.03做的- -|，估计大部分人打不开

天狼星1110

完美解决是可以用RM现成的功能可以轻松实现
先去参考F1帮助里IO类的几行短小的脚本学会创建文件和判断文件
然后在游戏开头设置一个条件分歧就可以了
这个就是思路,实际操作起来实现不会超过3分钟

yangff

以下引用幻の飞鱼于2007-7-11 15:33:15的发言：

LS这个有点问题，而且是用了1.03做的- -|，估计大部分人打不开

拜托啦！我的集子上装的是1.03KO?
把game.ini里的103改成102就没问题了！

叶舞枫

LS啊……你发的那个不是我的产物么……（再次声明：我不叫叶子，叶子是另一个人……）

范例居然还删掉了脚本中的核心部分，你自己下载后打开试试能不能运行……{/pz}

幻の飞鱼

以下引用yangff于2007-7-12 9:28:32的发言：


以下引用幻の飞鱼于2007-7-11 15:33:15的发言：

LS这个有点问题，而且是用了1.03做的- -|，估计大部分人打不开


拜托啦！我的集子上装的是1.03KO?
把game.ini里的103改成102就没问题了！

我就是说你用了1。03所以的大部分用1。02人应该打不开

即使改了1。02，也只是能运行，不能打开工程

而且似乎删掉了点东西，其实不能运行了- -昏菜

yangff

http://rpg.blue/upload_program/files/stargamekey.rar
vb.net做的，使用需安装.net支持包
使用方法：
用记事本打开reg.key在第一行输入序列号，目前只支持1个序列号。在第一行写
把整个游戏拷贝至game目录
文件列表及说明：
+游戏目录
+game.exe （游戏启动程序）
--game （dir游戏程序）

源代码：

1. Imports Microsoft.Win32
   
2. Public Class Form1
   
3. 
   
4.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   
5.         Me.Hide()
   
6.         Dim exists As Boolean = False
   
7.         Try
   
8.             If My.Computer.Registry.CurrentUser.OpenSubKey("Software\game\reg") IsNot Nothing Then
   
9.                 exists = True
   
10.                 Dim aa As String
    
11.                 aa = My.Application.Info.DirectoryPath & "\game\" & "game.exe"
    
12.                 Shell(aa)
    
13.                 End
    
14.             End If
    
15.         Finally
    
16.             Dim yy As String
    
17.             My.Computer.Registry.CurrentUser.Close()
    
18.             Dim fileContents As String
    
19.             yy = My.Application.Info.DirectoryPath & "\" & "reg.key"
    
20.             fileContents = My.Computer.FileSystem.ReadAllText(yy)
    
21.             Dim a As String = InputBox("输入cd-key")
    
22.             If a = fileContents Then
    
23.                 Dim newKey As RegistryKey
    
24.                 newKey = My.Computer.Registry.CurrentUser.CreateSubKey("Software\game\reg")
    
25.                 Dim aa As String
    
26.                 aa = My.Application.Info.DirectoryPath & "\game\" & "game.exe"
    
27.                 Shell(aa)
    
28.                 End
    
29.             Else
    
30.                 MsgBox("您输入的cd-key：" & a & "错误！")
    
31.                 End
    
32.             End If
    
33.         End Try
    
34. 
    
35.     End Sub
    
36. End Class

复制代码

下载：http://rpg.blue/upload_program/files/stargamekey.rar

yangff

以下引用叶舞枫于2007-7-12 9:34:27的发言：

LS啊……你发的那个不是我的产物么……（再次声明：我不叫叶子，叶子是另一个人……）

范例居然还删掉了脚本中的核心部分，你自己下载后打开试试能不能运行……

SORRY我找到的时候帖子上说的是叶子的离开。。。

范例居然还删掉了脚本中的核心部分，你自己下载后打开试试能不能运行…… 可以运行啊！
明子输入脚本没用啊！

天狼星1110

以下引用天狼星1110于2007-7-11 16:21:57的发言：

完美解决是可以用RM现成的功能可以轻松实现
先去参考F1帮助里IO类的几行短小的脚本学会创建文件和判断文件
然后在游戏开头设置一个条件分歧就可以了
这个就是思路,实际操作起来实现不会超过3分钟


[本贴由作者于 2007-7-11 16:26:59 最后编辑]

大家果然无视了我的解答……天，难道非得直接写出来才行吗？
条件分歧-脚本：FileTest.exist?("1.txt")
     开始游戏
其他情况下
执行输入序列号操作
f = File.open("1.txt","w")
f.close