Unknown

Kommt n der Fehlrmeldung auch Device Not Created 2 vor oder is das ein Fehler deinerseits ? Falss nich : Vielleicht versucht er ja auf dem sekundaeren Grafikkarten Device Direct3D zu initialisieren, anstatt den Primären Anzeigetreiber zu verwenden ?! Verscuh da was zu verändern

Bist du im 6ten Level oder hast du das 6te Level schon hinter dir ?? Wenn nich, wie willst du all die Russen erledigen am Ende des Levels ? Hingehen und sie alle mitm Ellenbogen knock outen ?? Aber :uli wenn du es schaffst

Ok ok ich glaub dir

das war nich boese gemeint aber ich denke damit weapon_knife erkannt wird brauchst du noch ne .cfg wo definiert wird was weapon_knife is (oder lieg ich da falsch ? )

die waffe bleibt natuerlich ungeladen, aber das was da geschrieben ist is ziemlich umstaendlich kann man sich auch sparen, einfacher ist entweder unter controls die lastused weapon taste zu belegen (oder in der konsole bind taste lastinv) und dann die taste 2x druecken, dann wird der nachladevorgang auch abgebrochen und man hatt die waffe noch angewaehlt. Ausserdem bezweifel ich das er weapon_knife erkennen wird, das is gar nich im spiel definiert, deshalb wird man wenn man es auf dem weg macht nur seine letzte angewahlte waffe in der hand halten

vielen dank fuer deinen Beitrag ich hab die loesung jetzt gefunden, fuer alle die es interessiert ist hier der richtige code : Option Explicit Private Sub Command1_Click() Winsock1.Close DoEvents Winsock1.Protocol = sckUDPProtocol Winsock1.RemoteHost = "62.146.198.14" Winsock1.RemotePort = 8990 Winsock1.Connect DoEvents Winsock1.SendData Chr$(255) & Chr$(255) & Chr$(255) & Chr$(255) & "infostring" & Chr$(0) End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim Data As String Winsock1.GetData Data MsgBox "Remote Host : " & Data, vbInformation, "Server" End Sub

Danke fuer den Verweis ! Der Mann wird mir sicher helfen koennen! :marine :marine

Ich bitte um Hiiiiiiiiiiiiiiilfe ich MUSS das einfach hinkriegen !!!

Es ist so, dass ich erst mal einfach so ein projekt aufgemacht hab, wo ich ein paar sachen fuer die kommunikation mit cs servern ausprobieren wollte. mein eigentliches programm was spaeter die funktion nutzen sollte, hat die funktion noch nicht implementiert. Aber ich denke, wenn ich dir mal zeige was ich ausprobiert hab kannst du mir vielleicht helfen . Private Sub Command1_Click() Winsock1.RemotePort = 8990 Winsock1.RemoteHost = "62.146.198.14" Winsock1.LocalPort = 1001 Winsock1.Bind Winsock1.SendData &HFF + &HFF + &HFF + &HFF & "ping" & &H0 End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim vData As Variant 'Muss Variant sein, da CS Server auch durchaus mit verschiedenne Datentypen antworten vData = Winsock1.GetData(vData) MsgBox "Remote Host : " & vData, vbInformation, "Server" End Sub Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean) MsgBox Number & Chr(13) & _ "Description : " & Description, vbInformation, "Error" End Sub Thx

Weiss keiner rat ???

Winsock1.RemotePort = 8990 'Kommt der richtige Port hin Winsock1.RemoteHost = 123.123.123. 'Kommt natuerlich die richtige IP hin Winsock1.Bind Winsock1.SendData &HFF + &HFF + &HFF + &HFF & "infostring" & &H0 'Infostring wird durch den Befehl ersetzt Jetzt sollte der CS Server im Data Arrival Ereignis irgendwas antworten, auch wenns nur ein "?" ist, aber er reagiert ja nicht mal !!!

dachte das hätt ich, aber als n00b hab ich wohl was falsch gemacht

Kann mi vielleicht jemand helfen, ich wuerd naemlich gern wissen wie ich einen cs server dazu bringe mir infos zu schicken (spieler,map etc.) ich weiss wie das eigentlich ablaufen soll Man muss erst 4 x Bytes mit dem Wert 255 dann einen string mit dem befehl und dann einen ZeroByte schicken. Schoen und gut aber leider funktinackelt das in der Praxis net ! Weiss jemand antwort ? Ich versuch das in VB und logischerweise mus man das mit Winsock machen Thx im Vorraus

Man kann höchstens das anschruaben vom Schalldäpfer beschleunigen. Einfach Schalldämpfer anschauebn, dann zu einer anderen Waffe wechslen, dann wieder Waffe mit Schalddämpfer anwählen und schon is der Schalldämpfer druff !