Merak etmeyin bişey yapmam :D This time, action must speak louder than words...

: bu arada avatarındaki skater boyu soyleyen kadın diilmi? o heralde. saol saol Neyi syler bilmem ama adı Avril Lavigne. not: yengenizdir. elleşmeyin. ey ulu TÜRK ğün, eşin yoktur altında gğün..!

bu arada avatarındaki skater boyu soyleyen kadın diilmi? o heralde. saol saol This time, action must speak louder than words...

buyur, http://devteam.tahribat.com/pagersender. exe bu tahribat pager sender programı http://devteam.tahribat.com/pagersendersource. zip bu da visual basicde yazdığım kaynak kodu aynı rnekdeki gibi zaten inceleyebilirsin. 222 gün siteye giriş yapmayı unutan emekli admin.

saol. deniyorum... This time, action must speak louder than words...

Abi şimdi ben bunu nası yapcam? Hangi kodu hangi textboxa yazcam? Neyi nereye yazcam? Bi de bende cb6p var. ama ben winshoxku bulamadım... "ICQ Pager Gndermek "Günümüzün popüler chat, paylaşım vs. programı ICQ"dan hepimiz pager almışızdır. "Bu makale ile bundan sonra istediğimiz icq numarasına pager 'gnderebileceğiz. "ncelikler Pager da şu bilgiler bulunur. "1. ICQ No "2. Gnderenin ismi "3. Gnderenin e-mail adresi "4. Pager konusu "5. Mesaj "Program ile bu değerler teker teker okunacak ve icq serverına yollanacak. "Program için yukardakiler gz nünde tutularak; "5 tane TextBox 1 CommandButton ve WinSock "Text1:pagerın gideceği icqno, Text2:kimden gnderildiği, "Text3:gnderenin mail adresi, Text4:konu baslığı, Text5:Mesaj Option Explicit Dim Mesaj As String Dim Konu As String Dim Kimden As String Dim EMail As String Private Function BoslukKontrol As String "Bu Fonksiyon String de Bulunan Boslukları + ile Degistirir. "Pager Gonderirken Bosluk Yerine + Karakteri Kullanılır... On Error Resume Next Dim KaRaKTeR As String Dim GeCiCi As String Dim i As Long KaRaKTeR = "" For i = 1 To Len KaRaKTeR = Mid(HangiString, i, 1) If KaRaKTeR = " " Then KaRaKTeR = "+" End If GeCiCi = GeCiCi + KaRaKTeR Next BoslukKontrol = GeCiCi End Function Private Sub Pager_Connect "Baglandıgında Bilgiyi Gndermeye Başlar Ve Mesaj Verir... pager. SendData pager. Tag MsgBox "Servise Bağlanıldı. Pager Gnderiliyor..." End Sub Private Sub Pager_Error "Hata Durumunda WinSock Kapatılır Ve Hata Mesajı Verilir. MsgBox "Hata Oluştu..." pager. Tag = "" pager. Close End Sub Private Sub Pager_SendComplete "Pager Gnderimi Bittigi Zaman Bir Mesaj ile Bildirilir. MsgBox "Pager Gnderildi..." pager. Tag = "" End Sub Private Sub Command1_Click "Pager Olusturulup Gonderiliyor... On Error Resume Next Dim Gonder As String Dim Bilgi As String pager. Close "Bosluklar Degistiriliyor... Konu = BoslukKontrol(Text4. Text) Mesaj = BoslukKontrol(Text5. Text) Kimden = BoslukKontrol(Text2. Text) EMail = BoslukKontrol(Text3. Text) "Burada Yapılacak Herhangi Bir Değişiklik Pagerın Gitmemesine Yolaçacaktır. Bilgi = "from=" & Kimden & "&fromemail=" & EMail & "&subject=" & Konu & "&body=" & Mesaj & "&to=" & Trim(Text1. Text) & "&Send=" & """" "Winsock ile Mirabilis Servisine Bağlanılır. WWPMsg. dll Kullanılıarak "Aşağıdaki Bilgiler Gnderilerek Page Gnderilmiş Olur... Gonder = "POST /scripts/WWPMsg. dll HTTP/1.0" & vbCrLf Gonder = Gonder & "Referer: http://wwp.mirabilis.com" & vbCrLf Gonder = Gonder & "User-Agent: Mozilla/4.06 (Win95; I)" & vbCrLf Gonder = Gonder & "Connection: Keep-Alive" & vbCrLf Gonder = Gonder & "Host: wwp. mirabilis.com:80" & vbCrLf Gonder = Gonder & "Content-type: application/x-www-form-urlencoded" & vbCrLf Gonder = Gonder & "Content-length: " & Len & vbCrLf Gonder = Gonder & "Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, / " & vbCrLf & vbCrLf Gonder = Gonder & Bilgi & vbCrLf & vbCrLf & vbCrLf & vbCrLf pager. Tag = Gonder pager. Connect "wwp. mirabilis.com", 80 "Mirabilise Bağlanılıyor... End Sub This time, action must speak louder than words...

: MohEmre bunu yazdı: bu arada avatarındaki skater boyu soyleyen kadın diilmi? o heralde. saol saol Neyi syler bilmem ama adı Avril Lavigne. not: yengenizdir. elleşmeyin. saolasın :) 222 gün siteye giriş yapmayı unutan emekli admin.