|
| Autor |
Nachricht |
BAXX_
Newbie
Anmeldedatum: 14.01.2008
Beiträge: 7
Wohnort: BW/HE
|
ListBox Daten schicken
Verfasst am: 09.04.2008, 16:57 |
|
|
Hallo,
Ich code gerade ein RAT und möchte gerne alle Prozesse sehen.
Ich bin soweit, dass die Prozesse beim Server in einer ListBox angezeigt
werden, aber ich schaffe es nicht, mir diese Daten über Winsock zu schicken.
Code bis jetzt:
Server:
| Code: |
' Data Arrival
Dim befehl As String
ws1.GetData befehl
Select Case befehl
Case "refreshtask":
List1.Clear
Call GetExeNames 'ruft die funktion auf,welche die tasks in die list1 schreibt
Dim tsklist As String
tsklist = List1.Text
ws1.SendData "tsklist" & tsklist
End Select
End Sub
|
Client:
| Code: |
' DataArrival
Select Case
Case "Prozesse":
Dim tsklist As String
ws5.GetData "tsklist"
List1.Clear
List1.AddItem tsklist
End Select
|
Vielleicht wisst ihr ja, warum die Prozesse beim Client nicht angezeigt werden 
mfg BAXX |
|
| |
|
 |
Marduk_
« Moderator »
Anmeldedatum: 17.06.2007
Beiträge: 389
|
Verfasst am: 09.04.2008, 17:04 |
|
|
| Mit tsklist = List1.Text kannst du nicht den Inhalt der Listbox abfragen, das sollte irgendwie mit list1.items(i).text oder so gehen. Du musst also per Schleife durch die Listbox jedes Item abfragen und an einen String anhängen, den kannst du dann verschicken. Am Ende splittest du den String wieder und fügst ihn wieder der Listbox hinzu |
|
| |
|
|
BAXX_
Newbie
Anmeldedatum: 14.01.2008
Beiträge: 7
Wohnort: BW/HE
|
Verfasst am: 09.04.2008, 17:19 |
|
|
ich habe leider keine ahnung wie ich an so eine Schleife rangehen
soll...
wäre das ganze mit ListView einfacher oder komme ich um die Schleife nciht herum? |
|
| |
|
|
jojo4ever_
Poster
Anmeldedatum: 22.07.2007
Beiträge: 108
|
Verfasst am: 09.04.2008, 18:20 |
|
|
| Code: |
For i = 0 to List1.ListCount - 1
blub
Next i
|
Zuletzt bearbeitet von jojo4ever_ am 09.04.2008, 18:21, insgesamt einmal bearbeitet |
|
| |
|
|
DFJ_
Poster
Anmeldedatum: 15.10.2007
Beiträge: 156
|
Verfasst am: 09.04.2008, 18:20 |
|
|
das problem was du hats ist eigendlich einfach
| Code: |
dim i as interger
dim k ass interger
dim speicher() as string
For i = 0 To List1.ListCount - 1
text1.text = list1.list(i) & "/" vbcrlf
' so könnte man sie in eine variabek bekommen
speicher = split(text1.text, vbnewline)
for k = 0 to ubound(speicher)
winsock1.senddata speicher(k)
next k
Next i
|
so bekomst sie in eine variabel
im clienten oder server
winsock1.getdata daten
dim laden() as string
laden = split(daten, "/")
text1.text = laden(1)
fertig so
meine frage wie kann mein array kleiner machen der keine größe hat auser natürlich ubound
Spam bot |
|
| |
|
|
Rausch_
Poster
Anmeldedatum: 03.11.2007
Beiträge: 164
|
Verfasst am: 09.04.2008, 18:46 |
|
|
mach das ganze doch ohne list.
einfach da wo du die daten in die list schreibst, hängst du sie an einen string an, und am ende sendest du diesen. |
|
| |
|
|
BAXX_
Newbie
Anmeldedatum: 14.01.2008
Beiträge: 7
Wohnort: BW/HE
|
Verfasst am: 09.04.2008, 19:15 |
|
|
 Danke für die Hilfe !
Mit dem Tipp von Rausch hats funktioniert 
mfg BAXX |
|
| |
|
|
DFJ_
Poster
Anmeldedatum: 15.10.2007
Beiträge: 156
|
Verfasst am: 09.04.2008, 22:53 |
|
|
trotzem besteht meine frage wue grenzt man ein array ein der arry ubund ist
ps: bin besoffen
Spam bot |
|
| |
|
|
ZiG_
Überflieger
Anmeldedatum: 07.03.2007
Beiträge: 1248
|
Verfasst am: 10.04.2008, 08:44 |
|
|
Ein Array kleiner machen?
Redim Array()
bzw.
Redim Preserve Array() 'Behält die Daten im Array
| Code: | | der keine größe hat auser natürlich ubound |
Was soll das bedeuten?
Wenn das Array nicht dimensioniert ist, wird dir Ubound nen fetten Fehler verursachen.
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde) |
|
| |
|
|
DFJ_
Poster
Anmeldedatum: 15.10.2007
Beiträge: 156
|
Verfasst am: 10.04.2008, 09:48 |
|
|
also ich versuche es mal zu erklären .
#####
| Code: |
dim speicher() as string
For i = 0 To List1.ListCount - 1
speicher(i) = List1.List(i)
Next i
|
So : was versuche ich , ich versuche das eine variabel eine list bekomme bzw. eine zeile aus der listbox1. Da aber ich "ja" nicht weiß wie viel einträge die listbox hat , kann ich "ja" den array von speicher nicht dimensionieren.
Nun kann man es ja ohne array machen das sehe dann so aus
| Code: |
speicher = speicher & List1.List(i) & ","
|
das ganze würde ich dann so aus sehn
| Code: |
dim speicher as string
dim i as interger
For i = 0 To List1.ListCount - 1
speicher = speicher & List1.List(i) & ","
Next i
|
nun kann man die variabel speicher versenden über winsock.
| Code: |
Winsock1.senddata speicher
|
Im Server oder Im Clienten
kommt nun die Variabel speicher an
So das zwischen jeden eintrag von der listbox ein "," ist
dieses können wir dann spliten
| Code: |
dim auslesen()as string
dim daten as string
winsock1.getdata = Daten
auslesen = split(daten,",") |
So nun kann man jede einzelnen eintrag von der listenbox im server oder clienten aufrufen von einer variabel.
Dieses ist natürlich eine optimale lösung um eine listbox zu versenden und zu entfangen, meine frage besteht aber darain
Das ich eine undimisionale array ,dimensionieren will.
Danke zig im vorraus habe nach redim gesucht aber habe das ehrlich nicht verstanden
gruß
DFJ
Spam bot |
|
| |
|
|
ZiG_
Überflieger
Anmeldedatum: 07.03.2007
Beiträge: 1248
|
Verfasst am: 10.04.2008, 10:09 |
|
|
| Zitat: | | Da aber ich "ja" nicht weiß wie viel einträge die listbox hat , kann ich "ja" den array von speicher nicht dimensionieren. |
Und .ListCount hilft dir da nicht weiter?
| Code: |
Dim speicher() as string
Redim speicher(List1.ListCount - 1)
|
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde) |
|
| |
|
|
Registrieren
Login
