We help IT Professionals succeed at work.

after BitDefender and Malwarebytes again Trojan.heur.VB.hm0@de8yTXki

RGuillermo
RGuillermo used Ask the Experts™
on
After using Bitdefender (licensed) and Malwarebytes(free) all trojans were deleted. Then I restarted the machine and compiled my app with vb6 and again check it with bitdefender and its still with the trojan. What can I do in this case?
Comment
Watch Question

Do more with

Expert Office
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
Sudeep SharmaTechnical Designer

Commented:
Could be your old backups?

Or it could be the trojan-code in your application which when complied detected as trojan by Bitdefender.
RGuillermoProject Manager

Author

Commented:
Ssharma,
You mean the source code has some trojan code somehow? and I am compiling it??
I just checked the source since its very small.
What else can I do?

Private Sub Form_Load()
  W_TIT_BCK_COL = RGB(255, 179, 179)
  W_TIT_FNT_COL = RGB(0, 0, 0)
  Open "c:\tmp\m4_t01_t.txt" For Input As #1 Len = 200
  Input #1, w
  w_tot_reg = Val(w)
  Input #1, w
  w_tot_fld = Val(w)
  Input #1, w
  w_filespec = Trim(w)
  Input #1, w
  w_company = Trim(w)
  Input #1, w
  w_year = Trim(w)
  Input #1, w
  w_dat_tim = Trim(w)
 
  Dim appExcel As Object
  Set appExcel = CreateObject("Excel.Application")

  Dim objBook As Object
  Set objBook = appExcel.Workbooks.Add

  Dim objsheet As Object
  Set objsheet = objBook.Sheets("Sheet1")
  appExcel.Visible = True
 
  dt = Now()
  dt = Mid(Str(10000 + Year(dt)), 3, 4) & "-" & Mid(Str(100 + Month(dt)), 3, 2) & "-" & Mid(Str(100 + Day(dt)), 3, 2) & "_" & _
       Mid(Str(100 + Hour(dt)), 3, 2) & "-" & Mid(Str(100 + Minute(dt)), 3, 2) & "-" & Mid(Str(100 + Second(dt)), 3, 2)
 
  objsheet.SaveAs ("c:\tmp\m4_t01_xls__" & dt & ".xls")
 
  objsheet.Cells(2, 2).Value = "Year: " + w_year + "   AZV Account Balance"
  objsheet.Cells(2, 2).Font.Bold = True
  objsheet.Cells(2, 2).Font.Size = 20

  objsheet.Cells(3, 2).Value = w_company
  objsheet.Cells(3, 2).Font.Bold = True
  objsheet.Cells(3, 2).Font.Size = 14

  objsheet.Cells(4, 2).Value = "* Printed on: " + w_dat_tim
  objsheet.Cells(4, 2).Font.Bold = True
  objsheet.Cells(4, 2).Font.Size = 12

  Dim flds(25)
  Dim m_val(6)
  m_val(1) = "Month"
  m_val(2) = "Qty"
  m_val(3) = "Amount"
 
  fi = 7
  For c = 1 To 3
    objsheet.Range(Cells(fi, c + 1), Cells(fi, c + 1)).HorizontalAlignment = xlCenter
    objsheet.Range(Cells(fi, c + 1), Cells(fi, c + 1)).VerticalAlignment = xlCenter
    objsheet.Range(Cells(fi, c + 1), Cells(fi, c + 1)).Interior.Color = W_TIT_BCK_COL
    objsheet.Range(Cells(fi, c + 1), Cells(fi, c + 1)).Font.Color = W_TIT_FNT_COL
    objsheet.Range(Cells(fi, c + 1), Cells(fi, c + 1)).Font.Bold = True
    objsheet.Range(Cells(fi, c + 1), Cells(fi, c + 1)).Font.Name = "Arial Narrow"
    x = ms_borderaround(objsheet.Range(Cells(fi, c + 1), Cells(fi, c + 1)))
    objsheet.Range(Cells(fi, c + 1), Cells(fi, c + 1)).Value = m_val(c)
  Next c
  objsheet.Range(Cells(fi - 1, 2), Cells(fi - 1, 4)).MergeCells = True
  objsheet.Range(Cells(fi - 1, 2), Cells(fi - 1, 4)).HorizontalAlignment = xlCenter
  objsheet.Range(Cells(fi - 1, 2), Cells(fi - 1, 4)).VerticalAlignment = xlCenter
  objsheet.Range(Cells(fi - 1, 2), Cells(fi - 1, 4)).Interior.Color = W_TIT_BCK_COL
  objsheet.Range(Cells(fi - 1, 2), Cells(fi - 1, 4)).Font.Color = W_TIT_FNT_COL
  objsheet.Range(Cells(fi - 1, 2), Cells(fi - 1, 4)).Font.Bold = True
  objsheet.Range(Cells(fi - 1, 2), Cells(fi - 1, 4)).Font.Name = "Arial Narrow"
  x = ms_borderaround(objsheet.Range(Cells(fi - 1, 2), Cells(fi - 1, 4)))
  objsheet.Range(Cells(fi - 1, 2), Cells(fi - 1, 4)).Value = "PRODUCTION"
 
  x = ms_borderaround(objsheet.Range(Cells(fi + 1, 2), Cells(fi + w_tot_reg, 2)))
  x = ms_borderaround(objsheet.Range(Cells(fi + 1, 3), Cells(fi + w_tot_reg, 3)))
  x = ms_borderaround(objsheet.Range(Cells(fi + 1, 4), Cells(fi + w_tot_reg, 4)))
  TOT = 0
  to2 = 0
  For a = 1 To w_tot_reg
    Input #1, w
    v01 = Trim(w)
    Input #1, w
    v02 = Trim(w)
    Input #1, w
    v03 = Trim(w)
    objsheet.Range(Cells(fi + a, 2), Cells(fi + a, 2)).Value = v01
    objsheet.Range(Cells(fi + a, 2), Cells(fi + a, 2)).HorizontalAlignment = xlCenter
    objsheet.Range(Cells(fi + a, 3), Cells(fi + a, 3)).Value = v02
    objsheet.Range(Cells(fi + a, 3), Cells(fi + a, 3)).HorizontalAlignment = xlCenter
    objsheet.Range(Cells(fi + a, 4), Cells(fi + a, 4)).Value = v03
    objsheet.Range(Cells(fi + a, 4), Cells(fi + a, 4)).NumberFormat = "#,##0.00"
    TOT = TOT + Val(v03)
    to2 = to2 + Val(v02)
  Next a
  objsheet.Range(Cells(fi + w_tot_reg + 1, 2), Cells(fi + w_tot_reg + 1, 2)).MergeCells = True
  objsheet.Range(Cells(fi + w_tot_reg + 1, 2), Cells(fi + w_tot_reg + 1, 2)).HorizontalAlignment = xlCenter
  objsheet.Range(Cells(fi + w_tot_reg + 1, 2), Cells(fi + w_tot_reg + 1, 2)).VerticalAlignment = xlCenter
  objsheet.Range(Cells(fi + w_tot_reg + 1, 2), Cells(fi + w_tot_reg + 1, 2)).Interior.Color = W_TIT_BCK_COL
  objsheet.Range(Cells(fi + w_tot_reg + 1, 2), Cells(fi + w_tot_reg + 1, 2)).Font.Color = W_TIT_FNT_COL
  objsheet.Range(Cells(fi + w_tot_reg + 1, 2), Cells(fi + w_tot_reg + 1, 2)).Font.Bold = True
  objsheet.Range(Cells(fi + w_tot_reg + 1, 2), Cells(fi + w_tot_reg + 1, 2)).Font.Name = "Arial Narrow"
  x = ms_borderaround(objsheet.Range(Cells(fi + w_tot_reg + 1, 2), Cells(fi + w_tot_reg + 1, 2)))
  objsheet.Range(Cells(fi + w_tot_reg + 1, 2), Cells(fi + w_tot_reg + 1, 2)).Value = "TOTAL :"
 
  objsheet.Range(Cells(fi + w_tot_reg + 1, 3), Cells(fi + w_tot_reg + 1, 3)).MergeCells = True
  objsheet.Range(Cells(fi + w_tot_reg + 1, 3), Cells(fi + w_tot_reg + 1, 3)).HorizontalAlignment = xlCenter
  objsheet.Range(Cells(fi + w_tot_reg + 1, 3), Cells(fi + w_tot_reg + 1, 3)).VerticalAlignment = xlCenter
  objsheet.Range(Cells(fi + w_tot_reg + 1, 3), Cells(fi + w_tot_reg + 1, 3)).Interior.Color = W_TIT_BCK_COL
  objsheet.Range(Cells(fi + w_tot_reg + 1, 3), Cells(fi + w_tot_reg + 1, 3)).Font.Color = W_TIT_FNT_COL
  objsheet.Range(Cells(fi + w_tot_reg + 1, 3), Cells(fi + w_tot_reg + 1, 3)).Font.Bold = True
  objsheet.Range(Cells(fi + w_tot_reg + 1, 3), Cells(fi + w_tot_reg + 1, 3)).Font.Name = "Arial Narrow"
  x = ms_borderaround(objsheet.Range(Cells(fi + w_tot_reg + 1, 3), Cells(fi + w_tot_reg + 1, 3)))
  objsheet.Range(Cells(fi + w_tot_reg + 1, 3), Cells(fi + w_tot_reg + 1, 3)).Value = to2
 
  objsheet.Range(Cells(fi + w_tot_reg + 1, 4), Cells(fi + w_tot_reg + 1, 4)).MergeCells = True
  objsheet.Range(Cells(fi + w_tot_reg + 1, 4), Cells(fi + w_tot_reg + 1, 4)).HorizontalAlignment = xlCenter
  objsheet.Range(Cells(fi + w_tot_reg + 1, 4), Cells(fi + w_tot_reg + 1, 4)).VerticalAlignment = xlCenter
  objsheet.Range(Cells(fi + w_tot_reg + 1, 4), Cells(fi + w_tot_reg + 1, 4)).Interior.Color = W_TIT_BCK_COL
  objsheet.Range(Cells(fi + w_tot_reg + 1, 4), Cells(fi + w_tot_reg + 1, 4)).Font.Color = W_TIT_FNT_COL
  objsheet.Range(Cells(fi + w_tot_reg + 1, 4), Cells(fi + w_tot_reg + 1, 4)).Font.Bold = True
  objsheet.Range(Cells(fi + w_tot_reg + 1, 4), Cells(fi + w_tot_reg + 1, 4)).Font.Name = "Arial Narrow"
  x = ms_borderaround(objsheet.Range(Cells(fi + w_tot_reg + 1, 4), Cells(fi + w_tot_reg + 1, 4)))
  objsheet.Range(Cells(fi + w_tot_reg + 1, 4), Cells(fi + w_tot_reg + 1, 4)).NumberFormat = "#,##0.00"
  objsheet.Range(Cells(fi + w_tot_reg + 1, 4), Cells(fi + w_tot_reg + 1, 4)).Value = TOT
  objsheet.Range(Cells(fi + w_tot_reg + 1, 4), Cells(fi + w_tot_reg + 1, 4)).ColumnWidth = 12
  Close #1
  w1 = w_tot_reg
 
  Open "c:\tmp\m4_t02_b_t.txt" For Input As #1 Len = 200
  Input #1, w
  w_tot_reg = Val(w)
  Input #1, w
  w_tot_fld = Val(w)
  Input #1, w
  w_filespec = Trim(w)
  Input #1, w
  w_company = Trim(w)
  Input #1, w
  w_year = Trim(w)
  Input #1, w
  w_dat_tim = Trim(w)
 
  m_val(1) = "Qty"
  m_val(2) = "Total"
  'm_val(3) = "Qty"
  'm_val(4) = "Amount"
 
  objsheet.Range(Cells(1, 1), Cells(1, 1)).ColumnWidth = 1
  objsheet.Range(Cells(1, 5), Cells(1, 5)).ColumnWidth = 1
  fi = 7
  For c = 1 To 12
    objsheet.Range(Cells(fi, c + 5), Cells(fi, c + 5)).HorizontalAlignment = xlCenter
    objsheet.Range(Cells(fi, c + 5), Cells(fi, c + 5)).VerticalAlignment = xlCenter
    objsheet.Range(Cells(fi, c + 5), Cells(fi, c + 5)).Interior.Color = W_TIT_BCK_COL
    objsheet.Range(Cells(fi, c + 5), Cells(fi, c + 5)).Font.Color = W_TIT_FNT_COL
    objsheet.Range(Cells(fi, c + 5), Cells(fi, c + 5)).Font.Bold = True
    objsheet.Range(Cells(fi, c + 5), Cells(fi, c + 5)).Font.Name = "Arial Narrow"
    x = ms_borderaround(objsheet.Range(Cells(fi, c + 5), Cells(fi, c + 5)))
    x = ms_borderaround(objsheet.Range(Cells(fi + 1, c + 5), Cells(fi + w1, c + 5)))
    objsheet.Range(Cells(fi, c + 5), Cells(fi, c + 5)).Value = m_val((c - 1) Mod 2 + 1)
   
    ' ** Totales
    x = ms_borderaround(objsheet.Range(Cells(fi + 13, c + 5), Cells(fi + 13, c + 5)))
    objsheet.Range(Cells(fi + 13, c + 5), Cells(fi + 13, c + 5)).Interior.Color = W_TIT_BCK_COL
    objsheet.Range(Cells(fi + 13, c + 5), Cells(fi + 13, c + 5)).Font.Color = W_TIT_FNT_COL
    objsheet.Range(Cells(fi + 13, c + 5), Cells(fi + 13, c + 5)).Font.Bold = True
    objsheet.Range(Cells(fi + 13, c + 5), Cells(fi + 13, c + 5)).Font.Name = "Arial Narrow"
   
    If c Mod 2 = 1 Then
      objsheet.Range(Cells(fi + 1, c + 5), Cells(fi + 13, c + 5)).HorizontalAlignment = xlCenter
    Else
      objsheet.Range(Cells(fi, c + 5), Cells(fi, c + 5)).ColumnWidth = 10
      objsheet.Range(Cells(fi + 1, c + 5), Cells(fi + 13, c + 5)).NumberFormat = "#,##0.00"
    End If
   
  Next c
 
  fi = 7
  m_val(1) = "X"
  m_val(2) = "I"
  m_val(3) = "S"
  m_val(4) = "R"
  m_val(5) = "P"
  m_val(6) = "L"
  For c = 1 To 6
    objsheet.Range(Cells(fi - 1, c * 2 + 4), Cells(fi - 1, c * 2 + 4 + 1)).MergeCells = True
    objsheet.Range(Cells(fi - 1, c * 2 + 4), Cells(fi - 1, c * 2 + 4 + 1)).HorizontalAlignment = xlCenter
    objsheet.Range(Cells(fi - 1, c * 2 + 4), Cells(fi - 1, c * 2 + 4 + 1)).VerticalAlignment = xlCenter
    objsheet.Range(Cells(fi - 1, c * 2 + 4), Cells(fi - 1, c * 2 + 4 + 1)).Interior.Color = W_TIT_BCK_COL
    objsheet.Range(Cells(fi - 1, c * 2 + 4), Cells(fi - 1, c * 2 + 4 + 1)).Font.Color = W_TIT_FNT_COL
    objsheet.Range(Cells(fi - 1, c * 2 + 4), Cells(fi - 1, c * 2 + 4 + 1)).Font.Bold = True
    objsheet.Range(Cells(fi - 1, c * 2 + 4), Cells(fi - 1, c * 2 + 4 + 1)).Font.Name = "Arial Narrow"
    x = ms_borderaround(objsheet.Range(Cells(fi - 1, c * 2 + 4), Cells(fi - 1, c * 2 + 4 + 1)))
    objsheet.Range(Cells(fi - 1, c * 2 + 4), Cells(fi - 1, c * 2 + 4 + 1)).Value = m_val(c)
  Next c
 
  objsheet.Range(Cells(fi - 1, 1 * 2 + 4), Cells(fi - 1, 1 * 2 + 4 + 1)).Interior.Color = RGB(192, 192, 192) ' GREY
  objsheet.Range(Cells(fi - 1, 2 * 2 + 4), Cells(fi - 1, 2 * 2 + 4 + 1)).Interior.Color = RGB(255, 255, 0) ' AMARILLO
  objsheet.Range(Cells(fi - 1, 3 * 2 + 4), Cells(fi - 1, 3 * 2 + 4 + 1)).Interior.Color = RGB(0, 255, 0) ' Verde
  objsheet.Range(Cells(fi - 1, 4 * 2 + 4), Cells(fi - 1, 4 * 2 + 4 + 1)).Interior.Color = RGB(255, 72, 72) ' Rojo Sangre
  objsheet.Range(Cells(fi - 1, 5 * 2 + 4), Cells(fi - 1, 5 * 2 + 4 + 1)).Interior.Color = RGB(28, 181, 255) ' Azul Royal
 
  TOT = 0
  to2 = 0
  Dim tt(6, 2)
  For a = 1 To w_tot_reg
    Input #1, w
    v01 = Trim(w)
    Input #1, w
    v02 = Trim(w)
    Input #1, w
    v03 = Trim(w)
    Input #1, w
    v04 = Trim(w)
    mon = Val(Mid(v01, 6, 2))
     
    c2 = 0
    Select Case v02
      Case "X"
        c2 = 1
      Case "I"
        c2 = 2
      Case "S"
        c2 = 3
      Case "R"
        c2 = 4
      Case "P"
        c2 = 5
      Case "L"
        c2 = 6
    End Select
   
    objsheet.Range(Cells(fi + mon, (c2 - 1) * 2 + 6), Cells(fi + mon, (c2 - 1) * 2 + 6)).Value = v03
    objsheet.Range(Cells(fi + mon, (c2 - 1) * 2 + 7), Cells(fi + mon, (c2 - 1) * 2 + 7)).Value = v04
    tt(c2, 1) = tt(c2, 1) + Val(v03)
    tt(c2, 2) = tt(c2, 2) + Val(v04)
  Next a
 
  For c = 1 To 6
    objsheet.Range(Cells(fi + 13, (c - 1) * 2 + 6), Cells(fi + 13, (c - 1) * 2 + 6)).Value = tt(c, 1)
    objsheet.Range(Cells(fi + 13, (c - 1) * 2 + 7), Cells(fi + 13, (c - 1) * 2 + 7)).Value = tt(c, 2)
  Next c
   
  Close #1
  ActiveWorkbook.Save
  End
