Process Modules Project

Full Puzzle Game source code and complete project in "Process Modules and ProcessName Collecter" e-learning section.
Coded by: Wesam Naffaa

Puzzle Game project

Full Puzzle Game source code and complete project in "Puzzle Game project" e-learning section.
NOTE: You must read "Puzzle Game - Resources" to understand how to apply the sources & codes to your side.
Coded by: Wesam Naffaa

Accounting Manager project

Full Accounting manager source code and complete project in "Universal Accounting Manager project" e-learning section.
NOTE: You must read "Universal Accounting Manager - Resources" to understand how to apply the sources & codes to your side.
Coded by: Wesam Naffaa

File encryption project

Full File encryption center source code and complete project in "File encryption center project" e-learning section.
NOTE: You must read "File encryption center - Resources" to understand how to apply the sources & codes to your side.
Coded by: Wesam Naffaa
Showing posts with label Visual Basic.NET codes. Show all posts
Showing posts with label Visual Basic.NET codes. Show all posts

Full Anti Virus code - Antivirus services - about Antivirus - Resources

Full Anti Virus code \ Antivirus services \ about Antivirus \ Resources
Full Anti Virus code - Antivirus services - about Antivirus - Resources
Full Anti Virus code - Antivirus services - about Antivirus - Resources


The important thing in glad programming user interface is the "Resources".
Each Visual Studio.NET project has Resources folder to store all type of images and bitmaps or icons etc...
In our tutorials you must download the Resources folder and paste it to your project folder, to make sure that your project will working as we programming.
Download the About Antivirus / Resources folder from Google Drive.

Full Anti Virus code - Antivirus services - about Antivirus - Main.vb

Full Anti Virus code \ Antivirus services \ about Antivirus \ Main.vb

Full Anti Virus code - Antivirus services - about Antivirus - Main.vb
Full Anti Virus code - Antivirus services - about Antivirus - Main.vb

