by Shantanu Sharma (2 Submissions)
Category: Miscellaneous
Compatability: VB.NET
Difficulty: Unknown Difficulty
Originally Published: Sat 14th October 2006
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
JAVA EDITOR RUN APPLET
VBcoders
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")