ورود

View Full Version : سوال: ارسال یک عدد بر روی یک فایل متنی روی اینترنت!


R2du-soft
یک شنبه 25 فروردین 1392, 18:10 عصر
سلام
دوستان به یه مشکلی خودم
میخوام ببینم که کاربر ها تو برنامه چند بار کلیک میکنن.
میخوام پس از هربار کلیک 1 عدد به داخل یک فایل تکست بر روی اینترنت فرستاده بشه.
مثلا داخل فایل تکستم روی نت ، هست 0
وقتی کاربر اول داخل برنامه کلیک کرد بشه 1 و ذخیره بشه.
وقتی کاربر دوم کلیک کرد اون بشه 2 و ذخیره بشه.
وقتی کاربر سوم کلیک کرد اون بشه 3 و ذخیره بشه.
.
.
.
.
و همینطور الی آخر

چطور باید اینکارو کنم؟!
mtn677
چهارشنبه 28 فروردین 1392, 22:36 عصر
می تونی عدد رو توی یک TXT روی هاست ذخیره کنی و توی فرم لود برنامت اون عدد رو بگیری. اگه کد رو می خوای پیغام بده.
phpeproject.ir
چهارشنبه 28 فروردین 1392, 22:38 عصر
سلام میتونید به جای ارسال تکست به یک صفحه POST انجام بدین که در صورت post یک عدد اضافه بشه
R2du-soft
پنج شنبه 29 فروردین 1392, 00:54 صبح
نه اینکارارو نمیخوام کنم

نگاه کنید دوستان:


Private Sub Command1_Click()
A = 1
Text1.Text = Text1.Text + A
End Sub

Private Sub Form_Load()
Text1.Text = 0
End Sub


کد بالا میاد پس از هرباز فشردن دکه ، 1 عدد به تکست باکسمون اضافه میکنه.
مثلا اگه 1 با کلیک بشه داخل تکست باکس میشه 1
اگه دفه دوم فشرده بشه داخل تکست باکس میشه 2
.
.
الی آخر!
میخوام این عدد بدون اینکه داخل تکست باکس ذخیره بشه مستقیم داخل فایل متنی مثلا reza.txt در آدرسی مثل www.google.com/reza.txt (http://www.google.com/rez.txt) ذخیره بشه!
چطور اینکارو کنم؟
phpeproject.ir
پنج شنبه 29 فروردین 1392, 00:56 صبح
به نظر من با پست بسیار راحته و امکان پذیره تا با تکست
setroyd
پنج شنبه 29 فروردین 1392, 01:58 صبح
شما باید نحوه ی uploload کردن رو پیدا کنی با ازسال پارامترها بعدش این کار عملی هست .
R2du-soft
پنج شنبه 29 فروردین 1392, 13:01 عصر
دوستان کدی چیزی در این باره uploload کردن و یا Post و یا هر روش دیگه ای که بشه اینکارو کرد ندارید بزارید اینجا ور بریم با کدها!!!
من که به نتیجه نرسیدم!
mehran901
پنج شنبه 29 فروردین 1392, 23:00 عصر
نه اینکارارو نمیخوام کنم

نگاه کنید دوستان:


Private Sub Command1_Click()
A = 1
Text1.Text = Text1.Text + A
End Sub

Private Sub Form_Load()
Text1.Text = 0
End Sub


کد بالا میاد پس از هرباز فشردن دکه ، 1 عدد به تکست باکسمون اضافه میکنه.
مثلا اگه 1 با کلیک بشه داخل تکست باکس میشه 1
اگه دفه دوم فشرده بشه داخل تکست باکس میشه 2
.
.
الی آخر!
میخوام این عدد بدون اینکه داخل تکست باکس ذخیره بشه مستقیم داخل فایل متنی مثلا reza.txt در آدرسی مثل www.google.com/reza.txt (http://www.google.com/rez.txt) ذخیره بشه!
چطور اینکارو کنم؟

کار سختی نیس! راحت ترین روششی که الان میتونم پیشنهاد کنم استفاده از FTP حالا چ با استفاده از کامپوننت ها و API (سورس آماده زیاده ) یا با روش ساده تری مثل ftp داس ...البته توسط ویبی دستوراتتو ارسال میکنی و فایلت آپلود میشه رو هاستت
vbhamed
پنج شنبه 29 فروردین 1392, 23:07 عصر
سلام

البته توجه داشته باشيد با توجه به سرعت خيلي پايينتر اينترنت نسبت به كليك كردن، ممكنه بعضي اطلاعات اين وسط از بين بره
بهتره تعداد كليك ها رو ذخيره كنيد و در فواصل زماني مشخص بفرستيد روي اينترنت
mehran901
پنج شنبه 29 فروردین 1392, 23:15 عصر
ی پی دی اف پیدا کردم ، از طریق داس اف تی پی بفرستی ... دستوراتش رو ب کار ببر و به مد ascii و binary دقت کن ! مدتو مشخص کن وگرنه اطلاعاتت بهم میریزه

ی سورسم از ویبی واست گذاشتم از msdn مایکروسافت قبلنا گرفته بودم

103040

103041
vbhamed
پنج شنبه 16 خرداد 1392, 02:33 صبح
سلام
براي اينكار 2 تا راه داريد
يكي اينكه طبق گفته خودتون تو برنامتون اون عدد رو زياد كنيد كه در اينصورت بايد اول اجراي برنامه، از فايل روي سايت آخرين عدد يادداشت شده رو بخونيد و از اون به بعد رو ادامه بديد
دوم اينكه كاري كنيد با هر بار فراخواني خودش يكي به عدد اضافه كنه كه هر دو روش رو ميزارم

از منوي Project گزينه Components آيتم Microsoft Internet Transfer Control رو تيك بزنيد
يك كنترل Inet و يك دكمه روي فرم بزاريد
كد زير رو بنوسيد
Option Explicit

Dim c%

Private Sub Command1_Click()

c = c + 1
Inet1.OpenURL "http://www.yoursite.com/file.php?N=" & CStr(c)

End Sub
خب همونطوري كه مشخصه يك فايل با نام file.php هم بايد ايجاد كنيد و روي سايتتون كپي كنيد كه اين محتوياتشه
<html>
<body>
<?php
$file=fopen("test.txt","w+");
fputs($file,$_GET['N']);
fclose($file);
?>
</body>
</html>
با اينكار هر موقع دكمه رو بزنيد عدد درون يك فايل به نام test.txt روي سايت نوشته ميشه
vbhamed
پنج شنبه 16 خرداد 1392, 02:37 صبح
سلام

در مورد دوم براي اينكه اينكار اتوماتيك انجام بشه كد فرم و فايل file.php به شكل زير هست
كد فرم
Option Explicit

Private Sub Command1_Click()

Inet1.OpenURL "http://www.yoursite.com/file.php"

End Sub
فايل file.php
<html>
<body>
<?php
$n = 0;
if (file_exists("test.txt"))
{
$file=fopen("test.txt","r+");
while(!feof($file)) $n=fgets($file);
}
$file=fopen("test.txt","w+");
fputs($file,$n+1);
fclose($file);
?>
</body>
</html>