Sub GetConfig(PPValue As String) As ResumableSub
Try
If File.Exists(File.DirData("TaskHandler"), "config.dat") Then
'
Else
File.WriteMap(File.DirData("TaskHandler"), "config.dat", CreateMap("ffc":"111"))
End If
Dim m As Map = File.ReadMap(File.DirData("TaskHandler"), "config.dat")
If m.Get(PPValue) <> Null Then
Return m.Get(PPValue)
Else
Return "none"
End If
Catch
'Log(LastException)
Sleep(300) 'Wait 300 millis and retry
wait for (GetConfig(PPValue)) Complete (sRet As String)
Return sRet
End Try
End Sub