Sub Globals
Dim NumberVar As Int
Dim NumberMath As Int
End Sub
Sub Button1_Click
Dim j As HttpJob 'redim and initialize
j.Initialize("", Me)
j.Download("https://x.ir/number.txt")
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
Dim out1 As OutputStream = File.OpenOutput(File.DirInternal, "number.txt", False)
File.Copy2(j.GetInputStream, out1)
out1.Close '<------ very important
If File.Exists(File.DirInternal, "number.txt") = True Then
Log("yes")
NumberVar=File.ReadString(File.DirInternal, "number.txt")
Log(NumberVar)
NumberMath=NumberVar+1
File.WriteString(File.DirInternal, "number.txt", NumberMath)
Log(NumberMath)
End If
'StartActivity(Post_Publish)
End If
j.Release
End Sub