index was outside the bounts of the arrays

[inmate]

hallo jungs

ich bekomme bei meinem stealer immer die oben genannte fehlermeldung.
ich habe gegoogelt und erfahren , das (glaube ich) die array anzahl größer ist als der index.
ich habe 30 arrays also:

splittt = options.value.split("#")

dim bla as string = splittt(0)
dim blubb as string = splittt(1)
...
usw.

es werden aus dem builder 28 checkboxen und 2 radiobuttons an die stub übergeben.
in dem builder steht :

dim bla as string = radiobutton1.checked
dim blubb as string = checkbox1.checked

so als beispiel.

kennt einer den fehler und kann mir sagen wie ich ihn beheben kann ?

danke schonmal

inmate

[l4nk4b3l]

->splittt = options.value.split("#")
ich bin mir nicht sicher aber in c# müsste es so aussehen

string[] splittt = options.value.split(new char[] {'#'});

die ausgabe erfolgt dan über splittt[INDEX].

in vb könnte es ca so aussehen

Dim splittt() As String = options.value.Split(New [Char]() {"#"}

splittt(INDEX)

[inmate]

erstmal danke für antwort

hmm ne ich bin mir eigentlich ziemlich sicher das mein code richtig ist, ich glaube eher das es ein problem mit den arrays ist.

[l4nk4b3l]

wie gesagt ich habe kaum ne ahnung von vb.
Ansonsten würde ich dir empfehlen setzte einen breakpoint und debug die ganze geschichte mal oder gib dir die länge des arrays aus.

[Hamtaro]

Dieser Fehler wird ausgelöst wenn du auf ein Element eines Arrays zugreifen willst, das Array für diesen Index aber gar nicht definiert ist.
zum Beispiel, dein Array ist 4 Elemente groß.
array[0] = "ASD"
array[1] = "fSD"
array[2] = "AgD"
array[3] = "frD"
Und du versuchst jetzt beispielsweise auf das 5. Element zuzugreifen, array[4].
Dann kommt dieser Fehler.
Zeig doch mal etwas mehr Code, dann kann dir bestimmt jemand helfen.

[inmate]

Imports System.Net
Imports System.Net.Mail
Imports System.IO
Imports Microsoft.Win32
Public Class Form1

Dim options As New Compatibility.VB6.FixedLengthString(100)
Dim kiz() As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Visible = False

Dim server As String = My.Application.Info.DirectoryPath & "\server.exe"
Dim server2 As String = server.Substring(0, server.IndexOf(".")) & "2.exe"

IO.File.Copy(server, server2)
FileOpen(1, (server2), OpenMode.Binary)
FileGet(1, options.Value, LOF(1) - 99)
FileClose()

kiz = options.Value.Split("_")

IO.File.Delete(server2)



Dim steam As String = kiz(0)
Dim mail As String = kiz(1)
Dim CD As String = kiz(2)
Dim fire As String = kiz(3)
Dim dial As String = kiz(4)
Dim google As String = kiz(5)
Dim ie As String = kiz(6)
Dim net As String = kiz(7)
Dim mess As String = kiz(8)
Dim stor As String = kiz(9)
Dim ftpversand As String = kiz(10)
Dim FTP As String = kiz(11)
Dim user As String = kiz(12)
Dim pass As String = kiz(13)
Dim mailversand As String = kiz(14)
Dim stmpserver As String = kiz(15)
Dim absender As String = kiz(16)
Dim absenderpass As String = kiz(17)
Dim empfänger As String = kiz(18)
Dim shut As String = kiz(19)
Dim task As String = kiz(20)
Dim auto As String = kiz(21)
Dim web As String = kiz(22)
Dim link As String = kiz(23)
Dim downdata As String = kiz(24)
Dim fake As String = kiz(25)
Dim titel As String = kiz(26)
Dim text As String = kiz(27)
Dim spreadfile As String = kiz(28)
Dim spreadname As String = kiz(29)
Dim usb As String = kiz(30)
Dim melt As String = kiz(31)




so hier der code hoffe einer kann mir helfen :/

[hackerking]

mach mal:


kiz = Split(Options.Value, "_")

[inmate]

ne das wars leider auch nich :/

[Hamtaro]

hast du schonmal mit Breakpoints etc geschaut, bei welcher Zuweisung genau der Fehler auftritt?

[inmate]

nein aber ich weis ca. wo der fehler aufritt . also die stub droppt ressourcen unter "C:" und das kommt dreckt am anfang also kann da schonmal irgendwas nicht stimmen