About Antivirus \ Main.vb
  1. Public Class Main
  2.     Dim Anti_Virus_Path As String = System.Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\Free Anti Virus"
  3.     Dim Services_Path As String = Anti_Virus_Path & "\Services"
  4.     Dim User_Sitting_Path As String = Anti_Virus_Path & "\User Setting"
  5.     Dim Data_Files_Path As String = Anti_Virus_Path & "\Data Files"
  6.     Dim Cannel_Path As String = Anti_Virus_Path & "\Channel"
  7.     Dim Backup_Path As String = Anti_Virus_Path & "\Back Up"
  8.     Dim ScanTask_Path As String = Data_Files_Path & "\Scan Tasks"
  9.     Dim AnimationState As Integer = 0
  10.     Public Sub Setup_MyIcon()
  11.         Dim myBitmap As New Bitmap(Data_Files_Path & "\NJWM.ico")
  12.         Dim HIcon As IntPtr = myBitmap.GetHicon()
  13.         Dim NewIcon As Icon = System.Drawing.Icon.FromHandle(HIcon)
  14.         Me.Icon = NewIcon
  15.     End Sub
  16.     Public Sub Animation()
  17.         If AnimationState = 0 Then
  18.             Me.Opacity = Me.Opacity + 0.05
  19.             If Me.Opacity >= 100 Then AnimationManager.Enabled = False
  20.         Else
  21.             Me.Opacity = Me.Opacity - 0.05
  22.             If Me.Opacity <= 0 Then End
  23.         End If
  24.     End Sub
  25.     Private Sub AnimationManager_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AnimationManager.Tick
  26.         Animation()
  27.     End Sub
  28.     Public Sub TestActivation()
  29.         On Error Resume Next
  30.         Dim AntiVirusState As String
  31.         If My.Computer.FileSystem.FileExists(System.Environment.SystemDirectory & "\smaengn.ext") = False Then
  32.             AntiVirusState = "عُذراً : نسختك غير مُفعلة ، نرجو منك تفعيل نسختك الآن من لوحة التحكم ."
  33.             PictureBox1.Image = My.Resources.شعار_بدون_ماوس_دون_تفعيل
  34.             GoTo SetValues
  35.         End If
  36.         If My.Computer.FileSystem.ReadAllText(System.Environment.SystemDirectory & "\smaengn.ext", System.Text.Encoding.GetEncoding(0)) <> My.Computer.FileSystem.ReadAllText(System.Environment.SystemDirectory & "\winengn32.pptx", System.Text.Encoding.GetEncoding(0)) _
  37.         Or My.Computer.FileSystem.ReadAllText(System.Environment.SystemDirectory & "\navline.dll", System.Text.Encoding.GetEncoding(0)) <> My.Computer.FileSystem.ReadAllText(System.Environment.SystemDirectory & "\wsm32lcr.src", System.Text.Encoding.GetEncoding(0)) _
  38.         Or My.Computer.FileSystem.ReadAllText(System.Environment.SystemDirectory & "\atlldr.c", System.Text.Encoding.GetEncoding(0)) <> My.Computer.FileSystem.ReadAllText(System.Environment.SystemDirectory & "\atitcnlgy.cpp", System.Text.Encoding.GetEncoding(0)) _
  39.         Or My.Computer.FileSystem.ReadAllText(System.Environment.SystemDirectory & "\astricplr.exe", System.Text.Encoding.GetEncoding(0)) <> My.Computer.FileSystem.ReadAllText(System.Environment.SystemDirectory & "\winactvctr.exe", System.Text.Encoding.GetEncoding(0)) _
  40.         Or My.Computer.FileSystem.ReadAllText(System.Environment.SystemDirectory & "\astricplr.exe", System.Text.Encoding.GetEncoding(0)) <> My.Computer.FileSystem.ReadAllText(Data_Files_Path & "\msidial.fax", System.Text.Encoding.GetEncoding(0)) _
  41.         Or My.Computer.FileSystem.ReadAllText(System.Environment.SystemDirectory & "\smaengn.ext", System.Text.Encoding.GetEncoding(0)) <> My.Computer.FileSystem.ReadAllText(Data_Files_Path & "\msidial.fax", System.Text.Encoding.GetEncoding(0)) Then
  42.             AntiVirusState = "عُذراً : نسختك ليست مُعتمدة و غير مُفعلة و غير مرخصة و غير قابلة للتحديث"
  43.             PictureBox1.Image = My.Resources.شعار_بدون_ماوس_دون_تفعيل
  44.         Else
  45.             AntiVirusState = "تهانينا : أنت تملك النسخة النظامية والمُعتمدة و المُرخصة"
  46.             PictureBox1.Image = My.Resources.شعار_بدون_ماوس
  47.         End If
  48. SetValues:
  49.         ActivateLBL.Text = AntiVirusState
  50.     End Sub
  51.     Private Sub Main_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
  52.         e.Cancel = True
  53.         AnimationState = 1
  54.         AnimationManager.Enabled = True
  55.     End Sub
  56.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  57.         On Error Resume Next
  58.         Setup_MyIcon()
  59.         TestActivation()
  60.         AnimationState = 0
  61.         AnimationManager.Enabled = True
  62.         Label1.Select()
  63.         RTXT.Rtf = My.Resources.NJWM
  64.         Label1.Text = "Free Anti Virus " & My.Application.Info.Version.ToString & System.Environment.NewLine & "Data Security System V.8+"
  65.     End Sub
  66.     Private Sub UpdatingCenter_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)
  67.         Dim SecuritySystemUpdatingCenter As String = "http://www.njwm.sy/Ar/?000049900000999999"
  68.         System.Diagnostics.Process.Start(SecuritySystemUpdatingCenter)
  69.         End
  70.     End Sub
  71.     Private Sub Link2NJWM_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)
  72.         Dim MainPage As String = "http://www.njwm.sy"
  73.         System.Diagnostics.Process.Start(MainPage)
  74.         End
  75.     End Sub
  76.     Private Sub HelpCenter_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)
  77.         Dim HelpCenterPage As String = "http://www.njwm.sy/Ar/?000049900019999999"
  78.         System.Diagnostics.Process.Start(HelpCenterPage)
  79.         End
  80.     End Sub
  81.     Private Sub RTXT_LinkClicked(ByVal sender As Object, ByVal e As System.Windows.Forms.LinkClickedEventArgs) Handles RTXT.LinkClicked
  82.         System.Diagnostics.Process.Start(e.LinkText)
  83.     End Sub
  84.     Private Sub SiteLBL_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles SiteLBL.LinkClicked
  85.         System.Diagnostics.Process.Start("http://njwm.sy")
  86.     End Sub
  87.     Private Sub AntiVirusLBL_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles AntiVirusLBL.LinkClicked
  88.         System.Diagnostics.Process.Start("http://njwm.sy/?\000000000042lang=ar")
  89.     End Sub
  90.     Private Sub UpdateLBL_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles UpdateLBL.LinkClicked
  91.         System.Diagnostics.Process.Start("http://njwm.sy/?\000000000042\000000000007lang=ar")
  92.     End Sub
  93.     Private Sub ExitBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitBTN.Click
  94.         AnimationState = 1
  95.         AnimationManager.Enabled = True
  96.     End Sub
  97. End Class

