کمک درباره ساخت یک ویروس ساده ( پروژه ام هست )

[NaKhoda BiBaK]

سلام دوستان !!!
باید واسه مدرسه یک ویروس ساده ( حالا اسمش رو همینجوری میگم ویروس ) که مثلا وقتی اجراش میکنی یک چیزی تو یک کادری بالای دسکتاپ اجرا بشه !!!
مثلا یک نوشته ای توی یک کادر بالای دسکتاپ مدام بیاد و بره !!!
ممنون میشم کمکم کنید

[MrJamshidy]

اگر منظورت رو واضح تر بگی میشه یک کاریش کرد

[NaKhoda BiBaK]

ببین منظورم ویروس نیست !!!
مثلا یک برنامه ای باشه که 2 تا کادر توش باشه و یک دکمه ! بعد کلمات از پیش تعیین شده ای رو به کادر اول بدی و روی دکمه کلیک کنی تا جواب اون کلمه یا جمله تو کادر دوم بیاد !!!
مثلا تو کادر اول بنویسم ( سلام.خوبی ؟ ) بعد روی دکمه کلیک کنم ، تو کادر دوم بنویسه ( علیک سلام ) به عنوان مثال گفتم.

کسی میتونه کمک کنه ؟؟؟

[NaKhoda BiBaK]

کسی نبود مشکل ما رو حل کنه ؟؟؟

[AM 241]

این که نشد!
خوب این جواب سوال کجا ذخیره شده ؟
بعد اسمش ویروس نیست

[NaKhoda BiBaK]

خب خودمون جواب رو از پیش تعیین میکنیم دیگه !!!
ببین مثلا این کد رو ببین
If Text1.Text = "Pedram" Then
Text2.Text = "Mohammadi"
End If

خب حالا این که باشه وقتی تو کادر اول مینویسی ( پدرام ) کادر دوم سریع میشه ( محمدی ) !
من میخوام وقتی مینویسم ( پدرام ) بعد تا ENTER رو نزدم اون جواب مورد نظر رو ننویسه !!!
مثلا بنویسم ( پدرام ) بعد اینتر بزنم ! بعد تو کادر دوم بنویسه ( محمدی ) !!!
میشه بگید کدش چجوری میشه ؟؟؟

[NaKhoda BiBaK]

کسی نبود کمک کنه ؟؟؟

[JIGSA]

تو Event کلیک کردن Command Button این شرط رو بنویس.

من الان VB رو سیستم ندارم وگرنه براتون می نوشتم.

[ar.constantine]

سلام
من برنامه رو برای شما نوشتم.

'shoma bayad baraye inke command1 ba enter kar konad bayad az moshakhasehaye command1 default ra true konid

If Text1.Text = "" Then
MsgBox "please insert text in the text1", vbCritical, "Insert text"
End If

If Text1.Text <> "" Then
If Text1.Text = "pedram" Then
Label1.Caption = "True"
Text2.Text = "mohammadi"
Label2.Caption = "True"
End If
End If

[hfj]

سلام دوست عزيز.
من هم يك نمونه برات نوشتم. البته برنامه ي قبلي كه دوستمون نوشته خوبه. ولي در بعضي مواقع كه برنامه ي شما گسترده تر ميشه، از اين روش هم ميشه استفاده كرد:
دو تا textbox و يك command button بساز.

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید