Visual Basic Forum

Sniper · Newbie Anmeldedatum: 24.07.2008 Beiträge: 9

Hallo,
undzwar verstehe ich noch immer nicht wie das mit dem Builder klappt. Ich habe zwar das Tut durch gelesen aber irgendwie versteh ichs nicht.
Ich habe eine Form daruf sind mehrere Textboxen plaziert, wie URL; Name; Passwort...

Visual Basic: [code]
Open "datei.txt" For Append As #1
Print #1, "Der Text:", txtText.Text
Close #1

Dim A As String
Dim B As String

With Inet1
.AccessType = icUseDefault
.Protocol = icFTP
.RemotePort = txtPort.Text
.URL = txtUrl.Text
.UserName = txtName.Text
.Password = txtpass.Text

A = "datei.txt"
B = "datei.txt"

.Execute , "PUT " & A & " " & B
End With

[/code]

Ich möchte jetzt wenn ich auf Build klicke das wie im Tut ein server erstellt wird. Und der Code wie oben rein getan wird halt ausgefüllt ohne txtName.Text sondern richtig was im feld steht dasn staht da im server z.b.
Visual Basic: [code].UserName = "Sniper"[/code]

Ich hoffe ihr versteht mich.

MfG Sniper

ZiuX · « Moderator » Anmeldedatum: 02.05.2008 Beiträge: 160

hm?

Du musst das Inet steuerelement doch in den server packen, also in die server.exe und die server .exe musst du als Resource anhängen;)
ließ dir das Tut lieber noch mal genau durch, du hast das glaube ich noch nicht so direckt verstanden Wink

Du hast die Server.exe, darin werden am anfang die (verdammt mir fällt das wort nicht ein -.-) tjoa "Parameter" abgerufen und anstat das da dann steht
z.B. Visual Basic: [code].UserName = Text1.Text[/code]
muss da dann stehen

Visual Basic: [code].UserName = sUsername[/code]
Und dann musst du im Builder hallt einen Wert für "sUsername" (String) angeben.

Das war irgendwie grob und scheisse erklärt xD aber ich hoffe du hast es so ungefähr verstanden Wink

lg mkm
ziux[ät]jabber.ccc.de
Z1uX.cn

Sniper · Newbie Anmeldedatum: 24.07.2008 Beiträge: 9

Wenn ich dir keine Umstände macht könntest du mir villeicht ein projekt damit machen dan hab ich was vor Augen und versuch es so besser zu verstehen.

MfG Sniper

^^kev#### · Verfasst am: 24.07.2008, 18:56

Wir sind hier kein pscode.com [img]/ohmy.gif[/img]

ZiuX · « Moderator » Anmeldedatum: 02.05.2008 Beiträge: 160

Builder:
Visual Basic: [code]Private Sub build(pfad As String)
Dim buffer() As Byte, options As String * 100
buffer = LoadResData(101, "CUSTOM")

Open pfad For Binary As #1
Put #1, , buffer()
Close #1

options = Text1.Text & "#" & Text2.Text & "#" & Text3.Text & "#"

Open pfad For Binary As #1
Put #1, LOF(1) + 1, options
Close #1
End Sub[/code]
Wird die jetzt klar, wie du den Server machen musst? Wink

lg mkm

// LOL LOL WTF - Code von enzym editiert (wahr yah furchbahr) :>
ziux[ät]jabber.ccc.de
Z1uX.cn

Sniper · Newbie Anmeldedatum: 24.07.2008 Beiträge: 9

Jo danke ich versuchs mal hoffe es klappt Smile

...

big earl · Poster Anmeldedatum: 01.05.2008 Beiträge: 113

lol enzym ... x'D

also damıt ısses nıcht getan, du musst dıe Daten mıt dem Server noch empfangen

bın grad net zuhause, edıt dann nacher

ZiuX · « Moderator » Anmeldedatum: 02.05.2008 Beiträge: 160

hba ich ihm doch shcon gesagt ^^
und enzym labert mal wieder Wink

der kleine dings :p
der war formatiert, der code ^^

lg mkm
ziux[ät]jabber.ccc.de
Z1uX.cn