• Welcome to ForumKorner!
    Join today and become a part of the community.

VB.NET Shell Checker

nofear1999

Member
Reputation
0
Code:
Imports System
Imports System.IO
Imports System.IO.Stream
Imports System.IO.StreamWriter
Imports System.IO.StreamReader

Public Class Form1

    Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
        webBrowser1.Navigate(textBox1.Text)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        working.Text = "0"
        Nonworking.Text = "0"
        alreadyin.Text = "0"
    End Sub

    Private Sub button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Clipboard.SetText(TextBox2.Text)
    End Sub

    Private Sub webBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles webBrowser1.DocumentCompleted
        If TextBox2.Text.Contains(textBox1.Text) Then
            AlreadyIn.text = AlreadyIn.text + 1
        ElseIf webBrowser1.Document.Body.InnerText.Contains("UDP") Then
            working.Text = working.Text + 1
            TextBox2.Text = TextBox2.Text & textBox1.Text & vbCrLf & vbCrLf
        ElseIf webBrowser1.Document.Body.InnerText.Contains("(Don't DoS yourself nub)") Then
            working.Text = working.Text + 1
            TextBox2.Text = TextBox2.Text & textBox1.Text & vbCrLf & vbCrLf
        Else
            Nonworking.Text = Nonworking.Text + 1
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim SaveFile As New SaveFileDialog
        SaveFile.FileName = "Shells.txt"
        SaveFile.Filter = "Text Files|*.txt"
        SaveFile.FilterIndex = "1"
        SaveFile.Title = "Save file as"
        SaveFile.ShowDialog()
        Try
            Dim HurrHaa As New StreamWriter(SaveFile.FileName)
            HurrHaa.Write(TextBox2.Text)
            HurrHaa.Close()



        Catch ex As Exception

        End Try


    End Sub
 

peelsaven

Member
Reputation
0
sweet shell checker I really do need to get more into visual basic as it offers many great opportunities
 

cbetancourt1

Member
Reputation
0
oh this looks great thanks, right now i'm into python but i will go to c++ and c after this to learn even more than before.
 
Top