31-08-18, 03:46 PM
(آخر تعديل لهذه المشاركة : 31-08-18, 03:47 PM {2} بواسطة 0theghost0.)
السلام عليكم
عندي عدة مشاريع راح اعرض لكم اكواد واريد منكم مساعدتي في التعديل علي الاكواد لو سمحتم ليتم تسريع البرنامج من كثرة الاكواد الموجودة وبطئ عمل المشروع
الكود الاول :
الكود الثاني :
علما بأني اتعامل مع vb.net 2017
عندي عدة مشاريع راح اعرض لكم اكواد واريد منكم مساعدتي في التعديل علي الاكواد لو سمحتم ليتم تسريع البرنامج من كثرة الاكواد الموجودة وبطئ عمل المشروع
الكود الاول :
كود :
Imports System.Data.SqlClient
Imports System.Security.Cryptography
Imports System.IO
Imports System.Text
Public Class frmActivation
Private Sub frmActivation_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Try
Dim i As System.Management.ManagementObject
Dim searchInfo_Processor As New System.Management.ManagementObjectSearcher("Select * from Win32_Processor")
For Each i In searchInfo_Processor.Get()
txtHardwareID.Text = i("ProcessorID").ToString
Next
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error!")
End
End Try
End Sub
الكود الثاني :
كود :
Private Sub btnSave_Click(sender As System.Object, e As System.EventArgs) Handles btnSave.Click
Try
If txtActivationID.Text = "" Then
MessageBox.Show("Please enter activation id", "", MessageBoxButtons.OK, MessageBoxIcon.Warning)
txtActivationID.Focus()
Exit Sub
End If
Dim st As String = (txtHardwareID.Text)
TextBox1.Text = Encryption.MakePassword(st, 659)
If txtActivationID.Text = TextBox1.Text Then
con = New SqlConnection(cs)
con.Open()
Dim cb1 As String = "insert into Activation(HardwareID,ActivationID) VALUES (@d1,@d3)"
cmd = New SqlCommand(cb1)
cmd.Connection = con
cmd.Parameters.AddWithValue("@d1", Encrypt(txtHardwareID.Text.Trim))
cmd.Parameters.AddWithValue("@d3", Encrypt(txtActivationID.Text.Trim()))
cmd.ExecuteReader()
con.Close()
MessageBox.Show("Successfully activated", "Software", MessageBoxButtons.OK, MessageBoxIcon.Information)
frmLogin.Show()
Me.Hide()
Else
MessageBox.Show("Invalid activation id...Please contact software provider for buying full licence" & vbCrLf & "Contact us at :" & vbCrLf & "RuthlessTeam" & vbCrLf & "Email: theghostbh@gmail.com" & vbCrLf & "Mobile No. +97333193316", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
علما بأني اتعامل مع vb.net 2017