20-04-2009, 14:13
Kesinlikle kendi yazımdır alıntı,çalıntı yoktur!
html,php,asp,VB.NET, Delphi, C++'den sonra VB6'yada elimi attım. VB.Net'in eziği ama daha daha iyisi
VB.Net'te daha çok araç var ama VB6'da bunları kodlarla sağlayabiliyoruz ve VB6'nın eklentileri daha güzel
Yazı: x3uqm4
Dil: Visual Basic 6
Link koyardım fakat deneme versionunu internette bulamadım hep full version var :mrgreen:
Başlayalım...
[COLOR="DarkOrange"]1. VB6'yı açıyoruz. Yeni projemiz Standart EXE
2. Üstteki menüden Components'i seçin
3. Açılan pencerede Microsoft Winsock Control (SP6)'yı seçiyoruz. (Tik koyalım) ve tamam'a tıklayalım.
4. Þimdi sağda araçlar yerine Winsock nesnesi geldi. Bunu form'a ekleyelim.
(Ekleme şöyle olur: Aracı seçeriz ve form'un üstünde dandirik bir kare çizeriz obje eklenmiş olur.)
5. Bir Button koyalım isterseniz koymayabilirsiniz
6. Þimdi Form'a çift tıklayalım ve kodlarımızı yazalım.[/COLOR]
[SIZE="4"]Þimdi Diğer kodlarımız:[/SIZE]
Gelen Bağlantıyı Kabul Etme
Veri Gönderme
Veri Alımı
html,php,asp,VB.NET, Delphi, C++'den sonra VB6'yada elimi attım. VB.Net'in eziği ama daha daha iyisi
VB.Net'te daha çok araç var ama VB6'da bunları kodlarla sağlayabiliyoruz ve VB6'nın eklentileri daha güzel Yazı: x3uqm4
Dil: Visual Basic 6
Link koyardım fakat deneme versionunu internette bulamadım hep full version var :mrgreen:
Başlayalım...
[COLOR="DarkOrange"]1. VB6'yı açıyoruz. Yeni projemiz Standart EXE
2. Üstteki menüden Components'i seçin
3. Açılan pencerede Microsoft Winsock Control (SP6)'yı seçiyoruz. (Tik koyalım) ve tamam'a tıklayalım.
4. Þimdi sağda araçlar yerine Winsock nesnesi geldi. Bunu form'a ekleyelim.
(Ekleme şöyle olur: Aracı seçeriz ve form'un üstünde dandirik bir kare çizeriz obje eklenmiş olur.)
5. Bir Button koyalım isterseniz koymayabilirsiniz
6. Þimdi Form'a çift tıklayalım ve kodlarımızı yazalım.[/COLOR]
Kod:
Private Sub Command1_Click()
Winsock1.Close
Winsock1.RemoteHost = "192.168.1.33"
Winsock1.RemotePort = "2001"
Winsock1.Connect
End SubAlıntı:Private Sub Command1_Click() // Command1 Adlı buttona tıklanınca olacak olayı belirtir.
(Eğer Button istemiyorsanız kodumuz: Private sub Form_Load()Olacaktır)
Winsock1.Close // Bir Bağlantı Varsa Sonlandırır.
Winsock1.RemoteHost = "192.168.1.33" // Bağlanılacak IP
Winsock1.RemotePort = "80" // Port burada olacak (80 Portundan bağlanamazsınız benim virüslerimin portu 666dır)
Winsock1.Connect // IP'e belirtilen porttan giriş yapar
End Sub // Olay bitişi
Kod:
Private Sub Winsock1_Connect()
MsgBox ("Bilgisayara Bağlantı kuruldu!")
End SubAlıntı:MsgBox ("Bilgisayara Bağlantı kuruldu!") // Bağlantı yapılınca belirtilen uyarıyı verir.
Uyarı vermesi yerine başka kodlar koyarak, bağlantı kurulunca başka şeyler yapmasını sağlayabilirsiniz.
[SIZE="4"]Þimdi Diğer kodlarımız:[/SIZE]
Gelen Bağlantıyı Kabul Etme
Kod:
Private Sub Form_Load()
Winsock1.Listen
End Sub
Private Sub Winsock1_ConnectionRequest(ByV al requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
MsgBox "Bağlandı"
End SubVeri Gönderme
Kod:
Private Sub Command2_Click()
Winsock1.SendData Text2.Text ’Text2.Text`i Gönder.
End SubVeri Alımı
Kod:
Dim GelenVeri As String
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData GelenVeri
MsgBox ("GelenVeri")
End Sub