63 lines
3.6 KiB
VB.net
63 lines
3.6 KiB
VB.net
Public Class Form1
|
||
|
||
Private Sub NsButton1_Click(sender As Object, e As EventArgs) Handles NsButton1.Click
|
||
Dim ofd As New OpenFileDialog With
|
||
{
|
||
.Filter = "ExE Files (*.exe) | *.exe"
|
||
}
|
||
If ofd.ShowDialog() = Windows.Forms.DialogResult.OK Then
|
||
TextBox1.Text = ofd.FileName
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub NsButton2_Click(sender As Object, e As EventArgs) Handles NsButton2.Click
|
||
Dim os As String = NumericUpDown1.Value
|
||
If (Not String.IsNullOrEmpty(TextBox1.Text)) Then
|
||
Dim azert As String = Convert.ToBase64String(IO.File.ReadAllBytes(TextBox1.Text))
|
||
Dim rty As String = azert.Length
|
||
Dim osx As String = rty / os
|
||
Dim kerkoz As Integer
|
||
Dim oiuy As String
|
||
Dim fsdfs As String = ""
|
||
Dim dfhdfhdf As String = "ഗദ്യപ്രബന്ധമാണ്ഉപന്യാസം"
|
||
For ഏകാഗ്രതയോടെസമീപിയ്ക്കുന്നതാണ്ഒന്നാമത്തെഗുണംവിഷയത്തെ As Integer = 1 To os
|
||
For lop = 0 To rty - 1 Step +os
|
||
oiuy += Mid(azert, lop + ഏകാഗ്രതയോടെസമീപിയ്ക്കുന്നതാണ്ഒന്നാമത്തെഗുണംവിഷയത്തെ, 1)
|
||
Next
|
||
Dim ertyuio As String = ഏകാഗ്രതയോടെസമീപിയ്ക്കുന്നതാണ്ഒന്നാമത്തെഗുണംവിഷയത്തെ
|
||
dfhdfhdf = dfhdfhdf + " & Strings.Mid(ണ്ടാവേണ്ടതാണ്വിഷയത്തിന്റെആരംഭത്തെക്കുറിച്ചുംഉപസംഹാരത്തെക്കുറിച്ചുംരചയിതാവ്" + ertyuio + ", ഏകാഗ്രതയോടെസമീപിയ്ക്കുന്നതാണ്ഒന്നാമത്തെഗുണംവിഷയത്തെ, 1)"
|
||
fsdfs = fsdfs + "dim ണ്ടാവേണ്ടതാണ്വിഷയത്തിന്റെആരംഭത്തെക്കുറിച്ചുംഉപസംഹാരത്തെക്കുറിച്ചുംരചയിതാവ്" + ertyuio + " as string= """ + oiuy + """" + ChrW(10)
|
||
oiuy = ""
|
||
Next
|
||
TextBox1.Text = My.Resources.stub.Replace("अपेक्षाइतनास्वतंत्रहैकिउसकीसटीकपरिभाषाकरनाअत्यंकठिनहै", fsdfs).Replace("写作者惯常用各种修辞手法曲折传达自己的见解和情", dfhdfhdf)
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
|
||
|
||
End Sub
|
||
|
||
Private Sub NsTextBox1_TextChanged(sender As Object, e As EventArgs) Handles NsTextBox1.TextChanged
|
||
|
||
End Sub
|
||
|
||
Private Sub NsButton3_Click(sender As Object, e As EventArgs) Handles NsButton3.Click
|
||
Clipboard.Clear()
|
||
If NsTextBox1.Text = "" Then
|
||
MsgBox("No Text To Copie", MsgBoxStyle.Critical, "Information")
|
||
Exit Sub
|
||
End If
|
||
Clipboard.SetText(NsTextBox1.Text)
|
||
MsgBox("Copied", MsgBoxStyle.Information, "Information")
|
||
End Sub
|
||
|
||
Private Sub NsButton4_Click(sender As Object, e As EventArgs) Handles NsButton4.Click
|
||
MsgBox("♕| K O P R A |♕")
|
||
|
||
End Sub
|
||
|
||
Private Sub NsButton5_Click(sender As Object, e As EventArgs) Handles NsButton5.Click
|
||
Me.Close()
|
||
End Sub
|
||
End Class
|