[周边工具] vb.net做的游戏启动壳

yangff

原创！！（第1次启动时需要CD-KEY）
下载：http://rpg.blue/upload_program/files/stargamekey.rar
vb.net做的，使用需安装.net支持包
使用方法：
用记事本打开reg.key在第一行输入序列号，目前只支持1个序列号。在第一行写
把整个游戏拷贝至game目录
文件列表及说明：
+游戏目录
+game.exe （游戏启动程序）
--game （dir游戏程序）
-----------------------------------------------
由于都是一样的软件所以存放CD-KEY验证的地方都一样
故A用本程序通过验证
B使用本程序就不需要验证
明天我会把存放CD-KEY验证可更改版本发上来
-------------------------------------------------
免责声明：
作者不威逼、利诱任何人使用本程序故，由本程序引出的任何争议及法律问题作者不对此付任何法律责任！！！
-------------------------------------------------------------
源代码：

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 rem 注册表中的位置
   
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" rem 秘匙存放位置
    
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") rem 注册表中的位置
    
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
如果您有装vb.net只要将标注部分（即rem 的后面为标注）修改为自己的路径即不会出现上面提到的
故甲玩A游戏用本程序通过验证
甲玩B游戏使用本程序就不需要验证

yangff

原创！！（第1次启动时需要CD-KEY）
下载：http://rpg.blue/upload_program/files/stargamekey.rar
vb.net做的，使用需安装.net支持包
使用方法：
用记事本打开reg.key在第一行输入序列号，目前只支持1个序列号。在第一行写
把整个游戏拷贝至game目录
文件列表及说明：
+游戏目录
+game.exe （游戏启动程序）
--game （dir游戏程序）
-----------------------------------------------
由于都是一样的软件所以存放CD-KEY验证的地方都一样
故A用本程序通过验证
B使用本程序就不需要验证
明天我会把存放CD-KEY验证可更改版本发上来
-------------------------------------------------
免责声明：
作者不威逼、利诱任何人使用本程序故，由本程序引出的任何争议及法律问题作者不对此付任何法律责任！！！
-------------------------------------------------------------
源代码：

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 rem 注册表中的位置
   
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" rem 秘匙存放位置
    
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") rem 注册表中的位置
    
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
如果您有装vb.net只要将标注部分（即rem 的后面为标注）修改为自己的路径即不会出现上面提到的
故甲玩A游戏用本程序通过验证
甲玩B游戏使用本程序就不需要验证

friday5xue

vb.net?不懂VB大概可以看懂!~~~{/dy}

佐京楠。

貌似只玩过Windows 自带的那种VB……
只认得MsgBox、IF、THEN什么的…… = =~~
（有空的话，我还是想去学学VB）

yangff

以下引用Ж夜色心云于2007-7-14 9:59:17的发言：

好像蛮有意思的~

下载下来玩玩看

漫游意思？

yangff

沉没了......
每次都是这样

36763183

支持一下 好像还是个不错的东西

yangff

发现用SHELL不能打开game.exe Orz