Visual Basic :: WinSock Request Accept

Winsock Syntax? (To Request A Website With The Winsock Control)
Ok, I don't know very much about Winsock and am just now starting to use it. I'm making an anonymity program that modifies referer and user agent data. I managed to find an example of how its done on planetsourcecode.com but there's a few things that aren't working.

Anyway, when this string is sent, it sends the headers and a request for index.html from the connected host (winsock1.connect domain.com 80).

GET index.html HTTP/1.0
Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-powerpoint, application/vnd.ms-excel, application/msword, application/x-comet, */*
Accept-Language: en
Accept-Encoding: gzip , deflate
Cache-Control: no-cache
Proxy-Connection: Keep-Alive
User-Agent: Whatever
Referer: www.whatever.com

But when I used the website http://ipid.shat.net/ as the domain to see if code mdified the headers or not, it directed me instead to just www.shat.net. How would a browser request information to ipid.shat.net?

Also, I noticed that by sending just that information, cookies don't work properly. What other tags do I have to add onto that for it to recieve my session information? Thanks a lot.

(webserver) Winsock Accept Files?
Hello.
i want to send a txt-doc to my webserver using html script, but im not sure how i can accept the file on my winsock_DataArrival.

this is the request:

-------------------------------
POST /Sendfile HTTP/1.1
Host: 192.168.0.105
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; sv-SE; rv:1.7.5) Gecko/20041108 Firefox/1.0
Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5
Accept-Language: sv,en-us;q=0.7,en;q=0.3
Accept-Encoding: gzip,deflate
Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
Keep-Alive: 300
Connection: keep-alive

Content-Type: application/x-www-form-urlencoded

Content-Length: 39

txtFile=TheFile.txt&Submit=Submit
-------------------------------
how can i save the text inside "TheFile.txt" into text1?

many big thanks,
naitsabes

HELP! My Winsock Wont Accept Any Connections
I have got a form set up so that when someone connects to it it will display a small message on the screen

Somehow to winsock it not accept the request

i get an error "Invalid operation at current state"

here is the code
-----------------------------------------------

Private Sub sck_Connect()
sck.SendData "Auth. Complete"
End Sub

Private Sub sck_ConnectionRequest(ByVal requestID As Long)
If sck.State = 2 Then sck.Accept requestID
End Sub

Private Sub sck_DataArrival(ByVal bytesTotal As Long)
Dim data As String
sck.GetData data
Alert (data)
End Sub

-----------------------------------------
any help will be appreciated

Winsock.Accept - Im Pushing My Luck A Bit!
Hi guys, I was wondering if the following is possible, because I cant seem to do it right...

I have a winsocket in one application that is constantly listening for connections...

Code:

Listener.Close
Listener.LocalPort = 90

When it does eventaully receive a connection request, I have the connection accepted by a different socket on the same form...

Code:

Private Sub Listener_ConnectionRequest(ByVal requestID As Long)

WAN.Close
WAN.Accept RequestID

End Sub

...you with me? the above code works fine, but I want to take it to the next level...

Basically, I want a winsocket from an external ActiveX EXE to accept the conection. For example, lets say I have an application called 'Main.exe', and all it does is listen for connections. Then I've got another application called 'Sub.exe' (an activeX exe), and it accepts the connection requets.

I thought that the follwonig code would work, but it doesnt...

Code:

' MAIN.EXE Code ('Sender' has already been declared as an Object)

Private Sub Listener_ConnectionRequest(ByVal requestID As Long)

Set Sender = Nothing
Set Sender= CreateObject("Sender.Send")
Sender.Accept requestID

End Sub

Code:

' SUB.EXE Code AKA "Sender.Send"

Public Sub Accept(requestID As Long)
Load Form1
Form1.Show
Form1.WAN.Close
Form1.WAN.Accept requestID
End Sub

'In case you hadn’t already guessed, SUB.EXE has a form on it called form1,
with a winsock control called WAN

Is what I am trying to do even possible?

At the moment the code it is returung the error at the point Form1.WAN.Accept requestID, and it says 'The descriptor is not a socket'.

Winsock(cSocket) Accept RequestID Problem...
I have a server app that uses cSocket...a request comes in for a connection, I create a new cSocket(winsock) object and get it to accept the request ID...This ALL works fine in one project (same thread)...
But I wrap a cSocket up in an Active X EXE, which I create a new instance of when I get a connection request, then pass the request ID to the ActiveX EXE (running in a sperate thread), then the clients connection has a state of Connected, but the new connection (in the activeX EXE) doesn't connect

Does anyone know why this is?
Even though I have told it to accept the request id???
Is there a problem with it being in another thread?

Woka

Winsock Request
I have a Winsock component setup right now on my network, exact same as whats in this thread

I would like to know if a similar control can be built using Winsock to do this:

1) Connect to a remote computer, by IP address. (I have a code that determines the IP address of the remote machine already..)

2) Open a .txt file, send it back to (my) the users computer and displays it in a text box on screen.

3) On command button press, take what ever is in my text box, and send the file back to the remote computer and save it.

Kind of like editing a configuration file, remotly.

I know the application would have to be running on the remote end as well as my end for this to work, if its at all possible.

I would really like to do this, I appeciate everyones help in advance!

Winsock Example Request
I'm at work where I can't get to any help files for winsock. Can somebody give me a quick example of the code required to create a winsock instance, including telling it to listen and respont to internet requests? I'm going to attempt to make MS Access act like a simple server, and I just don't have the resources here to get it running. Thanks!

Winsock HTTP Request Help
I need help with this, my wrapper uses winsock to send requests and the close event does not fire which makes the connection stay open forever, my wrapper is at the bottom it is a attachment

Can Winsock DLL Do Other Protocol Request ...
guys,

i find that the winsock OCX really is limited in its capability...
can anyone suggest me a better one for network programming? because the protocol type is limited to a few only....

I hope to do RTSP / RTP request ... is there any thing that i can used to do that ???

can Winsock Dll do other protocol request or its the total same with the winsock OCX?

Does anyone has a sample using winsock DLL (as client)...??

Winsock : GET Http Gives Me Bad Request , Why?
guys,

is the statement below wrong??

GET http://www.hypermart.com HTTP/1.0

the dataarrival shows me error message...

400 BAD Request

can anyone justify this please?

Multiple Request With Winsock
Greeting,

I have a little problem with winsock. I have a server and several
client. I want to transfer text from server to client trough the network
In this case, I using winsock to transfer the text. It is ok when only 2
computer connected (1 server and 1 client). But, when 3 computer
Connected (1 server and 2 client) I cant broadcast text to all client.

Does any body know how to broadcast text fom server to client trough the
network and winsock?

thanks

Rgds,
Rano Nugrah Agung Homan

Winsock Sample Request
Hi all,

I need to make a server app for my project. I have concluded that I will need to implement Winsock to do so. I have read up on all Winsock articles here (and many others elsewhere) and have downloaded and studied all the samples I could find.

However, I am unable to do what I want because:

- The tutorials say that the IP address or friendly name of the target computer MUST be specified for the Winsock control to connect on the other side. This strikes me as very backward, as I can not always know what IP addresses my customers' network stations will be running on and cannot also predict their friendly names. Does this have to be hard-coded?

- Try as I may, I cannot create a working sample of Server.Exe and Client.Exe to run on the same machine as I cannot afford the luxury of testing my code over two machines. Is there any way I can debug / test on one machine?

If any member proficient with Winsock (Laura Stephens and Jason Rogers come to mind) would like to help, I shall appreciate a small sample to get me started by solving the above two problems.

GoodGuy
Experience is a bad teacher for its exams precede its lessons.

Edited by - GoodGuy on 12/10/2007 10:23:30 PM

Winsock Array Connection Request
i made a post a couple days back gavino answered
im trying to make my multi chat program and well, it isnt goin by too well. for starters the client cant connect

Code:
Private Sub sckSocket_ConnectionRequest(Index As Integer, ByVal requestID As Long)
SockNum = SockNum + 1
Load sckSocket(SockNum)
sckSocket(SockNum).Listen
sckSocket(SockNum).Accept requestID
End Sub
is there sumthing wrong with that?

[VB6] Winsock POST Request Problem
I'm trying to connecto to google.com and translate a simple word (just to test if works).

And I have a problem when I'm sending POST request data, here is my code:

Code:
Private Sub Command1_Click()
Winsock1.Close
Winsock1.Connect "www.google.com", "80"
End Sub

Private Sub Winsock1_Connect()
Dim packet As String
Dim strpost As String

strpost = "hl=it&ie=UTF8&text=hello&sl=en&sl=en&tl=it&tl=it"

packet = "POST /translate_t HTTP/1.1" & vbCrLf
packet = packet & "Host: www.google.com" & vbCrLf
packet = packet & "Accept: */*" & vbCrLf
packet = packet & "Accept-Language: it,it-it;q=0.8,en;q=0.5,en-us;q=0.3" & vbCrLf & vbCrLf

