|
| Autor |
Nachricht |
*Poison$Ivy*
Newbie
Anmeldedatum: 20.04.2009
Beiträge: 6
|
Ghost Writer Builder Hilfe funzt nicht!!!
Verfasst am: 02.05.2009, 19:02 |
|
|
Habe eine Ghost Writer Builder gecodet jedoch wenn ich die erstellte *.exe starten will kommt ne fehlermeldung:
Könnt ihr mir helfen?
Builder Source:
| Code: | Public Class Form1
Dim options As New Compatibility.VB6.FixedLengthString(100)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ProgressBar1.Value = 0
Dim Textfarbe As String = ComboBox1.Text
Dim Hintergrundfarbe As String = ComboBox2.Text
Dim Speed As String = TextBox1.Text
Dim Text As String = RichTextBox1.Text
Dim stub As String = My.Application.Info.DirectoryPath & "\stub\stub.exe"
Dim file As String = My.Application.Info.DirectoryPath & "\Ghost_Writer.exe"
ProgressBar1.Value = 30
If System.IO.File.Exists(stub) = False Then
MessageBox.Show("error - stub not found!")
Exit Sub
End If
ProgressBar1.Value = 50
If IO.File.Exists(file) Then
MessageBox.Show("File already exists")
MessageBox.Show("Replace file now...")
IO.File.Delete(file)
ProgressBar1.Value = 70
System.IO.File.Copy(stub, file)
Else
System.IO.File.Copy(stub, file)
End If
ProgressBar1.Value = 80
options.Value = Textfarbe & "#" & Hintergrundfarbe & "#" & Speed & "#" & Text
FileOpen(1, (file), OpenMode.Binary)
ProgressBar1.Value = 89
FilePutObject(1, options.Value, LOF(1) + 1)
ProgressBar1.Value = 90
FileClose(1)
ProgressBar1.Value = 100
MsgBox("GhostWriter erfolgreich erstellt", MsgBoxStyle.Information, "Erstellt")
End Sub
End Class |
Stub Source:
| Code: | Public Class Form1
Dim file As String
Dim cmd() As String
Dim options As New Compatibility.VB6.FixedLengthString(100)
Dim counter As Integer = 0
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim file As String = My.Application.Info.DirectoryPath & "\file.exe"
Dim file2 As String = file.Substring(0, file.IndexOf(".")) & "2.exe"
IO.File.Copy(file, file2)
FileOpen(1, (file2), OpenMode.Binary)
FileGet(1, options.Value, LOF(1) - 99)
FileClose(1)
cmd = options.Value.Split("#")
IO.File.Delete(file2)
Dim Textfarbe As String = cmd(0)
Dim Hintergrundfarbe As String = cmd(2)
Dim Speed As String = cmd(3)
Dim Text As String = cmd(4)
If Textfarbe = "Rot" Then
RichTextBox1.ForeColor = Color.Red
End If
If Textfarbe = "Grün" Then
RichTextBox1.ForeColor = Color.LightGreen
End If
If Textfarbe = "Blau" Then
RichTextBox1.ForeColor = Color.Blue
End If
If Textfarbe = "Schwarz" Then
RichTextBox1.ForeColor = Color.Black
End If
If Textfarbe = "Grau" Then
RichTextBox1.ForeColor = Color.WhiteSmoke
End If
If Textfarbe = "Braun" Then
RichTextBox1.ForeColor = Color.Brown
End If
If Textfarbe = "Belb" Then
RichTextBox1.ForeColor = Color.Yellow
End If
If Hintergrundfarbe = "Rot" Then
RichTextBox1.BackColor = Color.Red
End If
If Hintergrundfarbe = "Grün" Then
RichTextBox1.BackColor = Color.LightGreen
End If
If Hintergrundfarbe = "Blau" Then
RichTextBox1.BackColor = Color.Blue
End If
If Hintergrundfarbe = "Schwarz" Then
RichTextBox1.BackColor = Color.Black
End If
If Hintergrundfarbe = "Grau" Then
RichTextBox1.BackColor = Color.WhiteSmoke
End If
If Hintergrundfarbe = "Braun" Then
RichTextBox1.BackColor = Color.Brown
End If
If Hintergrundfarbe = "Belb" Then
RichTextBox1.BackColor = Color.Yellow
End If
Timer1.Interval = Speed
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim strToRead As String = Text
Dim newChar() As Char = strToRead.ToCharArray()
If counter = Len(strToRead) Then
Timer1.Stop()
Else
RichTextBox1.Text += newChar(counter)
counter = counter + 1
End If
End Sub
End Class |
Hoffentlich könnt ihr mir schnell helfen^^
MFG
*Poison$Ivy* 
(__/)
(O.o )
(> < ) Dies ist Häschen. Kopiere Häschen in deine Signatur, um ihm auf seiner Weise zur Weltherrschaft zu helfen.
ICQ: 356-871-657
E-Mail: poisonivy.info66@googlemail.com |
|
| |
|
 |
