emrah sende olmasan işimisiz harap bu aralar fazla takılamıyorum bir kaç dk girip çıkıyorum sen halledebilirsen hacktion@mynet.com a yolla burada yayınlarsan daha iyi olur arkadaşlar da faydalanır ama dediğim gibi burda olursa ben fazla giremediğimden çok zor ulaşır bana wardom messenger yolda

Evet BÖle BİrŞeydİ Bİna Dİkmek İÇİn Temel Gereklİydİ SaĞolasin Karma

şimdi bu iki pc arasında çalışıyo. tek pc çalıştırmak için 2 defa açmalısın. şimdi 2 tane açıyosun. ikisinede nick yazıosun farklı. sonra biri server olucak. server butonuna bas. diğerinede ip adresi kısmına 127.0.0.1 yaz (aynı pc de olduğu için 127.0.0.1) ondan sonra bağlan de. bağlanıyo! ondan sonra mesajlaşa biliosun. titreşim gönderebiliyosun. farklı iki pc arasında yapcaksan ip kısmına o pc nin ip sini yazcaksın öyle oluyo. :S bilmiom istedin böle bişeymiydi!

ARKADAŞLAR ELİMDE HAZIR KODLAR VAR AMA PROĞRAM OLARAK ÇIKARAMIYORUM NERE DE BİR SORUN VAR ANLAYAMADIM BİR BAKARMISINIZ BEN BİR SÜRE NETTE OLAMICAM ÇIKARABİLEN ARKADAŞ hacktion@mynet.com ADRESİME YOLLARSA PROĞRAM OLARAK ÇOK SEVİNİRİM GELDİĞİMDE ALIRIM KODLAR BURDA: Option Explicit Dim received As String, received2 As String Dim oldLeft As Integer, oldTop As Integer Dim kiprama As Integer Dim pPort As Integer Private Sub Client1_Close Command2. Enabled = True End Sub Private Sub Client1_Connect Text1. Text = Text1. Text & "Karşı Tarafa Bağlanıldı. " & Now & vbCrLf Command2. Enabled = False End Sub Private Sub Command1_Click Command1. Default = True If Client1. State = sckConnected And Trim(Text2) <> "" Then Client1. SendData "MSG" & Text4. Text & ">" & Text2. Text & vbCrLf TxGelen. Text = TxGelen. Text & Text4. Text & ">" & Text2. Text & vbCrLf Text2. Text = "" End If Text2. SetFocus End Sub Private Sub Command2_Click Client1. RemoteHost = Text3. Text Client1. RemotePort = pPort Client1. Connect End Sub Private Sub Command3_Click If Client1. State = sckConnected Then Client1. SendData "CMD01" & vbCrLf Text1. Text = Text1. Text & "Titreşim Gönderdiniz.." & Now & vbCrLf End If Text2. SetFocus End Sub Private Sub Form_Load Randomize Timer pPort = 1498 Server1. LocalPort = pPort Server1. Listen Text1. Text = Server1. LocalPort & ". portta hazır.." & vbCrLf End Sub Private Sub Server1_Close Client1. Close Server1. Close Server1. Listen End Sub Private Sub Server1_Connect Text1. Text = Text1. Text & Server1. RemoteHost & " Bağlandı. " & Now & vbCrLf End Sub 'Public frm1 As Form1 Private Sub Server1_ConnectionRequest If Server1. State <> sckConnected Then Server1. Close Server1. Accept requestID Command2. Enabled = False Text1. Text = Text1. Text & requestID & " Id ile bağlantı alındı. " & Now & vbCrLf ' Dim frm1 As New Form1 ' pPort = pPort + 1 ' frm1. Show If Client1. State = sckClosed Then Client1. RemoteHost = Server1. RemoteHostIP Client1. RemotePort = pPort Client1. Connect End If End If End Sub Private Sub Server1_DataArrival Dim tmp_received As String Server1. GetData tmp_received received = received & tmp_received tmp_received = "" If InStr > 0 Then tmp_received = Left(received, InStr - 1) received = Mid(received, InStr + 2) End If ' If tmp_received <> "" And Len < 4 Then Server1. Close ' Protocol e uymadığın için bağlantıyı kestik.. If tmp_received <> "" Then Select Case UCase(Left(tmp_received, 3)) Case "MSG": TxGelen. Text = TxGelen. Text & Mid(tmp_received, 4) & vbCrLf Case "CMD": Call KomutIsle(Mid(tmp_received, 4)) Case Else: Server1. Close End Select End If End Sub Private Sub Text1_Change Text1. SelStart = Len(Text1. Text) End Sub Private Sub Text1_KeyPress KeyAscii = 0 ' Değiştirilememesi için End Sub Private Sub Text4_LostFocus If Text4. Text = "" Then Text4. Text = "Guest" & Int(Rnd 18000) End Sub Private Sub Timer1_Timer kiprama = kiprama + 1 Left = Left - Rnd 100 Top = Top + Rnd 177 Left = Left + Rnd 100 Top = Top - Rnd 177 If kiprama = 38 Then Timer1. Enabled = False: kiprama = 0: Form1. Left = oldLeft: Form1. Top = oldTop End Sub Private Function KomutIsle Select Case cmd Case "01" oldLeft = Left: oldTop = Top: Timer1. Enabled = True Text1. Text = Text1. Text & "Bir Titreşim Aldınız.." & Now & vbCrLf Case Else: End Select End Function Private Sub TxGelen_Change TxGelen. SelStart = Len End Sub '''''''''''' ' msg = mesaj ' cmd = komut ''''''''''''

KardeŞ Ugulama Derdemez O Yazi Çikiyor

sağol kardeş indişrdim ama kullanamadım ingilizce üyelik yanlışmı ne o tip bişi diyor

sanırım msn gibi bişey :s iki bilgisayar arasında oluyo tabi. ben bi bakıyım yapabilirsem koyarım Hatta bi kaç kişi toplanıp kendi msn imizi yapalım

hımm ya ben ufak bişey yapmıştım verdin kodlara göre onu zipleyim koyyim şimdi! dur gitme hemen EDİT : Tamam indirmek için Tıkla! takıldıın anlamadın yeri yazarsın buraya! bide aslında şöle bize özel msn gibi bişey yapmak istiyorum. ama okul yüzünden fazla uğraşamıyorum. dersler çok ağır. ama başladğımda felan haber veririm. -