End Sub
Function backgroundcolor_range(objsheet, a, w_tot_hou, w_tot_gro)
  Dim m_col(5)
  m_col(1) = RGB(255, 255, 166) ' Amarillo Pastel
  m_col(2) = RGB(159, 255, 207) ' Verde pastel
  m_col(3) = RGB(204, 204, 255) '
  m_col(4) = RGB(190, 125, 255)
  m_col(5) = RGB(255, 221, 170)
  For a = 1 To 5
    objsheet.Range(Cells(7 + (a - 1) * w_tot_hou + 1, 2), Cells(7 + a * w_tot_hou, 2 + w_tot_gro * 4)).Interior.Color = m_col(a)
  Next a
End Function
Function marca_borde_de_dia(objsheet, a, w_tot_hou, w_tot_gro)
  x = ms_borderaround(objsheet.Range(Cells(7 + (a - 1) * w_tot_hou + 1, 2), Cells(7 + a * w_tot_hou, 2 + w_tot_gro * 4)))
End Function
Function marca_borde_de_grupo(objsheet, a, p_tot_hou)
  x = ms_borderaround(objsheet.Range(Cells(7 + 1, 2 + (a - 1) * 4 + 1), Cells(7 + (p_tot_hou * 5), 2 + a * 4)))
End Function
Public Function header(objsheet, a, p_gro_hou, p_tot_hou)
  ' p_gro_hou = Total horas que trabaja en grupo en la semana.
  ' p_tot_hou = Total horas que tiene el dia.

  For b = 4 To 6
    objsheet.Range(Cells(b, 2 + (a - 1) * 4 + 1), Cells(b, 2 + a * 4)).Select
    x = ms_borderaround(objsheet.Range(Cells(b, 2 + (a - 1) * 4 + 1), Cells(b, 2 + a * 4)))
    objsheet.Range(Cells(b, 2 + (a - 1) * 4 + 1), Cells(b, 2 + a * 4)).MergeCells = True
    objsheet.Range(Cells(b, 2 + (a - 1) * 4 + 1), Cells(b, 2 + a * 4)).HorizontalAlignment = xlCenter
    objsheet.Range(Cells(b, 2 + (a - 1) * 4 + 1), Cells(b, 2 + a * 4)).VerticalAlignment = xlCenter
    objsheet.Range(Cells(b, 2 + (a - 1) * 4 + 1), Cells(b, 2 + a * 4)).Interior.Color = RGB(128, 0, 0)
    objsheet.Range(Cells(b, 2 + (a - 1) * 4 + 1), Cells(b, 2 + a * 4)).Font.Color = RGB(255, 255, 0)
    objsheet.Range(Cells(b, 2 + (a - 1) * 4 + 1), Cells(b, 2 + a * 4)).Font.Bold = True
  Next b
 
  objsheet.Columns(2 + (a - 1) * 4 + 1).ColumnWidth = 3
  objsheet.Columns(2 + (a - 1) * 4 + 2).ColumnWidth = 8
  objsheet.Columns(2 + (a - 1) * 4 + 3).ColumnWidth = 8
  objsheet.Columns(2 + (a - 1) * 4 + 4).ColumnWidth = 8
 
  Dim m_val(4)
  m_val(1) = "h"
  m_val(2) = "Vak"
  m_val(3) = "Ler"
  m_val(4) = "Lok"
 
  For b = 1 To 4
    x = ms_borderaround(objsheet.Range(Cells(7, 2 + (a - 1) * 4 + b), Cells(7, 2 + (a - 1) * 4 + b)))
    objsheet.Range(Cells(7, 2 + (a - 1) * 4 + b), Cells(7, 2 + (a - 1) * 4 + b)).Interior.Color = RGB(128, 0, 0)
    objsheet.Range(Cells(7, 2 + (a - 1) * 4 + b), Cells(7, 2 + (a - 1) * 4 + b)).HorizontalAlignment = xlCenter
    objsheet.Range(Cells(7, 2 + (a - 1) * 4 + b), Cells(7, 2 + (a - 1) * 4 + b)).VerticalAlignment = xlCenter
    objsheet.Range(Cells(7, 2 + (a - 1) * 4 + b), Cells(7, 2 + (a - 1) * 4 + b)).Font.Color = RGB(255, 255, 0)
    objsheet.Range(Cells(7, 2 + (a - 1) * 4 + b), Cells(7, 2 + (a - 1) * 4 + b)).Value = m_val(b)
  Next b
 
  objsheet.Range(Cells(7 + w_tot_hou * 5 + 1, 2 + (a - 1) * 4 + 1), Cells(7 + w_tot_hou * 5 + 1, 2 + a * 4)).Select
  x = ms_borderaround(objsheet.Range(Cells(7 + p_tot_hou * 5 + 1, 2 + (a - 1) * 4 + 1), Cells(7 + p_tot_hou * 5 + 1, 2 + a * 4)))
  objsheet.Range(Cells(7 + p_tot_hou * 5 + 1, 2 + (a - 1) * 4 + 1), Cells(7 + p_tot_hou * 5 + 1, 2 + a * 4)).MergeCells = True
  objsheet.Range(Cells(7 + p_tot_hou * 5 + 1, 2 + (a - 1) * 4 + 1), Cells(7 + p_tot_hou * 5 + 1, 2 + a * 4)).HorizontalAlignment = xlCenter
  objsheet.Range(Cells(7 + p_tot_hou * 5 + 1, 2 + (a - 1) * 4 + 1), Cells(7 + p_tot_hou * 5 + 1, 2 + a * 4)).VerticalAlignment = xlCenter
  objsheet.Range(Cells(7 + p_tot_hou * 5 + 1, 2 + (a - 1) * 4 + 1), Cells(7 + p_tot_hou * 5 + 1, 2 + a * 4)).Interior.Color = RGB(128, 0, 0)
  objsheet.Range(Cells(7 + p_tot_hou * 5 + 1, 2 + (a - 1) * 4 + 1), Cells(7 + p_tot_hou * 5 + 1, 2 + a * 4)).Font.Color = RGB(255, 255, 0)
  objsheet.Range(Cells(7 + p_tot_hou * 5 + 1, 2 + (a - 1) * 4 + 1), Cells(7 + p_tot_hou * 5 + 1, 2 + a * 4)).Font.Bold = True
  objsheet.Range(Cells(7 + p_tot_hou * 5 + 1, 2 + (a - 1) * 4 + 1), Cells(7 + p_tot_hou * 5 + 1, 2 + a * 4)).Font.Size = 24
  objsheet.Range(Cells(7 + p_tot_hou * 5 + 1, 2 + (a - 1) * 4 + 1), Cells(7 + p_tot_hou * 5 + 1, 2 + a * 4)).Value = p_gro_hou
