vb6 error '9'

[Baal]

Hallo ich hab wieder n' problem: also meinen stub:
hier is der code:

Private Sub Form_Load()
Dim BinStr() As String

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

Text1.Text = Split(BinStr, "(Dil)")(1)
Text2.Text = Split(BinStr, "(Dil)")(2)
Text3.Text = Split(BinStr, "(Dil)")(3)
End Sub

Da kommt folgender fehler. Ich hoffe ihr könnt mir helfen....ICH finde dort keinen fehler :O

[100]

Wie gesagt Quelltexte ausm Internet saugen und irgendwie zusammenwürfeln um am Ende nach 3 Monaten nen Trojaner rauszubekommen ist nicht.. also für mich siehts recht einfach aus..
Oben wird BinStr als Array deklariert (musst mal nachlesen was nen Array ist)
Und die Methode Split verlangt EINEN Ausdruck.. d.h. du müsstest.. ach weißt du was du musst dich erstmal über Arrays informieren und dann wirste zur Lösung kommen - das ist mir ein bischen zu blöd-.-

[Baal]

Wenn du keine antwort auf meine frage hast dann poste erst garnicht.

[100]

Hab eine gebracht schatz du brauchst EINEN Ausdruck..

In einem Array sind mehrere Werte gespeichert.. das heißt du würdest den Fehler vermeiden wenn du schreiben würdest
XX(1) oder warens eckige Klammern?.. glaube runde
Allerdings weiß ich nicht welchen Index du nehmen musst das müsstest du schon selber wissen ist ja schließlich DEIN Programm....

[Baal]

-die klammern bei mir sind rund.
-und die (1)
hab ich alles

[100]

Im Screenshot aber nicht? :surprised
Oder sind das die (1) ganz am Ende? Wenn ja sowas hab ich noch nie gesehen..

[Baal]

mach mal rechtsklick auf das bild und dann im tab öffnen dort siehste das bild scharf

[100]

Betrachten wir folgende Zeile:
Text1.Text = Split(BinStr, "(Dil)")(1)
für mich sähe ein Array so aus
Text1.Text = Split(BinStr(1), "(Dil)")(1)

[Baal]

habs versucht jez kommt runtime error 13

[inmate]

Probier es mal so:

Private Sub Form_Load()
Dim sStub as string
Dim sKey as string
Open App.Path + "\" & App.EXEName & ".exe" For Binary As #1
sStub = Space(LOF(1))
Get #1, , sStub
Close #1

sKey  = "(Dil)"

text1.text = split(sStub,sKey)(1)
text2.text = split(sStub,sKey)(2)
text3.text = split(sStub,sKey)(3)



End Sub

Achja: Vielleicht solltest du mal lernen und nicht die ganzen codes kopieren.
Das ist nicht deine Stub sondern die von einem Crypter von HackHound.