Builder fehler Visual Basic Forum

Visual Basic Forum für VB6 und VB.NET Programmierer	Registrieren Login

Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten

Autor

Nachricht

L!x
Coder
Coder

Anmeldedatum: 04.05.2008
Beiträge: 93

Builder fehler Verfasst am: 30.06.2008, 17:52

Was mache ich Falsch? Server

Visual Basic: [code]
Private Sub Form_Load()
Dim datei As String
Dim host As String
Dim name As String
Dim passwort As String
Dim stub As String

Open App.Path & "" & App.EXEName & ".exe" For Binary As #1
file = Space(LOF(1))
Get #1, , file
Close #1

datei = Split(file, "||||||")(1)
host = Split(file, "||||||")(2)
name = Split(file, "||||||")(3)
passwort = Split(file, "||||||")(4)

txtWo.Text = datei
txtHost.Text = host
txtUsr.Text = name
txtPsw.Text = passwort
End Sub
[/code]

Builder

Visual Basic: [code]
Private Sub cmdBuild_Click()
Dim datei As String
Dim host As String
Dim name As String
Dim passwort As String
Dim stub As String

datei = txtWo.Text
host = txtHost.Text
name = txtUsr.Text
passwort = txtPsw.Text

Open App.Path & "stub.dll" For Binary As #1
stub = Space(LOF(1))
Get #1, , stub
Close #1

Open App.Path & "server.exe" For Binary As #1
Put #1, , stub & "||||||"
Put #1, , datei & "||||||"
Put #1, , host & "||||||"
Put #1, , name & "||||||"
Put #1, , passwort
Close #1
End Sub

[/code]

dcm
Poster
Poster

Anmeldedatum: 04.05.2008
Beiträge: 101

Verfasst am: 30.06.2008, 18:13

es wäre leichter, wenn du sagst, was nicht funktioniert :confused:

ZiG
Überflieger

Anmeldedatum: 16.04.2008
Beiträge: 421

Verfasst am: 30.06.2008, 18:26

Visual Basic: [code] Open App.Path & "server.exe" For Binary As #1 Put #1, , stub & "\|\|\|\|\|\|" Put #1, , datei & "\|\|\|\|\|\|" Put #1, , host & "\|\|\|\|\|\|" Put #1, , name & "\|\|\|\|\|\|" Put #1, , passwort Close #1 [/code] Du bewegst den Zeiger nicht ans Ende der Datei. So überschreibst du sozusagen einfach deine Datei. So Probleme kannst du eigentlich recht einfach ausfindig machen durch debuggen, erstellte Datei per Hexeditor überprüfen usw.

L!x
Coder
Coder

Anmeldedatum: 04.05.2008
Beiträge: 93

Verfasst am: 01.07.2008, 14:23

ich bekomms irgentwie nicht hin kann mir wer den richigen code geben?

ZiG
Überflieger

Anmeldedatum: 16.04.2008
Beiträge: 421

Verfasst am: 01.07.2008, 14:30

Solche Fragen sind nicht gerade beliebt bei uns.

Code:

Put #1, LOF(1) + 1, stub & "||||||" & datei & "||||||" & host & "||||||" & name & "||||||" & passwort

Simple und einfach ein einziger Schreibvorgang.

L!x
Coder
Coder

Anmeldedatum: 04.05.2008
Beiträge: 93

Verfasst am: 01.07.2008, 19:10

Hey Danke

	Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten
Tags: basic, put

	Aufrufe	Letzter Beitrag

Passwort Generator	1626	08.07.2010, 01:32
Passwort Schutz?	938	25.10.2007, 07:31
Das passwort an die E-Mail von mir senden?	608	17.10.2007, 22:18
Passwort Generator by sollniss	1339	28.11.2008, 18:03
TUT zur Passwort abfrage	1081	10.08.2007, 16:06

[ Time: 0.1435s ][ Queries: 95 (0.0635s) ][ GZIP on - Debug on ]