End Function
Public Function ms_borderaround(sheetrange)
  ' v1 = range
  'left
  sheetrange.Borders(xlEdgeLeft).LineStyle = xlContinuous
  sheetrange.Borders(xlEdgeLeft).Weight = xlThick
  sheetrange.Borders(xlEdgeLeft).ColorIndex = xlAutomatic
  'top
  sheetrange.Borders(xlEdgeTop).LineStyle = xlContinuous
  sheetrange.Borders(xlEdgeTop).Weight = xlThick
  sheetrange.Borders(xlEdgeTop).ColorIndex = xlAutomatic
  'right
  sheetrange.Borders(xlEdgeRight).LineStyle = xlContinuous
  sheetrange.Borders(xlEdgeRight).Weight = xlThick
  sheetrange.Borders(xlEdgeRight).ColorIndex = xlAutomatic
  'bottom
  sheetrange.Borders(xlEdgeBottom).LineStyle = xlContinuous
  sheetrange.Borders(xlEdgeBottom).Weight = xlThick
  sheetrange.Borders(xlEdgeBottom).ColorIndex = xlAutomatic

End Function
Function aaa()
  objsheet.Range(v1).Borders(xlEdgeLeft).LineStyle = xlContinuous
  objsheet.Range(v1).Borders(xlEdgeLeft).Weight = xlThick
  objsheet.Range(v1).Borders(xlEdgeLeft).ColorIndex = xlAutomatic
  'top
  objsheet.Range(v1).Borders(xlEdgeTop).LineStyle = xlContinuous
  objsheet.Range(v1).Borders(xlEdgeTop).Weight = xlThick
  objsheet.Range(v1).Borders(xlEdgeTop).ColorIndex = xlAutomatic
  'right
  objsheet.Range(v1).Borders(xlEdgeRight).LineStyle = xlContinuous
  objsheet.Range(v1).Borders(xlEdgeRight).Weight = xlThick
  objsheet.Range(v1).Borders(xlEdgeRight).ColorIndex = xlAutomatic
  'bottom
  objsheet.Range(v1).Borders(xlEdgeBottom).LineStyle = xlContinuous
  objsheet.Range(v1).Borders(xlEdgeBottom).Weight = xlThick
  objsheet.Range(v1).Borders(xlEdgeBottom).ColorIndex = xlAutomatic
