• Home
 · 
• Miscellaneous
 · 
• JAVA EDITOR RUN APPLET

JAVA EDITOR RUN APPLET

JAVA EDITOR RUN APPLET

Rate JAVA EDITOR RUN APPLET

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

            Dim shantanu As Integer
            Dim u As String
            Dim flag, leng, length As Integer
            Dim array_for_path(100) As String
            length = Len(CURRENT_PATH)
            leng = length
            I = 0
            j = 0
            While (j < length)
                u = CURRENT_PATH.Chars(j)
                A(I) = u
                j = j + 1
                I = I + 1
            End While
            j = 0
            k = 0
            I = length
            For I = length - 1 To 0 Step -1
                If (A(I) = "\") Then
                    Exit For
                Else
                    u = A(I)
                    ARRAY(k) = u
                    k = k + 1
                End If
                length = length - 1
            Next
            I = 0
            For I = 0 To leng
                If (A(I) = "\") Then
                    Exit For
                Else
                    u = A(I)
                    flag = flag + 1
                End If
            Next
            I = 0
            shantanu = 0
            For I = flag + 1 To leng - k - 1
                u = A(I)
                array_for_path(shantanu) = u
                shantanu = shantanu + 1
            Next
            j = k
            MkDir("C:\JAVA EDITOR by SHANTANU SHARMA")
            FileOpen(3, "C:\JAVA EDITOR by SHANTANU SHARMA\CMD.bat", OpenMode.Output)
            PrintLine(3, "CD\")
            Print(3, "cd ")
            I = 0
            For I = 0 To shantanu - 2
                Print(3, array_for_path(I))
            Next
            PrintLine(3, "")
            PrintLine(3, "SET PATH=C:\JDK1.5\BIN")
            PrintLine(3, "SET CLASSPTH=C:\JDK1.5\JRE\LIB")
            PrintLine(3, "cls")
            Print(3, "appletviewer ")
            For I = j To 0 Step -1
                Print(3, ARRAY(j))
                j = j - 1
            Next
            PrintLine(3, "")
            PrintLine(3, "PAUSE")
            FileClose(3)
            Shell("C:\JAVA EDITOR by SHANTANU SHARMA\CMD.bat", AppWinStyle.MaximizedFocus, True)
            Kill("C:\JAVA EDITOR by SHANTANU SHARMA\CMD.bat")
            RmDir("C:\JAVA EDITOR by SHANTANU SHARMA")