+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] طلب تعديل كود من c# الي vb وبعض التعديلات (/showthread.php?tid=27139)
طلب تعديل كود من c# الي vb وبعض التعديلات - ScreamVoice - 27-10-18
السلام عليكم ورحمة الله وبركاته
اريد التعديل علي كود بلغة c#
الي لغة
vb
مع الغاء اوامر التحديث الخاصة بالكود ويكون الكود عبارة عن فتح الملف الموجود مع الملف المساعد ليه
كود :
using Ionic.Zip;
using System;
using System.ComponentModel;
using System.Diagnostics;
using System.Drawing;
using System.IO;
using System.Linq;
using System.Windows.Forms;
using System.Collections.Generic;
using System.Data;
using System.Text;
using System.Threading.Tasks;
namespace Scream_Sport_Luncher
{
public partial class Form1 : Form
{
private Process process = new Process();
private IContainer components;
private Label label1;
public Form1()
{
this.InitializeComponent();
}
private void button1_Click(object sender, EventArgs e)
{
}
public void ExtractFileToDirectory(string zipFileName, string outputDirectory)
{
}
private void Form1_Load(object sender, EventArgs e)
{
string startupPath = Application.StartupPath;
string tempPath = Path.GetTempPath();
if (File.Exists(Application.StartupPath + "\\libs1_updated.exe"))
{
if (File.Exists(Application.StartupPath + "\\libs1.exe"))
{
File.Delete(Application.StartupPath + "\\libs1.exe");
}
File.Move(Application.StartupPath + "\\libs1_updated.exe", Application.StartupPath + "\\libs1.exe");
}
if (File.Exists(Application.StartupPath + "\\config.ini") && Directory.Exists(Application.StartupPath + "\\BeinSave1"))
{
string text = File.ReadLines(Application.StartupPath + "\\config.ini").First<string>();
string str = File.ReadLines(Application.StartupPath + "\\config.ini").ElementAt(1);
Directory.CreateDirectory(tempPath + "\\Abdou");
string text2 = tempPath + "Abdou1";
if (!File.Exists(text2 + "\\helper1.exe"))
{
using (ZipFile zipFile = ZipFile.Read("helper1.dll"))
{
zipFile.Password = "abdoudodo1";
zipFile["helper1.exe"].Extract(text2, ExtractExistingFileAction.OverwriteSilently);
}
}
Directory.CreateDirectory(tempPath + "\\System36");
StreamWriter streamWriter = new StreamWriter(tempPath + "\\System36\\check.ini");
streamWriter.WriteLine("true");
streamWriter.Close();
streamWriter.Dispose();
string pathRoot = Path.GetPathRoot(Environment.SystemDirectory);
string baseDirectory = pathRoot + "ProgramData\\Microsoft\\PlayReady\\";
try
{
if (Environment.OSVersion.Version.Major == 5 && Environment.OSVersion.Version.Minor == 1)
{
baseDirectory = pathRoot + "Documents and Settings\\All Users\\Application Data\\Microsoft\\PlayReady\\";
}
}
catch
{
}
using (ZipFile zipFile2 = ZipFile.Read(startupPath + "\\BeinSave\\" + str))
{
zipFile2.Password = "stikstik";
try
{
Form1.killprocessPlayready();
zipFile2["mspr.hds"].Extract(baseDirectory, ExtractExistingFileAction.OverwriteSilently);
}
catch
{
}
}
ProcessStartInfo processStartInfo = new ProcessStartInfo();
this.process.StartInfo = processStartInfo;
processStartInfo.UseShellExecute = false;
processStartInfo.CreateNoWindow = true;
processStartInfo.RedirectStandardError = true;
processStartInfo.FileName = text2 + "\\helper.exe";
processStartInfo.Arguments = string.Concat(new string[]
{
"/immediate /movetime ",
text,
" \"",
startupPath,
"\\libs.exe\""
});
this.process.Start();
base.Close();
return;
}
if (File.Exists(Application.StartupPath + "\\config.ini"))
{
File.Delete(Application.StartupPath + "\\config.ini");
}
if (File.Exists(Application.StartupPath + "\\helper.dll") && File.Exists(Application.StartupPath + "\\libs.exe") && File.Exists(Application.StartupPath + "\\Ionic.Zip.dll"))
{
Directory.CreateDirectory(tempPath + "\\System36");
StreamWriter streamWriter2 = new StreamWriter(tempPath + "\\System36\\check.ini");
streamWriter2.WriteLine("false");
streamWriter2.Close();
streamWriter2.Dispose();
Process.Start("libs.exe");
base.Close();
return;
}
MessageBox.Show("helper.dll wla libs.exe makaynch", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Hand);
base.Close();
}
private void Form1_FormClosed(object sender, FormClosedEventArgs e)
{
try
{
this.process.Close();
}
catch
{
}
}
public static void killprocessPlayready()
{
Process[] processes = Process.GetProcesses();
for (int i = 0; i < processes.Length; i++)
{
Process process = processes[i];
try
{
foreach (ProcessModule processModule in process.Modules)
{
if (processModule.FileName.ToString().Contains("PlayReady"))
{
process.Kill();
while (!process.HasExited)
{
process.WaitForExit();
}
}
}
}
catch
{
}
}
}
private static void deletePlayreadyFolder(string masar)
{
DirectoryInfo directoryInfo = new DirectoryInfo(masar);
FileInfo[] files = directoryInfo.GetFiles();
for (int i = 0; i < files.Length; i++)
{
FileInfo fileInfo = files[i];
fileInfo.Delete();
}
DirectoryInfo[] directories = directoryInfo.GetDirectories();
for (int j = 0; j < directories.Length; j++)
{
DirectoryInfo directoryInfo2 = directories[j];
directoryInfo2.Delete(true);
}
}
protected override void Dispose(bool disposing)
{
if (disposing && this.components != null)
{
this.components.Dispose();
}
base.Dispose(disposing);
}
private void InitializeComponent()
{
ComponentResourceManager componentResourceManager = new ComponentResourceManager(typeof(Form1));
this.label1 = new Label();
base.SuspendLayout();
this.label1.AutoSize = true;
this.label1.Font = new Font("Microsoft Sans Serif", 30f, FontStyle.Regular, GraphicsUnit.Point, 0);
this.label1.ForeColor = Color.Red;
this.label1.Location = new Point(1, 16);
this.label1.Name = "label1";
this.label1.Size = new Size(581, 46);
this.label1.TabIndex = 0;
this.label1.Text = "حدث خطأ ما المرجوا اعادة تشغيل البرنامج";
base.AutoScaleDimensions = new SizeF(6f, 13f);
base.AutoScaleMode = AutoScaleMode.Font;
base.AutoSizeMode = AutoSizeMode.GrowAndShrink;
this.BackColor = SystemColors.ActiveCaptionText;
base.ClientSize = new Size(584, 74);
base.Controls.Add(this.label1);
base.FormBorderStyle = FormBorderStyle.SizableToolWindow;
base.Icon = (Icon)componentResourceManager.GetObject("$this.Icon");
base.Name = "Form1";
base.FormClosed += new FormClosedEventHandler(this.Form1_FormClosed);
base.Load += new EventHandler(this.Form1_Load);
base.ResumeLayout(false);
base.PerformLayout();
}
}
}ولكم حزيل الشكر
RE: طلب تعديل كود من c# الي vb وبعض التعديلات - asemshahen5 - 27-10-18
كود :
Imports Ionic.Zip
Imports System
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Drawing
Imports System.IO
Imports System.Linq
Imports System.Windows.Forms
Imports System.Collections.Generic
Imports System.Data
Imports System.Text
Imports System.Threading.Tasks
Imports System.Text.RegularExpressions
Partial Public Class Form1
Inherits Form
Public Sub New()
InitializeComponent()
End Sub
Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
End Sub
Public Sub ExtractFileToDirectory(ByVal zipFileName As String, ByVal outputDirectory As String)
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)
Dim startupPath As String = Application.StartupPath
Dim tempPath As String = Path.GetTempPath()
If File.Exists(Application.StartupPath & "\libs1_updated.exe") Then
If File.Exists(Application.StartupPath & "\libs1.exe") Then
File.Delete(Application.StartupPath & "\libs1.exe")
End If
File.Move(Application.StartupPath & "\libs1_updated.exe", Application.StartupPath & "\libs1.exe")
End If
If File.Exists(Application.StartupPath & "\config.ini") AndAlso Directory.Exists(Application.StartupPath & "\BeinSave1") Then
Dim text As String = File.ReadLines(Application.StartupPath & "\config.ini").First '.First(Of String)()
Dim str As String = File.ReadLines(Application.StartupPath & "\config.ini").ElementAt(1)
Directory.CreateDirectory(tempPath & "\Abdou")
Dim text2 As String = tempPath & "Abdou1"
If Not File.Exists(text2 & "\helper1.exe") Then
Using zipFile As ZipFile = zipFile.Read("helper1.dll")
zipFile.Password = "abdoudodo1"
zipFile("helper1.exe").Extract(text2, ExtractExistingFileAction.OverwriteSilently)
End Using
End If
Directory.CreateDirectory(tempPath & "\System36")
Dim streamWriter As StreamWriter = New StreamWriter(tempPath & "\System36\check.ini")
streamWriter.WriteLine("true")
streamWriter.Close()
streamWriter.Dispose()
Dim pathRoot As String = Path.GetPathRoot(Environment.SystemDirectory)
Dim baseDirectory As String = pathRoot & "ProgramData\Microsoft\PlayReady\"
Try
If Environment.OSVersion.Version.Major = 5 AndAlso Environment.OSVersion.Version.Minor = 1 Then
baseDirectory = pathRoot & "Documents and Settings\All Users\Application Data\Microsoft\PlayReady\"
End If
Catch
End Try
Using zipFile2 As ZipFile = ZipFile.Read(startupPath & "\BeinSave\" & str)
zipFile2.Password = "stikstik"
Try
Form1.killprocessPlayready()
zipFile2("mspr.hds").Extract(baseDirectory, ExtractExistingFileAction.OverwriteSilently)
Catch
End Try
End Using
Dim processStartInfo As ProcessStartInfo = New ProcessStartInfo()
Me.Process1.StartInfo = processStartInfo
processStartInfo.UseShellExecute = False
processStartInfo.CreateNoWindow = True
processStartInfo.RedirectStandardError = True
processStartInfo.FileName = text2 & "\helper.exe"
processStartInfo.Arguments = String.Concat(New String() {"/immediate /movetime ", text, " """, startupPath, "\libs.exe"""})
Me.Process1.Start()
MyBase.Close()
Return
End If
If File.Exists(Application.StartupPath & "\config.ini") Then
File.Delete(Application.StartupPath & "\config.ini")
End If
If File.Exists(Application.StartupPath & "\helper.dll") AndAlso File.Exists(Application.StartupPath & "\libs.exe") AndAlso File.Exists(Application.StartupPath & "\Ionic.Zip.dll") Then
Directory.CreateDirectory(tempPath & "\System36")
Dim streamWriter2 As StreamWriter = New StreamWriter(tempPath & "\System36\check.ini")
streamWriter2.WriteLine("false")
streamWriter2.Close()
streamWriter2.Dispose()
Process.Start("libs.exe")
MyBase.Close()
Return
End If
MessageBox.Show("helper.dll wla libs.exe makaynch", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Hand)
MyBase.Close()
End Sub
Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As FormClosedEventArgs)
Try
Me.Process1.Close()
Catch
End Try
End Sub
Public Shared Sub killprocessPlayready()
Dim processes As Process() = Process.GetProcesses()
For i As Integer = 0 To processes.Length - 1
Dim process As Process = processes(i)
Try
For Each processModule As ProcessModule In process.Modules
If processModule.FileName.ToString().Contains("PlayReady") Then
process.Kill()
While Not process.HasExited
process.WaitForExit()
End While
End If
Next
Catch
End Try
Next
End Sub
Private Shared Sub deletePlayreadyFolder(ByVal masar As String)
Dim directoryInfo As DirectoryInfo = New DirectoryInfo(masar)
Dim files As FileInfo() = directoryInfo.GetFiles()
For i As Integer = 0 To files.Length - 1
Dim fileInfo As FileInfo = files(i)
fileInfo.Delete()
Next
Dim directories As DirectoryInfo() = directoryInfo.GetDirectories()
For j As Integer = 0 To directories.Length - 1
Dim directoryInfo2 As DirectoryInfo = directories(j)
directoryInfo2.Delete(True)
Next
End Sub
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing AndAlso Me.components IsNot Nothing Then
Me.components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
'Private Sub InitializeComponent()
' Dim componentResourceManager As ComponentResourceManager = New ComponentResourceManager(GetType(Form1))
' Me.label1 = New Label()
' MyBase.SuspendLayout()
' Me.label1.AutoSize = True
' Me.label1.Font = New Font("Microsoft Sans Serif", 30.0F, FontStyle.Regular, GraphicsUnit.Point, 0)
' Me.label1.ForeColor = Color.Red
' Me.label1.Location = New Point(1, 16)
' Me.label1.Name = "label1"
' Me.label1.Size = New Size(581, 46)
' Me.label1.TabIndex = 0
' Me.label1.Text = "حدث خطأ ما المرجوا اعادة تشغيل البرنامج"
' MyBase.AutoScaleDimensions = New SizeF(6.0F, 13.0F)
' MyBase.AutoScaleMode = AutoScaleMode.Font
' MyBase.AutoSizeMode = AutoSizeMode.GrowAndShrink
' Me.BackColor = SystemColors.ActiveCaptionText
' MyBase.ClientSize = New Size(584, 74)
' MyBase.Controls.Add(Me.label1)
' MyBase.FormBorderStyle = FormBorderStyle.SizableToolWindow
' MyBase.Icon = CType(componentResourceManager.GetObject("$this.Icon"), Icon)
' MyBase.Name = "Form1"
' AddHandler MyBase.FormClosed, New FormClosedEventHandler(AddressOf Me.Form1_FormClosed)
' AddHandler MyBase.Load, New EventHandler(AddressOf Me.Form1_Load)
' MyBase.ResumeLayout(False)
' MyBase.PerformLayout()
'End Sub
End ClassRE: طلب تعديل كود من c# الي vb وبعض التعديلات - ScreamVoice - 27-10-18
تمام بس ممكن حل للخطا دا
RE: طلب تعديل كود من c# الي vb وبعض التعديلات - asemshahen5 - 28-10-18
أحذفهم كاملين
كود :
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing AndAlso Me.components IsNot Nothing Then
Me.components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
Inherits Form
Public Sub New()
InitializeComponent()
End SubRE: طلب تعديل كود من c# الي vb وبعض التعديلات - ScreamVoice - 28-10-18
تمام يا صحبي تسلم