Visual Basic Forum

nom_ · Banned Anmeldedatum: 15.09.2007 Beiträge: 75

Hi
Ich will nen Error Message Maker programmieren und habe das hier:

server.exe
[vb:1:5ca4a2a789]
Private Sub Form_Load()
Me.Visible = False
Me.Hide
App.TaskVisible = False
Dim file As String, options As String * 100, cmd() As String
file = (App.Path & "\" & App.EXEName & “.exe”)
Open file For Binary As #1
Get #1, (LOF(1) - 99), options
cmd() = Split(options, "#")
MsgBox cmd(0), cmd(1), cmd(2)
End Sub
[/vb:1:5ca4a2a789]

Hauptprogramm:
[vb:1:5ca4a2a789]
Private Sub cmd_build_Click()
Dim typ As String
Dim options As String * 100
If opn_crit.Value = True Then
options = txt_title.Text & "#" & "vbcritical" & "#" & txt_message.Text & "#"
ElseIf opn_info.Value = True Then
options = txt_title.Text & "#" & "vbinformation" & "#" & txt_message.Text & "#"
ElseIf opn_normal.Value = True Then
options = txt_title.Text & "#" & "vbokonly" & "#" & txt_message.Text & "#"
Else
MsgBox "Bitte Typ definieren", vbCritical + vbOKOnly, "Fehler"
End If

Open (App.Path & "\server.exe") For Binary As #1
Put #1, LOF(1) + 1, options
Close #1

Dim buffer As String
Open (App.Path & "\stub.dll") For Binary As #1
Open (App.Path & "\server.exe") For Binary As #2
buffer = Space(LOF(1))
Get #1, , buffer
Put #2, , buffer
Close

End Sub

Private Sub Form_Load()
Kill "server.exe"
Dim buffer() As Byte
buffer = LoadResData(101, "CUSTOM")
Open (App.Path & "\server.exe") For Binary As #1
Put #1, , buffer
Close #1
End Sub
[/vb:1:5ca4a2a789]

und bekomme nen error:

Laufzeitfehler '424'
Objekt erforderlich.

Die ganzen infos sind schon am server hinten dran.

mfg
nom

ZiG_ · Überflieger Anmeldedatum: 07.03.2007 Beiträge: 1248

Hab mir jetzt nicht alles angesehen, aber was mir gleich aufgefallen ist, da ich auch mal sowas gecodet hab ist diese Zeile:

[vb:1:2f21a49755]
MsgBox cmd(0), cmd(1), cmd(2)
[/vb:1:2f21a49755]

Du kannst für die Art der MsgBox keine Variable übergeben.
Also vbOkOnly usw geht da nicht.
Höchstens die Nummer kannst du evt. übergeben, aber was ich mich so errinnern kann geht das auch nicht.

Mußte wohl mit einer select case Abfrage lösen.
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)

nom_ · Banned Anmeldedatum: 15.09.2007 Beiträge: 75

Fehler ist weg aber Message kommt immer noch nicht...
Hab versucht mit select case: geht net. Keine Message
dann das er immer vbcritical macht: geht net. Keine Message

Die Fehlermeldung ist bei beiden weg.

Kann mir einer helfen?

mfg
nom

ZiG_ · Überflieger Anmeldedatum: 07.03.2007 Beiträge: 1248

Wie wärs wenn du einfach mal selbst überprüfen würdest was der server eigentlich ausliest und dann mit den ausgelesenen Daten macht?

Im Clienten kannst du einfach debuggen.
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)

nom_ · Banned Anmeldedatum: 15.09.2007 Beiträge: 75

Client debugge ich ja und da ist nix und mitm server ansicht geht ja alles aber wenn ich dann auf msgbox umsteige macht er nix also blöd bin ich net Wink

ZiG_ · Überflieger Anmeldedatum: 07.03.2007 Beiträge: 1248

[vb:1:9af463e18d]file = (App.Path & "\" & App.EXEName & “.exe”)[/vb:1:9af463e18d]

Schonmal überprüft ob sich der server überhaupt selbst öffnen kann?
Die Anführungsstriche bei exe sehen iwie falsch aus.
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)

nom_ · Banned Anmeldedatum: 15.09.2007 Beiträge: 75

mom

wenns daran liegt/lag.

ZiG_ · Überflieger Anmeldedatum: 07.03.2007 Beiträge: 1248

Das erstellen der options ist übrigens auch falsch.
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)

nom_ · Banned Anmeldedatum: 15.09.2007 Beiträge: 75

?? versteh ich nicht was meinst du?

ZiG_ · Überflieger Anmeldedatum: 07.03.2007 Beiträge: 1248

Ganz einfach.
Du übergibst an die Variable options den Text so:

nom_ · Banned Anmeldedatum: 15.09.2007 Beiträge: 75

so es lag an den Anführungszeichen und das mit dem übergeben hab ich auch gemerkt ^^ thx kann geclosed werden.

exe-cute_ · Poster Anmeldedatum: 21.10.2007 Beiträge: 154

ZiG_ · Überflieger Anmeldedatum: 07.03.2007 Beiträge: 1248

Ist nicht nur uralt sondern nom ist auch gesperrt.

closed
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)