End Function
Sudeep SharmaTechnical Designer

Commented:
@rguillermo,

Is BD pointing the Trojan to your App only?

Did you tried Full System scan with BD? Could you post the scan logs?

Sudeep
RGuillermoProject Manager

Author

Commented:
Yes BD is only reporting my compiled exe from VB6

This is the scan log after full scan

BitDefender Log File


Product : Bitdefender Antivirus Plus 2012
Scanning task : Device Scanning
Log date : Tuesday, April 17, 2012 6:23:16 AM
Log path : C:\Users\Administrator\AppData\Roaming\Bitdefender\Desktop\Profiles\Logs\db7af1a4-db8-4f42-903a-9d200e40d03c\1334657423_1_02.xml
 
Scan Paths:
Path : G:\
 
[-]Scan Results
[-]Resolved issues:Object Path Threat Name Final Status
File: G:\_ms\_02_den\_01_den\azv_doc.exe Gen:Trojan.Heur.VB.cm0@dee8jkji Deleted
File: G:\_ms\_02_den\_01_den\rep_m4_01.exe Gen:Trojan.Heur.VB.im0@dqX8aAji Deleted
File: G:\INSTALL____01_AUT_ROO___2012-02-13___08-42-20.rar=>_fi\_07_epi\_01_AUT_ROO\r17_xls.exe Gen:Trojan.Heur.VB.em0@dadowchi Moved to Quarantine
File: G:\_ms\_02_den\_01_den\rep_m4_02.exe Gen:Trojan.Heur.VB.hm0@d47!31ki Deleted
File: G:\INSTALL____01_AUT_ROO___2012-02-13___08-42-20.rar=>_fi\_07_epi\_01_AUT_ROO\r18_xls.exe Gen:Trojan.Heur.VB.gm0@dWT0X1oi Moved to Quarantine
File: G:\INSTALL____01_AUT_ROO___2012-02-13___08-42-20.rar=>_fi\_07_epi\_01_AUT_ROO\r19_xls.exe Gen:Trojan.Heur.VB.em0@dm5!APhi Moved to Quarantine
File: G:\INSTALL____01_AUT_ROO___2012-02-13___08-42-20.rar=>_fi\_07_epi\_01_AUT_ROO\epi_1_web_act.exe Gen:Trojan.Heur.VB.bm0@deKc2Noi Moved to Quarantine
File: G:\INSTALL____01_AUT_ROO___2012-02-13___08-42-20.rar=>_fi\_07_epi\_01_AUT_ROO\r19_xls_ir.exe Gen:Trojan.Heur.VB.fm0@d4XjeZfi Moved to Quarantine
File: G:\_ms\_02_den\_01_den\cit_doc.exe Gen:Trojan.Heur.VB.cm0@dKemtEki Deleted
 