Full Anti Virus code - Antivirus services - about Antivirus - Main.Designer.vb

Full Anti Virus code \ Antivirus services \ about Antivirus \ Main.Designer.vb
Full Anti Virus code \ Antivirus services \ about Antivirus
Full Anti Virus code \ Antivirus services \ about Antivirus

About Antivirus \ Main.Designer.vb
  1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
  2. Partial Class Main
  3.     Inherits System.Windows.Forms.Form
  4.  
  5.     'Form overrides dispose to clean up the component list.
  6.     <System.Diagnostics.DebuggerNonUserCode()> _
  7.     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
  8.         If disposing AndAlso components IsNot Nothing Then
  9.             components.Dispose()
  10.         End If
  11.         MyBase.Dispose(disposing)
  12.     End Sub
  13.  
  14.     'Required by the Windows Form Designer
  15.     Private components As System.ComponentModel.IContainer
  16.  
  17.     'NOTE: The following procedure is required by the Windows Form Designer
  18.     'It can be modified using the Windows Form Designer.  
  19.     'Do not modify it using the code editor.
  20.     <System.Diagnostics.DebuggerStepThrough()> _
  21.     Private Sub InitializeComponent()
  22.         Me.components = New System.ComponentModel.Container
  23.         Me.Label1 = New System.Windows.Forms.Label
  24.         Me.Label4 = New System.Windows.Forms.Label
  25.         Me.AnimationManager = New System.Windows.Forms.Timer(Me.components)
  26.         Me.RTXT = New System.Windows.Forms.RichTextBox
  27.         Me.PictureBox1 = New System.Windows.Forms.PictureBox
  28.         Me.UpdateLBL = New System.Windows.Forms.LinkLabel
  29.         Me.AntiVirusLBL = New System.Windows.Forms.LinkLabel
  30.         Me.SiteLBL = New System.Windows.Forms.LinkLabel
  31.         Me.ActivateLBL = New System.Windows.Forms.Label
  32.         Me.ExitBTN = New System.Windows.Forms.Button
  33.         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
  34.         Me.SuspendLayout()
  35.         '
  36.         'Label1
  37.         '
  38.         Me.Label1.Anchor = System.Windows.Forms.AnchorStyles.Bottom
  39.         Me.Label1.BackColor = System.Drawing.Color.Transparent
  40.         Me.Label1.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(178, Byte))
  41.         Me.Label1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
  42.         Me.Label1.Location = New System.Drawing.Point(403, 431)
  43.         Me.Label1.Name = "Label1"
  44.         Me.Label1.RightToLeft = System.Windows.Forms.RightToLeft.Yes
  45.         Me.Label1.Size = New System.Drawing.Size(310, 37)
  46.         Me.Label1.TabIndex = 0
  47.         Me.Label1.Text = "NJWM Anti Virus"
  48.         Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
  49.         '
  50.         'Label4
  51.         '
  52.         Me.Label4.Anchor = System.Windows.Forms.AnchorStyles.Top
  53.         Me.Label4.BackColor = System.Drawing.Color.Transparent
  54.         Me.Label4.Font = New System.Drawing.Font("Arial", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(178, Byte))
  55.         Me.Label4.ForeColor = System.Drawing.SystemColors.HotTrack
  56.         Me.Label4.ImageAlign = System.Drawing.ContentAlignment.TopCenter
  57.         Me.Label4.Location = New System.Drawing.Point(188, 9)
  58.         Me.Label4.Name = "Label4"
  59.         Me.Label4.RightToLeft = System.Windows.Forms.RightToLeft.Yes
  60.         Me.Label4.Size = New System.Drawing.Size(346, 50)
  61.         Me.Label4.TabIndex = 3
  62.         Me.Label4.Text = "NJWM Group Corporation"
  63.         Me.Label4.TextAlign = System.Drawing.ContentAlignment.TopCenter
  64.         '
  65.         'AnimationManager
  66.         '
  67.         Me.AnimationManager.Interval = 1
  68.         '
  69.         'RTXT
  70.         '
  71.         Me.RTXT.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
  72.                     Or System.Windows.Forms.AnchorStyles.Left) _
  73.                     Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  74.         Me.RTXT.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
  75.         Me.RTXT.Location = New System.Drawing.Point(12, 85)
  76.         Me.RTXT.Name = "RTXT"
  77.         Me.RTXT.ShortcutsEnabled = False
  78.         Me.RTXT.Size = New System.Drawing.Size(698, 342)
  79.         Me.RTXT.TabIndex = 88
  80.         Me.RTXT.Text = ""
  81.         '
  82.         'PictureBox1
  83.         '
  84.         Me.PictureBox1.Anchor = System.Windows.Forms.AnchorStyles.Top
  85.         Me.PictureBox1.Image = Global.About.My.Resources.Resources.شعار_بدون_ماوس
  86.         Me.PictureBox1.Location = New System.Drawing.Point(12, 12)
  87.         Me.PictureBox1.Name = "PictureBox1"
  88.         Me.PictureBox1.Size = New System.Drawing.Size(64, 64)
  89.         Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
  90.         Me.PictureBox1.TabIndex = 89
  91.         Me.PictureBox1.TabStop = False
  92.         '
  93.         'UpdateLBL
  94.         '
  95.         Me.UpdateLBL.Anchor = System.Windows.Forms.AnchorStyles.Bottom
  96.         Me.UpdateLBL.AutoSize = True
  97.         Me.UpdateLBL.BackColor = System.Drawing.Color.Transparent
  98.         Me.UpdateLBL.Location = New System.Drawing.Point(449, 446)
  99.         Me.UpdateLBL.Name = "UpdateLBL"
  100.         Me.UpdateLBL.Size = New System.Drawing.Size(57, 13)
  101.         Me.UpdateLBL.TabIndex = 92
  102.         Me.UpdateLBL.TabStop = True
  103.         Me.UpdateLBL.Text = "- Supports"
  104.         '
  105.         'AntiVirusLBL
  106.         '
  107.         Me.AntiVirusLBL.Anchor = System.Windows.Forms.AnchorStyles.Bottom
  108.         Me.AntiVirusLBL.AutoSize = True
  109.         Me.AntiVirusLBL.BackColor = System.Drawing.Color.Transparent
  110.         Me.AntiVirusLBL.Location = New System.Drawing.Point(351, 446)
  111.         Me.AntiVirusLBL.Name = "AntiVirusLBL"
  112.         Me.AntiVirusLBL.Size = New System.Drawing.Size(92, 13)
  113.         Me.AntiVirusLBL.TabIndex = 91
  114.         Me.AntiVirusLBL.TabStop = True
  115.         Me.AntiVirusLBL.Text = "- NJWM Anti Virus"
  116.         '
  117.         'SiteLBL
  118.         '
  119.         Me.SiteLBL.Anchor = System.Windows.Forms.AnchorStyles.Bottom
  120.         Me.SiteLBL.AutoSize = True
  121.         Me.SiteLBL.BackColor = System.Drawing.Color.Transparent
  122.         Me.SiteLBL.Location = New System.Drawing.Point(209, 446)
  123.         Me.SiteLBL.Name = "SiteLBL"
  124.         Me.SiteLBL.Size = New System.Drawing.Size(136, 13)
  125.         Me.SiteLBL.TabIndex = 90
  126.         Me.SiteLBL.TabStop = True
  127.         Me.SiteLBL.Text = "- NJWM Group Corporation"
  128.         '
  129.         'ActivateLBL
  130.         '
  131.         Me.ActivateLBL.Anchor = System.Windows.Forms.AnchorStyles.Top
  132.         Me.ActivateLBL.BackColor = System.Drawing.Color.Transparent
  133.         Me.ActivateLBL.Font = New System.Drawing.Font("Andalus", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(178, Byte))
  134.         Me.ActivateLBL.ForeColor = System.Drawing.Color.DarkSlateGray
  135.         Me.ActivateLBL.Location = New System.Drawing.Point(131, 59)
  136.         Me.ActivateLBL.Name = "ActivateLBL"
  137.         Me.ActivateLBL.RightToLeft = System.Windows.Forms.RightToLeft.Yes
  138.         Me.ActivateLBL.Size = New System.Drawing.Size(460, 23)
  139.         Me.ActivateLBL.TabIndex = 93
  140.         Me.ActivateLBL.Text = "المُنتج غير مُفعل NJWM Anti Virus يحتاج للتفعيل"
  141.         Me.ActivateLBL.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
  142.         '
  143.         'ExitBTN
  144.         '
  145.         Me.ExitBTN.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
  146.         Me.ExitBTN.Location = New System.Drawing.Point(12, 433)
  147.         Me.ExitBTN.Name = "ExitBTN"
  148.         Me.ExitBTN.Size = New System.Drawing.Size(75, 23)
  149.         Me.ExitBTN.TabIndex = 94
  150.         Me.ExitBTN.Text = "إغلاق"
  151.         Me.ExitBTN.UseVisualStyleBackColor = True
  152.         '
  153.         'Main
  154.         '
  155.         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
  156.         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
  157.         Me.BackColor = System.Drawing.Color.White
  158.         Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
  159.         Me.ClientSize = New System.Drawing.Size(722, 468)
  160.         Me.Controls.Add(Me.ExitBTN)
  161.         Me.Controls.Add(Me.PictureBox1)
  162.         Me.Controls.Add(Me.ActivateLBL)
  163.         Me.Controls.Add(Me.UpdateLBL)
  164.         Me.Controls.Add(Me.AntiVirusLBL)
  165.         Me.Controls.Add(Me.SiteLBL)
  166.         Me.Controls.Add(Me.RTXT)
  167.         Me.Controls.Add(Me.Label4)
  168.         Me.Controls.Add(Me.Label1)
  169.         Me.DoubleBuffered = True
  170.         Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  171.         Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
  172.         Me.MaximizeBox = False
  173.         Me.Name = "Main"
  174.         Me.Opacity = 0
  175.         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
  176.         Me.Text = "About NJWM Group Corporation"
  177.         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
  178.         Me.ResumeLayout(False)
  179.         Me.PerformLayout()
  180.  
  181.     End Sub
  182.     Friend WithEvents Label1 As System.Windows.Forms.Label
  183.     Friend WithEvents Label4 As System.Windows.Forms.Label
  184.     Friend WithEvents AnimationManager As System.Windows.Forms.Timer
  185.     Friend WithEvents RTXT As System.Windows.Forms.RichTextBox
  186.     Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
  187.     Friend WithEvents UpdateLBL As System.Windows.Forms.LinkLabel
  188.     Friend WithEvents AntiVirusLBL As System.Windows.Forms.LinkLabel
  189.     Friend WithEvents SiteLBL As System.Windows.Forms.LinkLabel
  190.     Friend WithEvents ActivateLBL As System.Windows.Forms.Label
  191.     Friend WithEvents ExitBTN As System.Windows.Forms.Button
  192.  
  193. End Class