Marduk_
« Moderator »
Anmeldedatum: 17.06.2007
Beiträge: 389
|
Verfasst am: 03.05.2009, 10:37 |
|
|
| Könntest du mal wenn der Fehler kommt auf "Details" drücken und den Inhalt hier posten |
|
| |
|
|
*Poison$Ivy*
Newbie
Anmeldedatum: 20.04.2009
Beiträge: 6
|
Verfasst am: 03.05.2009, 12:32 |
|
|
Alo des steht alles unter Details:
| Zitat: | Informationen über das Aufrufen von JIT-Debuggen
anstelle dieses Dialogfelds finden Sie am Ende dieser Meldung.
************** Ausnahmetext **************
System.IO.FileNotFoundException: Die Datei "C:\Dokumente und Einstellungen\Michael\Desktop\file.exe" konnte nicht gefunden werden.
Dateiname: "C:\Dokumente und Einstellungen\Michael\Desktop\file.exe"
bei System.IO.__Error.WinIOError(Int32 errorCode, String maybeFullPath)
bei System.IO.File.InternalCopy(String sourceFileName, String destFileName, Boolean overwrite)
bei System.IO.File.Copy(String sourceFileName, String destFileName)
bei Ghost_Stub.Form1.Form1_Load(Object sender, EventArgs e)
bei System.EventHandler.Invoke(Object sender, EventArgs e)
bei System.Windows.Forms.Form.OnLoad(EventArgs e)
bei System.Windows.Forms.Form.OnCreateControl()
bei System.Windows.Forms.Control.CreateControl(Boolean fIgnoreVisible)
bei System.Windows.Forms.Control.CreateControl()
bei System.Windows.Forms.Control.WmShowWindow(Message& m)
bei System.Windows.Forms.Control.WndProc(Message& m)
bei System.Windows.Forms.ScrollableControl.WndProc(Message& m)
bei System.Windows.Forms.ContainerControl.WndProc(Message& m)
bei System.Windows.Forms.Form.WmShowWindow(Message& m)
bei System.Windows.Forms.Form.WndProc(Message& m)
bei System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
bei System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
bei System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
************** Geladene Assemblys **************
mscorlib
Assembly-Version: 2.0.0.0.
Win32-Version: 2.0.50727.3053 (netfxsp.050727-3000).
CodeBase: file:///C:/WINDOWS/Microsoft.NET/Framework/v2.0.50727/mscorlib.dll.
----------------------------------------
Ghost Stub
Assembly-Version: 1.0.0.0.
Win32-Version: 1.0.0.0.
CodeBase: file:///C:/Dokumente%20und%20Einstellungen/Michael/Desktop/Ghost_Writer.exe.
----------------------------------------
Microsoft.VisualBasic
Assembly-Version: 8.0.0.0.
Win32-Version: 8.0.50727.3053 (netfxsp.050727-3000).
CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/Microsoft.VisualBasic/8.0.0.0__b03f5f7f11d50a3a/Microsoft.VisualBasic.dll.
----------------------------------------
System
Assembly-Version: 2.0.0.0.
Win32-Version: 2.0.50727.3053 (netfxsp.050727-3000).
CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/System/2.0.0.0__b77a5c561934e089/System.dll.
----------------------------------------
System.Windows.Forms
Assembly-Version: 2.0.0.0.
Win32-Version: 2.0.50727.3053 (netfxsp.050727-3000).
CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/System.Windows.Forms/2.0.0.0__b77a5c561934e089/System.Windows.Forms.dll.
----------------------------------------
System.Drawing
Assembly-Version: 2.0.0.0.
Win32-Version: 2.0.50727.3053 (netfxsp.050727-3000).
CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/System.Drawing/2.0.0.0__b03f5f7f11d50a3a/System.Drawing.dll.
----------------------------------------
System.Runtime.Remoting
Assembly-Version: 2.0.0.0.
Win32-Version: 2.0.50727.3053 (netfxsp.050727-3000).
CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/System.Runtime.Remoting/2.0.0.0__b77a5c561934e089/System.Runtime.Remoting.dll.
----------------------------------------
Microsoft.VisualBasic.Compatibility
Assembly-Version: 8.0.0.0.
Win32-Version: 8.0.50727.3053.
CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/Microsoft.VisualBasic.Compatibility/8.0.0.0__b03f5f7f11d50a3a/Microsoft.VisualBasic.Compatibility.dll.
----------------------------------------
mscorlib.resources
Assembly-Version: 2.0.0.0.
Win32-Version: 2.0.50727.3053 (netfxsp.050727-3000).
CodeBase: file:///C:/WINDOWS/Microsoft.NET/Framework/v2.0.50727/mscorlib.dll.
----------------------------------------
System.Windows.Forms.resources
Assembly-Version: 2.0.0.0.
Win32-Version: 2.0.50727.3053 (netfxsp.050727-3000).
CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/System.Windows.Forms.resources/2.0.0.0_de_b77a5c561934e089/System.Windows.Forms.resources.dll.
----------------------------------------
************** JIT-Debuggen **************
Um das JIT-Debuggen (Just-In-Time) zu aktivieren, muss in der
Konfigurationsdatei der Anwendung oder des Computers
(machine.config) der jitDebugging-Wert im Abschnitt system.windows.forms festgelegt werden.
Die Anwendung muss mit aktiviertem Debuggen kompiliert werden.
Zum Beispiel:
<configuration>
<system.windows.forms jitDebugging="true" />
</configuration> |
(__/)
(O.o )
(> < ) Dies ist Häschen. Kopiere Häschen in deine Signatur, um ihm auf seiner Weise zur Weltherrschaft zu helfen.
ICQ: 356-871-657
E-Mail: poisonivy.info66@googlemail.com |
|
| |
|
|
Marduk_
« Moderator »
Anmeldedatum: 17.06.2007
Beiträge: 389
|
Verfasst am: 04.05.2009, 05:40 |
|
|
| Code: | Dim file As String = My.Application.Info.DirectoryPath & "\file.exe"
System.IO.FileNotFoundException: Die Datei "C:\Dokumente und Einstellungen\Michael\Desktop\file.exe" konnte nicht gefunden werden. |
Die Datei kann nicht gefunden werden. Entweder hast du den falschen Pfad angegeben, oder die Datei existiert noch nicht. |
|
| |
|
|
*Poison$Ivy*
Newbie
Anmeldedatum: 20.04.2009
Beiträge: 6
|
Verfasst am: 04.05.2009, 13:35 |
|
|
ja soweit war ich ja auch schon, die datei wird nicht erstellt das ist ja das problem. Meine frage an euch ist es jetzt wie bekomm ich es hin damit es funzt
(__/)
(O.o )
(> < ) Dies ist Häschen. Kopiere Häschen in deine Signatur, um ihm auf seiner Weise zur Weltherrschaft zu helfen.
ICQ: 356-871-657
E-Mail: poisonivy.info66@googlemail.com |
|
| |
|
|
*Poison$Ivy*
Newbie
Anmeldedatum: 20.04.2009
Beiträge: 6
|
Verfasst am: 04.05.2009, 13:36 |
|
|
weis ich doch, meine frage ist ja wie ich des so code dass des funktioniert
(__/)
(O.o )
(> < ) Dies ist Häschen. Kopiere Häschen in deine Signatur, um ihm auf seiner Weise zur Weltherrschaft zu helfen.
ICQ: 356-871-657
E-Mail: poisonivy.info66@googlemail.com |
|
| |
|
|
*Poison$Ivy*
Newbie
Anmeldedatum: 20.04.2009
Beiträge: 6
|
Verfasst am: 12.05.2009, 18:25 |
|
|
Hab den fehler jetzt gefunden, man muss die zeile in der stub
| Code: | | Dim file As String = My.Application.Info.DirectoryPath & "\file.exe" |
in
| Code: | | Dim file As String = My.Application.Info.DirectoryPath & "\Ghost_Writer.exe" |
umbenennen dan funktionierts
MFG *Poison$Ivy*
(__/)
(O.o )
(> < ) Dies ist Häschen. Kopiere Häschen in deine Signatur, um ihm auf seiner Weise zur Weltherrschaft zu helfen.
ICQ: 356-871-657
E-Mail: poisonivy.info66@googlemail.com |
|
| |
|
|
|
|
Registrieren
Login
