Various false infection names found on SETUP
There are various false infection names found in my new SETUP by Defender.
Please mark the SETUP.EXE as legit.
false infection found: Malgent.B!ml (trying to write to registry key HKEY_CURRENT_USERSoftwareVB and VBA Program SettingsEazRENAMER ..)
false infection found: Caynamer.A!ml
false infection found: Phonzy.B!ml
false infection found: Wacatac.B!ml
download of the program: http://eatme.pro/download/renamer-win10
VB6 source of the SETUP below (finding all these falses):
VERSION 5.00
Begin VB.Form frmMain
BorderStyle = 1 ‘Fixed Single
Caption = “Renamer by EatMe Setup”
ClientHeight = 3585
ClientLeft = 45
ClientTop = 330
ClientWidth = 4785
Icon = “frmMain.frx”:0000
LinkTopic = “Form1”
MaxButton = 0 ‘False
MinButton = 0 ‘False
Picture = “frmMain.frx”:030A
ScaleHeight = 3585
ScaleWidth = 4785
StartUpPosition = 2 ‘CenterScreen
Begin VB.CommandButton cmdNext
Caption = “&Uninstall”
Height = 300
Index = 2
Left = 120
TabIndex = 14
ToolTipText = “Uninstall Renamer by EatMe”
Top = 2760
Visible = 0 ‘False
Width = 1335
End
Begin VB.CommandButton cmdNext
Caption = “&Uninstall”
Height = 300
Index = 1
Left = 120
TabIndex = 6
ToolTipText = “Uninstall Renamer by EatMe”
Top = 2760
Width = 1335
End
Begin VB.CommandButton cmdNext
Caption = “&Next”
Height = 300
Index = 0
Left = 120
TabIndex = 5
ToolTipText = “Install Renamer by EatMe”
Top = 3120
Width = 1335
End
Begin VB.CommandButton Command1
Cancel = -1 ‘True
Caption = “&Cancel”
Height = 300
Left = 3360
TabIndex = 4
ToolTipText = “Exit setup”
Top = 3120
Width = 1335
End
Begin VB.CommandButton cmdBrowse
Caption = “&Browse…”
Height = 300
Left = 3360
TabIndex = 3
ToolTipText = “Browse for the installation path”
Top = 2160
Width = 1335
End
Begin VB.TextBox Text1
BeginProperty Font
Name = “Tahoma”
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 ‘False
Italic = 0 ‘False
Strikethrough = 0 ‘False
EndProperty
Height = 285
Left = 120
TabIndex = 2
Text = “C:WinUtilRenamer”
ToolTipText = “The path where Renamer by EatMe will be installed”
Top = 1800
Width = 4575
End
Begin VB.Label lblProgHundred
BackStyle = 0 ‘Transparent
Caption = “100%”
BeginProperty Font
Name = “Tahoma”
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 ‘False
Italic = 0 ‘False
Strikethrough = 0 ‘False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 3840
TabIndex = 13
Top = 2520
Visible = 0 ‘False
Width = 735
End
Begin VB.Label lblProgZero
BackStyle = 0 ‘Transparent
Caption = “0%”
BeginProperty Font
Name = “Tahoma”
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 ‘False
Italic = 0 ‘False
Strikethrough = 0 ‘False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 240
TabIndex = 12
Top = 2520
Visible = 0 ‘False
Width = 495
End
Begin VB.Label lblProgFore
BackStyle = 0 ‘Transparent
BeginProperty Font
Name = “Tahoma”
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 ‘False
Italic = 0 ‘False
Strikethrough = 0 ‘False
EndProperty
ForeColor = &H00FFFFFF&
Height = 375
Left = 360
TabIndex = 11
Top = 2520
Visible = 0 ‘False
Width = 4335
End
Begin VB.Label lblProgBack
BackStyle = 0 ‘Transparent
Caption = “__________________________”
BeginProperty Font
Name = “Tahoma”
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 ‘False
Italic = 0 ‘False
Strikethrough = 0 ‘False
EndProperty
ForeColor = &H00FFC0C0&
Height = 375
Left = 360
TabIndex = 10
Top = 2520
Visible = 0 ‘False
Width = 4335
End
Begin VB.Label lblDiskFree
BackStyle = 0 ‘Transparent
Caption = “Free:”
BeginProperty Font
Name = “Tahoma”
Size = 11.25
Charset = 0
Weight = 400
Underline = 0 ‘False
Italic = 0 ‘False
Strikethrough = 0 ‘False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 360
TabIndex = 9
Top = 2640
Width = 4335
End
Begin VB.Label lblDiskReq
BackStyle = 0 ‘Transparent
Caption = “Required: < 1 Mb”
BeginProperty Font
Name = “Tahoma”
Size = 11.25
Charset = 0
Weight = 400
Underline = 0 ‘False
Italic = 0 ‘False
Strikethrough = 0 ‘False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 360
TabIndex = 8
Top = 2400
Width = 2895
End
Begin VB.Label lblDisk
BackStyle = 0 ‘Transparent
Caption = “Disk space”
BeginProperty Font
Name = “Tahoma”
Size = 11.25
Charset = 0
Weight = 400
Underline = 0 ‘False
Italic = 0 ‘False
Strikethrough = 0 ‘False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 240
TabIndex = 7
Top = 2160
Width = 3015
End
Begin VB.Label Label2
BackStyle = 0 ‘Transparent
Caption = “Target Directory:”
BeginProperty Font
Name = “Tahoma”
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 ‘False
Italic = 0 ‘False
Strikethrough = 0 ‘False
EndProperty
ForeColor = &H00FFFFFF&
Height = 375
Left = 120
TabIndex = 1
Top = 1440
Width = 4575
End
Begin VB.Label Label1
Alignment = 2 ‘Center
BackStyle = 0 ‘Transparent
Caption = “#”
BeginProperty Font
Name = “Tahoma”
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 ‘False
Italic = 0 ‘False
Strikethrough = 0 ‘False
EndProperty
ForeColor = &H00FFFFFF&
Height = 1455
Left = 120
TabIndex = 0
Top = 120
Width = 4575
End
End
Attribute VB_Name = “frmMain”
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function fCreateShellLink Lib “setup.dll” (ByVal _
lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal _
lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long
Private Declare Function DiskSpaceFree Lib “setup.dll” Alias “DISKSPACEFREE” () As Long
Private Declare Function fRemoveShellLink Lib “setup.dll” (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String) As Long
Private Declare Function DLLSelfRegister Lib “setup.dll” (ByVal lpDllName As String) As Integer
Private Sub cmdBrowse_Click()
frmFolder.Show vbModal, frmMain
GetFreeDiskSpace
End Sub
Private Sub cmdNext_Click(Index As Integer)
Dim lReturn As Long
Dim w$, i$, P$, prfx$, prf$
Select Case Index
Case 2 ‘ Uninstall
If MsgBox(“Are you sure you want to uninstall?”, vbYesNo + vbExclamation, App.Title) = vbYes Then
cmdNext(2).Visible = False
Label1.Caption = “Uninstalling…”
Label2.Visible = False
Text1.Visible = False
Command1.Visible = False
Me.Refresh
DoEvents
a$ = Text1.Text & IIf(Right(Text1.Text, 1) = “”, “”, “”)
On Error Resume Next
Kill a$ & “renamer.exe”
Kill a$ & “about.htm”
Kill a$ & “screenshot.jpg”
Kill a$ & “HelpFileList.htm”
Kill a$ & “HelpFileList.htm”
Kill a$ & “HelpAddFile.bmp”
Kill a$ & “HelpAddPath.bmp”
Kill a$ & “TestThis*.tst”
RmDir a$ & “Help”
RmDir a$ & “TestThis”
Kill a$ & “setup.exe”
Kill a$ & “setup.dll”
‘Remmove from to Desktop
fRemoveShellLink “….Desktop”, “Renamer”
‘Remove from Program Menu Group
fRemoveShellLink “”, “Renamer”
SaveSetting “EazRENAMER”, “Installer”, “InstallDir”, “UNINSTALLED”
Err.Clear
On Error Resume Next
RegDelete HKEY_LOCAL_MACHINE, “SoftwareMicrosoftWindowsCurrentVersionUninstallEazRENAMER”
If Err Then
MsgBox “Could not delete Renamer Setup from HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentversionUninstallEazRENAMER”, vbCritical + vbOKOnly, App.Title
Err.Clear
End If
If Not CompleteInstallKit() Then
Label1.Caption = “Uninstallation completed.”
cmdNext(0).Visible = False
Else
Label1.Caption = “Uninstallation completed. You can now re-install.”
Text1.Text = “C:WINUTILRENAMER”
Text1.Visible = True
Text1.Enabled = True
Text1.Locked = False
cmdNext(0).Visible = True
cmdBrowse.Visible = True
lblDisk.Visible = True
lblDiskReq.Visible = True
GetFreeDiskSpace
lblDiskFree.Visible = True
End If
End If
Case 0 ‘ install
prf$ = Environ$(“ProgramW6432”)
prfx$ = Environ$(“ProgramFiles(x86)”)
If (UCase(Left(Text1.Text, Len(prf$))) = UCase(prf$)) Or (UCase(Left(Text1.Text, Len(prfx$))) = UCase(prfx$)) Then
MsgBox “Renamer can not be installed in Program Files due to permission for writing Undo files. Choose another folder.”, vbInformation + vbOKOnly, App.Title
Exit Sub
ElseIf Len(Text1.Text) < 3 Then MsgBox “Enter target directory for installation first.”, vbCritical + vbOKOnly, App.Title: Exit Sub
End If
cmdNext(0).Visible = False
cmdNext(1).Visible = False
Label1.Caption = “Installing…”
Label2.Visible = False
Text1.Visible = False
Command1.Visible = False
cmdBrowse.Visible = False
lblDisk.Visible = False
lblDiskReq.Visible = False
lblDiskFree.Visible = False
lblProgBack.Visible = True
lblProgFore.Visible = True
lblProgZero.Visible = True
lblProgHundred.Visible = True
SetProgress
Me.Refresh
DoEvents
Screen.MousePointer = vbHourglass
P$ = UCase(App.Path & IIf(Right(App.Path, 1) = “”, “”, “”))
i$ = UCase(Text1.Text & IIf(Right(Text1.Text, 1) = “”, “”, “”))
w$ = Environ(“WinDir”)
w$ = w$ & IIf(Right(w$, 1) = “”, “”, “”)
On Error Resume Next
‘Create Dir(s)
j$ = i$ & “FileList”
mk$ = j$
mf$ = “”
Do
sp% = InStr(mk$, “”)
If sp% <= 0 Then Exit Do
Mid(mk$, sp%, 1) = “/”
mf$ = Left(j$, sp%)
MkDir mf$
Loop
j$ = i$ & “Help”
mk$ = j$
mf$ = “”
Do
sp% = InStr(mk$, “”)
If sp% <= 0 Then Exit Do
Mid(mk$, sp%, 1) = “/”
mf$ = Left(j$, sp%)
MkDir mf$
Loop
j$ = i$ & “TestThis”
mk$ = j$
mf$ = “”
Do
sp% = InStr(mk$, “”)
If sp% <= 0 Then Exit Do
Mid(mk$, sp%, 1) = “/”
mf$ = Left(j$, sp%)
MkDir mf$
Loop
j$ = i$ & “Undo”
mk$ = j$
mf$ = “”
Do
sp% = InStr(mk$, “”)
If sp% <= 0 Then Exit Do
Mid(mk$, sp%, 1) = “/”
mf$ = Left(j$, sp%)
MkDir mf$
Loop
‘If Dir(w$ & “SYSTEMCOMDLG32.OCX”) = “” Then
‘ Readfile$ = “MP3RND.4”
‘ WriteFile$ = “COMDLG32.OCX”
‘ On Error GoTo ReadErr
‘ Open P$ & “mp3rnd.4” For Binary As #1
‘ On Error GoTo WriteErr
‘ Open w$ & “systemcomdlg32.ocx” For Output As #2
‘ Close #2
‘ Open w$ & “systemcomdlg32.ocx” For Binary As #2
‘ Do While Not EOF(1)
‘ z$ = ” “
‘ On Error GoTo ReadErr
‘ Get #1, , z$
‘ On Error GoTo WriteErr
‘ Put #2, , z$
‘ Loop
‘ Close
‘End If
‘DLLSelfRegister w$ & “systemcomdlg32.ocx”
SetProgress
Readfile$ = “RENAMER.1”
WriteFile$ = “RENAMER.EXE”
On Error GoTo ReadErr
Open P$ & “renamer.1” For Binary As #1
On Error GoTo WriteErr
Open i$ & “Renamer.exe” For Output As #2
Close #2
Open i$ & “Renamer.exe” For Binary As #2
Do While Not EOF(1)
z$ = ” “
On Error GoTo ReadErr
Get #1, , z$
On Error GoTo WriteErr
Put #2, , z$
Loop
Close
SetProgress
Readfile$ = “RENAMER.2”
WriteFile$ = “SCREENSHOT.JPG”
On Error GoTo ReadErr
Open P$ & “renamer.2” For Binary As #1
On Error GoTo WriteErr
Open i$ & “screenshot.jpg” For Output As #2
Close #2
Open i$ & “screenshot.jpg” For Binary As #2
Do While Not EOF(1)
z$ = ” “
On Error GoTo ReadErr
Get #1, , z$
On Error GoTo WriteErr
Put #2, , z$
Loop
Close
SetProgress
Readfile$ = “RENAMER.3”
WriteFile$ = “ABOUT.HTM”
On Error GoTo ReadErr
Open P$ & “renamer.3” For Binary As #1
On Error GoTo WriteErr
Open i$ & “about.htm” For Output As #2
Close #2
Open i$ & “about.htm” For Binary As #2
Do While Not EOF(1)
z$ = ” “
On Error GoTo ReadErr
Get #1, , z$
On Error GoTo WriteErr
Put #2, , z$
Loop
Close
SetProgress
If Dir(i$ & “setup.dll”) = “” Or P$ <> i$ Then
Readfile$ = “SETUP.DLL”
WriteFile$ = “SETUP.DLL”
On Error GoTo ReadErr
Open P$ & “setup.dll” For Binary As #1
On Error GoTo WriteErr
Open i$ & “setup.dll” For Output As #2
Close #2
Open i$ & “setup.dll” For Binary As #2
Do While Not EOF(1)
z$ = ” “
On Error GoTo ReadErr
Get #1, , z$
On Error GoTo WriteErr
Put #2, , z$
Loop
Close
End If
SetProgress
If Dir(i$ & “setup.exe”) = “” Or P$ <> i$ Then
Readfile$ = “SETUP.EXE”
WriteFile$ = “SETUP.EXE”
On Error GoTo ReadErr
Open P$ & “setup.exe” For Binary As #1
On Error GoTo WriteErr
Open i$ & “setup.exe” For Output As #2
Close #2
Open i$ & “setup.exe” For Binary As #2
Do While Not EOF(1)
z$ = ” “
On Error GoTo ReadErr
Get #1, , z$
On Error GoTo WriteErr
Put #2, , z$
Loop
Close
End If
SetProgress
Readfile$ = “RENAMER.4”
WriteFile$ = “HELPADDFILE.BMP”
On Error GoTo ReadErr
Open P$ & “renamer.4” For Binary As #1
On Error GoTo WriteErr
Open i$ & “HelpAddFile.bmp” For Output As #2
Close #2
Open i$ & “HelpAddFile.bmp” For Binary As #2
Do While Not EOF(1)
z$ = ” “
On Error GoTo ReadErr
Get #1, , z$
On Error GoTo WriteErr
Put #2, , z$
Loop
Close
SetProgress
Readfile$ = “RENAMER.5”
WriteFile$ = “HELPADDPATH.BMP”
On Error GoTo ReadErr
Open P$ & “renamer.5” For Binary As #1
On Error GoTo WriteErr
Open i$ & “HelpAddPath.bmp” For Output As #2
Close #2
Open i$ & “HelpAddPath.bmp” For Binary As #2
Do While Not EOF(1)
z$ = ” “
On Error GoTo ReadErr
Get #1, , z$
On Error GoTo WriteErr
Put #2, , z$
Loop
Close
SetProgress
Readfile$ = “RENAMER.6”
WriteFile$ = “HELPFILELIST.HTM”
On Error GoTo ReadErr
Open P$ & “renamer.6” For Binary As #1
On Error GoTo WriteErr
Open i$ & “HelpFileList.htm” For Output As #2
Close #2
Open i$ & “HelpFileList.htm” For Binary As #2
Do While Not EOF(1)
z$ = ” “
On Error GoTo ReadErr
Get #1, , z$
On Error GoTo WriteErr
Put #2, , z$
Loop
Close
SetProgress
Readfile$ = “RENAMER.7”
WriteFile$ = “PRESETS.REG”
On Error GoTo WriteErr
Name P$ & “renamer.7” As P$ & “presets.reg”
On Error Resume Next
Shell (w$ & “regedit.exe /s ” & P$ & “presets.reg”)
Err.Clear
DoEvents
DoEvents
DoEvents
SetProgress
Readfile$ = “”
WriteFile$ = “10x empty test file”
On Error GoTo WriteErr
Open i$ & “TestThis1_Artist___CD___Title.tst” For Output As #2
Close #2
Open i$ & “TestThis2_Artist___CD___Title.tst” For Output As #2
Close #2
Open i$ & “TestThis3_Artist___CD___Title.tst” For Output As #2
Close #2
Open i$ & “TestThis4_Artist___CD___Title.tst” For Output As #2
Close #2
Open i$ & “TestThis5_Artist___CD___Title.tst” For Output As #2
Close #2
Open i$ & “TestThis6_Artist___CD___Title.tst” For Output As #2
Close #2
Open i$ & “TestThis7_Artist___CD___Title.tst” For Output As #2
Close #2
Open i$ & “TestThis8_Artist___CD___Title.tst” For Output As #2
Close #2
Open i$ & “TestThis9_Artist___CD___Title.tst” For Output As #2
Close #2
Open i$ & “TestThis10_Artist___CD___Title.tst” For Output As #2
Close #2
On Error Resume Next
SetProgress
‘Add to Desktop
lReturn = fCreateShellLink(“….Desktop”, _
“Renamer”, i$ & “Renamer.exe”, “”)
‘Add to Program Menu Group
lReturn = fCreateShellLink(“”, “Renamer”, _
i$ & “Renamer.exe”, “”)
SaveSetting “EazRENAMER”, “Installer”, “InstallDir”, i$
RegCreate HKEY_LOCAL_MACHINE, “SoftwareMicrosoftWindowsCurrentVersionUninstallEazRENAMER”
RegSet HKEY_LOCAL_MACHINE, “SoftwareMicrosoftWindowsCurrentVersionUninstallEazRENAMER”, “DisplayName”, “Renamer by EatMe 2.4.5.w11”, REG_SZ
RegSet HKEY_LOCAL_MACHINE, “SoftwareMicrosoftWindowsCurrentVersionUninstallEazRENAMER”, “UninstallString”, i$ & “setup.exe”, REG_SZ
SetProgress
Readfile$ = “RENAMER.7”
WriteFile$ = “PRESETS.REG”
On Error GoTo ReadErr
Name P$ & “presets.reg” As P$ & “RENAMER.7”
On Error Resume Next
SetProgress
Label1.Caption = “Completed installation.”
Case 1 ‘ uninstall
If MsgBox(“Are you sure you want to uninstall?”, vbYesNo + vbExclamation, App.Title) = vbYes Then
cmdNext(0).Visible = False
cmdNext(1).Visible = False
Label1.Caption = “Uninstalling…”
Label2.Visible = False
Text1.Visible = False
Command1.Visible = False
Me.Refresh
DoEvents
On Error Resume Next
w$ = Environ(“WinDir”)
w$ = w$ & IIf(Right(w$, 1) = “”, “”, “”)
a$ = Text1.Text & IIf(Right(Text1.Text, 1) = “”, “”, “”)
Kill a$ & “renamer.exe”
Kill a$ & “about.htm”
Kill a$ & “screenshot.jpg”
Kill a$ & “HelpFileList.htm”
Kill a$ & “HelpAddFile.bmp”
Kill a$ & “HelpAddPath.bmp”
Kill a$ & “TestThis*.tst”
RmDir a$ & “Help”
RmDir a$ & “TestThis”
Kill a$ & “setup.exe”
Kill a$ & “setup.dll”
‘Remmove from to Desktop
fRemoveShellLink “….Desktop”, “Renamer”
‘Remove from Program Menu Group
fRemoveShellLink “”, “Renamer”
SaveSetting “EazRENAMER”, “Installer”, “InstallDir”, “UNINSTALLED”
Err.Clear
On Error Resume Next
RegDelete HKEY_LOCAL_MACHINE, “SoftwareMicrosoftWindowsCurrentVersionUninstallEazRENAMER”
If Err Then
MsgBox “Could not delete Renamer Setup from HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentversionUninstallEazRENAMER”, vbCritical + vbOKOnly, App.Title
Err.Clear
End If
If Not CompleteInstallKit(a$) Then
Label1.Caption = “Uninstalled. Please delete the remaining SETUP and own files from the Renamer folder.”
Else
Label1.Caption = “Uninstallation completed.”
End If
End If
End Select
EndSub:
Screen.MousePointer = vbDefault
Command1.Caption = “E&xit”
Command1.Visible = True
Me.Refresh
DoEvents
Exit Sub
ReadErr:
MsgBox “An error occured while reading the following file: ” & vhbcrlf & vbCrLf & _
Readfile$ & vbCrLf & vbCrLf & _
Err.Description & vbCrLf & vbCrLf & _
“Setup can not continue the installation.”, vbCritical + vbOKOnly, App.Title
Label1.Caption = “An error occured while installing.”
Resume EndSub
WriteErr:
MsgBox “An error occured while writing the following file: ” & vhbcrlf & vbCrLf & _
WriteFile$ & vbCrLf & vbCrLf & _
Err.Description & vbCrLf & vbCrLf & _
“Setup can not continue the installation.”, vbCritical + vbOKOnly, App.Title
Label1.Caption = “An error occured while installing.”
Resume EndSub
End Sub
Private Sub Command1_Click()
EndMe
End Sub
Private Sub GetFreeDiskSpace()
Dim l As Long
On Error Resume Next
ChDrive Left$(Text1.Text, 2)
l = DiskSpaceFree
t$ = “bytes”
If l > 1024 Then l = l / 1024: t$ = “Kb”
If l > 1024 Then l = l / 1024: t$ = “Mb”
If l > 1024 Then l = l / 1024: t$ = “Gb”
If l >= 2 And t$ = “Gb” Then z$ = ” > “
lblDiskFree.Caption = “Free: ” & z$ & CStr(l) & ” ” & t$
Me.Refresh
DoEvents
End Sub
Private Sub Form_Load()
‘ Check Renamer
a$ = GetSetting(“EazRENAMER”, “Installer”, “InstallDir”, “”)
If a$ = “UNINSTALLED” Then a$ = “”
If a$ <> “” Then
a$ = a$ & IIf(Right(a$, 1) = “”, “”, “”)
Text1.Text = a$
If Dir(a$ & “RENAMER.EXE”) <> “” Then
Uninstall a$: Exit Sub
End If
End If
a$ = GetSetting(“EazRENAMER”, “Installer”, “InstallDir”, “”)
If UCase$(a$) = “UNINSTALLED” And CompleteInstallKit = False Then
Label1.Caption = “”
Label2.Visible = False
Text1.Visible = False
cmdBrowse.Visible = False
cmdNext(0).Visible = False
cmdNext(1).Visible = False
lblDisk.Visible = False
lblDiskReq.Visible = False
lblDiskFree.Visible = False
Command1.Caption = “E&xit”
w$ = Environ(“WinDir”)
w$ = w$ & IIf(Right(w$, 1) = “”, “”, “”)
MsgBox “Renamer has been uninstalled.” & vbCrLf & vbCrLf & _
“You can delete the remaining SETUP and own files from the Renamer directory.”, vbOKOnly + vbInformation, App.Title
Exit Sub
End If
If CompleteInstallKit = False Then
Label1.Caption = “You can delete this file (SETUP.EXE).”
Label2.Visible = False
Text1.Visible = False
cmdNext(1).Visible = False
cmdNext(0).Visible = False
cmdBrowse.Visible = False
Command1.Caption = “E&xit”
lblDisk.Visible = False
lblDiskReq.Visible = False
lblDiskFree.Visible = False
Me.Refresh
DoEvents
Else
Label1.Caption = “Click Next to install Renamer by EatMe to your computer.”
cmdNext(1).Visible = False
GetFreeDiskSpace
End If
End Sub
Function CompleteInstallKit(Optional ByVal AppPath$ = “”) As Boolean
If AppPath$ = “” Then AppPath$ = App.Path & IIf(Right(App.Path, 1) = “”, “”, “”)
If Dir(AppPath$ & “renamer.1”) <> “” And _
Dir(AppPath$ & “renamer.2”) <> “” And _
Dir(AppPath$ & “renamer.3”) <> “” And _
Dir(AppPath$ & “renamer.4”) <> “” And _
Dir(AppPath$ & “renamer.5”) <> “” And _
Dir(AppPath$ & “renamer.6”) <> “” And _
Dir(AppPath$ & “renamer.7”) <> “” And _
Dir(AppPath$ & “renamer.8”) <> “” And _
Dir(AppPath$ & “setup.dll”) <> “” And _
Dir(AppPath$ & “setup.exe”) <> “” Then
CompleteInstallKit = True
Else
CompleteInstallKit = False
End If
End Function
Sub OldUninstall(RENAMERdir$)
Label1.Caption = “Remove Renamer”
Label2.Caption = “Location:”
Text1.Text = RENAMERdir$
Text1.Locked = True
Text1.ToolTipText = “Location of Renamer”
cmdNext(1).Visible = False
cmdNext(2).Visible = True
If CompleteInstallKit Then
Label1.Caption = “Remove Renamer before re-installing Renamer..”
End If
cmdNext(2).Top = 3120
cmdBrowse.Visible = False
lblDisk.Visible = False
lblDiskReq.Visible = False
lblDiskFree.Visible = False
End Sub
Sub Uninstall(RENAMERdir$)
Label1.Caption = “Remove Renamer”
Label2.Caption = “Location:”
Text1.Text = RENAMERdir$
Text1.Locked = True
Text1.ToolTipText = “Location of Renamer”
If CompleteInstallKit Then
Label1.Caption = “Remove or Reinstall Renamer”
cmdNext(0).Visible = True
cmdNext(0).Caption = “&Reinstall”
cmdNext(1).Top = 2760
Else
cmdNext(1).Top = 3120
End If
cmdBrowse.Visible = False
lblDisk.Visible = False
lblDiskReq.Visible = False
lblDiskFree.Visible = False
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
EndMe
End Sub
Private Sub Form_Terminate()
EndMe
End Sub
Private Sub Text1_LostFocus()
GetFreeDiskSpace
End Sub
Private Sub SetProgress()
lblProgFore = lblProgFore.Caption & “__”
Me.Refresh
DoEvents
End Sub
There are various false infection names found in my new SETUP by Defender.Please mark the SETUP.EXE as legit. false infection found: Malgent.B!ml (trying to write to registry key HKEY_CURRENT_USERSoftwareVB and VBA Program SettingsEazRENAMER ..)false infection found: Caynamer.A!ml false infection found: Phonzy.B!mlfalse infection found: Wacatac.B!ml download of the program: http://eatme.pro/download/renamer-win10 VB6 source of the SETUP below (finding all these falses):VERSION 5.00
Begin VB.Form frmMain
BorderStyle = 1 ‘Fixed Single
Caption = “Renamer by EatMe Setup”
ClientHeight = 3585
ClientLeft = 45
ClientTop = 330
ClientWidth = 4785
Icon = “frmMain.frx”:0000
LinkTopic = “Form1”
MaxButton = 0 ‘False
MinButton = 0 ‘False
Picture = “frmMain.frx”:030A
ScaleHeight = 3585
ScaleWidth = 4785
StartUpPosition = 2 ‘CenterScreen
Begin VB.CommandButton cmdNext
Caption = “&Uninstall”
Height = 300
Index = 2
Left = 120
TabIndex = 14
ToolTipText = “Uninstall Renamer by EatMe”
Top = 2760
Visible = 0 ‘False
Width = 1335
End
Begin VB.CommandButton cmdNext
Caption = “&Uninstall”
Height = 300
Index = 1
Left = 120
TabIndex = 6
ToolTipText = “Uninstall Renamer by EatMe”
Top = 2760
Width = 1335
End
Begin VB.CommandButton cmdNext
Caption = “&Next”
Height = 300
Index = 0
Left = 120
TabIndex = 5
ToolTipText = “Install Renamer by EatMe”
Top = 3120
Width = 1335
End
Begin VB.CommandButton Command1
Cancel = -1 ‘True
Caption = “&Cancel”
Height = 300
Left = 3360
TabIndex = 4
ToolTipText = “Exit setup”
Top = 3120
Width = 1335
End
Begin VB.CommandButton cmdBrowse
Caption = “&Browse…”
Height = 300
Left = 3360
TabIndex = 3
ToolTipText = “Browse for the installation path”
Top = 2160
Width = 1335
End
Begin VB.TextBox Text1
BeginProperty Font
Name = “Tahoma”
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 ‘False
Italic = 0 ‘False
Strikethrough = 0 ‘False
EndProperty
Height = 285
Left = 120
TabIndex = 2
Text = “C:WinUtilRenamer”
ToolTipText = “The path where Renamer by EatMe will be installed”
Top = 1800
Width = 4575
End
Begin VB.Label lblProgHundred
BackStyle = 0 ‘Transparent
Caption = “100%”
BeginProperty Font
Name = “Tahoma”
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 ‘False
Italic = 0 ‘False
Strikethrough = 0 ‘False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 3840
TabIndex = 13
Top = 2520
Visible = 0 ‘False
Width = 735
End
Begin VB.Label lblProgZero
BackStyle = 0 ‘Transparent
Caption = “0%”
BeginProperty Font
Name = “Tahoma”
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 ‘False
Italic = 0 ‘False
Strikethrough = 0 ‘False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 240
TabIndex = 12
Top = 2520
Visible = 0 ‘False
Width = 495
End
Begin VB.Label lblProgFore
BackStyle = 0 ‘Transparent
BeginProperty Font
Name = “Tahoma”
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 ‘False
Italic = 0 ‘False
Strikethrough = 0 ‘False
EndProperty
ForeColor = &H00FFFFFF&
Height = 375
Left = 360
TabIndex = 11
Top = 2520
Visible = 0 ‘False
Width = 4335
End
Begin VB.Label lblProgBack
BackStyle = 0 ‘Transparent
Caption = “__________________________”
BeginProperty Font
Name = “Tahoma”
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 ‘False
Italic = 0 ‘False
Strikethrough = 0 ‘False
EndProperty
ForeColor = &H00FFC0C0&
Height = 375
Left = 360
TabIndex = 10
Top = 2520
Visible = 0 ‘False
Width = 4335
End
Begin VB.Label lblDiskFree
BackStyle = 0 ‘Transparent
Caption = “Free:”
BeginProperty Font
Name = “Tahoma”
Size = 11.25
Charset = 0
Weight = 400
Underline = 0 ‘False
Italic = 0 ‘False
Strikethrough = 0 ‘False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 360
TabIndex = 9
Top = 2640
Width = 4335
End
Begin VB.Label lblDiskReq
BackStyle = 0 ‘Transparent
Caption = “Required: < 1 Mb”
BeginProperty Font
Name = “Tahoma”
Size = 11.25
Charset = 0
Weight = 400
Underline = 0 ‘False
Italic = 0 ‘False
Strikethrough = 0 ‘False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 360
TabIndex = 8
Top = 2400
Width = 2895
End
Begin VB.Label lblDisk
BackStyle = 0 ‘Transparent
Caption = “Disk space”
BeginProperty Font
Name = “Tahoma”
Size = 11.25
Charset = 0
Weight = 400
Underline = 0 ‘False
Italic = 0 ‘False
Strikethrough = 0 ‘False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 240
TabIndex = 7
Top = 2160
Width = 3015
End
Begin VB.Label Label2
BackStyle = 0 ‘Transparent
Caption = “Target Directory:”
BeginProperty Font
Name = “Tahoma”
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 ‘False
Italic = 0 ‘False
Strikethrough = 0 ‘False
EndProperty
ForeColor = &H00FFFFFF&
Height = 375
Left = 120
TabIndex = 1
Top = 1440
Width = 4575
End
Begin VB.Label Label1
Alignment = 2 ‘Center
BackStyle = 0 ‘Transparent
Caption = “#”
BeginProperty Font
Name = “Tahoma”
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 ‘False
Italic = 0 ‘False
Strikethrough = 0 ‘False
EndProperty
ForeColor = &H00FFFFFF&
Height = 1455
Left = 120
TabIndex = 0
Top = 120
Width = 4575
End
End
Attribute VB_Name = “frmMain”
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function fCreateShellLink Lib “setup.dll” (ByVal _
lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal _
lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long
Private Declare Function DiskSpaceFree Lib “setup.dll” Alias “DISKSPACEFREE” () As Long
Private Declare Function fRemoveShellLink Lib “setup.dll” (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String) As Long
Private Declare Function DLLSelfRegister Lib “setup.dll” (ByVal lpDllName As String) As Integer
Private Sub cmdBrowse_Click()
frmFolder.Show vbModal, frmMain
GetFreeDiskSpace
End Sub
Private Sub cmdNext_Click(Index As Integer)
Dim lReturn As Long
Dim w$, i$, P$, prfx$, prf$
Select Case Index
Case 2 ‘ Uninstall
If MsgBox(“Are you sure you want to uninstall?”, vbYesNo + vbExclamation, App.Title) = vbYes Then
cmdNext(2).Visible = False
Label1.Caption = “Uninstalling…”
Label2.Visible = False
Text1.Visible = False
Command1.Visible = False
Me.Refresh
DoEvents
a$ = Text1.Text & IIf(Right(Text1.Text, 1) = “”, “”, “”)
On Error Resume Next
Kill a$ & “renamer.exe”
Kill a$ & “about.htm”
Kill a$ & “screenshot.jpg”
Kill a$ & “HelpFileList.htm”
Kill a$ & “HelpFileList.htm”
Kill a$ & “HelpAddFile.bmp”
Kill a$ & “HelpAddPath.bmp”
Kill a$ & “TestThis*.tst”
RmDir a$ & “Help”
RmDir a$ & “TestThis”
Kill a$ & “setup.exe”
Kill a$ & “setup.dll”
‘Remmove from to Desktop
fRemoveShellLink “….Desktop”, “Renamer”
‘Remove from Program Menu Group
fRemoveShellLink “”, “Renamer”
SaveSetting “EazRENAMER”, “Installer”, “InstallDir”, “UNINSTALLED”
Err.Clear
On Error Resume Next
RegDelete HKEY_LOCAL_MACHINE, “SoftwareMicrosoftWindowsCurrentVersionUninstallEazRENAMER”
If Err Then
MsgBox “Could not delete Renamer Setup from HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentversionUninstallEazRENAMER”, vbCritical + vbOKOnly, App.Title
Err.Clear
End If
If Not CompleteInstallKit() Then
Label1.Caption = “Uninstallation completed.”
cmdNext(0).Visible = False
Else
Label1.Caption = “Uninstallation completed. You can now re-install.”
Text1.Text = “C:WINUTILRENAMER”
Text1.Visible = True
Text1.Enabled = True
Text1.Locked = False
cmdNext(0).Visible = True
cmdBrowse.Visible = True
lblDisk.Visible = True
lblDiskReq.Visible = True
GetFreeDiskSpace
lblDiskFree.Visible = True
End If
End If
Case 0 ‘ install
prf$ = Environ$(“ProgramW6432”)
prfx$ = Environ$(“ProgramFiles(x86)”)
If (UCase(Left(Text1.Text, Len(prf$))) = UCase(prf$)) Or (UCase(Left(Text1.Text, Len(prfx$))) = UCase(prfx$)) Then
MsgBox “Renamer can not be installed in Program Files due to permission for writing Undo files. Choose another folder.”, vbInformation + vbOKOnly, App.Title
Exit Sub
ElseIf Len(Text1.Text) < 3 Then MsgBox “Enter target directory for installation first.”, vbCritical + vbOKOnly, App.Title: Exit Sub
End If
cmdNext(0).Visible = False
cmdNext(1).Visible = False
Label1.Caption = “Installing…”
Label2.Visible = False
Text1.Visible = False
Command1.Visible = False
cmdBrowse.Visible = False
lblDisk.Visible = False
lblDiskReq.Visible = False
lblDiskFree.Visible = False
lblProgBack.Visible = True
lblProgFore.Visible = True
lblProgZero.Visible = True
lblProgHundred.Visible = True
SetProgress
Me.Refresh
DoEvents
Screen.MousePointer = vbHourglass
P$ = UCase(App.Path & IIf(Right(App.Path, 1) = “”, “”, “”))
i$ = UCase(Text1.Text & IIf(Right(Text1.Text, 1) = “”, “”, “”))
w$ = Environ(“WinDir”)
w$ = w$ & IIf(Right(w$, 1) = “”, “”, “”)
On Error Resume Next
‘Create Dir(s)
j$ = i$ & “FileList”
mk$ = j$
mf$ = “”
Do
sp% = InStr(mk$, “”)
If sp% <= 0 Then Exit Do
Mid(mk$, sp%, 1) = “/”
mf$ = Left(j$, sp%)
MkDir mf$
Loop
j$ = i$ & “Help”
mk$ = j$
mf$ = “”
Do
sp% = InStr(mk$, “”)
If sp% <= 0 Then Exit Do
Mid(mk$, sp%, 1) = “/”
mf$ = Left(j$, sp%)
MkDir mf$
Loop
j$ = i$ & “TestThis”
mk$ = j$
mf$ = “”
Do
sp% = InStr(mk$, “”)
If sp% <= 0 Then Exit Do
Mid(mk$, sp%, 1) = “/”
mf$ = Left(j$, sp%)
MkDir mf$
Loop
j$ = i$ & “Undo”
mk$ = j$
mf$ = “”
Do
sp% = InStr(mk$, “”)
If sp% <= 0 Then Exit Do
Mid(mk$, sp%, 1) = “/”
mf$ = Left(j$, sp%)
MkDir mf$
Loop
‘If Dir(w$ & “SYSTEMCOMDLG32.OCX”) = “” Then
‘ Readfile$ = “MP3RND.4”
‘ WriteFile$ = “COMDLG32.OCX”
‘ On Error GoTo ReadErr
‘ Open P$ & “mp3rnd.4” For Binary As #1
‘ On Error GoTo WriteErr
‘ Open w$ & “systemcomdlg32.ocx” For Output As #2
‘ Close #2
‘ Open w$ & “systemcomdlg32.ocx” For Binary As #2
‘ Do While Not EOF(1)
‘ z$ = ” “
‘ On Error GoTo ReadErr
‘ Get #1, , z$
‘ On Error GoTo WriteErr
‘ Put #2, , z$
‘ Loop
‘ Close
‘End If
‘DLLSelfRegister w$ & “systemcomdlg32.ocx”
SetProgress
Readfile$ = “RENAMER.1”
WriteFile$ = “RENAMER.EXE”
On Error GoTo ReadErr
Open P$ & “renamer.1” For Binary As #1
On Error GoTo WriteErr
Open i$ & “Renamer.exe” For Output As #2
Close #2
Open i$ & “Renamer.exe” For Binary As #2
Do While Not EOF(1)
z$ = ” “
On Error GoTo ReadErr
Get #1, , z$
On Error GoTo WriteErr
Put #2, , z$
Loop
Close
SetProgress
Readfile$ = “RENAMER.2”
WriteFile$ = “SCREENSHOT.JPG”
On Error GoTo ReadErr
Open P$ & “renamer.2” For Binary As #1
On Error GoTo WriteErr
Open i$ & “screenshot.jpg” For Output As #2
Close #2
Open i$ & “screenshot.jpg” For Binary As #2
Do While Not EOF(1)
z$ = ” “
On Error GoTo ReadErr
Get #1, , z$
On Error GoTo WriteErr
Put #2, , z$
Loop
Close
SetProgress
Readfile$ = “RENAMER.3”
WriteFile$ = “ABOUT.HTM”
On Error GoTo ReadErr
Open P$ & “renamer.3” For Binary As #1
On Error GoTo WriteErr
Open i$ & “about.htm” For Output As #2
Close #2
Open i$ & “about.htm” For Binary As #2
Do While Not EOF(1)
z$ = ” “
On Error GoTo ReadErr
Get #1, , z$
On Error GoTo WriteErr
Put #2, , z$
Loop
Close
SetProgress
If Dir(i$ & “setup.dll”) = “” Or P$ <> i$ Then
Readfile$ = “SETUP.DLL”
WriteFile$ = “SETUP.DLL”
On Error GoTo ReadErr
Open P$ & “setup.dll” For Binary As #1
On Error GoTo WriteErr
Open i$ & “setup.dll” For Output As #2
Close #2
Open i$ & “setup.dll” For Binary As #2
Do While Not EOF(1)
z$ = ” “
On Error GoTo ReadErr
Get #1, , z$
On Error GoTo WriteErr
Put #2, , z$
Loop
Close
End If
SetProgress
If Dir(i$ & “setup.exe”) = “” Or P$ <> i$ Then
Readfile$ = “SETUP.EXE”
WriteFile$ = “SETUP.EXE”
On Error GoTo ReadErr
Open P$ & “setup.exe” For Binary As #1
On Error GoTo WriteErr
Open i$ & “setup.exe” For Output As #2
Close #2
Open i$ & “setup.exe” For Binary As #2
Do While Not EOF(1)
z$ = ” “
On Error GoTo ReadErr
Get #1, , z$
On Error GoTo WriteErr
Put #2, , z$
Loop
Close
End If
SetProgress
Readfile$ = “RENAMER.4”
WriteFile$ = “HELPADDFILE.BMP”
On Error GoTo ReadErr
Open P$ & “renamer.4” For Binary As #1
On Error GoTo WriteErr
Open i$ & “HelpAddFile.bmp” For Output As #2
Close #2
Open i$ & “HelpAddFile.bmp” For Binary As #2
Do While Not EOF(1)
z$ = ” “
On Error GoTo ReadErr
Get #1, , z$
On Error GoTo WriteErr
Put #2, , z$
Loop
Close
SetProgress
Readfile$ = “RENAMER.5”
WriteFile$ = “HELPADDPATH.BMP”
On Error GoTo ReadErr
Open P$ & “renamer.5” For Binary As #1
On Error GoTo WriteErr
Open i$ & “HelpAddPath.bmp” For Output As #2
Close #2
Open i$ & “HelpAddPath.bmp” For Binary As #2
Do While Not EOF(1)
z$ = ” “
On Error GoTo ReadErr
Get #1, , z$
On Error GoTo WriteErr
Put #2, , z$
Loop
Close
SetProgress
Readfile$ = “RENAMER.6”
WriteFile$ = “HELPFILELIST.HTM”
On Error GoTo ReadErr
Open P$ & “renamer.6” For Binary As #1
On Error GoTo WriteErr
Open i$ & “HelpFileList.htm” For Output As #2
Close #2
Open i$ & “HelpFileList.htm” For Binary As #2
Do While Not EOF(1)
z$ = ” “
On Error GoTo ReadErr
Get #1, , z$
On Error GoTo WriteErr
Put #2, , z$
Loop
Close
SetProgress
Readfile$ = “RENAMER.7”
WriteFile$ = “PRESETS.REG”
On Error GoTo WriteErr
Name P$ & “renamer.7” As P$ & “presets.reg”
On Error Resume Next
Shell (w$ & “regedit.exe /s ” & P$ & “presets.reg”)
Err.Clear
DoEvents
DoEvents
DoEvents
SetProgress
Readfile$ = “”
WriteFile$ = “10x empty test file”
On Error GoTo WriteErr
Open i$ & “TestThis1_Artist___CD___Title.tst” For Output As #2
Close #2
Open i$ & “TestThis2_Artist___CD___Title.tst” For Output As #2
Close #2
Open i$ & “TestThis3_Artist___CD___Title.tst” For Output As #2
Close #2
Open i$ & “TestThis4_Artist___CD___Title.tst” For Output As #2
Close #2
Open i$ & “TestThis5_Artist___CD___Title.tst” For Output As #2
Close #2
Open i$ & “TestThis6_Artist___CD___Title.tst” For Output As #2
Close #2
Open i$ & “TestThis7_Artist___CD___Title.tst” For Output As #2
Close #2
Open i$ & “TestThis8_Artist___CD___Title.tst” For Output As #2
Close #2
Open i$ & “TestThis9_Artist___CD___Title.tst” For Output As #2
Close #2
Open i$ & “TestThis10_Artist___CD___Title.tst” For Output As #2
Close #2
On Error Resume Next
SetProgress
‘Add to Desktop
lReturn = fCreateShellLink(“….Desktop”, _
“Renamer”, i$ & “Renamer.exe”, “”)
‘Add to Program Menu Group
lReturn = fCreateShellLink(“”, “Renamer”, _
i$ & “Renamer.exe”, “”)
SaveSetting “EazRENAMER”, “Installer”, “InstallDir”, i$
RegCreate HKEY_LOCAL_MACHINE, “SoftwareMicrosoftWindowsCurrentVersionUninstallEazRENAMER”
RegSet HKEY_LOCAL_MACHINE, “SoftwareMicrosoftWindowsCurrentVersionUninstallEazRENAMER”, “DisplayName”, “Renamer by EatMe 2.4.5.w11”, REG_SZ
RegSet HKEY_LOCAL_MACHINE, “SoftwareMicrosoftWindowsCurrentVersionUninstallEazRENAMER”, “UninstallString”, i$ & “setup.exe”, REG_SZ
SetProgress
Readfile$ = “RENAMER.7”
WriteFile$ = “PRESETS.REG”
On Error GoTo ReadErr
Name P$ & “presets.reg” As P$ & “RENAMER.7”
On Error Resume Next
SetProgress
Label1.Caption = “Completed installation.”
Case 1 ‘ uninstall
If MsgBox(“Are you sure you want to uninstall?”, vbYesNo + vbExclamation, App.Title) = vbYes Then
cmdNext(0).Visible = False
cmdNext(1).Visible = False
Label1.Caption = “Uninstalling…”
Label2.Visible = False
Text1.Visible = False
Command1.Visible = False
Me.Refresh
DoEvents
On Error Resume Next
w$ = Environ(“WinDir”)
w$ = w$ & IIf(Right(w$, 1) = “”, “”, “”)
a$ = Text1.Text & IIf(Right(Text1.Text, 1) = “”, “”, “”)
Kill a$ & “renamer.exe”
Kill a$ & “about.htm”
Kill a$ & “screenshot.jpg”
Kill a$ & “HelpFileList.htm”
Kill a$ & “HelpAddFile.bmp”
Kill a$ & “HelpAddPath.bmp”
Kill a$ & “TestThis*.tst”
RmDir a$ & “Help”
RmDir a$ & “TestThis”
Kill a$ & “setup.exe”
Kill a$ & “setup.dll”
‘Remmove from to Desktop
fRemoveShellLink “….Desktop”, “Renamer”
‘Remove from Program Menu Group
fRemoveShellLink “”, “Renamer”
SaveSetting “EazRENAMER”, “Installer”, “InstallDir”, “UNINSTALLED”
Err.Clear
On Error Resume Next
RegDelete HKEY_LOCAL_MACHINE, “SoftwareMicrosoftWindowsCurrentVersionUninstallEazRENAMER”
If Err Then
MsgBox “Could not delete Renamer Setup from HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentversionUninstallEazRENAMER”, vbCritical + vbOKOnly, App.Title
Err.Clear
End If
If Not CompleteInstallKit(a$) Then
Label1.Caption = “Uninstalled. Please delete the remaining SETUP and own files from the Renamer folder.”
Else
Label1.Caption = “Uninstallation completed.”
End If
End If
End Select
EndSub:
Screen.MousePointer = vbDefault
Command1.Caption = “E&xit”
Command1.Visible = True
Me.Refresh
DoEvents
Exit Sub
ReadErr:
MsgBox “An error occured while reading the following file: ” & vhbcrlf & vbCrLf & _
Readfile$ & vbCrLf & vbCrLf & _
Err.Description & vbCrLf & vbCrLf & _
“Setup can not continue the installation.”, vbCritical + vbOKOnly, App.Title
Label1.Caption = “An error occured while installing.”
Resume EndSub
WriteErr:
MsgBox “An error occured while writing the following file: ” & vhbcrlf & vbCrLf & _
WriteFile$ & vbCrLf & vbCrLf & _
Err.Description & vbCrLf & vbCrLf & _
“Setup can not continue the installation.”, vbCritical + vbOKOnly, App.Title
Label1.Caption = “An error occured while installing.”
Resume EndSub
End Sub
Private Sub Command1_Click()
EndMe
End Sub
Private Sub GetFreeDiskSpace()
Dim l As Long
On Error Resume Next
ChDrive Left$(Text1.Text, 2)
l = DiskSpaceFree
t$ = “bytes”
If l > 1024 Then l = l / 1024: t$ = “Kb”
If l > 1024 Then l = l / 1024: t$ = “Mb”
If l > 1024 Then l = l / 1024: t$ = “Gb”
If l >= 2 And t$ = “Gb” Then z$ = ” > “
lblDiskFree.Caption = “Free: ” & z$ & CStr(l) & ” ” & t$
Me.Refresh
DoEvents
End Sub
Private Sub Form_Load()
‘ Check Renamer
a$ = GetSetting(“EazRENAMER”, “Installer”, “InstallDir”, “”)
If a$ = “UNINSTALLED” Then a$ = “”
If a$ <> “” Then
a$ = a$ & IIf(Right(a$, 1) = “”, “”, “”)
Text1.Text = a$
If Dir(a$ & “RENAMER.EXE”) <> “” Then
Uninstall a$: Exit Sub
End If
End If
a$ = GetSetting(“EazRENAMER”, “Installer”, “InstallDir”, “”)
If UCase$(a$) = “UNINSTALLED” And CompleteInstallKit = False Then
Label1.Caption = “”
Label2.Visible = False
Text1.Visible = False
cmdBrowse.Visible = False
cmdNext(0).Visible = False
cmdNext(1).Visible = False
lblDisk.Visible = False
lblDiskReq.Visible = False
lblDiskFree.Visible = False
Command1.Caption = “E&xit”
w$ = Environ(“WinDir”)
w$ = w$ & IIf(Right(w$, 1) = “”, “”, “”)
MsgBox “Renamer has been uninstalled.” & vbCrLf & vbCrLf & _
“You can delete the remaining SETUP and own files from the Renamer directory.”, vbOKOnly + vbInformation, App.Title
Exit Sub
End If
If CompleteInstallKit = False Then
Label1.Caption = “You can delete this file (SETUP.EXE).”
Label2.Visible = False
Text1.Visible = False
cmdNext(1).Visible = False
cmdNext(0).Visible = False
cmdBrowse.Visible = False
Command1.Caption = “E&xit”
lblDisk.Visible = False
lblDiskReq.Visible = False
lblDiskFree.Visible = False
Me.Refresh
DoEvents
Else
Label1.Caption = “Click Next to install Renamer by EatMe to your computer.”
cmdNext(1).Visible = False
GetFreeDiskSpace
End If
End Sub
Function CompleteInstallKit(Optional ByVal AppPath$ = “”) As Boolean
If AppPath$ = “” Then AppPath$ = App.Path & IIf(Right(App.Path, 1) = “”, “”, “”)
If Dir(AppPath$ & “renamer.1”) <> “” And _
Dir(AppPath$ & “renamer.2”) <> “” And _
Dir(AppPath$ & “renamer.3”) <> “” And _
Dir(AppPath$ & “renamer.4”) <> “” And _
Dir(AppPath$ & “renamer.5”) <> “” And _
Dir(AppPath$ & “renamer.6”) <> “” And _
Dir(AppPath$ & “renamer.7”) <> “” And _
Dir(AppPath$ & “renamer.8”) <> “” And _
Dir(AppPath$ & “setup.dll”) <> “” And _
Dir(AppPath$ & “setup.exe”) <> “” Then
CompleteInstallKit = True
Else
CompleteInstallKit = False
End If
End Function
Sub OldUninstall(RENAMERdir$)
Label1.Caption = “Remove Renamer”
Label2.Caption = “Location:”
Text1.Text = RENAMERdir$
Text1.Locked = True
Text1.ToolTipText = “Location of Renamer”
cmdNext(1).Visible = False
cmdNext(2).Visible = True
If CompleteInstallKit Then
Label1.Caption = “Remove Renamer before re-installing Renamer..”
End If
cmdNext(2).Top = 3120
cmdBrowse.Visible = False
lblDisk.Visible = False
lblDiskReq.Visible = False
lblDiskFree.Visible = False
End Sub
Sub Uninstall(RENAMERdir$)
Label1.Caption = “Remove Renamer”
Label2.Caption = “Location:”
Text1.Text = RENAMERdir$
Text1.Locked = True
Text1.ToolTipText = “Location of Renamer”
If CompleteInstallKit Then
Label1.Caption = “Remove or Reinstall Renamer”
cmdNext(0).Visible = True
cmdNext(0).Caption = “&Reinstall”
cmdNext(1).Top = 2760
Else
cmdNext(1).Top = 3120
End If
cmdBrowse.Visible = False
lblDisk.Visible = False
lblDiskReq.Visible = False
lblDiskFree.Visible = False
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
EndMe
End Sub
Private Sub Form_Terminate()
EndMe
End Sub
Private Sub Text1_LostFocus()
GetFreeDiskSpace
End Sub
Private Sub SetProgress()
lblProgFore = lblProgFore.Caption & “__”
Me.Refresh
DoEvents
End Sub Read More