Benign Download

opções.vb

Code references Windows Forms assemblyApplication executable self path

SHA-25699b84072e63bb1d75e660321ff7d8f9db5b96c15a75b07018455255d5de3b972

Evidence

Code references Windows Forms assembly lines 4–10

4:4… orts System.Diagnostics
5Imports Microsoft.VisualBasic
6Imports System.Windows.Forms
7Imports System.Windows.Forms.Form
8Imports System.ComponentModel
9Imports System.Text
10Imports System.Windows.Forms.MessageBox …

Application executable self path lines 16–25

16:8… Py Pjoao1578
17'v6
18Public Class opções
19#Region "opções"
20    Public exe As Object = Application.ExecutablePath 'executavel
21    Dim sstartup As String = Application.StartupPath 'local
22#End Region
23
24    Private Sub opções_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
25        Try …

VBScript End control-flow block lines 30–35

19… tData.ClearProjectError()
      End Try
  End Sub
33
  Private Sub opções_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
…

VBScript Sub procedure lines 93–98

42… ()
      End Try
  End Sub
96
  Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged
      'Opacidade [Off / O …

VBScript Dim variable declaration lines 100–106

18… .CheckBox2.Checked = True Then
              Dim texto As String = "true"
              Dim esc_texto As New StreamWriter(sstartup & "/Configs/config1.txt")
              esc_texto.Write(texto)
              esc_texto.Close()
              Me.Opacity = 0.8 '80%
             …