求高手帮我把VB6的源码翻译成VC6的 谢谢

乱舞

1. Dim NyNetReg As Object '定义对象
   
2. Dim 机器码, 软件编号, 作者账号, 软件版本, 软件备注, NyTip As String
   
3. Dim 主服连接限时, 备服连接限时 As Integer
   
4. Dim NyBack
   
5. 
   
6. Private Sub Form_Load()
   
7. Shell "regsvr32 /s """ + App.Path + "\NyNetReg.dll" + """" '注册插件,插件需要位于软件同一目录下
   
8. Set NyNetReg = CreateObject("NyNetReg.NyNetRegclass") '建立对象
   
9. 注册码 = NyNetReg.GetCode("") '读取电脑绑定的注册码,参数为软件编号
   
10. End Sub
    
11. 
    
12. Private Sub 绑定_Click()
    
13. 机器码 = ""
    
14. 软件编号 = "" '填写您的软件编号
    
15. 作者账号 = "" '填写您的作者账号
    
16. 主服连接限时 = 10
    
17. 备服连接限时 = 30
    
18. 绑定.Enabled = False
    
19. 解绑.Enabled = False
    
20. NyBack = NyNetReg.Binding(注册码, 机器码, 软件编号, 作者账号, 主服连接限时, 备服连接限时)
    
21. 注册码 = NyNetReg.GetCode("") '参数为软件编号.注册码不存在时,自动清空注册码填写框
    
22. If NyBack = 100 Then
    
23. NyTip = "绑定成功"
    
24. ElseIf NyBack = 101 Then
    
25. NyTip = "注册码不存在"
    
26. ElseIf NyBack = 102 Then
    
27. NyTip = "注册码被冻结"
    
28. ElseIf NyBack = 103 Then
    
29. NyTip = "注册码已过期"
    
30. ElseIf NyBack = 104 Then
    
31. NyTip = "注册码已绑定本机"
    
32. ElseIf NyBack = 105 Then
    
33. NyTip = "注册码未绑定本机"
    
34. ElseIf NyBack = 106 Then
    
35. NyTip = "注册码绑定其它电脑"
    
36. ElseIf NyBack = 107 Then
    
37. NyTip = "注册码登录其他电脑"
    
38. ElseIf NyBack = 108 Then
    
39. NyTip = "注册码限制于同一IP使用"
    
40. ElseIf NyBack = 109 Then
    
41. NyTip = "软件编号不存在"
    
42. ElseIf NyBack = 110 Then
    
43. NyTip = "作者账号不存在"
    
44. ElseIf NyBack = 111 Then
    
45. NyTip = "软件不支持试用"
    
46. ElseIf NyBack = 112 Then
    
47. NyTip = "本日试用次数达上限"
    
48. ElseIf NyBack = 113 Then
    
49. NyTip = "本次试用时间已到"
    
50. ElseIf NyBack = 114 Then
    
51. NyTip = "服务器连接超时"
    
52. ElseIf NyBack = 115 Then
    
53. NyTip = "封包数据解密失败"
    
54. ElseIf NyBack = 116 Then
    
55. NyTip = "数据库连接失败"
    
56. ElseIf NyBack = 117 Then
    
57. NyTip = "注册码已绑定本机"
    
58. ElseIf NyBack = 118 Then
    
59. NyTip = "本地网络连接失败"
    
60. ElseIf NyBack = 119 Then
    
61. NyTip = "软件组件被破坏"
    
62. Else
    
63. NyTip = NyBack
    
64. End If
    
65. MsgBox NyTip, 64 + 4096, "服务器消息"
    
66. 绑定.Enabled = True
    
67. 解绑.Enabled = True
    
68. End Sub
    
69. 
    
70. Private Sub 解绑_Click()
    
71. 机器码 = ""
    
72. 软件编号 = "" '填写您的软件编号
    
73. 作者账号 = "" '填写您的作者账号
    
74. 主服连接限时 = 10
    
75. 备服连接限时 = 30
    
76. 绑定.Enabled = False
    
77. 解绑.Enabled = False
    
78. NyBack = NyNetReg.Tie(注册码, 机器码, 软件编号, 作者账号, 主服连接限时, 备服连接限时)
    
79. 注册码 = NyNetReg.GetCode("") '参数为软件编号.注册码不存在时,自动清空注册码填写框
    
80. If NyBack = 100 Then
    
81. NyTip = "解绑成功"
    
82. ElseIf NyBack = 101 Then
    
83. NyTip = "注册码不存在"
    
84. ElseIf NyBack = 102 Then
    
85. NyTip = "注册码被冻结"
    
86. ElseIf NyBack = 103 Then
    
87. NyTip = "注册码已过期"
    
88. ElseIf NyBack = 104 Then
    
89. NyTip = "注册码已绑定本机"
    
90. ElseIf NyBack = 105 Then
    
91. NyTip = "注册码未绑定本机"
    
92. ElseIf NyBack = 106 Then
    
93. NyTip = "注册码绑定其它电脑"
    
94. ElseIf NyBack = 107 Then
    
95. NyTip = "注册码登录其他电脑"
    
96. ElseIf NyBack = 108 Then
    
97. NyTip = "注册码限制于同一IP使用"
    
98. ElseIf NyBack = 109 Then
    
99. NyTip = "软件编号不存在"
    
100. ElseIf NyBack = 110 Then
     
101. NyTip = "作者账号不存在"
     
102. ElseIf NyBack = 111 Then
     
103. NyTip = "软件不支持试用"
     
104. ElseIf NyBack = 112 Then
     
105. NyTip = "本日试用次数达上限"
     
106. ElseIf NyBack = 113 Then
     
107. NyTip = "本次试用时间已到"
     
108. ElseIf NyBack = 114 Then
     
109. NyTip = "服务器连接超时"
     
110. ElseIf NyBack = 115 Then
     
111. NyTip = "封包数据解密失败"
     
112. ElseIf NyBack = 116 Then
     
113. NyTip = "数据库连接失败"
     
114. ElseIf NyBack = 117 Then
     
115. NyTip = "注册码已绑定本机"
     
116. ElseIf NyBack = 118 Then
     
117. NyTip = "本地网络连接失败"
     
118. ElseIf NyBack = 119 Then
     
119. NyTip = "软件组件被破坏"
     
120. Else
     
121. NyTip = NyBack
     
122. End If
     
123. MsgBox NyTip, 64 + 4096, "服务器消息"
     
124. 绑定.Enabled = True
     
125. 解绑.Enabled = True
     
126. End Sub

复制代码

向往青莲

这么复杂！！！！！！！我不会

hekate

表示爱莫能助

an001

天啊~~~~我才刚学C VB更不会

cos

不懂VB的路过.

hekate

kanbudong

翔儿

这个只是调用NyNetReg.dll中的函数
这个为动态链接库

一个 框体控件
两个 按键控件


全部翻译没有意义!
主要看你针对哪个功能再转为vc6