۳۰-دى-۱۳۸۷, ۰۸:۲۶:۴۷
صفحه‌ها: 1 2
۰۴-بهمن-۱۳۸۷, ۲۱:۲۸:۵۳
يکم بيشتر توضيح بده
به وسيله vb6 دما رو ميگيری؟
به وسيله vb6 دما رو ميگيری؟
۱۷-بهمن-۱۳۸۷, ۲۳:۳۲:۴۹
شما باید دما رو بوسیله برنامه ای که روی پورت paralel یا serial هست بخونی و با ستفاده از socket programing اون اطلاعات رو به سرور منتقل کنی
۱۸-بهمن-۱۳۸۷, ۰۱:۲۰:۳۹
سلام
اگه منظورتون رو درست متوجه شده باشم ، در کل میشه گفت شما یه عدد دارین ( جدا از اینکه چطور بدست آوردین و ... ) تو vb ؛ میخوایین بفرستین رو هاست که تو صفحاتتون نمایش داده بشه ؛
اگه همینه منظورتون ؛ بهترین راه ؛ اینه که یه اسکریپت بنویسین که منتظره عدده باشه و بعد از دادن عدده , اونو یه جا مثلا تو یه فایل ذخیره کنه ؛ رو هاست آپ کنید ؛ بعد با یه Shell (در صورتی که اسکریپته ؛ با متد GET منتظر باشه ! ) هم میتونید عدد رو به اسکریپته بدید ؛؛ و تو صفحاتتون اجرا کنید ؛ همین.
اگه منظورتون رو درست متوجه شده باشم ، در کل میشه گفت شما یه عدد دارین ( جدا از اینکه چطور بدست آوردین و ... ) تو vb ؛ میخوایین بفرستین رو هاست که تو صفحاتتون نمایش داده بشه ؛
اگه همینه منظورتون ؛ بهترین راه ؛ اینه که یه اسکریپت بنویسین که منتظره عدده باشه و بعد از دادن عدده , اونو یه جا مثلا تو یه فایل ذخیره کنه ؛ رو هاست آپ کنید ؛ بعد با یه Shell (در صورتی که اسکریپته ؛ با متد GET منتظر باشه ! ) هم میتونید عدد رو به اسکریپته بدید ؛؛ و تو صفحاتتون اجرا کنید ؛ همین.
۱۸-بهمن-۱۳۸۷, ۰۷:۲۶:۴۷
شما بايد يک فايل html درست کنيد و اون رو توی هاستی که php ساپورت کنه بزاريد به وسيله يک فايل php مقدار گرفته شده رو درون فايل htm ذخيره کنيد
برای کار کرد درست پرميشن Read رو تيک بزن
برای ارتباط با php هم تو vb ابزار زياده
از منو Project گزينه References رو انتخاب کن و از ليست Microsoft Winhttp Services Version 5.1 رو انتخاب کن
کد 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";
}
?>برای ارتباط با 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 رو انتخاب کن
۱۹-بهمن-۱۳۸۷, ۰۱:۰۵:۵۵
سلام
آقای crazyfull دست بهترین راه ما رو از پشت بستن دیگه !
اگه بخواییم با متد POST سند کنیم ؛ باید چطور از WinHttp1 استفاده کنیم ؟؟ میشه توضیح بدید ؟؟ (من فقط قسمت vb مدنظرمه)
ممنون
آقای crazyfull دست بهترین راه ما رو از پشت بستن دیگه !
اگه بخواییم با متد POST سند کنیم ؛ باید چطور از WinHttp1 استفاده کنیم ؟؟ میشه توضیح بدید ؟؟ (من فقط قسمت vb مدنظرمه)
ممنون
۱۹-بهمن-۱۳۸۷, ۰۴:۴۶:۵۹
با وينساک و اينترنت ترانسفر هم ميشه ولی اين 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"۲۰-بهمن-۱۳۸۷, ۰۵:۰۸:۳۰
سلام
نه بابا ؛ تروجانم کجا بود ! تازه من سوادم کمه ؛ از همون متد GET استفاده میکنم !
----------------------------------
این کد عمل نمیکنه ها ! هر کاریش کردم عمل نمیکنه ؛ حتی http://127.0.0.1 رو Not Found میده !!
با وینساک که خودتون یادم دادین ؛ میشه یه نمونه هم با اينترنت ترانسفر بگید ؟؟ ( روشهای ارسال با متد POST رو )
ممنون میشم.
نه بابا ؛ تروجانم کجا بود ! تازه من سوادم کمه ؛ از همون متد GET استفاده میکنم !
----------------------------------
این کد عمل نمیکنه ها ! هر کاریش کردم عمل نمیکنه ؛ حتی http://127.0.0.1 رو Not Found میده !!
با وینساک که خودتون یادم دادین ؛ میشه یه نمونه هم با اينترنت ترانسفر بگید ؟؟ ( روشهای ارسال با متد POST رو )
ممنون میشم.
۲۰-بهمن-۱۳۸۷, ۱۱:۳۹:۰۶
اين از اينترنت ترانسفر قويتره!!!
توی اون مثال يادم رفته بود توی هدر, content-length رو ست کنم شايد مشگلت از اين باشه
بعد حتماً هدر هميشه نبايد اين مقادير رو داشته باشه اينا هميشه اجباری نيستند و حتماً نبايد ازين مقادير استفاده کنی فقط اينارو نوشتم که ببينی ميشه هدر هم ست کرد
اين مثال لاگين همين فروم هست:
از http1.getresponseheader اين خاصيت هم ميتونی هدر دريافتی رو مشاهده کنی
توی اون مثال يادم رفته بود توی هدر, 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 اين خاصيت هم ميتونی هدر دريافتی رو مشاهده کنی
۲۱-بهمن-۱۳۸۷, ۱۲:۲۷:۱۸
سلام
آقا ؛ kimiafars بنده خدا خودش پشیمون شد از سوالش، من ول نمیکنم حالا !!
فکر کنم مشکل از همون content-length بود ، حل شد؛ممنون.
اگه یه مثالم باهاش بزنید ممنون میشم
آقا ؛ kimiafars بنده خدا خودش پشیمون شد از سوالش، من ول نمیکنم حالا !!
فکر کنم مشکل از همون content-length بود ، حل شد؛ممنون.
نقل قول: اين از اينترنت ترانسفر قويتره!!!آخه من با اينترنت ترانسفر مشکل شخصی دارم
اگه یه مثالم باهاش بزنید ممنون میشم۲۱-بهمن-۱۳۸۷, ۱۲:۵۷:۳۷
کد:
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صفحه‌ها: 1 2