packet = packet & "Content-Type: " & "application/x-www-form-urlencoded" & vbCrLf
packet = packet & "Content-Length: " & Len(strpost) & vbCrLf
packet = packet & strpost

Winsock1.SendData packet

Text1.Text = Text1.Text & packet

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim data As String

Winsock1.GetData data
Text2.Text = Text2.Text & data & vbCrLf

End Sub

As you can see I want the GETDATA in Text2.Text but I recieve this error:

Code:
HTTP/1.1 411 Length Required
Date: Fri, 01 Aug 2008 13:57:24 GMT
Content-Type: text/html; charset=UTF-8
Server: GFE/1.3
Content-Length: 1357

{html code}

What's the problem?!

Thanks in advance.

How Can You Request A Webpage Using Winsock And HTTPS?
HTTP is easy to form requests with using winsock..
but how can you make requests to a https site?

WinSock Connection Request Error!
When I use this code for a winsock connection request:

Code:
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Accept requestID
txtRecive.Text = txtRecive.Text & vbCrLf & "ChatX: Connection Request Detected."
End Sub

I get runtime error 40020:
Invalid operation at current state

when I hit debug it highlights that code snippet up there! HELP

Viewing Cookies Sent With Either Winsock Or INet Request?
Hello,

Is there a way that I can send a request via INET (Most Likely), and read the cookies which were sent with that request?

