Send Website Informations Via Winsock To Someone Else
I'm playing a massive-multiplayer-online-game. that means i have go online 5 times aday for about 3min. the game is programmed by a friend of mine. Now the computer-manager in school forced my friend to programm a IP lock, so we can't game from school.
I now want to programm 2 programms. a server and a client. the server would run 24/7 at my home PC and have to go and get the homepage and send the informations to the client. and the server has to click on a button in the website, but i want to say where to click, while working on the client.
How to get all the informations form the website, that I can send them with Winsock?
And how to make a click on the website at the server application, while sitting behind the client?
Just tell me how and what commands to use, I can try out and programming Winsock is no problem.
View Complete Forum Thread with Replies
See Related Forum Messages: Follow the Links Below to View Complete Thread
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.
Send Variable To Website .Net Asp
Hello,
Just been searching around, but havent found the relative info i been loooking for.
How can i send a variable to an .asp page and then on form load the asp page gets the info and carry on from there.
Inet.. Webbrowser?? Post method?
What do i do.?
A Website To Send Ppl To, To Get MS Runtimes
I have a small website with some VB programs, but alot of ppl dont have the neccasary DLL and OCX files to run my programs. I dont have enough server space to host the DLLs and OCxs so is there some website that I can send people to, to easily get those DLL and OCX files?
Cheers, cow
Send Data To A Variable On A Website..
Hello there,
I need to find out, if there is a way to send data to a variable/textbox on a website.
Is this possible? is yes how?
is any extra scripting required ? i.e php, asp etc...
Thanx
Send Data To A Variable On A Website..
Hello there,
I need to find out, if there is a way to send data to a variable/textbox on a website.
Is this possible? other than having a webbrowser control on your form....!! if yes how?
I need it by default to open a webpage,, which i can do with the ShellExecute API but i dont know how to send the data to the variable...
is any extra scripting required ? i.e php, asp etc...
Thanx
How Do You Send Data To A Input Box On A Website?
Hello. I have a webbrowser on my form, and I want to know how its possible to send data to input boxes on the webbrowser - kind of like a "autofiller" - something like what Gator does or what MSIE does when you have a stored password, it puts it in for you. What I want to do is read the HTML, and locate statements such as <input type="text" maxchars=21 name="email">, and then automatically (or by using a command button) send data that is already defined in a file, or in the Text1.text Text2.text, etc in the form itself. There is a good example of what Im trying to accomplish at http://www.roboform.com, except I cant exactly use roboform on my webbrowser in my form . So, does anyone know how to do this?? Ive heard I have to locate the webbrowser using API, and then use SetText (also API), but have no clue on how to do this . If anyone knows, dont hesitate to post below.
thanks
Send Email + Archive Without Redirect To The Website
Can someone help me?
I'm trying to make a application where I can send a email with a file, to the a person who use @hotmail.com
I wanna to do it without being redirect to the website.
Or be redirect with the email ready in my application.
Send Data To Website Without Webbrowser Control
Hello, is there a way with VB to send data to a website (i.e. Google) without using the Webbrowser control?
I know how to send data to a website by using the Webbrowser control, but now I'm starting the user's default browser. I have no idea how to do this now and I'm not even sure if it's possible.
Thanks.
Send POST Data To Website That Uses Frames
Hi,
I'm trying to send POST data and get response data from a website that uses frames and uses https://
the website is : https://www.lasuperiorcourt.org/civilCaseSummary/index.asp?CaseType=Civil
and, for example, I want to search for case # BC332390
I try to retreive the html data via the XMLhttp method in VBA, but the response text says my browser does not support frames. I'm not even sure if I'm doing this right. Can anyone teach me what is going on in this situation? Thanks.
Brian
How To Send String From VB Applet To Website Using VB Macros
Hi All,
I'm a QA Analyst and my manager wants me to improve my testing - write a VB script for one of the tasks. I have a little knowledge about VB, but its not enough for that task. If you can help me I'll greatly appreciate it.
Here is a task:
1.Via workstation I have FX application
2.One of the fields has a security's symbol
3.By using macros I have to send this symbol to the website's field and get the quotes.
I know how to do so between the applications via workstation, but have no idea, how to do it between an application and websites.
-Thanks you for your time and help.
Send Software Error At The Website Database Server
Hi all
Thanks 4 previous
My next problem is that I want to send the software error that is running at the client pc at our website…
I am saving the error at the client database also then how to send them at our website database
Hope u all understand
thanks
Winsock, Website Data
I have a scenario, where:
1. I can get the login information sent via get method in the url – But im not that keen on that because it shows up in history.
2. I can make VB enter the information into the website, but I am really clueless about winsock, any help would be helpful
Scenario 1 - I would like to know if it is possible to delete that certain url from history (Or even clear it all)
Scenario 2 – I really am unsure how to enter data into a online form (post)
But even after that I need to be able to read the html, then display certain parts of the information, I know in other information/scripts you are able to slect the line, then char that you want to read, I just cant seem to grab the html.
Any help would be useful.
Thanks.
How To Know When Winsock Is Done Getting Data?[tcp-website]
Im connecting with a website and recieving data through the winsock control[TCP]. On my getdata, I will get sometimes 2-3 dataarival events because the winsock cannot fit as many chars as the website contains. Is there any way to know when the end of the website comes?
Winsock - Send PictureBox Contents Thrue Winsock?
Hey all, is it possible to send the contents of a PictureBox thrue a Winsock?
I know i can save the contents first to file and then send as file, but wondering this is possible, the purpose is in my chat project i have a webcam capture feature wich works fine, but i can't figure out how i can send this stream, did some searches but not found any results about it.
=============================================
aka Red2048.
Winsock And Multi-Host Website, Where Is The Problem ?
Hi
I'm trying to make a program to work as an internet browser using winsock, I made some kind of success at the beginning with some famous sites (such as Yahoo!) but I failed to load some other sites, the server is replying with a page that tell me it is a multi-host website, while it can be opened normally using Internet Explorer, Where is the problem ? I'm using winsock command: "GET / HTTP1.1", but is there any other command can fix the problem ?
thanks
Loggin To A Website POST Method And DOM Or Inet Or Winsock HELP!!
Hi well what im trying to accomplish is succesfully load to a site that to login requires POST Method here's a little bit of the souce
-------------------------------------------------------------------------------
<form method="POST" action="membersarea.php">
<tr>
<td width="100%" colspan="2"><font color="#FFFFFF"><b><font size="1" face="Verdana">
EMAIL:</font></b><br>
<input type="text" size="17" name="email"></font></td>
</tr>
<tr>
<td width="100%" colspan="2"><font color="#FFFFFF"><b><font face="Verdana" size="1">
PASSWORD:</font></b><br>
<input type="password" size="17" name="password"></font></td>
</tr>
<tr>
<td width="100%" colspan="2">
<input type="checkbox" value="1" name="remember" CHECKED><font size="1"><b>Remember
Me</b></font>
</td>
</tr>
<tr>
<td><font size="1" face="Arial Narrow"><a href="lostpass.php">
Forgot Password?</a></font></td>
<td><input type="submit" value="Login" name="submit">
<input type="hidden" value="1" name="login_submit"></td>
</tr>
</form>
------------------------------------------------------------------------------
ok i need to login i have tried to do it with the DOM and this is what i got so far
VB Code:
Private Sub Command1_Click()With WB.Document.getElementById("email").Value = Text1.Text.getElementById("password").Value = Text2.Text.getElementById("remember").Value = "1".getElementById("submit").Value = "Login".getElementById("login_submit").Value = "1".Forms(0).Login.ClickEnd With End Sub Private Sub Form_Load() WB.Navigate "http://www.domain.com" Do While WB.ReadyState <> READYSTATE_COMPLETE DoEvents LoopEnd Sub
ok i get an error 'object doesnt support this method'
highlights this line
.Forms(0).Login.Click
anyway i can succesfully login to the page Thanks ALOT!!!
P.S. also there's anyway i can do it with INET control and winsock i would like to learn all of them 3 using POST method... thanks
regards,
EJ
Mp3 Informations
Hi!
How i can get mp3 file lenght and file size using windows api..
Marken
Diskdrives Informations...
I need to get information of system drives as much as possible. Like drive size and used space, name (and possibly way to change it) and other general information.
I know that I can get driveinfo with one API command, but I can't remember what it is.
Color Informations...
Hi,
I have two questions:
1:How can I get the number of colors used in a picture (ico or bmp)loaded in a picturebox and/or imagebox?
2:How can I save an extracted icon (from a dll for example)
(I have some trouble with that because an extracted icon is not picture but hdc...)
Thanks, Claude.
Get Informations About A Inserted CD?
I just need help with an old and big problem!
I need to know how to get informations about
a inserted CD in my cd-rom drive. I need to know what typ of cd-track (data or audio track) is used, i must detect the correct lenght of these tracks, etc. pp.
I also allready checked many source libraries, wrote to software companys which sell recording software, etc. but got no informations/help. I posted allready two times in here about this problem, but i got
no help, yet. PLEASE, HELP ME! (If you can!)
Grayline Informations ?
Good evening
I will like to create a software on the grayline, I looking for information
for this subject (calculation, code etc...)
Thank your very much for your help.
My best regards,
Jean-Philippe
Software Informations
hi all!!
i need some help in developing a program using which the user can know about all the softwares installed in the system. it should also show the memory space occupied by any software installed in the system...
thankx in advance...
Winsock Send
hi, i have been making a program to accept multiple connections. i have succeeded in doing this but i have ran across a problem. when you have the winsock sends two or more lines of data without a pause in between the client user receives them in one big packet or not at all i dont like to use the pause because this type of application will be to slow to use! any ideas on how to fix this? thanks
Windows License Informations
I would like to read Windows Licensing informations from Visual Basic. Precisely, I want to read text in CAPS.
In Windows Explorer About Window someone can find text like this:
This program is licensed to: SVEMIR BRALIC.
Thanks in advance.
Updates General Informations
i have made a package with my application and now i made some changes and i want to make it something like update how can i do it?
how updates work? going and change the exe file or the source code of exe?
Problem To Get Informations From My Recordset
Here is my recordset :
sql02 = "select * from Tab1, Tab2 " _
& " where (Tab1.id = Tab2.id)" _
Set Rst02 = New adodb.Recordset
Rst02.Open sql02, db, adOpenForwardOnly, adLockReadOnly, adCmdText
So far it's Ok, but now that I want to get the Key used as connection, i can't ???!!! probably question of syntax !!!
Here is my code :
dim VarId as string
VarId = Rst02!id
I also tried ...
VarId = Rst02!Tab1.id ou bien
VarId = Rst02!Tab2.id
VarId = rst02!(tab1.id) etc...
Always wrong, so ? who can help me ?!
How To Retrieve Printer Informations
I have a Windows 2003 server with atleast 200 printers. Can anyone tell me an easy way to extract the following informations to an excel file.
Printer Name, Location, Model and Comment
Unfortunately I am not a great developer
Winsock And Timer Send
--------------------------------------------------------------------------------
hi
please im beginer in winsock ...i was wondering how to send send text whith a timer ........
like broadcasting ....
i have my winsock send kode.. thanks .... a lot
=======================================
--------------------------------------------------
Private Sub Command9_Click()
Dim rhtbox As String
rhtbox = RichTextBox2.Text
ncmsg = CodfTexto(Text55 + rhtbox)
skmsg.close
skmsg.Connect DataUser.DispatcherIP, DataUser.DispatcherPort
End Sub
-----------------------------------------------
====================================
thanksssssss
Winsock Wont Send!
Im making a chat program and im having a problem. Everything is sending and recieving OK, but when i try to send a message to tell the other computer that the user has disconnected, it wont send the text. heres the code that im having trouble with-
Code:
Private Sub Command2_Click()
If Winsock1.State = 7 Then'make sure its connected
Winsock1.SendData ("discon")'tells the other computer it disconnected(wont work)
Winsock1.Close'close winsock connection
Note ("Chat disconnected")'note the this compuer it has disconnected
Command2.Caption = "Connect"'bla
End If
End Sub
the problem isnt that its not connected, ive check that. i also know that the 'If' statemend isnt keeping it from working cause it does the 'Note("chat disconnected")' part. And i know that the other computer isnt receiveing anything at all cause i had it show me all the strings sent, and nothing happens when that button is clicked....... whats going on?????
EDIT:Okay... i figured it out, its because i have the winsock.close thing. How do i make sure it sends the text before it closes? Also a similar code in the Form_Unload is having the same problem cause it closes instead of sending the text. How do i make sure the string is sent before closing, or unloading?
Send TYPE Through Winsock
A quick question:
If I were to declare a type like this:
Public Type TestOBJ
vName as string
vOther as integer
End Type
Is it possible to send it through winsock using Winsock.send??
I have tried... with no success
Can anyone suggest a way of sending a user type object over winsock (or by any means).
How Do I Send Data Through Winsock
hi guys im developing a client server application that will need multiple clients...i need to send the time and date of the server out to all the client to keep in synce with the server..can anyone give me the code to do this?? please help me out im desperate!!
Winsock Send Listbox
Hi... I was wondering if any of you know how to have a server with a listbox named list1 in it send that whole listbox to the client. If anyone has an answer, it will be appreciated.
Thx,
-XtremE87
Winsock To Send Commands
hi ..
i have a tiny small question.
iam a vb newbie....hope u can help ..
i did read in the thread about the server client program,i noticed that in the
wisock1.senddata data1 always about a text is ..
this means it is always been used to send text..
what if i want to send a msgbox as example !?
or if i want to tell the Client to recievekeys like {prtscr} ??
will it be like this for the msgbox?
winsock1.senddata msgbox"ANYTHING" !?!?!?!
plz help ..
thanksss a lot ..........
(it will be very useful for me ,if u tell me in general ,how to send commands, through the winsock!!!)
:-)))))))))))
Help With Picturebox, Send With Winsock
Hello ppl,
Another question.
I want to send the contents of my PictureBox to another computer's PictureBox with winsock.
This is what i've got at the moment:
The Send program:
Private Sub Form_Load()
Form1.Hide
wnsckBeeldscherm.Listen
DoEvents
End Sub
Private Sub wnsckBeeldscherm_ConnectionRequest(ByVal requestID As Long)
'when a client requests for a connection
'end the current connection and
'accept the new connection
If wnsckBeeldscherm.State <> sckClosed Then wnsckBeeldscherm.Close
wnsckBeeldscherm.Accept requestID
txtConnectionBeeldscherm.Text = 1
DoEvents
End Sub
Private Sub wnsckBeeldscherm_SendComplete()
wnsckBeeldscherm.SendData picBeeldscherm.Picture
DoEvents
End Sub
The Recieve Program:
Private Sub Form_Load()
Online.WindowState = vbMaximized
wnsckBeeldscherm.RemoteHost = Main.txtIp.Text
wnsckBeeldscherm.Connect
DoEvents
End Sub
Private Sub wnsckbeeldscherm_DataArrival(ByVal bytesTotal As Long)
'when data arrives from a client
wnsckBeeldscherm.GetData MyData, PictureBox 'get all the data to the variable data
picBeeldscherm.Picture = MyData 'display the arrived data to the picture box
DoEvents
End Sub
It isn't working but i don't know what i'm doing wrong.
Who can help me????
WinSock Send/Receive
Hello,
I was recently writing a program that uses WinSock to send and receive data (duh). This is obviously showing my lack of programming logic, but hey :-)
What I am confused about is how the client receives the data from the server. IE (I try to do some MSN messenger programming here and there), the client connects to MSN's server, sends the first packet, and the server responds. How would you check to see what the server responded with? Is there a property in WinSock that will return that?
Thanks in advance =)
Send A Picture With Winsock
Hello,
I'm programming an instant messenger program that can send a picture from a picturebox to a picturebox from the other user.
I deleted all my stuff what i had because it wan't working.
Who have any idea's? I can make a connection with winsock, so don't explain me something about winsock. I think my problem is the defining of the data to send, i think the sending works but the receiving part isn't working.
Long story isn't?
I hope you can help me.
Greetz,
Altoid
Send Array Through Winsock
I have an array created by OnErr0r's PictoByte function that I need to be able to send and then use OnErr0r's Picturefromres function to show the picture in a picturebox. The problem is I can't figure out how to exactly do this, I've tried creating a string with all the array elements, and then putting the elements back into an array on the server side. I don't get any errors and i'd like to find a way to prevent from saving the image to disk and then displaying it as it will slow down my program. Any Ideas?
EDIT: This seems very odd to me, I converted the byte array to a string and back again on the server side... and this worked when I loaded an image into the picturebox, the image was sent successfully and shown correctly, although, my program captures video from the webcam and i'm trying to send a 'still' image. But the server side program isn't getting ANY data, whats the problem here?
Send Image With Winsock
How can i send an image stored in picture1.picture using sockets?
if i use
winsock.senddata picture1.picture
i don't get any error...
but when i receive the image (on another pc)
winsock.getdata picture.picture
i get the error "Variant types not supported"....
second question....
how can i send the picture resized and compressed?
i have an image 1024X768 but i only want to send the same picture 320X240 (maybe compressed)
Edit: Moved from General
Winsock Send One Line
Hello Good Evening and Morning
Winsock send one line
i send the data from client to the server in a chat program
this is what i do
Winsock1.SendData Text6 & Text7 & Text8 & Text10
which has numbers
like this
9=34=58=
i need to put them in three different textboxes in the Server chat how would i split it
sometimes the number can be 1 digit
sometime 2 digits, if i have to use a left# mid# right# function
or code, i don't no how to do that yet.
i thied one mid# function that the words would change
but the mid# function could not tell when to split the word
so some of the words splited taken away some of the letters.
So that i get my how number with out losing information,
how would i split the numbers so that it always remains the same. i added the "=" to no where the end is but if you can help me we can take out the "=" sign.
my numbers look like this
9=34=58=
need it to look like this
9 34 58
hope the code will work can anyone show me an example'
i am looking at a mid# function code i found, oh no i run it it did not work.
If anyone has example can you show me, i sure can't remember its been like five years since i used Mid$ Right$ Left$.
Thank You
Send Picturebox Through Winsock
hey,
i want to send an picturebox as fast as possible through winsock to another picturebox. right now i'm saving the picturebox to a file first and then send the file. but i think it could be done faster and without saving the file. how?
Send Message To All (Winsock)
I'm currently building a server/client chat program.
There's a list of all connected clients in a list box (lstUsers).
I want to send the data in my text1.text to all of the clients' text1.texts.
Ask About Winsock Send Packet
i want send packet for post to webboard
i want code or exam for send packet to post !!!thanx!!!!
i have code but none work
Code:
Dim st As String
Dim LAW(1 To 20) As String
Private Sub Form_Load()
LAW(1) = "f"
LAW(2) = "t"
LAW(3) = "t_mes"
LAW(4) = "t_emo"
LAW(5) = "t_topic_type"
LAW(6) = "disable_html"
LAW(7) = "attach_sig"
LAW(8) = "add_attachment_body"
LAW(9) = "posted_attachments_body"
LAW(10) = "fileupload"
LAW(11) = ""
LAW(12) = "filecomment"
LAW(13) = "mode"
LAW(14) = "t"
LAW(15) = "post"
st = "POST /friend/mail/sendMail.do HTTP/1.1" & Chr$(13) & Chr$(10)
st = st & "Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-powerpoint, application/vnd.ms-excel, application/msword, */*" & Chr$(13) & Chr$(10)
st = st & "Referer: http://www.hi5.com/friend/mail/displayComposeMail.do?toIds=203896945" & Chr$(13) & Chr$(10)
st = st & "Accept-Language: th" & Chr$(13) & Chr$(10)
st = st & "Content-Type: application/x-www-form-urlencoded" & Chr$(13) & Chr$(10)
st = st & "Accept-Encoding: gzip, deflate" & Chr$(13) & Chr$(10)
st = st & "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)" & Chr$(13) & Chr$(10)
st = st & "Host: www.hi5.com" & Chr$(13) & Chr$(10)
st = st & "Content-Length: 127" & Chr$(13) & Chr$(10)
st = st & "Connection: Keep-Alive" & Chr$(13) & Chr$(10)
st = st & "Cache-Control: no-cache" & Chr$(13) & Chr$(10)
st = st & "Cookie: hi5sp=homepage; tzoffset=7; NSC_bqq-tfswfst=e2425d383660; hi5loggedIn=true; WSSSampleCookie=N; fcHistory=275:1210588849219; __qca=1210165325-95723677-61533214; Email=dekbannok_ag@hotmail.com; AL=1:o9TLeb2en8h8XRseF6q0GQ..:Gu6FwdLHLXuB69hTKQWX_4ImCJLreUqdO5gyeplMk_c.; hi5nsc=01; importerInt=true; hi5sp=homepage; tzoffset=7; pdu=1602:8238_1602:2_1602:7317_1602:7318_1602:7435; JSESSIONID=aq1THK-FjhEh; __qcb=1514874694; Userid=117585151; LocaleCookie=en_TH" & Chr$(13) & Chr$(10)
st = st & "toIds=F%3A203896945&subject=test&method=send&body=test×tamp=1210507808714&mailOp=&senderId=&msgId=&submitSend=Send+Message"
st = st & "Content-Disposition: form-data; name=" & LAW(1) & "....1" & Chr$(13) & Chr$(10)
st = st & "-----------------------------7d8138392e032a" & Chr$(13) & Chr$(10)
st = st & "Content-Disposition: form-data; name=" & LAW(2) & "....1" & Chr$(13) & Chr$(10)
st = st & "-----------------------------7d8138392e032a" & Chr$(13) & Chr$(10)
st = st & "Content-Disposition: form-data; name=" & LAW(3) & "....test" & Chr$(13) & Chr$(10)
st = st & "-----------------------------7d8138392e032a" & Chr$(13) & Chr$(10)
st = st & "Content-Disposition: form-data; name=" & LAW(4) & "....0" & Chr$(13) & Chr$(10)
st = st & "-----------------------------7d8138392e032a" & Chr$(13) & Chr$(10)
st = st & "Content-Disposition: form-data; name=" & LAW(5) & "....0" & Chr$(13) & Chr$(10)
st = st & "-----------------------------7d8138392e032a--"
st = st & "Content-Disposition: form-data; name=" & LAW(6) & "....on" & Chr$(13) & Chr$(10)
st = st & "-----------------------------7d8138392e032a" & Chr$(13) & Chr$(10)
st = st & "Content-Disposition: form-data; name=" & LAW(7) & "....on" & Chr$(13) & Chr$(10)
st = st & "-----------------------------7d8138392e032a" & Chr$(13) & Chr$(10)
st = st & "Content-Disposition: form-data; name=" & LAW(8) & "...." & Chr$(13) & Chr$(10)
st = st & "-----------------------------7d8138392e032a" & Chr$(13) & Chr$(10)
st = st & "Content-Disposition: form-data; name=" & LAW(9) & "...." & Chr$(13) & Chr$(10)
st = st & "-----------------------------7d8138392e032a" & Chr$(13) & Chr$(10)
st = st & "Content-Disposition: form-data; name=" & LAW(10) & "; filename=" & LAW(11) & Chr$(13) & Chr$(10)
st = st & "Content-Type: application/octet-stream...." & Chr$(13) & Chr$(10)
st = st & "-----------------------------7d82ce3aa02fe" & Chr$(13) & Chr$(10)
st = st & "Content-Disposition: form-data; name=" & LAW(12) & "...." & Chr$(13) & Chr$(10)
st = st & "-----------------------------7d82ce3aa02fe" & Chr$(13) & Chr$(10)
st = st & "Content-Disposition: form-data; name=" & LAW(13) & "....reply" & Chr$(13) & Chr$(10)
st = st & "-----------------------------7d82ce3aa02fe" & Chr$(13) & Chr$(10)
st = st & "Content-Disposition: form-data; name=" & LAW(14) & "....69693" & Chr$(13) & Chr$(10)
st = st & "-----------------------------7d82ce3aa02fe" & Chr$(13) & Chr$(10)
st = st & "Content-Disposition: form-data; name=" & LAW(15) & ".......(Submit)" & Chr$(13) & Chr$(10)
W.RemoteHost = "202.172.16.124"
W.RemotePort = 80
W.Connect
End Sub
Private Sub Command1_Click()
W.SendData st
End Sub
Private Sub W_ConnectionRequest(ByVal requestID As Long)
W.Accept requestID
End Sub
Private Sub W_DataArrival(ByVal bytesTotal As Long)
Dim str As String
W.GetData str
MsgBox str, vbOKOnly + vbCritical, "Show:"
'W.Close
End Sub
|
TRACKER