[-]Detailed Scan Summary
[-]Basic
Scanned items : 3665
Infected items : 9
Suspicious items : 0 (no suspected items have been detected)
Resolved items : 9
Unresolved items : 0 (no issues remained unresolved)
 
[-]Advanced
Scan time : 0: 12: 21
Files per second : 4
Skipped items : 0
Password-protected items : 0
Overcompressed items : 0
Scanned archives : 4
Input-output errors : 0
Scanned boot sectors : 0
Scanned processes : 0
Infected processes : 0
Scanned registry keys : 0
Infected registry keys : 0
Scanned cookies : 0
Infected cookies : 0
 
[-]Scan Options
[-]Target Threat Types:
Scan for viruses : Yes
Scan for adware : Yes
Scan for spyware : Yes
Scan for applications : Yes
Scan for dialers : Yes
Scan for rootkits : No
Scan for keyloggers : Yes
 
[-]Target Selection Options:
Scan registry keys : No
Scan cookies : No
Scan boot sectors : No
Scan memory processes : No
Scan archives : Yes
Scan runtime packers : Yes
Scan emails : Yes
Scan all files : Yes
Heuristic Scan : Yes
Scanned extensions : none configured
Excluded extensions : none configured
 
[-]Target Processing:
Default primary action for infected objects : Disinfect
Default secondary action for infected objects : Move to Quarantine
Default primary action for suspicious objects : Move to Quarantine
Default secondary action for suspicious objects : None
Default action for hidden objects : None
Default action for password-protected objects : Log as not scanned
 