Process Modules and ProcessName Collecter - Form1.vb

Process Modules and ProcessName Collecter / Form1.vb
Process Modules and ProcessName Collecter - Form1.vb
Process Modules and ProcessName Collecter - Form1.vb

Form1.vb
  1. Public Class Form1
  2.     Dim ProNum As Integer = 0
  3.     Private Sub GetBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GetBTN.Click
  4.         On Error Resume Next
  5.         LB.Items.Clear()
  6.         Dim Myprocesses() As Process
  7.         Dim Myprocess As Process
  8.         Myprocesses = Process.GetProcesses
  9.         For Each Myprocess In Myprocesses
  10.             If Myprocess.ProcessName.ToLower = NameTXT.Text.ToLower Then
  11.                 LB.Items.Add(Myprocess.ProcessName & " - " & Myprocess.MainWindowTitle)
  12.                 For Addad As Integer = 0 To Myprocess.Modules.Count - 1
  13.                     ProNum = ProNum + 1
  14.                     LB.Items.Add(Myprocess.Modules.Item(Addad).FileName)
  15.                 Next
  16.             End If
  17.         Next
  18.         If LB.Items.Count <= 0 Then MsgBox("لم يتم التعرف على برنامج الطلب", MsgBoxStyle.OkOnly, "خطأ")
  19.         ProNum = 0
  20.     End Sub
  21.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  22.         Me.Left = 0
  23.     End Sub
  24.     Private Sub NameTXT_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles NameTXT.KeyDown
  25.         If e.KeyCode = Keys.Enter Then