Thanks

Winsock Server Connection Request Problem
hey, this is my code

Code:
Private Sub wskServer_ConnectionRequest(ByVal requestID As Long)
Dim msgboxResult

msgboxResult = MsgBox("A connect request has been initiated by: " & wskServer.RemoteHostIP & vbNewLine & "Would you like to accept it?", vbYesNo, "Connection Request")

If msgboxResult = vbYes Then
wskServer.Accept requestID
isServer = True
End If
End Sub

now the problem is, whenever i run it, and have a client try to connect to it, this is the error the server gives me on this line "wskServer.Accept requestID"

---------------------------
Project1
---------------------------
Run-time error '40020':

Invalid operation at current state
---------------------------
OK
---------------------------

can someone help?

EDIT: and yes, i did try:
wskServer.Close
wskServer.Accept requestID

but it doesn't work. if u need 2 see my whole code to know whats going on, just let me know

Winsock/cookie Request Entity Too Large...
hi i'm sending a cookie header via winsock but i think it's to large cause I'm receiving a "Request Entity Too Large" in the HTTP Response. is there a way around this?

Winsock - Notification When User Accepts Request
Does anyone know of a way that an initiator of a Winsock connection can be notified when a user on the other end accepts the connection ? I'm new to Winsock, so my terminology might not be the best, but I'm trying to find out if the inititator has any way of knowing that a connection was made before any messages are exchanged?

Thanks for any help....

Does Anyone Have An Example Of How To Send A POST Request With Winsock And A Proxy?
I know how GET works with winsock and a proxy, but how can you use a proxy and use POST?

anyone have an example?

HELP: Winsock To Send HTTP POST REQUEST To A Machine
Hello,

I would like to use visual basic to send data to a machine using an HTTP Post request, and cannot decide on the best way to do it. Can I use winsock. Please bear in mind the following.

I am sending a mult-part message (kind of like an email with attachments). It's actually a multimedia message in the MM7 format -> this is similar to email, a multipart MIME message.