[-]Scan engines summary
Number of virus signatures : 7074001
Sudeep SharmaTechnical Designer

Commented:
@rguillermo,

Scanning task : Device Scanning
Path : G:\

Did you run the full system scan?

I could see only Device scanning and Drive G is scanned. Is this your USB Pen Drive?

Further, scan also shows 9 infected files and as per you there should be only 1 which is your compiled VB file.

I think your system or Pen Drive was infected.

You would still need to run full system scan.

Thanks,
Sudeep
RGuillermoProject Manager

Author

Commented:
Ssharma,
I just finished a full scan of drive c:\
Here is the log.

All USBs I unplugged and I am scanning separately.

BitDefender Log File


Product : Bitdefender Antivirus Plus 2012
Scanning task : Full System Scan
Log date : Tuesday, April 17, 2012 5:12:38 PM
Log path : C:\ProgramData\Bitdefender\Desktop\Profiles\Logs\dcf483c4-26d0-4e6f-ba28-6a53a00adae1\1334671935_1_02.xml
 
Scan Paths:
Path : C:\
 
[-]Scan Results
[-]Resolved issues:Object Path Threat Name Final Status
Cookie: C:\Users\Administrator\AppData\Roaming\Microsoft\Windows\Cookies\A5CMLBYA.txt Cookie.2o7 Deleted
Cookie: C:\Users\Administrator\AppData\Roaming\Microsoft\Windows\Cookies\UDV9HK4B.txt Cookie.Apmebf Deleted
Cookie: C:\Users\Administrator\AppData\Roaming\Microsoft\Windows\Cookies\TMXHVEOV.txt Cookie.Mediaplex Deleted
Cookie: C:\Users\Administrator\AppData\Roaming\Microsoft\Windows\Cookies\K3LMX63O.txt Cookie.TribalFusion Deleted
Cookie: C:\Users\Administrator\AppData\Roaming\Microsoft\Windows\Cookies\0EDPIVLY.txt Cookie.DoubleClick Deleted
Cookie: C:\Users\Administrator\AppData\Roaming\Microsoft\Windows\Cookies\C4Q61B3N.txt Cookie.WebTrends Deleted
Cookie: C:\Users\Administrator\AppData\Roaming\Microsoft\Windows\Cookies\F622DKYN.txt Cookie.Advertising Deleted
Cookie: C:\Users\Administrator\AppData\Roaming\Microsoft\Windows\Cookies\IQJ86IX0.txt Cookie.2o7 Deleted
Cookie: C:\Users\Administrator\AppData\Roaming\Microsoft\Windows\Cookies\QWM3IZPH.txt Cookie.Xiti Deleted
 
