Dim X64 As New IO.DirectoryInfo(Environment.GetFolderPath(Environment.SpecialFolder.System).Substring(0, 1) + ":\Program Files (x86)")
If X64.Exists Then Return True Else Return False
If isbit() Then MessageBox.Show("PC INFO: 64-Bit", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) Else MessageBox.Show("PC INFO: 32-Bit", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
End
Public Class Form1
''''''''''''''''''''''''''''''''''''''''''''''
' '
' '
' Developed By: Josh(akaMeltDown) '
' Date: 11/15/2016 '
' Hackergrounds.tech Source code '
' '
' '
''''''''''''''''''''''''''''''''''''''''''''''
Public Function isbit() As Boolean
Dim X64 As New IO.DirectoryInfo(Environment.GetFolderPath(Environment.SpecialFolder.System).Substring(0, 1) + ":\Program Files (x86)")
If X64.Exists Then Return True Else Return False
End Function
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If isbit() Then MessageBox.Show("PC INFO: 64-Bit", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) Else MessageBox.Show("PC INFO: 32-Bit", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
End
End Sub
End Class
Public Function isbit() As Boolean
Dim X64 As New IO.DirectoryInfo(Environment.GetFolderPath(Environment.SpecialFolder.System).Substring(0, 1) + ":\Program Files (x86)")
Return X64.Exists
End Function
If X64.Exists Then Return True Else Return False
Dim X64 As New IO.DirectoryInfo(Environment.GetFolderPath(Environment.SpecialFolder.System).Substring(0, 1) + ":\Program Files (x86)")
If X64.Exists Then Return True
Return False
Public Function isbit() As Boolean
Dim X64 As New IO.DirectoryInfo(Environment.GetFolderPath(Environment.SpecialFolder.System).Substring(0, 1) + ":\Program Files (x86)")
Return X64.Exists
End Function
If X64.Exists Then Return True Else Return False
Dim X64 As New IO.DirectoryInfo(Environment.GetFolderPath(Environment.SpecialFolder.System).Substring(0, 1) + ":\Program Files (x86)")
If X64.Exists Then Return True
Return False
If X64.Exists Then Return True : Return False
If X64.Exists Then Return True : Return False
Copyright © 2024, NextGenUpdate.
All Rights Reserved.