Process Modules and ProcessName Collecter - Form1.Designer.vb

Process Modules and ProcessName Collecter - Form1.Designer.vb

Process Modules and ProcessName Collecter - Form1.Designer.vb
Process Modules and ProcessName Collecter - Form1.Designer.vb

Form1.Designer.vb
  1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
  2. Partial Class Form1
  3.     Inherits System.Windows.Forms.Form
  4.  
  5.     'Form overrides dispose to clean up the component list.
  6.     <System.Diagnostics.DebuggerNonUserCode()> _
  7.     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
  8.         If disposing AndAlso components IsNot Nothing Then
  9.             components.Dispose()
  10.         End If
  11.         MyBase.Dispose(disposing)
  12.     End Sub
  13.  
  14.     'Required by the Windows Form Designer
  15.     Private components As System.ComponentModel.IContainer
  16.  
  17.     'NOTE: The following procedure is required by the Windows Form Designer
  18.     'It can be modified using the Windows Form Designer.  
  19.     'Do not modify it using the code editor.
  20.     <System.Diagnostics.DebuggerStepThrough()> _
  21.     Private Sub InitializeComponent()
  22.         Me.components = New System.ComponentModel.Container
  23.         Me.Manager = New System.Windows.Forms.Timer(Me.components)
  24.         Me.LB = New System.Windows.Forms.ListBox
  25.         Me.GetBTN = New System.Windows.Forms.Button
  26.         Me.NameTXT = New System.Windows.Forms.TextBox

