'Class module PHPResponse
Sub Class_Globals
Dim result As String
Private MN As Object
Private EN As String
End Sub
'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize (bld As String, Module As Object, EventName As String )
Dim Login As HttpJob
Login.Initialize("GetDLCount", Me)
Login.Download2("http://private.php",Array As String("action","GetDLCount","build", bld))
Login.Release
MN = Module
EN = EventName
End Sub
Sub JobDone(job As HttpJob)
If job.Success Then
Dim res As String
res = job.GetString
'Log("Back from Job:" & Job.JobName )
'Log("Response from server: " & res)
'Log("MN="&MN)
'Log("EN="&EN)
' This block was what I tried as CallSub2(Main,EN,res) did not work!
' I noticed that with the addition of this code, CallSub2(Main,EN,res) worked!?!?! so it was called twice!
' proving it did actually work! I renamed the subs sm2_dl and now it works!
' Select EN
' Case "sm2ldl"
' CallSub2(Main,"sm2ldl",res)
' Case "sm2ladl"
' CallSub2(Main,"sm2ladl",res)
' Case "sm2dl"
' CallSub2(Main,"sm2dl",res)
' End Select
CallSub2(Main,EN,res)
Else
ToastMessageShow("Error: " & job.ErrorMessage, True)
End If
job.Release
End Sub