I MUST post to a destination using the following format:

http://192.168.3.75:2097/mm7

I need to then send the data which I've formated according to the MM7 spec.

I need to receive responses from the receving application.

Any help would be greatly appreciated.

Thanks

Ben

Winsock Connection Prob: "Request To Connection Time Out".
Hi All,

I am developing chat application like Yahoo and MSN messenger. Also i have almost completed it. I have two applications one is server appliation which will be run on chat server machine. the other is client appliation which will be used at any corner of the world.

Its working fine on my network. Ya, it is also working fine over network but with some misbehaviour. Sometimesm, it allow someone to login and sometimes it doesn't and gives "Request to connection time out" error.. I can't find the reason y it is happening.

I have developed this in visual basic and used winsock control.

Accept -1
VB Code:
Private Function MyAccept(ByVal s As Long, ByRef Addr As sockaddr_in, ByRef addrlen As Long) As Long) Dim out As Long out = accept(s, Addr, addrlen) MyAccept = outEnd Function

It errors without an error description. The value of it is -1 so obviously it's not working properly. My thought is it's erroring because at the time there isn't an incoming connection to accept, correct? If so, how can this be fixed? by using "listen"? or..?

Winsock1.accept
Code:
Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
'how do i get (the person who connected to me)'s info?
'like they're computer name or they hostname [IP address]
End Sub

FD_ACCEPT... Accept()
Hello, i am hooking my form to receive messages, so i may look for winsock messages sent to my window for my socket.

I am looking for the FD_ACCEPT message, so I may connect.

I first create a socket with socket()
I then bind()
I then listen, and wait for FD_ACCEPT.

When FD_Accept does come,it just seems loop, or freeze the window. Here is code:

Code:
Public Sub HookForm(F As Form)
PrevProc = SetWindowLong(F.hwnd, GWL_WNDPROC, AddressOf WindowProc)
End Sub
Public Sub UnHookForm(F As Form)
If PrevProc <> 0 Then
SetWindowLong F.hwnd, GWL_WNDPROC, PrevProc
PrevProc = 0
End If
End Sub
Public Function WindowProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If uMsg = WINSOCKMSG Then
ProcessMessage wParam, lParam
Else
WindowProc = CallWindowProc(PrevProc, hwnd, uMsg, wParam, lParam)
End If
End Function

Public Sub ProcessMessage(ByVal lFromSocket As Long, ByVal lParam As Long)
Dim X As Long, ReadBuffer(1 To 1024) As Byte, strCommand As String
Dim sockin As sockaddr

Select Case lParam
Case FD_ACCEPT

Dim tmpSockAddr As sockaddr
Dim tmpSocket As Long

tmpSockAddr = saZero
tmpSocket = accept(lFromSocket, tmpSockAddr, Len(tmpSockAddr))

Msgbox "incoming!" <--repeats itself again and again

End Select
End Sub

Function ConnectSock(ByVal Host, ByVal Port&, retIpPort$, ByVal HWndToMsg&, ByVal Async%) As Long
Dim SelectOps&, Dummy&

Dim s As Long
Dim sockin As sockaddr
sockin = saZero

SockReadBuffer$ = ""
sockin = saZero
sockin.sin_family = AF_INET
sockin.sin_port = htons(777)

sockin.sin_addr = asc_to_long("172.16.16.20"

s = socket(PF_INET, SOCK_STREAM, IPPROTO_TCP)
bind s, sockin, sockaddr_size
listen s, 10

SelectOps = FD_ACCEPT

WSAAsyncSelect s, HWndToMsg, ByVal 1025, ByVal SelectOps

ConnectSock = s
End Function

Function asc_to_long(ByVal asc_ip As String) As Long

asc_to_long = inet_addr(asc_ip)
'MsgBox "connecting to " & getascip(asc_to_long)

End Function
I initiate the connection to the server using telnet 172.16.16.20 777

On Task Accept
is there anyway to capture the Task accept event? i want my code to run once the user accepts a task. thanks.

Only Accept This Datetype?
The textbox should only accept this Datetype: 02.37
02 = Year and 37 = Week.
How do I do to check if the user wrote right characters ( Year.Week ). Inklude the point between Year and Week.

Only Accept This Datetype?
The textbox should only accept this Datetype: 2002.37
2002 = Year and 37 = Week.
How do I do to check if the user wrote right characters ( Year.Week ). Inklude the point between Year and Week.

Cant Accept Connection From New Socket
Greetings,
What's wrong with my code here?
It keeps accepting connection on the listening socket (Winsock1(0).LocalPort = 11000).

Code:
Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As Long)
Randomize
If Index <> 0 Then
Winsock1(Index).Close
Else
Load Winsock1(Winsock1.UBound + 1)
With Winsock1(Winsock1.UBound)
.LocalPort = Int(Rnd() * 10000) + 12000
.Close
.Accept requestID
End With
End If
End Sub