Puzzle Game - Resources

Puzzle Game / Resources
Puzzle Game - Resources
Puzzle Game - Resources
The important thing in glad programming user interface is the "Resources".
Each Visual Studio.NET project has Resources folder to store all type of images and bitmaps or icons etc...
In our tutorials you must download the Resources folder and paste it to your project folder, to make sure that your project will working as we programming.
Download the Puzzle Game - Resources folder from Google Drive.



Puzzle Game - Skill3.vb

Puzzle Game / Skill3.vb
Puzzle Game - Skill3.vb
Puzzle Game - Skill3.vb

Skill3.vb
  1. Public Class Skill3
  2.     Dim MoveState As Integer = 0
  3.     Dim MoveObject As Object
  4.     Dim SkillPics As Integer = 0
  5.     Dim CountIMG As Integer = 0
  6.     Public Sub SetubCursor(ByVal MyImage As Bitmap)
  7.         On Error Resume Next
  8.         Dim bmCur As New Bitmap(MyImage)
  9.         Dim ptrCur As IntPtr = bmCur.GetHicon
  10.         Dim cur As Cursor
  11.         cur = New Cursor(ptrCur)
  12.         Me.Cursor = cur
  13.     End Sub
  14.     Private Sub Skill3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  15.         SetubCursor(My.Resources.cursor_copy)
  16.         Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
  17.         Me.WindowState = FormWindowState.Maximized
  18.         SkillPics = 30
  19.     End Sub
  20.     Public Sub ImageClicks(ByRef Pictures As Object)
  21.         If MoveState = 0 Then
  22.             MoveState = 1
  23.             SetubCursor(Pictures.Image)
  24.             MoveObject = Pictures
  25.             MoveObject.visible = False
  26.         Else
  27.             MoveState = 0
  28.             SetubCursor(My.Resources.cursor_copy)

