Sub capture_website(bmp As Bitmap, how_many_bitmaps As Int )
'Restart app/Go to main_meny
'/old code
If main_map_saved.Get("use_weeks") = "true" Then
' Use weeks
Dim out2 As OutputStream
out2.InitializeToBytesArray(0)
bmp.WriteToStream(out2, 100, "PNG")
out2.Close
Dim data() As Byte = out2.ToBytesArray
Dim out As OutputStream = File.OpenOutput(File.DirInternal, "image_to_save" & current_download_number & ".png", False)
out.WriteBytes(data, 0, data.Length)
out.Close
If how_many_bitmaps = 52 Then
'old code
main_map_saved.Put("first_time","nope")
Msgbox("All nödvändig data har laddats ner, Appen kommer nu stängas av!","Information")
Activity.Finish()
End If
End If
If main_map_saved.Get("use_days") = "true" Then
' use days
Dim out2 As OutputStream
out2.InitializeToBytesArray(0)
bmp.WriteToStream(out2, 100, "PNG")
out2.Close
Dim data() As Byte = out2.ToBytesArray
Dim out As OutputStream = File.OpenOutput(File.DirInternal, "image_to_save" & current_download_number & ".png", False)
out.WriteBytes(data, 0, data.Length)
out.Close
If how_many_bitmaps = 365 Then
'old code
main_map_saved.Put("first_time","nope")
Msgbox("All nödvändig data har laddats ner, Appen kommer nu stängas av!","Information")
Activity.Finish()
End If
End If
End Sub