Soo... ich weiß nicht genau, ob ich in diesem Abteil richtig bin, aber ich hoffe es einfach mal. ^^Also ich habe vor 10 Minuten angefangen ein "Minecraft Tool" [Skin Stealer und Nick Name Checker] zu erstellen! Jetzt habe ich aber ein Problem dabei. Ich bin ein "Anfänger" würde ich sagen, wenn das sogar noch zu nett formuliert ist :). Also der Minecraft Skin wird zum Speichern im Temp Ordner zwischengelagert und soll sich löschen, wenn ich einen neuen Skin angezeigt bekommen will aber ich bekomme immer den Fehler das diese Datei von einem Prozess verwendet wird und im Internet hab ich gerade nichts Hilfreiches gefunden! Ich hoffe, dass ihr könnt mir helfen und vielleicht sonstige Fehler von mir verbessert, damit ich mich verbessern kann
Hier mal der gesamte Code (Ja meine Code ist unordentlich ich entschuldige mich schon mal vorher hehe 8|X/^^) :
Ich hoffe ihr könnt mir helfen
Lg: VoltexModz
Thema nach Sonstige Problemstellungen verschoben und Codetags angepasst
-Artentus
Hier mal der gesamte Code (Ja meine Code ist unordentlich ich entschuldige mich schon mal vorher hehe 8|X/^^) :
VB.NET-Quellcode
- Imports System
- Imports System.Net
- Imports System.IO
- Public Class Form1
- Private Const AW_BLEND = &H80000
- Private Declare Function AnimateWindow Lib "user32" (ByVal hwnd As Int32, ByVal dwTime As Int32, ByVal dwFlags As Int32) As Boolean
- Dim winHide As Integer = &H10000
- Dim winBlend As Integer = &H80000
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
- PictureBox1.BackgroundImage = Nothing
- Dim abc As New WebClient
- Dim abcd As String = abc.DownloadString("https://api.mojang.com/users/profiles/minecraft/" & TextBox2.Text)
- If Not abcd = "" Then
- Label1.Text = "Vergeben"
- PictureBox1.BackgroundImage = New System.Drawing.Bitmap(New IO.MemoryStream(New WebClient().DownloadData("https://minotar.net/body/" & TextBox2.Text & "/100.png")))
- Else
- Label1.Text = "Nicht vergeben"
- End If
- End Sub
- Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
- Dim wc As New WebClient
- Try
- If IO.File.Exists(IO.Path.GetTempPath & "\minecraft_skin.png") Then
- IO.File.Delete(IO.Path.GetTempPath & "\minecraft_skin.png")
- End If
- wc.DownloadFile("https://minotar.net/skin/" & TextBox2.Text & ".png", IO.Path.GetTempPath & "\minecraft_skin.png")
- Catch ex As WebException
- MsgBox("Der Skin wurde nicht gefunden!")
- End Try
- Try
- PictureBox2.Image = Image.FromFile(IO.Path.GetTempPath & "\minecraft_skin.png")
- Catch ex As FileNotFoundException
- MsgBox("Der Skin kann nicht in die Vorschau geladen werden!")
- End Try
- Dim sfd As New SaveFileDialog
- sfd.Filter = "Minecraft Skin (*.png)|*.png"
- sfd.ShowDialog()
- Try
- IO.File.Copy(IO.Path.GetTempPath & "\minecraft_skin.png", sfd.FileName)
- Catch ex As Exception
- MsgBox("Konnte die Datei nicht speichern.")
- End Try
- End Sub
- Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
- If TextBox2.Text = "BluRanger" Then
- MessageBox.Show("Dieser Skin kommt mir nicht auf diesen PC!", "Skin blacklist!", MessageBoxButtons.OK, MessageBoxIcon.Error)
- Close()
- End If
- If TextBox2.Text = "Notch" Then
- MessageBox.Show("Äh den braucht keiner... also nein.", "Was?!", MessageBoxButtons.OK, MessageBoxIcon.Error)
- Close()
- End If
- PictureBox1.BackgroundImage = Nothing
- Dim banana As New WebClient
- Dim banana2 As String = banana.DownloadString("https://api.mojang.com/users/profiles/minecraft/" & TextBox2.Text)
- If Not banana2 = "" Then
- Label1.Text = "Vergeben!"
- Label1.ForeColor = Color.Red
- PictureBox1.BackgroundImage = New System.Drawing.Bitmap(New IO.MemoryStream(New WebClient().DownloadData("https://minotar.net/body/" & TextBox2.Text & "/100.png")))
- Else
- Label1.Text = "Nicht vergeben!"
- Label1.ForeColor = Color.Green
- End If
- End Sub
- Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
- Me.Text = String.Format("{0} | {1}", Application.ProductName, Application.ProductVersion)
- End Sub
- Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
- AnimateWindow(Me.Handle.ToInt32, CInt(500), winHide Or winBlend)
- Me.Close()
- End Sub
- Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
- Process.Start("C:\Program Files (x86)\Minecraft\MinecraftLauncher.exe")
- End Sub
- Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
- Process.Start("https://account.mojang.com/login")
- End Sub
- End Class
Ich hoffe ihr könnt mir helfen
Lg: VoltexModz
Thema nach Sonstige Problemstellungen verschoben und Codetags angepasst
-Artentus
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Artentus“ ()