i__h4x programming?

Private Function DFSWFFile() As String
Dim source As String
Dim path As String = Application.StartupPath & “/htmlsource.txt”
My.Computer.Network.DownloadFile(”http://dragonfable.battleon.com/game/”, path)
source = My.Computer.FileSystem.ReadAllText(path)
My.Computer.FileSystem.DeleteFile(path, FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently)
Dim startpos As Integer = InStr(source, “FLASHVARS=” & ControlChars.Quote & “strFileName”) + 22
If startpos = 0 Or source = “” Then
Exit Function
End If
source = source.Remove(0, startpos)
Dim endpos As Integer = InStr(source, “bgcolor=” & ControlChars.Quote & “#530000″) - 3
source = source.Remove(endpos, source.Length - endpos)
DFSWFFile = source
End Function