Project1

标题: [周边工具] vb.net做的游戏启动壳 [打印本页]

作者: yangff 时间: 2007-7-13 04:14
标题: [周边工具] vb.net做的游戏启动壳
原创！！（第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验证可更改版本发上来
-------------------------------------------------
免责声明：
作者不威逼、利诱任何人使用本程序故，由本程序引出的任何争议及法律问题作者不对此付任何法律责任！！！
-------------------------------------------------------------
源代码：

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 rem 注册表中的位置
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" rem 秘匙存放位置
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") rem 注册表中的位置
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

复制代码

下载：http://rpg.blue/upload_program/files/stargamekey.rar
如果您有装vb.net只要将标注部分（即rem 的后面为标注）修改为自己的路径即不会出现上面提到的
故甲玩A游戏用本程序通过验证
甲玩B游戏使用本程序就不需要验证

作者: yangff 时间: 2007-7-13 04:14
标题: [周边工具] vb.net做的游戏启动壳
原创！！（第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验证可更改版本发上来
-------------------------------------------------
免责声明：
作者不威逼、利诱任何人使用本程序故，由本程序引出的任何争议及法律问题作者不对此付任何法律责任！！！
-------------------------------------------------------------
源代码：

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 rem 注册表中的位置
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" rem 秘匙存放位置
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") rem 注册表中的位置
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

复制代码

下载：http://rpg.blue/upload_program/files/stargamekey.rar
如果您有装vb.net只要将标注部分（即rem 的后面为标注）修改为自己的路径即不会出现上面提到的
故甲玩A游戏用本程序通过验证
甲玩B游戏使用本程序就不需要验证

作者: friday5xue 时间: 2007-7-14 01:58
vb.net?不懂VB大概可以看懂!~~~{/dy}

作者: 佐京楠。 时间: 2007-7-14 04:18
貌似只玩过Windows 自带的那种VB……
只认得MsgBox、IF、THEN什么的…… = =~~
（有空的话，我还是想去学学VB）

作者: Ж夜色心云 时间: 2007-7-14 17:59
提示: 作者被禁止或删除内容自动屏蔽

作者: yangff 时间: 2007-7-25 05:22

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

好像蛮有意思的~

下载下来玩玩看

漫游意思？

作者: yangff 时间: 2007-8-18 18:54
沉没了......
每次都是这样

作者: 36763183 时间: 2007-12-23 03:27
支持一下好像还是个不错的东西

作者: 星月无痕 时间: 2007-12-24 06:41
提示: 作者被禁止或删除内容自动屏蔽

作者: yangff 时间: 2007-12-24 06:50
发现用SHELL不能打开game.exe Orz

作者: 星月无痕 时间: 2007-12-24 06:57
提示: 作者被禁止或删除内容自动屏蔽

作者: 星月无痕 时间: 2007-12-24 07:01
提示: 作者被禁止或删除内容自动屏蔽

作者: 美兽 时间: 2007-12-24 07:03
这个东西与加壳不一样，改一下声明和输入方式，RM本身就可以处理。

作者: 星月无痕 时间: 2007-12-24 07:10
提示: 作者被禁止或删除内容自动屏蔽

作者: 美兽 时间: 2007-12-24 07:16

以下引用星月无痕于2007-12-23 23:10:36的发言：

美兽正解
完全可以使用RM处理的......
不过不知道RM是否支持二进制读写操作啊

可以，
而且可以利用API进行流处理。

作者: 星月无痕 时间: 2007-12-24 07:28
提示: 作者被禁止或删除内容自动屏蔽

作者: yangff 时间: 2007-12-24 20:25
美兽正解.
反正爱修改就修改吧!
不过着玩意儿用RM做反而好

作者: samisgod 时间: 2007-12-31 01:32
打开reg.key就over了，汗一个

推荐不要用.net编写，一方面不是所有电脑都装了.net framework，兼容性不好
另一方面.net安全性实在是。。。。。。

我想你看个图就明白了

作者: yangff 时间: 2007-12-31 05:27

以下引用samisgod于2007-12-30 17:32:10的发言：

打开reg.key就over了，汗一个

推荐不要用.net编写，一方面不是所有电脑都装了.net framework，兼容性不好
另一方面.net安全性实在是。。。。。。

我想你看个图就明白了

这是偶最早的作品
的2.33就把Game.exe给删除
并且无法通过复制Game.exe打开
必须通过检测程序
也就是
壳集成了Game.exe
.NET问题:
3.00里我把代码进行了加密
加入了调用块
加了壳
3.58加了
加了内存监视
加了机器码生成
-------------------------
因为太变态而且XP不属于正版
所以就自己用
最可恨的是2.32悲愤在了了U盘
其他因为熊猫风全部!@$#$%#!%
(偶裸奔 {/gg})
----------------------------
最后决定用XP的RGSS
用VB编写DLL库 {/hx}
不过我的DLL编写和API实在是0LT.....

作者: samisgod 时间: 2007-12-31 18:06
最终还是RGSS王道？

Ruby白痴的我飘过{/hx}

作者: yangff 时间: 2008-1-3 00:37

以下引用samisgod于2007-12-31 10:06:42的发言：

最终还是RGSS王道？

Ruby白痴的我飘过

不是
但外部壳总是可以被饶过
所以不如直接一点

作者: myzchh 时间: 2008-8-31 03:23
为啥不是VB6做的？现在人都爱VB.net，难道VB6被抛弃了？？？

作者: yangff 时间: 2008-8-31 17:43
千年老帖被顶了………………
.net说简单一点方便。。。
vb和.net还有c无法相提并论

作者: yangff 时间: 2008-8-31 22:00

以下引用conanfans于2008-8-31 12:39:08的发言：

vb6是vb6
vb.net是vb.net
这两个没关联。

c#是c#
c是c
c++是c++
这三个也没关联

c和c++有关系

作者: 星月无痕 时间: 2008-9-14 09:33
提示: 作者被禁止或删除内容自动屏蔽

作者: 偶尔杀人越货 时间: 2008-9-14 15:17
不太喜欢注册表被改，能做个卸载部分吗？

作者: 虚幻死神 时间: 2008-9-14 17:36
話說///////地址下不了

作者: 龙轩 时间: 2008-9-14 21:32
提示: 作者被禁止或删除内容自动屏蔽

作者: 上善弱水 时间: 2008-11-15 20:08
提示: 作者被禁止或删除内容自动屏蔽

欢迎光临 Project1 (https://rpg.blue/)

Powered by Discuz! X3.1