فرستادن عدد بر روی هاست

[kimiafars]

ممنون

[CRazYFULL]

يکم بيشتر توضيح بده
به وسيله vb6 دما رو ميگيری؟

[lord_viper]

شما باید دما رو بوسیله برنامه ای که روی پورت paralel یا serial هست بخونی و با ستفاده از socket programing اون اطلاعات رو به سرور منتقل کنی

[babyy]

سلام

اگه منظورتون رو درست متوجه شده باشم ، در کل میشه گفت شما یه عدد دارین ( جدا از اینکه چطور بدست آوردین و ... ) تو vb ؛ میخوایین بفرستین رو هاست که تو صفحاتتون نمایش داده بشه ؛

اگه همینه منظورتون ؛ بهترین راه ؛ اینه که یه اسکریپت بنویسین که منتظره عدده باشه و بعد از دادن عدده , اونو یه جا مثلا تو یه فایل ذخیره کنه ؛ رو هاست آپ کنید ؛ بعد با یه Shell (در صورتی که اسکریپته ؛ با متد GET منتظر باشه ! ) هم میتونید عدد رو به اسکریپته بدید ؛؛ و تو صفحاتتون اجرا کنید ؛ همین.

[CRazYFULL]

شما بايد يک فايل html درست کنيد و اون رو توی هاستی که php ساپورت کنه بزاريد به وسيله يک فايل php مقدار گرفته شده رو درون فايل htm ذخيره کنيد

کد php:

<?php 
if (ISSET($_GET['send'])){
$filename = "test.htm"; 
 $meghadr = $_GET['Text1'];
 $fp = fopen( $filename, "w" ) or die("file baz nemishe"); 
$meghadr = "meghdar: <b> $meghadr </b>";
 fwrite( $fp, "$meghadr \n" ); 
 fclose( $fp ); 
print "zakhire shod";
}else{
print "NOK";
}
?>

برای کار کرد درست پرميشن Read رو تيک بزن

برای ارتباط با php هم تو vb ابزار زياده

کد:

'By: ParsProg.Com
Private WithEvents WinHttp1 As WinHttp.WinHttpRequest

Private Sub Form_Load()
Set WinHttp1 = New WinHttp.WinHttpRequest
End Sub

Private Sub Command1_Click()
Label1 = "Send data..."
WinHttp1.Open "GET", "http://www.parsprog.com/test/index.php?Text1=" & Text1.Text & "&send=Send", True
WinHttp1.Send
End Sub

Private Sub WinHttp1_OnResponseFinished()
If InStr(WinHttp1.ResponseText, "zakhire shod") > 0 Then
Label1 = "ba movafaghiyat Send Shod"
Else
Label1 = "Send nashod!!!"
End If
End Sub

از منو Project گزينه References رو انتخاب کن و از ليست Microsoft Winhttp Services Version 5.1 رو انتخاب کن

[babyy]

سلام

آقای crazyfull دست بهترین راه ما رو از پشت بستن دیگه !

اگه بخواییم با متد POST سند کنیم ؛ باید چطور از WinHttp1 استفاده کنیم ؟؟ میشه توضیح بدید ؟؟ (من فقط قسمت vb مدنظرمه)

ممنون

[CRazYFULL]

با وينساک و اينترنت ترانسفر هم ميشه ولی اين dll از ويندوز 2000 به بعد توی همه نسخه های ويندوز هست تا وينستا.
مارمولک زد به سرت تو تروجان ازش استفاده کنی؟

کد:

Http1.Open "POST", "http://mysite.com", True
Http1.SetRequestHeader "Accept", "image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/msword, */*"
Http1.SetRequestHeader "UA-CPU", "x86"
Http1.SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)"
Http1.SetRequestHeader "Connection", "Keep-Alive"
Http1.SetRequestHeader "Cache-Control", "no-cache"
Http1.Send "name=mojtaba&family=betoche&send=OK"

[babyy]

سلام

نه بابا ؛ تروجانم کجا بود ! تازه من سوادم کمه ؛ از همون متد GET استفاده میکنم !
----------------------------------
این کد عمل نمیکنه ها ! هر کاریش کردم عمل نمیکنه ؛ حتی http://127.0.0.1 رو Not Found میده !!

با وینساک که خودتون یادم دادین ؛ میشه یه نمونه هم با اينترنت ترانسفر بگید ؟؟ ( روشهای ارسال با متد POST رو )

ممنون میشم.

[CRazYFULL]

اين از اينترنت ترانسفر قويتره!!!
توی اون مثال يادم رفته بود توی هدر, content-length رو ست کنم شايد مشگلت از اين باشه
بعد حتماً هدر هميشه نبايد اين مقادير رو داشته باشه اينا هميشه اجباری نيستند و حتماً نبايد ازين مقادير استفاده کنی فقط اينارو نوشتم که ببينی ميشه هدر هم ست کرد
اين مثال لاگين همين فروم هست:

کد:

Dim Body As String
Body = "action=do_login&url=http%3A%2F%2Fforum.iranled.com%2Findex.php&quick_login=1&quick_username=crazyfull&quick_password=zerangiiiii&submit=%D9%88%D8%B1%D9%88%D8%AF"

HTTP1.Open "POST", "https://forum.iranled.com/member.php", True
HTTP1.SetRequestHeader "Accept", "image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/msword, */*"
HTTP1.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
HTTP1.SetRequestHeader "UA-CPU", "x86"
'HTTP1.SetRequestHeader "Accept-Encoding", "gzip, deflate"
HTTP1.SetRequestHeader "Accept-Language", "fa"
HTTP1.SetRequestHeader "Content-Length", Len(Body)
HTTP1.SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)"
HTTP1.SetRequestHeader "Connection", "Keep-Alive"
HTTP1.SetRequestHeader "Cache-Control", "no-cache"
'HTTP1.SetRequestHeader "Cookie", YCookie
HTTP1.Send Body

از http1.getresponseheader اين خاصيت هم ميتونی هدر دريافتی رو مشاهده کنی

[babyy]

سلام

آقا ؛ kimiafars بنده خدا خودش پشیمون شد از سوالش، من ول نمیکنم حالا !!


فکر کنم مشکل از همون content-length بود ، حل شد؛ممنون.

اين از اينترنت ترانسفر قويتره!!!

آخه من با اينترنت ترانسفر مشکل شخصی دارم اگه یه مثالم باهاش بزنید ممنون میشم

[CRazYFULL]

کد:

Dim Body As String, Pck As String
Body = "action=do_login&url=http%3A%2F%2Fforum.iranled.com%2Findex.php&quick_login=1&quick_username=crazyfull&quick_password=zerangiiiii&submit=%D9%88%D8%B1%D9%88%D8%AF"

Pck = "Content-Type: application/x-www-form-urlencoded"
Pck = Pck & "User-Agent: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)"" & vbNewLine"
Pck = Pck & "Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/msword, */*" & vbNewLine
Pck = Pck & "Connection: Keep-Alive" & vbNewLine
Pck = Pck & "Cache-Control: no-cache" & vbNewLine

Inet1.Execute "http://forum.iranled.com/member.php", "POST", Body, Pck