网站 › 『 原创发布 』 › 皇族QQ军旗2人刷分外挂 1.9.9.2 正式版注册机(已更新算法注册机BY:km159)

广陵寒 发表于 2008-11-6 08:03:44

原帖由 km159 于 2008-11-4 20:36 发表 https://www.chinapyg.com/images/common/back.gif
兄弟,不完善
是的,我发在论坛后测试了下,有问题的,谢谢了.不过也正要请教各位这个问题,等会在我的电脑上把源码发出来,请大家帮助修改,说明一下,我还编不来程序,是拼奏的代码,呵呵.

广陵寒 发表于 2008-11-6 08:43:26

源代码如下：
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()

If IsNumeric(Text1.Text) = False And Len(Text1.Text) <> 0 Then
MsgBox "顾客号为数字组成！", 48, "提示"
Else
If Len(Text1.Text) = 0 Then
    MsgBox "用户名不能为空！", 48, "提示"
Else
strtmp = Text1.Text
a = CLng(Text1.Text)
b = a Xor &H30D8BCC0
Text2.Text = b
End If
End If
End Sub

Private Sub Label4_Click()
Call ShellExecute(Form1.hWnd, "open", "https://www.chinapyg.com", vbNullString, vbNullString, &H0)
End Sub
请各位指教，是否是数据类型定义错误或其他都有错，望指教！

km159 发表于 2008-11-6 09:14:33

CLng 其取值范围是－2147483648-2147483647


我的机器码超过这范围了

[ 本帖最后由 km159 于 2008-11-6 10:12 编辑 ]

广陵寒 发表于 2008-11-6 10:29:53

主要就是这个CLng函数，但不知道有没有其他解决办法？

广陵寒 发表于 2008-11-6 10:30:41

用val，不知道行不？

yzslly 发表于 2008-11-6 10:32:08

VB对大数的支持都不好，去下个大数库就OK了

xiaocao9168 发表于 2008-11-6 14:36:29

很实用的东西，感谢楼主，下载了。

linghangzhe 发表于 2008-11-6 14:40:58

感谢分享了，这个是个好东西啊！

coolfire1983 发表于 2008-11-6 15:05:56

支持 谢谢楼主！

幻影¤雾之戀 发表于 2008-11-6 16:49:23

支持源码。

查看完整版本: 皇族QQ军旗2人刷分外挂 1.9.9.2 正式版注册机(已更新算法注册机BY:km159)