[-]Objects that were not scanned:Object Path Reason Final Status
File: C:\Users\Administrator\Desktop\BDAMST.zip=>FileList.txt Password-protected Not scanned (file was password-protected)
File: C:\Users\Administrator\Desktop\BDAMST.zip=>C/Users/Administrator/AppData/Roaming/Bitdefender/Desktop/Profiles/Logs/2ab858ed-450b-4bb6-b67c-8e3c45ec13ac/1334603131_1_02.xml Password-protected Not scanned (file was password-protected)
File: C:\ProgramData\MFAData\pack\bins\w12idatx1913zd.bin=>data=>info.enc Password-protected Not scanned (file was password-protected)
File: C:\Users\Administrator\Desktop\BDAMST.zip=>C/Users/Administrator/AppData/Roaming/Bitdefender/Desktop/Profiles/Logs/2ab858ed-450b-4bb6-b67c-8e3c45ec13ac/1334603052_1_02.xml Password-protected Not scanned (file was password-protected)
File: C:\Users\Administrator\Desktop\BDAMST.zip=>C/Users/Administrator/AppData/Roaming/Bitdefender/Desktop/Profiles/Logs/db7af1a4-db8-4f42-903a-9d200e40d03c/1330957131_1_01.xml Password-protected Not scanned (file was password-protected)
File: C:\_ms2\_01_MS_documents\_01_Customer_related\General\Renzo_pay_slips.xls Password-protected Not scanned (file was password-protected)
File: C:\_ms2\_01_MS_documents\_01_Customer_related\General\Medisoft_Employees Payslips.xls Password-protected Not scanned (file was password-protected)
File: C:\ProgramData\MFAData\pack\bins\w12idatx1913zd.bin=>data=>internalList.zip=>internalList.dat Password-protected Not scanned (file was password-protected)
File: C:\Users\Administrator\Desktop\BDAMST.zip=>C/Users/Administrator/AppData/Roaming/Bitdefender/Desktop/Profiles/Logs/db7af1a4-db8-4f42-903a-9d200e40d03c/1332967500_1_01.xml Password-protected Not scanned (file was password-protected)
File: C:\Users\Administrator\Desktop\BDAMST.zip=>C/ProgramData/Bitdefender/Desktop/Profiles/Logs/6c6a05a3-89e5-4f89-bab5-a5e25bade8be/1331154209_1_01.xml Password-protected Not scanned (file was password-protected)
File: C:\Users\Administrator\Desktop\BDAMST.zip=>C/Users/Administrator/AppData/Roaming/Bitdefender/Desktop/Profiles/Logs/2ab858ed-450b-4bb6-b67c-8e3c45ec13ac/1334650407_3_02.xml Password-protected Not scanned (file was password-protected)
File: C:\ProgramData\MFAData\pack\idatx.cab=>info.enc Password-protected Not scanned (file was password-protected)
File: C:\ProgramData\MFAData\pack\bins\w12idatx1913zd.bin=>info.enc Password-protected Not scanned (file was password-protected)
File: C:\Users\Administrator\Desktop\BDAMST.zip=>C/Users/Administrator/AppData/Roaming/Bitdefender/Desktop/Profiles/Logs/2ab858ed-450b-4bb6-b67c-8e3c45ec13ac/1334650457_1_02.xml Password-protected Not scanned (file was password-protected)
File: C:\Users\Administrator\Desktop\BDAMST.zip=>C/Users/Administrator/AppData/Roaming/Bitdefender/Desktop/Profiles/Logs/db7af1a4-db8-4f42-903a-9d200e40d03c/1332938618_1_01.xml Password-protected Not scanned (file was password-protected)
File: C:\Users\Administrator\Desktop\BDAMST.zip=>C/Users/Administrator/AppData/Roaming/Bitdefender/Desktop/Profiles/Logs/db7af1a4-db8-4f42-903a-9d200e40d03c/1332378674_1_01.xml Password-protected Not scanned (file was password-protected)
File: C:\ProgramData\MFAData\pack\idatx.cab=>internalList.zip=>internalList.dat Password-protected Not scanned (file was password-protected)
File: C:\Users\Administrator\Desktop\BDAMST.zip=>C/ProgramData/Bitdefender/Desktop/Profiles/Logs/6c6a05a3-89e5-4f89-bab5-a5e25bade8be/1333024739_1_01.xml Password-protected Not scanned (file was password-protected)
File: C:\Users\Administrator\Desktop\BDAMST.zip=>C/ProgramData/Bitdefender/Desktop/Profiles/Logs/dcf483c4-26d0-4e6f-ba28-6a53a00adae1/1334605987_1_02.xml Password-protected Not scanned (file was password-protected)
File: C:\_ms2\_01_MS_documents\_01_Customer_related\_01_Medisoft\ms_invoice 2008.xls Password-protected Not scanned (file was password-protected)
File: C:\ProgramData\MFAData\pack\bins\w12idatx1913zd.bin=>data=>internalList.zip=>info.enc Password-protected Not scanned (file was password-protected)
File: C:\_ms2\_01_MS_documents\_01_Customer_related\General\Maintenance Service.xls Password-protected Not scanned (file was password-protected)
File: C:\Users\Administrator\Desktop\BDAMST.zip=>C/ProgramData/Bitdefender/Desktop/Profiles/Logs/6c6a05a3-89e5-4f89-bab5-a5e25bade8be/1331767678_1_01.xml Password-protected Not scanned (file was password-protected)
File: C:\Users\Administrator\Desktop\BDAMST.zip=>C/Users/Administrator/AppData/Roaming/Bitdefender/Desktop/Profiles/Logs/944f0000-cdfb-4606-f972-f90b02966591/1334603007_3_01.xml Password-protected Not scanned (file was password-protected)
File: C:\ProgramData\MFAData\pack\idatx.cab=>internalList.zip=>info.enc Password-protected Not scanned (file was password-protected)
File: C:\Users\Administrator\Desktop\BDAMST.zip=>C/ProgramData/Bitdefender/Desktop/Profiles/Logs/dcf483c4-26d0-4e6f-ba28-6a53a00adae1/1330616133_3_03.xml Password-protected Not scanned (file was password-protected)
File: C:\Users\Administrator\Desktop\BDAMST.zip=>C/ProgramData/Bitdefender/Desktop/Profiles/Logs/dcf483c4-26d0-4e6f-ba28-6a53a00adae1/1330631082_3_03.xml Password-protected Not scanned (file was password-protected)
File: C:\Users\Administrator\Desktop\BDAMST.zip=>C/Users/Administrator/AppData/Roaming/Bitdefender/Desktop/Profiles/Logs/db7af1a4-db8-4f42-903a-9d200e40d03c/1332378027_1_01.xml Password-protected Not scanned (file was password-protected)
File: C:\Users\Administrator\Desktop\BDAMST.zip=>C/Users/Administrator/AppData/Roaming/Bitdefender/Desktop/Profiles/Logs/db7af1a4-db8-4f42-903a-9d200e40d03c/1334657423_1_02.xml Password-protected Not scanned (file was password-protected)
File: C:\Users\Administrator\Desktop\BDAMST.zip=>C/Users/Administrator/AppData/Roaming/Bitdefender/Desktop/Profiles/Logs/db7af1a4-db8-4f42-903a-9d200e40d03c/1332329646_1_01.xml Password-protected Not scanned (file was password-protected)
File: C:\Users\Administrator\Desktop\BDAMST.zip=>C/Users/Administrator/AppData/Roaming/Bitdefender/Desktop/Profiles/Logs/2ab858ed-450b-4bb6-b67c-8e3c45ec13ac/1334653163_1_03.xml Password-protected Not scanned (file was password-protected)
File: C:\Users\Administrator\Desktop\BDAMST.zip=>C/ProgramData/Bitdefender/Desktop/Profiles/Logs/6c6a05a3-89e5-4f89-bab5-a5e25bade8be/1332381515_1_01.xml Password-protected Not scanned (file was password-protected)
File: C:\Users\Administrator\Desktop\BDAMST.zip=>C/Users/Administrator/AppData/Roaming/Bitdefender/Desktop/Profiles/Logs/db7af1a4-db8-4f42-903a-9d200e40d03c/1332949139_1_01.xml Password-protected Not scanned (file was password-protected)
File: C:\Users\Administrator\Desktop\BDAMST.zip=>C/ProgramData/Bitdefender/Desktop/Profiles/Logs/dcf483c4-26d0-4e6f-ba28-6a53a00adae1/1334665853_3_01.xml Password-protected Not scanned (file was password-protected)
File: C:\Users\Administrator\Desktop\BDAMST.zip=>C/Users/Administrator/AppData/Roaming/Bitdefender/Desktop/Profiles/Logs/db7af1a4-db8-4f42-903a-9d200e40d03c/1331997860_1_02.xml Password-protected Not scanned (file was password-protected)
File: C:\_ms2\_01_MS_documents\_01_Customer_related\_01_Medisoft\Medisoft\personal\ScotiaBank\payments Scotia.rar Password-protected Not scanned (file was password-protected)
File: C:\Users\Administrator\Desktop\BDAMST.zip=>C/ProgramData/Bitdefender/Desktop/Profiles/Logs/6c6a05a3-89e5-4f89-bab5-a5e25bade8be/1334632548_1_01.xml Password-protected Not scanned (file was password-protected)
File: C:\Users\Administrator\Desktop\BDAMST.zip=>C/ProgramData/Bitdefender/Desktop/Profiles/Logs/dcf483c4-26d0-4e6f-ba28-6a53a00adae1/1334649908_3_01.xml Password-protected Not scanned (file was password-protected)
File: C:\_ms2\_01_MS_documents\_01_Customer_related\General\Pay_slips.xls Password-protected Not scanned (file was password-protected)
File: C:\Users\Administrator\Desktop\BDAMST.zip=>C/Users/Administrator/AppData/Roaming/Bitdefender/Desktop/Profiles/Logs/db7af1a4-db8-4f42-903a-9d200e40d03c/1331849978_1_02.xml Password-protected Not scanned (file was password-protected)
File: C:\_ms2\_01_MS_documents\_02_Purchases\_01_WINZIP10_Original_2006-08-31\winzip100.exe=>(ZIP Sfx s)=>SETUP.WZ=>WINZIP32.EX_ Password-protected Not scanned (file was password-protected)
File: C:\_ms2\_01_MS_documents\_01_Customer_related\General\Backup of Pay_slips.xlk Password-protected Not scanned (file was password-protected)
File: C:\Users\Administrator\Desktop\BDAMST.zip=>C/Users/Administrator/AppData/Roaming/Bitdefender/Desktop/Profiles/Logs/ec5a0000-79fe-42a5-63d7-55b080306aab/1334601981_3_01.xml Password-protected Not scanned (file was password-protected)
 
