Imports System.Management
Public Class Form1
Dim HWID As String = String.Empty
Dim mc As New ManagementClass("win32_processor")
Dim moc As ManagementObjectCollection = mc.GetInstances()
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For Each mo As ManagementObject In moc
If HWID = "" Then
HWID = mo.Properties("processorID").Value.ToString()
TextBox1.text = HWID
Exit For
End If
Next
Exit Sub
End Sub
End Class
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
If My.Computer.Network.Ping(TextBox1.Text) Then
If Label1.Visible = False Then
Label1.Visible = True
End If
Label1.ForeColor = Color.LimeGreen
Label1.Text = "Online!"
Else
If Label1.Visible = False Then
Label1.Visible = True
End If
Label1.ForeColor = Color.Red
Label1.Text = "Offline!"
End If
Catch ex As Exception
End Try
End Sub
End Class
Imports System.CodeDom.Compiler
Imports Microsoft.VisualBasic
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim icc As CodeDomProvider = New VBCodeProvider()
Dim parameters As New CompilerParameters()
parameters.GenerateExecutable = True
parameters.OutputAssembly = OutputPE
'Compiling parameters
parameters.ReferencedAssemblies.Add("System.dll")
parameters.ReferencedAssemblies.Add("System.Windows.Forms.dll")
parameters.ReferencedAssemblies.Add("Microsoft.VisualBasic.dll")
parameters.ReferencedAssemblies.Add("System.Data.dll")
parameters.ReferencedAssemblies.Add("System.Deployment.dll")
parameters.ReferencedAssemblies.Add("System.Drawing.dll")
parameters.ReferencedAssemblies.Add("System.Xml.dll")
parameters.CompilerOptions = "/filealign:0x00200 /optimize+ /platform:anycpu /debug- /target:winexe"
Dim results As CompilerResults = icc.CompileAssemblyFromSource(parameters, InputSource)
'Check if any errors
If results.Errors.Count > 0 Then
For Each CompErr As CompilerError In results.Errors
MessageBox.Show((("Line number " & CompErr.Line & ", Error Number: ") + CompErr.ErrorNumber & ", '") + CompErr.ErrorText & ";")
Compile(code.text, "ProgramName.exe")
Next
End If
End Sub
End Class
Copyright © 2024, NextGenUpdate.
All Rights Reserved.