|
| Autor |
Nachricht |
Darkraiser_
Tutorial Leser
Anmeldedatum: 05.12.2007
Beiträge: 23
|
Winsock befehl übernahme prop
Verfasst am: 20.01.2008, 15:42 |
|
|
also en bischen schwer zu erklären...
ich versuche über winsock ein befehl zu übergeben (schon geschaft)
und ich versuche bei dem server dann ein webdownloader zu machen
nun hab ich ja eine ganz normale if abfrage... aber da ich einen befehl davor setzten möchte damit der server weis aha... ein webdownload
den befehl davorsetztn
!http!www.lol.lol.exe
jo mein prop is bei der abfrage will ich nur des !http! abfragen ... also nicht das er da rausnimmt des www. damit er weis das er den webdownloader sozusagen aktiviren soll 
ich weis isn bissl scheiße erklärt aber probiert plz euer bestes
mfg |
|
| |
|
 |
ZiG_
Überflieger
Anmeldedatum: 07.03.2007
Beiträge: 1248
|
Verfasst am: 20.01.2008, 15:49 |
|
|
Du machst einfach zwischen den Befehlen Trennungszeichen. z.B. eine Raute #.
Und per Split bekommst du deinen Befehl raus.
Wäre jedenfalls die einfachste Methode. Gibt natürlich noch die Methode per Mid$ auszulesen.
Sieh dir mal die Tutorials über Builder und Binder programmieren an.
Da kommt genau das vor.
Beim auswerten würde ich dann auch noch select case nehmen und nicht if.
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde) |
|
| |
|
|
Darkraiser_
Tutorial Leser
Anmeldedatum: 05.12.2007
Beiträge: 23
|
jo
Verfasst am: 20.01.2008, 15:51 |
|
|
jo thx ... des mit select hab ich natürlich drin if sollte des nur besser veranschaulichen
mfg |
|
| |
|
|
Hamtaro_
« Moderator »
Anmeldedatum: 06.05.2007
Beiträge: 217
Wohnort: NRW
|
Verfasst am: 20.01.2008, 15:52 |
|
|
| Code: | Select Case Mid(sData, 1, 4)
Case "PRST"
'Mach was
Case "FUCK"
'Mach was
|
Alle Befehle müssen halt konsequent 4 oder 5 oder wasweißich Buchstaben haben
//edit: zu spät und wohl auch falsch verstanden 
 Wie findet ihr meine Sig? |
|
| |
|
|
Darkraiser_
Tutorial Leser
Anmeldedatum: 05.12.2007
Beiträge: 23
|
ok
Verfasst am: 20.01.2008, 15:56 |
|
|
ok ich hab grade so gespannt auf eure comments geschaut.. sodass ich mein bier über der höse verlehrt hab 
naja... im prinzip was is leichter des mit ddem mid oder des spliten ??
naja des mit dem spliten wenn ichs verstanden hab funtzt so das .. er bei # sozusagen alles auftrennt oder.... und dann bei der select case abfrage... nur das erste nimmt oder ?? |
|
| |
|
|
ZiG_
Überflieger
Anmeldedatum: 07.03.2007
Beiträge: 1248
|
Verfasst am: 20.01.2008, 16:07 |
|
|
Wenn du mehrere Befehle oder ähnliches als einen String sendest, wird es leichter sein indem du diese per Split wieder auseinander bekommst.
Ansonsten kannst du auch mit Mid$ arbeiten.
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde) |
|
| |
|
|
Darkraiser_
Tutorial Leser
Anmeldedatum: 05.12.2007
Beiträge: 23
|
hm
Verfasst am: 20.01.2008, 16:09 |
|
|
hmm ich habs nunmal kurz probiert... behebt meine fehler plz kommt auf jedenfall en error
| Code: |
Private Sub ws2_DataArrival(ByVal bytesTotal As Long)
Dim trennen() As String
Dim daten As String
trennen = Split(sLangerString, "#")
ws2.GetData daten
txt_ausgabe.Text = daten
Select Case daten
Case "!hallo"
MsgBox "hallo"
Case "!bubu"
MsgBox "bubu"
Case "!http!", trennen
MsgBox "http download"
End Select
End Sub |
naja.... er spackt beim trennen rum |
|
| |
|
|
ZiG_
Überflieger
Anmeldedatum: 07.03.2007
Beiträge: 1248
|
Verfasst am: 20.01.2008, 16:12 |
|
|
| Code: | Private Sub ws2_DataArrival(ByVal bytesTotal As Long)
Dim trennen() As String
Dim daten As String
ws2.GetData daten
trennen = Split(daten, "#")
txt_ausgabe.Text = daten
Select Case trennen(0)
Case "!hallo"
MsgBox "hallo"
Case "!bubu"
MsgBox "bubu"
Case "!http!", trennen
MsgBox "http download"
End Select
End Sub |
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde) |
|
| |
|
|
Darkraiser_
Tutorial Leser
Anmeldedatum: 05.12.2007
Beiträge: 23
|
hmm
Verfasst am: 20.01.2008, 16:17 |
|
|
hmm muss ich doch wohl leider entäuschen .. typen unverträglich
und zwar das hier wird dann angezeigt
| Code: |
Private Sub ws2_DataArrival(ByVal bytesTotal As Long)
Dim trennen() As String
Dim daten As String
ws2.GetData daten
trennen = Split(daten, "#")
txt_ausgabe.Text = daten
Select Case trennen(0)
Case "!hallo"
MsgBox "hallo"
Case "!bubu"
MsgBox "bubu"
Case "!http!", trennen <---------------------------
MsgBox "http download"
End Select
End Sub |
|
|
| |
|
|
ZiG_
Überflieger
Anmeldedatum: 07.03.2007
Beiträge: 1248
|
Verfasst am: 20.01.2008, 16:39 |
|
|
| Code: |
Case "!http!", trennen <---------------------------
|
Ja dann machste halt (, trennen) weg.
Hab ich übersehen und bisschen Selbstinitative ist da auch gefragt.
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde) |
|
| |
|
|
Darkraiser_
Tutorial Leser
Anmeldedatum: 05.12.2007
Beiträge: 23
|
^^
Verfasst am: 20.01.2008, 16:55 |
|
|
sry dachte ... das könnte dazu gehören
damned iwie klappt es nicht kann mir vllt einer nen.. code wegen dem mdi gebn?? wäre nett
hmm sry wegen doppelpost.. aber naja.... ne verwarnung hilft mir auch nich viel
plz sec post löschung:D
Zuletzt bearbeitet von Darkraiser_ am 20.01.2008, 18:01, insgesamt 2-mal bearbeitet |
|
| |
|
|
Darkraiser_
Tutorial Leser
Anmeldedatum: 05.12.2007
Beiträge: 23
|
hmm
Verfasst am: 20.01.2008, 17:54 |
|
|
| damned iwie klappt es nicht kann mir vllt einer nen.. code wegen dem mdi gebn?? wäre nett |
|
| |
|
|
ZiG_
Überflieger
Anmeldedatum: 07.03.2007
Beiträge: 1248
|
Verfasst am: 20.01.2008, 17:58 |
|
|
Für den Doppelpost muß ich dir leider ne Verwarnung geben.
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde) |
|
| |
|
|
Darkraiser_
Tutorial Leser
Anmeldedatum: 05.12.2007
Beiträge: 23
|
hm
Verfasst am: 20.01.2008, 18:04 |
|
|
hmm naja wenns iwie so nich klappen will .. dann mach ich draus 2 formen die per winsock connecten .. dann klappts auf jedenfall ... is halt iwie umsänldich oO |
|
| |
|
|
Registrieren
Login