Puzzle Game - Skill3.Designer.vb

Puzzle Game / Skill3.Designer.vb
Puzzle Game - Skill3.Designer.vb
Puzzle Game - Skill3.Designer.vb

Skill3.Designer.vb
  1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
  2. Partial Class Skill3
  3.     Inherits System.Windows.Forms.Form
  4.  
  5.     'Form overrides dispose to clean up the component list.
  6.     <System.Diagnostics.DebuggerNonUserCode()> _
  7.     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
  8.         If disposing AndAlso components IsNot Nothing Then
  9.             components.Dispose()
  10.         End If
  11.         MyBase.Dispose(disposing)
  12.     End Sub
  13.  
  14.     'Required by the Windows Form Designer
  15.     Private components As System.ComponentModel.IContainer
  16.  
  17.     'NOTE: The following procedure is required by the Windows Form Designer
  18.     'It can be modified using the Windows Form Designer.  
  19.     'Do not modify it using the code editor.
  20.     <System.Diagnostics.DebuggerStepThrough()> _
  21.     Private Sub InitializeComponent()
  22.         Me.Label3 = New System.Windows.Forms.Label
  23.         Me.Label4 = New System.Windows.Forms.Label
  24.         Me.PictureBox16 = New System.Windows.Forms.PictureBox
  25.         Me.Pic16 = New System.Windows.Forms.PictureBox
  26.         Me.Pic14 = New System.Windows.Forms.PictureBox
  27.         Me.Pic13 = New System.Windows.Forms.PictureBox

Puzzle Game - Skill2.vb

Puzzle Game - Skill2.vb
Puzzle Game - Skill2.vb
Puzzle Game - Skill2.vb

Skill2.vb
  1. Public Class Skill2
  2.     Dim MoveState As Integer = 0
  3.     Dim MoveObject As Object
  4.     Dim SkillPics As Integer = 0
  5.     Dim CountIMG As Integer = 0
  6.     Public Sub SetubCursor(ByVal MyImage As Bitmap)
  7.         On Error Resume Next
  8.         Dim bmCur As New Bitmap(MyImage)
  9.         Dim ptrCur As IntPtr = bmCur.GetHicon
  10.         Dim cur As Cursor
  11.         cur = New Cursor(ptrCur)
  12.         Me.Cursor = cur
  13.     End Sub
  14.     Private Sub Skill2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  15.         SetubCursor(My.Resources.cursor_copy)
  16.         Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
  17.         Me.WindowState = FormWindowState.Maximized
  18.         SkillPics = 16
  19.     End Sub
  20.     Public Sub ImageClicks(ByRef Pictures As Object)
  21.         If MoveState = 0 Then
  22.             MoveState = 1
  23.             SetubCursor(Pictures.Image)
  24.             MoveObject = Pictures
  25.             MoveObject.visible = False
  26.         Else

