Bende bir şey sorayım. Winsock ile sitelere http post yaptırmak istiyorum aşadaki gibi veriyi gnderiyorum, bir hata vermiyor ama çalışıp çalışmadığına dair bir şeyde vermiyor. Winsock1. getdata da dnen veri yok, olması gerekiyormu yanlışmı yapıyorum? Dim paket As String Dim post As String post = "username=DE5TROY3R&password=sifre&savepwd=OFF&B1=Giris+yap" paket = "POST /login. asp HTTP/1.1" & vbCrLf paket = paket & "Host: " & hedef. Text & vbCrLf paket = paket & "User-Agent: Mozilla/5.0 (Windows NT 6.1; rv:2.0.1) Gecko/20100101 Firefox/4.0.1" & vbCrLf paket = paket & "Accept: text/html, application/xhtml+xml, application/xml;q=0.9, / ;q=0.8" & vbCrLf paket = paket & "Accept-Language: tr-tr, tr;q=0.8, en-us;q=0.5, en;q=0.3" & vbCrLf paket = paket & "Accept-Encoding: gzip, deflate" & vbCrLf paket = paket & "Accept-Charset: ISO-8859-9, utf-8;q=0.7, ;q=0.7" & vbCrLf paket = paket & "Keep-Alive: 300" & vbCrLf paket = paket & "Connection: keep-alive" & vbCrLf paket = paket & "Referer: http://www.tahribat.com/" & vbCrLf paket = paket & "Cookie: " & vbCrLf paket = paket & "Content-Type: application/x-www-form-urlencoded" & vbCrLf paket = paket & "Content-Length: " & Len & vbCrLf Winsock1. SendData paket

Postdatanın kendisini eklememişsin packete.. Onun dışında tabiiki cevap dnmesi gerekiyor sana. The king is bleeding.

şurayıda bi alim lazım olucak

Hocam pek bişey anlayamadım yazdığından :/, winsock1. senddata paket seklinde yollarsin paket? Byte olarakmi yollamak istiyorsun? dim paket as string paket=chr(0) & chr(1) & chr(2) winsock1. senddata paket The king is bleeding.

hocam le chr şeklinde yaptığımda oluyorda ben le bütün harfler için tek tük uğraşmak istemiyorum. Gnderilcek paket bayabi uzun çünki mesala c#da paketi sanırım Encoding. ASCII. GetBytes bu fonksiyon sayesnde düzgün bir şekilde yollayabilirim bunu vb 6.0da nası yaparım demek istiyorum

Yahu hocam snifferla bak ne yolluyor diye aynisini yolla değiştirilecek yerleri değiştir. The king is bleeding.

'String ifadeyi byteye çevirebilen bir fonksiyon yazdım. Private Function StringToByte As StringDim bytes As String, looplast As Integerlooplast = Len For i = 1 To looplast Step 2Dim exp As Stringexp = Mid(str, i, 2)Dim bt As Bytebt = CByte bytes = bytes & Chr NextStringToByte = bytesEnd Function 'dim paket as string 'paket="AF00C7D5AF05FF" ' Winsock1. senddata(stringtobyte 'gibisinden kullanabilirsin The king is bleeding.

bilgisi olanlar ilgilenirse sevinirim. Şimd elimde \x00genki1\x00genki2\x00genki3\x00genki4\x00genki5 şeklinde bir string var. şimdi c# udp ile belli bi portu dinleyip gelen xx gelenine karşı cevap olarak bu string yolluyorum. Buraya kadar bi sorun yok. İsteğide php script ile yapıorum ekrana şu tür bi çıktı verio yani benim istediğim gibi. genki1genki2genki3genki4genki5genki12genki13genki14genki15 bende php ile \x00 ları explode edip değerleri okuyorum. ancak vb 6.0 ile gelen cevaba karşılık \x00genki1\x00genki2 bu paketleri yolladığım taktirde ekrana yine \x00genki1\x00genki2 bu şekilde basıyor. c#da şyle bir kodlama kullanıyorum string x = "\x00genki1\x00genki2\x00genki3"; data = Encoding. ASCII. GetBytes ; newsock. SendTo ; vbde ise dim paket as string paket = "\x00genki1\x00genki2\x00genki3" winsock1. sendata paket şeklinde. Kısacası vb 6.0 da paket için hangi fonksiyonu kullanmam lazım? Bilgisi olan arklarda c, c ++ ilede rnekler koyarsa sevinirim. Hepsini inceleyip kavramaya çalışıyorum

: Postdatanın kendisini eklememişsin packete.. Onun dışında tabiiki cevap dnmesi gerekiyor sana. Grmemişim onu, ekledim. dnen cevapta 400 bad requst, invalid header dedi Hangileri zorunluki bunların, cookieyi boş bıraktım ondanmı byle yaptı acaba yada nereyi yanlış girmişim