فرستادن و گرقتن یه string از یک سایت

[senator_aka]

سلام دوستان.
هر کی می دونه لطفا راهنمایی کنه!!
نیاز بسیار فوری دارم.

من می خواهم متن یه textBox رو به یه سایت بفرستم و از یه textbox دیگه که روی همون سایت هست متن داخلش را به برنامه بفرستم.

حالا چطوری می تونم این کار را انجام دهم.

لطفا اگه میشه یه مثال عملی بزنید

[senator_aka]

دوباره سلام.
یعنی سوال من اینقدر سخت بود که کسی تا حالا جوابی براش نداشته ؟؟؟؟

از بچه های این سایت واقعا بعیدهست!!!!

اگه کسی می تونست لطفا کمک کنه !

[Danial_Yousefi]

سلام من یه سری از این کد ها دارم نمی دونم به دردت می خوره یا نه حلا می فرستم

[Danial_Yousefi]

این برنامه رو بگیر API GUIDE (http://danialamd.persiangig.com/Project/agsetup.exe) بعد تو تب groups قسمت اینترنت یه علمه کد هست شاید به دردت بخوره

[senator_aka]

دوست عزیز من خودم این برنامه را دارم اما نتونستم ازش کمکی بگیرم.
بخاطر همین دنبال مثال عملی هستم.
در ضمن من فکر نمی کنم توابع api بتونن کمکی کنن.
باید از ابزار های ارتباط با اینترنت خود vb استفاده کنیم.

[senator_aka]

بچه ها تو رو خدا کمک کنید.

یعنی هیچ کس بلد نیست چنین کاری رو انجام بده

خیلی بهش نیاز دارم.

[حامد مصافی]

با استفاده از تابع زیر می تونی متن یک صفحه اینترنتی رو بخونی

Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

برای ارسال رشته هم می تونی از روش get و آرگومان ها استفاده کنی:


lngRetVal = URLDownloadToFile(0, "http://host.com/page.asp?arg=value", "c:\a.htm", 0, 0)

که Value مقدار ارسالی است

[senator_aka]

آقا حامد سلام.
خیلی ممنون که جواب دادید.
دوست عزیز من فقط می خوام در یه textbox بنویسم و از یه textbox دیگه یه اطلاعاتی را بخونم.اسم textbox ها هم معلوم هست.در واقع سایت را من خودم طراحی کردم و تمام اطلاعاتش را دارم.حال می خوام مثلا مقدار تکس باکس یک که در برنامه هست را به textbox1 که در سایت هست بفرستم و مقدار تکس باکس دو که در سایت هست را نیز به تکس باکس دو که در برنامه هست بفرستم.

امیدوارم که تونسته باشم منظورم را بیان کنم

اگه می شه کمکم کنید.
با تشکر فراوان

[حامد مصافی]

کد های سمت سرور:

<%
if request("q") = "A" then
sret = "Haed"
else
sret = "Amir"
endif

response.write sret

%>سمت کلاینت:

lngRetVal = URLDownloadToFile(0, "http://host.com/page.asp?q=" & text1, "c:\a.txt", 0, 0)و در انتها باید محتویات فایل C:\a.txt رو بخونید