You are viewing our Forum Archives. To view or take place in current topics click here.
VB - Code Sources (A few Projects)
Posted:

VB - Code Sources (A few Projects)Posted:

GTC
  • TTG Addict
Status: Offline
Joined: Jun 02, 201212Year Member
Posts: 2,049
Reputation Power: 96
Status: Offline
Joined: Jun 02, 201212Year Member
Posts: 2,049
Reputation Power: 96
Let me start by saying this is more than one project. I'm sorry if the topic doesn't look clean. I made this kinda fast. In this topic you will find the coding for. (A virtual OS, NotePad, Web browser) I will update the topic with new codes if I get around to getting more codes. I am busy most days. These are not Tut's so I am NOT teaching you. I am just giving the codes. I did not sit in a room and figure these codes out. There from many places. I don't remember the sites. If you want message me and I will give you a project of the code you ask for. If you have codes you want me to add OR find tell me. I will try to find them unless you give them to me. I will add credit for you.

Virtual OS -
booting screen
------------------------------

  Private Sub Load_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.start()

    End Sub
----------------------------------------------------
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        ProgressBar1.Increment(5)
        If ProgressBar1.Value = ProgressBar1.Maximum Then
            LoginScreen.Show()
            Timer1.Stop()
            Me.Close()
        End If

    End Sub
