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

广陵寒

原帖由 km159 于 2008-11-4 20:36 发表
兄弟,不完善

是的,我发在论坛后测试了下,有问题的,谢谢了.不过也正要请教各位这个问题,等会在我的电脑上把源码发出来,请大家帮助修改,说明一下,我还编不来程序,是拼奏的代码,呵呵.

广陵寒

源代码如下：
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

CLng 其取值范围是－2147483648-2147483647


我的机器码超过这范围了

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

广陵寒

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

广陵寒

用val，不知道行不？

yzslly

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

xiaocao9168

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

linghangzhe

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

coolfire1983

支持 谢谢楼主！

幻影¤雾之戀

支持源码。