Thanks in advance for your help

Regards,

Joe

Infrared - Accept Input
Hi,

I know there have been posts about using the IR port, but none of them really answered my question.

I need to know if there is a way I can get a program to accept whatever is coming in on the IR port and save it for later use (like transmitting that data). This is so I can record the signals coming from TV remote controls and such and use the laptop to control the TV.

Thanks!

Textbox That Accept Only The Numbers
how can i make the textbox accept only the numbers inputed from the user!!!!!

Can Sub Main() Accept Arguments?
Can a Start Up object of a project receive arguments?

At work we have 2 mainframe scripts which call the same VB executable and would like to pass Sub Main() an argument to indicate whether or nor the executable should run daily and weekly reports or just daily reports.

Accept Telephone Calls
hi....

i would like to make an application which will
accept a maximum of 10 telephone calls simultaneously.
My program will be up for abt 1 hr and the clients can dial in
and register there problem. The caller number and the message
should be stored.

what i know is that this can be achieved by using dialogic card .

plz gimme some suggestions... i don't know how to use it..
or even how to store the voice.....!! i am sorry that i knew
alittle abt this.....................

everyone in this forum are welcome to post suggesstions...

thx in advance..
rgds
mohanakannan

Text Box To Not Accept Letters?
ok i have 2 text box's called txtlength and txtwidth how do i stop the user from inputting letters and to display a message box?

i did get told a way using the ascii numbers but when i tried to do it again i couldnt get it to work so i can anybody tell me how to do this or a simpler way??

cheers

How To Accept And Decline Passwords?
How can I get data input from the user through a pop up box or window, and then accept or reject that info (like a password) using an If Then statement?

Does Not Accept Multiple Parameters
i have the following sql statement in one of my command in the datenvironment: i just set the parameter to ' ? '

Quote:

Select * from schedule_query where tbl_college_code.fld_ccode_id = ? and tbl_offered_subj.fld_semester = ? and tbl_offered_subj.fld_year = ? and tbl_sched.fld_section = ? and tbl_sched.fld_yearlevel = ?

and in my code , it goes like this:

[code]Private Sub cmb_section_Click()
DE1.get_subjects (vcodeid, cmb_sem, txt_syear, cmb_section,sstab1.caption )

End Sub

if the user clicks the section, it will display all the subjects under that code id, semester, school year, section and yearlevel
but... it immediately displays the error : " compile error: expected := "
after i press enter ( after the closing parenthesis )
but, if i only include 1 parameter,

Code:
DE1.get_subjects (vcodeid)
no error is displayed. why does it not accepts multiple parameters?

and a follow up question : 1 of the parameter is the yearlevel which depends on the caption of the current tab.. i dont think im right in placing ' sstab1.caption ' as the parameter. i dont think it can read it.. how will i include this?

thanks in advance

Why My Ado Can Not Accept Decimal Number
I've this code:
my ado can not show decimal even it is assigned by decimal number???

Code:
adoProd.Open "select * from Products", cnn, adOpenDynamic, adLockOptimistic

.....

adoProd.Fields("Qty").Value = Val(txtQty.Text)
' my txtQty has value 2.5 but my adoProd keep giving me 2 (not 2.5), even though I give different format of my txtQty with:
' * FormatNumber(Val(txtQty.Text), 2)
' * Format(txtQty.Text, "#,##0.00")