Puzzle Game - Skill2.Designer.vb

Puzzle Game - Skill2.Designer.vb
Puzzle Game - Skill2.Designer.vb
Puzzle Game - Skill2.Designer.vb

Skill2.Designer.vb
  1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
  2. Partial Class Skill2
  3.     Inherits System.Windows.Forms.Form
  4.  
  5.     'Form overrides dispose to clean up the component list.
  6.     <System.Diagnostics.DebuggerNonUserCode()> _
  7.     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
  8.         If disposing AndAlso components IsNot Nothing Then
  9.             components.Dispose()
  10.         End If
  11.         MyBase.Dispose(disposing)
  12.     End Sub
  13.  
  14.     'Required by the Windows Form Designer
  15.     Private components As System.ComponentModel.IContainer
  16.  
  17.     'NOTE: The following procedure is required by the Windows Form Designer
  18.     'It can be modified using the Windows Form Designer.  
  19.     'Do not modify it using the code editor.
  20.     <System.Diagnostics.DebuggerStepThrough()> _
  21.     Private Sub InitializeComponent()
  22.         Me.Pic1 = New System.Windows.Forms.PictureBox
  23.         Me.Pic2 = New System.Windows.Forms.PictureBox
  24.         Me.Pic3 = New System.Windows.Forms.PictureBox
  25.         Me.Pic4 = New System.Windows.Forms.PictureBox
  26.         Me.Pic5 = New System.Windows.Forms.PictureBox
  27.         Me.Pic6 = New System.Windows.Forms.PictureBox
  28.         Me.Pic7 = New System.Windows.Forms.PictureBox
  29.         Me.Pic8 = New System.Windows.Forms.PictureBox

Puzzle Game - Skill1.vb


Puzzle Game / Skill1.vb
Puzzle Game - Skill1.vb
Puzzle Game - Skill1.vb

Skill1.vb
  1. Public Class Skill1
  2.     Dim MoveState As Integer = 0
  3.     Dim MoveObject As Object
  4.     Dim SkillPics As Integer = 0
  5.     Dim CountIMG As Integer = 0
  6.     Public Sub SetubCursor(ByVal MyImage As Bitmap)
  7.         On Error Resume Next
  8.         Dim bmCur As New Bitmap(MyImage)
  9.         Dim ptrCur As IntPtr = bmCur.GetHicon
  10.         Dim cur As Cursor
  11.         cur = New Cursor(ptrCur)
  12.         Me.Cursor = cur
  13.     End Sub
  14.     Private Sub Game_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  15.         SetubCursor(My.Resources.cursor_copy)
  16.         Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
  17.         Me.WindowState = FormWindowState.Maximized
  18.         SkillPics = 9
  19.     End Sub
  20.     Private Sub MPic1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MPic1.Click
  21.         If MoveState = 0 Then
  22.             MoveState = 1
  23.             SetubCursor(MPic1.Image)
  24.             MoveObject = MPic1
  25.             MoveObject.visible = False
  26.         Else
  27.             MoveState = 0
  28.             SetubCursor(My.Resources.cursor_copy)
  29.         End If
  30.     End Sub
  31.     Private Sub MPic2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MPic2.Click

Valuable E-Book

Hello,
Baby first step is a friendly flashcards offering a growing collection of creative and educational ideas to help the toddler to learn the alphabet, so I put images that would be attractive to babies.

Support independent publishing: Buy this e-book on Lulu.