------------
Login button

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If My.Computer.FileSystem.DirectoryExists("C:\Users\Account" + TextBox1.Text + "\") Then
            Dim USERREAD As System.IO.StreamReader = New System.IO.StreamReader("C:\Users\Account" + TextBox1.Text + "\" + "USERNAME.TXT")
            Dim userline As String
            Dim PASSREAD As System.IO.StreamReader = New System.IO.StreamReader("C:\Users\Account" + TextBox1.Text + "\" + "PASSWORD.TXT")
            Dim PASSLINE As String
            Do
                PASSLINE = TextBox2.Text
                userline = USERREAD.ReadLine
                Console.WriteLine(PASSLINE)
                Console.WriteLine(userline)
                MainCore.Show()
                Me.Close()
            Loop Until userline Is Nothing
            If TextBox2.Text = "" Then
            Else
            End If
            If PASSLINE = PASSREAD.ReadLine() = True Then
            Else

            End If
        End If

    End Sub
--------------------
create user
------------------
rivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If TextBox1.Text = "" Then
            MsgBox("Please fill out the details properly.", MsgBoxStyle.Critical)
        Else
            If TextBox2.Text = "" Then
                MsgBox("Please fill out the details properly.", MsgBoxStyle.Critical)
            Else : MkDir("C:\Users\Account" + TextBox1.Text)
                Dim username As New System.IO.StreamWriter("C:\Users\Account" + TextBox1.Text + "\" + "username.txt")
                username.Write(TextBox1.Text)
                username.Close()
                Dim password As New System.IO.StreamWriter("C:\Users\Account" + TextBox1.Text + "\" + "password.txt")
                password.Write(TextBox2.Text)
                password.Close()
                MsgBox("The account has been created properly and is now ready for login.", MsgBoxStyle.Information, "O.S 1")
            End If
        End If
    End Sub
----------------------------------------
Recovery button
------------------------
RecoveryLogin.show
Me.close
----------------------------------------

Shutdown button
--------------
End
----------------------------
all of the MainCore Code
---------------------------------------------------------------------------------------------------------------
 Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
        Panel1.Visible = True
        Button1.Visible = True
        Button2.Visible = True
        Button3.Visible = True
        Button4.Visible = True
        Button5.Visible = True
        Button6.Visible = True
        Button7.Visible = True
        Button8.Visible = True
        Button9.Visible = True



    End Sub
-----------------------------------------------------------------------------------------------------------------
    Private Sub MainCore_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Start()
        Panel1.Visible = False
        Button1.Visible = False
        Button2.Visible = False
        Panel2.Visible = False
        Button3.Visible = False
        Button4.Visible = False
        Button5.Visible = False
        Button6.Visible = False
        Button7.Visible = False
        Button8.Visible = False
        Panel3.Visible = False
        Button9.Visible = False

        Me.BackgroundImage = My.Resources.os4

    End Sub
---------------------------------------------------------------------------------------------------------------------
    Private Sub MainCore_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
        Panel1.Visible = False
        Button1.Visible = False
        Button2.Visible = False
        Panel2.Visible = False
        Button3.Visible = False
        Button4.Visible = False
        Button5.Visible = False
        Button6.Visible = False
        Button7.Visible = False
        Button8.Visible = False
        Button9.Visible = False
        Panel3.Visible = False



--------------------------------------------------------------------------------------------------------------------

    End Sub
------------------------------------------------------------------
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Logoff.Show()
    End Sub
----------------------------------------------------------------------------------------------------------------------
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Shutdown.Show()

    End Sub
---------------------------------------------------------------------------------------------------------------------
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Panel2.Visible = True

    End Sub
---------------------------------------------------------------------------------------------------------------------
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Me.BackgroundImage = My.Resources.os_2

    End Sub
---------------------------------------------------------------------------------------------------------------------
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Me.BackgroundImage = My.Resources.os3
    End Sub
---------------------------------------------------------------------------------------------------------------------
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Me.BackgroundImage = My.Resources.os4
    End Sub
---------------------------------------------------------------------------------------------------------------------
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label3.Text = Format(TimeOfDay)
    End Sub
---------------------------------------------------------------------------------------------------------------------
    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        OPENLYNEXSTUDIO.Show()
    End Sub
---------------------------------------------------------------------------------------------------------------------
    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Panel3.Visible = True
     

    End Sub
----------------------------------------------------------------------------------------------------------------------
    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        WebBrowser.Show()
    End Sub
----------------------------------------------------------------------------------------------------------------------
ShutDown Form Code
 
----------------------------------------------------------------------------------------------------------------------   
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        End
    End Sub
----------------------------------------------------------------------------------------------------------------------
Logoff form code
----------------------------------------------------------------------------------------------------------------------

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        LoginScreen.Show()
        Me.Close()
    End Sub
-----------------------------------------------------------------------------------------------------------------------


Web Browser-
Public Class Form1
    Dim int As Integer = 0

    Private Sub Loading(ByVal sender As Object, ByVal e As Windows.Forms.WebBrowserProgressChangedEventArgs)
        ToolStripProgressBar1.Maximum = e.MaximumProgress
        ToolStripProgressBar1.Value = e.CurrentProgress
    End Sub

    Private Sub Done(ByVal sender As Object, ByVal e As Windows.Forms.WebBrowserDocumentCompletedEventArgs)
        TabControl1.SelectedTab.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).DocumentTitle
        TextBox1.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Browser As New WebBrowser
        TabControl1.TabPages.Add("New Page")
        Browser.Dock = DockStyle.Fill
        TabControl1.SelectedTab.Controls.Add(Browser)
        AddHandler Browser.ProgressChanged, AddressOf Loading
        AddHandler Browser.DocumentCompleted, AddressOf Done
        int = int + 1
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoHome()
    End Sub

    Private Sub AddTabToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewTabToolStripMenuItem.Click
        Dim Browser As New WebBrowser
        TabControl1.TabPages.Add("New Page")
        TabControl1.SelectTab(int)
        Browser.Name = "General Cave"
        Browser.Dock = DockStyle.Fill
        TabControl1.SelectedTab.Controls.Add(Browser)
        AddHandler Browser.ProgressChanged, AddressOf Loading
        AddHandler Browser.DocumentCompleted, AddressOf Done
        int = int + 1
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoHome()
    End Sub

    Private Sub RemoveTabToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RemoveTabToolStripMenuItem.Click
        If Not TabControl1.TabPages.Count = 1 Then
            TabControl1.TabPages.RemoveAt(TabControl1.SelectedIndex)
            TabControl1.SelectTab(TabControl1.TabPages.Count - 1)
            int = int - 1
        End If
    End Sub

    Private Sub WebsitePropertiesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WebsiteInfoToolStripMenuItem.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).ShowPropertiesDialog()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoBack()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoForward()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Refresh()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Stop()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoHome()
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(TextBox1.Text)
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ToolStripStatusLabel1.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).StatusText
    End Sub

    Private Sub InfoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BrowserInfoToolStripMenuItem.Click
        MsgBox("This web browser was coded by Describe for the website Generalcave.com I will keep this browser updated! Enjoy this is V2 of the browser. Please report any errors to me on gamingcave.com!")
    End Sub


    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub BetaTestersToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BetaTestersToolStripMenuItem.Click
        MsgBox("Our beta testers helped me (Describe) test this browser to make it the best I can. I would like to thank Spartan and Dell for helping me beta test this web browser. I hope everyone loves it, enjoy.")
    End Sub
End Class


Notepad-
New:
RichTextBox1.Clear()

Open:
Try
Dim dlg As OpenFileDialog = New OpenFileDialog
dlg.Title = "Open"
dlg.Filter = "Rich Text Files (*.rtf)|*.rtf"
If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
RichTextBox1.LoadFile(dlg.FileName)
End If
Catch ex As Exception : End Try

Save:
Try
Dim dlg As SaveFileDialog = New SaveFileDialog
dlg.Title = "Save"
dlg.Filter = "Rich Text Files (*.rtf)|*.rtf"
If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
RichTextBox1.SaveFile(dlg.FileName, RichTextBoxStreamType.RichText)
End If
Catch ex As Exception : End Try

Undo:
RichTextBox1.Undo()

Redo:
RichTextBox1.Redo()

Cut:
RichTextBox1.Cut()

Copy:
RichTextBox1.Copy()

Paste:
RichTextBox1.Paste()

Clear:
RichTextBox1.Clear()

Select All:
RichTextBox1.SelectAll()

Colour:
Try
Dim dlg As ColorDialog = New ColorDialog
dlg.Color = RichTextBox1.ForeColor
If dlg.ShowDialog = System.Windows.Forms.DialogResult.OK Then
RichTextBox1.ForeColor = dlg.Color
End If
Catch ex As Exception : End Try

Font:
Try
Dim dlg As FontDialog = New FontDialog
dlg.Font = RichTextBox1.Font
If dlg.ShowDialog = System.Windows.Forms.DialogResult.OK Then
RichTextBox1.Font = dlg.Font
End If
Catch ex As Exception : End Try


Download Links.

Virtual OS - [ Register or Signin to view external links. ]

Web Browser - [ Register or Signin to view external links. ]

Notepad - [ Register or Signin to view external links. ]

Enjoy guys :-)
#2. Posted:
gartland1
  • New Member
Status: Offline
Joined: Apr 11, 201212Year Member
Posts: 27
Reputation Power: 1
Status: Offline
Joined: Apr 11, 201212Year Member
Posts: 27
Reputation Power: 1
Hey, the login system is very, very insecure write a HWID system that stores the login info in a remotely hosted DB(access it via PHP). You should also try naming your controls too, use camel case, prefix the names example btnLogin, btnQuit, txtUsername. You should also explain what the code does rather then C&P. Thanks for posting tho sure it will help many people.

Edit: I just read the thread you just C&P'ed the sources :facepalm:
#3. Posted:
GTC
  • TTG Addict
Status: Offline
Joined: Jun 02, 201212Year Member
Posts: 2,049
Reputation Power: 96
Status: Offline
Joined: Jun 02, 201212Year Member
Posts: 2,049
Reputation Power: 96
gartland1 wrote Hey, the login system is very, very insecure write a HWID system that stores the login info in a remotely hosted DB(access it via PHP). You should also try naming your controls too, use camel case, prefix the names example btnLogin, btnQuit, txtUsername. You should also explain what the code does rather then C&P. Thanks for posting tho sure it will help many people.

Edit: I just read the thread you just C&P'ed the sources :facepalm:
yes I did. As I said I c&P from old projects of mine. Lol
#4. Posted:
Eta
  • Christmas!
Status: Offline
Joined: Jun 03, 201212Year Member
Posts: 2,083
Reputation Power: 87
Status: Offline
Joined: Jun 03, 201212Year Member
Posts: 2,083
Reputation Power: 87
Very nice, thanks for sharing this. I've only made my own Web Browser out of these.
#5. Posted:
GTC
  • TTG Addict
Status: Offline
Joined: Jun 02, 201212Year Member
Posts: 2,049
Reputation Power: 96
Status: Offline
Joined: Jun 02, 201212Year Member
Posts: 2,049
Reputation Power: 96
TehPhobia wrote Very nice, thanks for sharing this. I've only made my own Web Browser out of these.
welcome. Man glad u liked it go check it my newest tool diamond
#6. Posted:
Eta
  • Summer 2018
Status: Offline
Joined: Jun 03, 201212Year Member
Posts: 2,083
Reputation Power: 87
Status: Offline
Joined: Jun 03, 201212Year Member
Posts: 2,083
Reputation Power: 87
Describe wrote
TehPhobia wrote Very nice, thanks for sharing this. I've only made my own Web Browser out of these.
welcome. Man glad u liked it go check it my newest tool diamond


Sure thing. I'll download it now
#7. Posted:
gartland1
  • New Member
Status: Offline
Joined: Apr 11, 201212Year Member
Posts: 27
Reputation Power: 1
Status: Offline
Joined: Apr 11, 201212Year Member
Posts: 27
Reputation Power: 1
Describe wrote
gartland1 wrote Hey, the login system is very, very insecure write a HWID system that stores the login info in a remotely hosted DB(access it via PHP). You should also try naming your controls too, use camel case, prefix the names example btnLogin, btnQuit, txtUsername. You should also explain what the code does rather then C&P. Thanks for posting tho sure it will help many people.

Edit: I just read the thread you just C&P'ed the sources :facepalm:
yes I did. As I said I c&P from old projects of mine. Lol


Oh, you wrote them that's ok then but I'm pretty sure I've seen them sources before(NOT saying I have).
#8. Posted:
GTC
  • TTG Addict
Status: Offline
Joined: Jun 02, 201212Year Member
Posts: 2,049
Reputation Power: 96
Status: Offline
Joined: Jun 02, 201212Year Member
Posts: 2,049
Reputation Power: 96
gartland1 wrote
Describe wrote
gartland1 wrote Hey, the login system is very, very insecure write a HWID system that stores the login info in a remotely hosted DB(access it via PHP). You should also try naming your controls too, use camel case, prefix the names example btnLogin, btnQuit, txtUsername. You should also explain what the code does rather then C&P. Thanks for posting tho sure it will help many people.

Edit: I just read the thread you just C&P'ed the sources :facepalm:
yes I did. As I said I c&P from old projects of mine. Lol


Oh, you wrote them that's ok then but I'm pretty sure I've seen them sources before(NOT saying I have).
bits and peaces are from sites but most hand typed
#9. Posted:
joeisjoe5
  • Rising Star
Status: Offline
Joined: Jun 18, 201212Year Member
Posts: 775
Reputation Power: 31
Status: Offline
Joined: Jun 18, 201212Year Member
Posts: 775
Reputation Power: 31
could you give a link of an exe or the vb file of your os, I ust want to see the finished product?
#10. Posted:
GTC
  • TTG Addict
Status: Offline
Joined: Jun 02, 201212Year Member
Posts: 2,049
Reputation Power: 96
Status: Offline
Joined: Jun 02, 201212Year Member
Posts: 2,049
Reputation Power: 96
joeisjoe5 wrote could you give a link of an exe or the vb file of your os, I ust want to see the finished product?
Sure thing I will PM you a link its not finished but its a basic layout
Jump to:
You are viewing our Forum Archives. To view or take place in current topics click here.