How To Know IP Address Before Accept Socket?
Hi All,

I have some question about sockets API functions.
I need to know IP address of requested computer before accept socket.

Call getpeername(wParam, tempAddr, Len(tempAddr))
S = getascip(tempAddr.sin_addr)

Above function could not know IP address before Accept function, way?
How to know IP before Accept function?

Please help me anyone,
Thanks for advice

Amaraa.

' My message process function
Public Function ProcessMessage(ByVal wParam As Long, ByVal lParam As Long)
Select Case lParam
Case FD_ACCEPT
Dim tempSocket As Long, tempAddr As sockaddr

' I need to know IP here
Call getpeername(wParam, tempAddr, Len(tempAddr))
S = getascip(tempAddr.sin_addr)

tempSocket = accept(wParam, tempAddr, Len(tempAddr))

' I can know IP here
S = getascip(tempAddr.sin_addr)
AddSocket tempSocket, S

Case FD_CONNECT
SocketNo = wParam
IsSckOpenned = True
myOwnClass.eventSocketConnected wParam

....
End Function

How To Accept And Send Sms Messages In VB6
I'm trying to program a small program that can accept and send sms messages in VB6. I know this is possible but I don't know where to start if someone could help me that would be great.

Run File Then Accept Message Box
Hi,

This is a two parter.

I need to make a REALLY quick and easy EXE in VB6. First, I have the command line (or folder path) to an EXE file. I need my EXE to run the setup file, just as if i were to type it into a DOS BOX.

Example: I know my file is in C:Test FolderTestingSetup.exe . So, I want my application to "RUN" C:Test FolderTestingSetup.exe

Second and somewhat more importantly... The setup.exe file causes a popup window with a Yes/No Dialog option. I need the setup file to WAIT for this message box (I know the title of the window) and then automatically "press" YES.

Can someone please assist with some syntax and code for both portions. I will greatly appreciate it. Thanks very much!

Accept All Characters As String
Hi, I have a string with all kinds of characters, but I'm only getting errors, because VB doesn't want to include some characters (quotation marks) properly in the string.

I have a string like this: abc|def"ghijk>lmnopq/rstu<wvx"yz0123-45

How can I force VB to accept the whole line as a string?

TextBox To Accept Numbers Only
I am looking for a TextBox to accept numbers only.
The entries into the TextBox should be RighttoLeft.
I should be able to define the number of integers and decimals req.

Listen/accept - Communicate ...
VB Code:
Private Function ListenFunc() As Long'Public Const SOMAXCONN = &H7FFFFFFF by the way...Set Addr = New sockaddr_in ' dont ask ;)Dim i As Longi = listen(lngSocket, SOMAXCONN)If i <> -1 Then ' doubt this is right... i want to "talk" to incoming connection and if it doesnt respond then close the socket ListenFunc = accept(lngSocket, Addr, Len(Addr))Else Dim CloseSock As Long CloseSock = closesocket(lngSocket) LisntenFunc = CloseSock Set Addr = NothingEnd If

what im trying to do is listen for incoming connections and communicate with the connection and if it doesnt respond then i want to close the socket. get me?

i cant figure out how to do it.

Filecopy To Accept Wildcards?
Hi All,
I am trying to get my filecopy command to accept wildcards but it doesnt seem to be possible e.g.

It gives me a run-time error "52". Bad File name or number

FileCopy "l:20603??.log", "c:mydocu~1proxyAllLogs.log"

Is there any way that I can do this through VB?

Thanks
Ray

We Accept Visa, Mastercard, Etc....
Does anyone know where to find a code sample, or information on how to write code into an application for processing credit card, debit cards, etc. This would be something completely new to me that I would be interested in learning.

SQL Statement Cannot Accept 2 'WHERE' Statements?
rsReserve.Source = "SELECT * FROM Reserve WHERE MemNum = " & txtMemNum.Text & " WHERE Remark = 'NMET' ORDER BY DateNeeded"

in the db:
MemNum field holds integers
Remark field holds text (limited to MET or NMET, by combo box in VB form during input)
DateNeeded field holds data in short format

in the screen with the error message, the first WHERE statement isn't there, and some operator is apparently missing.