[-]Detailed Scan Summary
[-]Basic
Scanned items : 1473395
Infected items : 9
Suspicious items : 0 (no suspected items have been detected)
Resolved items : 9
Unresolved items : 0 (no issues remained unresolved)
 
[+]Advanced
Scan time : 03: 38: 02
Files per second : 112
Skipped items : 39945
Password-protected items : 43
Overcompressed items : 0
Scanned archives : 426
Input-output errors : 0
Scanned boot sectors : 6
Scanned processes : 4011
Infected processes : 0
Scanned registry keys : 70482
Infected registry keys : 0
Scanned cookies : 226
Infected cookies : 9
 
[-]Scan Options
[-]Target Threat Types:
Scan for viruses : Yes
Scan for adware : Yes
Scan for spyware : Yes
Scan for applications : Yes
Scan for dialers : Yes
Scan for rootkits : Yes
Scan for keyloggers : Yes
 
[-]Target Selection Options:
Scan registry keys : Yes
Scan cookies : Yes
Scan boot sectors : Yes
Scan memory processes : Yes
Scan archives : Yes
Scan runtime packers : Yes
Scan emails : Yes
Scan all files : Yes
Heuristic Scan : Yes
Scanned extensions : none configured
Excluded extensions : none configured
 
[-]Target Processing:
Default primary action for infected objects : Disinfect
Default secondary action for infected objects : Move to Quarantine
Default primary action for suspicious objects : Move to Quarantine
Default secondary action for suspicious objects : None
Default action for hidden objects : Disinfect
Default action for password-protected objects : Log as not scanned
 
[-]Scan engines summary
Number of virus signatures : 7074969
Sudeep SharmaTechnical Designer

Commented:
which OS are you working on and is that 32bit or 64bit?

IS the system fully updated with Microsoft updates and patches?

Sudeep
RGuillermoProject Manager

Author

Commented:
Windows Vista, It is  activated and updated
RGuillermoProject Manager

Author

Commented:
32 bit
Project Manager
Commented:
After talking with the BD Support they told me to add this program to the exclusion list.
They expained to me that BD is identifying part of the code of my tiny app as similar to that of a virus ( my app is 200 kb ) therefore since its my own app to put it in exclusion list.
RGuillermoProject Manager

Author

Commented:
By the way its windows vista home 32 bit, my machine.
RGuillermoProject Manager

Author

Commented:
the trojan is still there, I used malwarebytes,bit defender, rogue killer, rkill,spybot
separate installations...and I cannot get my firewall back. Bit defender support suggested that installing and uninstalling different solutions plus the infections may have caused the problem.... I will reinstall windows.. Thank for all your support.
RGuillermoProject Manager

Author

Commented:
at least its working.