كيف أرسل البيانات للموقع التالي وجلب النتيجة عن طريق الفيجوال بيسك

أعتقد أن مكان هذا لسؤال في منتدى الفجوال بسيك

على كل هناك كنترول إسمه winsocket يقوم بهذا العمل وهو إرسل وإستقبال المتغيرات لصفحات النت

iهذا مثال :

Private Sub btn_web_Click()

	blnConnected = False

	strhost = "www1.internalsite.com"
	strurl = "test/process.asp"
	winsock.Protocol = sckTCPProtocol
	winsock.RemoteHost = strhost
	winsock.RemotePort = 80
	strpostdata = "mypass=testpass&mytext=testtext"
	strHeaders = "Content-Type: application/x-www-form-urlencoded" & vbCrLf & "Content-Length: " & Len(strpostdata) & vbCrLf

	strHTTP = "POST" & " " & strurl & " HTTP/1.0" & vbCrLf
	strHTTP = strHTTP & "Host: " & strhost & vbCrLf
	strHTTP = strHTTP & strHeaders
	strHTTP = strHTTP & vbCrLf
	strHTTP = strHTTP & strpostdata

	winsock.Connect
	' wait for a connection
	While Not blnConnected
		DoEvents
	Wend
	winsock.SendData strHTTP

End Sub

لا أملك نسخة فجوال بيسك وتركت برمجتها منذ زمن لذلك آسف لم أتمكن من تجربة الكود

إجعل نطاق بحثك عن الوين سوكيت

http://www.google.jo/search?num=100&q=...t+from+Web+Page