关于序例号的问题 - Project1

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

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

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

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

Imports Microsoft.Win32
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Hide()
Dim exists As Boolean = False
Try
If My.Computer.Registry.CurrentUser.OpenSubKey("Software\game\reg") IsNot Nothing Then
exists = True
Dim aa As String
aa = My.Application.Info.DirectoryPath & "\game\" & "game.exe"
Shell(aa)
End
End If
Finally
Dim yy As String
My.Computer.Registry.CurrentUser.Close()
Dim fileContents As String
yy = My.Application.Info.DirectoryPath & "\" & "reg.key"
fileContents = My.Computer.FileSystem.ReadAllText(yy)
Dim a As String = InputBox("输入cd-key")
If a = fileContents Then
Dim newKey As RegistryKey
newKey = My.Computer.Registry.CurrentUser.CreateSubKey("Software\game\reg")
Dim aa As String
aa = My.Application.Info.DirectoryPath & "\game\" & "game.exe"
Shell(aa)
End
Else
MsgBox("您输入的cd-key：" & a & "错误！")
End
End If
End Try
End Sub
End Class

复制代码

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

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

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

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

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

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

以下引用天狼星1110于2007-7-12 11:47:15的发言：

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

以下引用幻の飞鱼于2007-7-13 12:08:38的发言：

这个帖子搞了这么久啊- -我觉得没必要那么麻烦

我只用RM做的范例http://rpg.blue/upload_program/files/序列号输入.rar

输入界面是亿万发的一个核心，第一次判定用的是天狼星说的那个原理，在DATA文件夹里新键了一个文件 sn.dll

起不了什么加密作用，就是个花哨的东西

默认密码是478，可自行在Scene_Title的 def inputsn里修改

以下引用幻の飞鱼于2007-7-13 22:55:10的发言：

以下引用幻の飞鱼于2007-7-13 12:08:38的发言：

这个帖子搞了这么久啊- -我觉得没必要那么麻烦

我只用RM做的范例http://rpg.blue/upload_program/files/序列号输入.rar

输入界面是亿万发的一个核心，第一次判定用的是天狼星说的那个原理，在DATA文件夹里新键了一个文件 sn.dll

起不了什么加密作用，就是个花哨的东西

默认密码是478，可自行在Scene_Title的 def inputsn里修改

被54了

以下引用幻の飞鱼于2007-7-13 12:08:38的发言：

这个帖子搞了这么久啊- -我觉得没必要那么麻烦

我只用RM做的范例http://rpg.blue/upload_program/files/序列号输入.rar

输入界面是亿万发的一个核心，第一次判定用的是天狼星说的那个原理，在DATA文件夹里新键了一个文件 sn.dll

起不了什么加密作用，就是个花哨的东西

默认密码是478，可自行在Scene_Title的 def inputsn里修改