全局代码中的这自定义类,论坛上学来的,稍微改动了下,不知道有没有问题。
自己电脑上运行没问题,发布后的系统拷到其他计算机上就出错,很疑惑啊!
Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
MsgBox("数量不能小于1!",64,"提示")
End Sub
Public str_机器码 As String ="" 'computerID
Public str_注册码 As String ="" 'decCode
Public bl_取消 As Boolean = False
Public bl_确定 As Boolean = False
Public Class Form1
Inherits System.Windows.Forms.Form
Public Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
'取消
MessageBox.show("button4click")
bl_取消 = True
Me.Close()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'确定
MessageBox.show("button3click")
If 机器码.Text.Trim.Length < 5 Then
MessageBox.Show("请检查机器码")
Return
End If
If 注册码.Text.Trim.Length < 5 Then
MessageBox.Show("请检查注册码")
Return
End If
str_机器码 = 机器码.Text
str_注册码 = 注册码.Text
bl_确定 = True
Me.Close()
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.注册码 = New System.Windows.Forms.TextBox
Me.机器码 = New System.Windows.Forms.TextBox
Me.Button3 = New System.Windows.Forms.Button
Me.Button4 = New System.Windows.Forms.Button
Me.Label1 = New System.Windows.Forms.Label
Me.Label2 = New System.Windows.Forms.Label
Me.SuspendLayout()
'
'注册码
'
Me.注册码.Location = New System.Drawing.Point(111, 60)
Me.注册码.Name = "注册码"
Me.注册码.Size = New System.Drawing.Size(251, 21)
Me.注册码.TabIndex = 2
Dim config As String = Environment.currentdirectory & "\config.xml"
Dim xmlpath As String = "System/DecryptCode"
Dim xmlDoc As New System.XML.XmlDocument
xmlDoc.Load(config)
Dim xmlNd As System.XML.XmlNode = xmlDoc.SelectSingleNode(xmlpath)
Me.注册码.text = xmlNd.InnerText
'
'机器码
'
Me.机器码.Location = New System.Drawing.Point(111, 13)
Me.机器码.Name = "机器码"
Me.机器码.Size = New System.Drawing.Size(251, 21)
Me.机器码.TabIndex = 3
Me.机器码.text = computerID
'
'Button3
'
Me.Button3.Location = New System.Drawing.Point(111, 104)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(75, 23)
Me.Button3.TabIndex = 4
Me.Button3.Text = "确定"
Me.Button3.UseVisualStyleBackColor = True
'
'Button4
'
Me.Button4.Location = New System.Drawing.Point(287, 104)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(75, 23)
Me.Button4.TabIndex = 5
Me.Button4.Text = "取消"
Me.Button4.UseVisualStyleBackColor = True
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(29, 68)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(53, 12)
Me.Label1.TabIndex = 6
Me.Label1.Text = "注册码:"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(31, 21)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(53, 12)
Me.Label2.TabIndex = 7
Me.Label2.Text = "机器码:"
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(390, 139)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.Button4)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.机器码)
Me.Controls.Add(Me.注册码)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "Form1"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "注册窗口"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents 注册码 As System.Windows.Forms.TextBox
Friend WithEvents 机器码 As System.Windows.Forms.TextBox
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents Button4 As System.Windows.Forms.Button
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
End Class