کمک کی می تونه این برنامه رو بنویسه

[god of war 2]

سلام.
من زیاد با VB6 میونه خوبی ندارم اما برای استفاده از Winsock در زبانهای دیگه مثل C یا VB.net میتونم کمکت کنم.

اگر به زبان C آشنا هستی یک نگاه به آدرس زیر بنداز نحوه استفاده از Winsock رو بصورت مختصر و مفید توضیح دادم.

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

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

(مثل تعیین پورت و آدرس ip مقصد و مقدار دهی اولیه به Socket و در آخر هم ارسال و دریافت بایتها) که

حدودا 30-40 خط کد نویسی بیشتر نداره.(شاید در VB به کدنویسی کمتری نیاز باشه)

و یک نکته دیگه اینکه شما باید از دو برنامه مجزا استفاده کنید که یکی در Server فعالیت کنه و دیگری در Client ها.

برنامه ای که در سرور اجرا میشه مسئول برقراری ارتباط با برنامه اجرا شده در کلاینت ها هست و کاری هم که باید انجام بده اینه که روی پورت تعیین شده در

سرور Listen in یا همون "شنود" کنه برای دریافت اطلاعات از کلاینت ها و در صورت لزوم فرستادن اطلاعات لازم از سرور به کلاینت ها. کل این تبادل اطلاعات

روی یک پورت مشخص صورت میگیره البته اگر امنیت هم برای شما مهم باشه باید کارهای اضافه تری

هم انجام بدید که خود یک بحث جداگانه داره.(ولی برای بازی امنیت زیاد مهم نیست)

برای تعیین ip هم شما فقط به Server ip نیاز داری و لازم نیست ip تک تک کلاینت هارو بدونی.

برای تعیین پورت سعی کن از پورتی استفاده کنی که قبلا رزرو نشده و هیچ سرویسی از اون استفاده نمیکنه.

(پورت های 23- 80 - 21 و چندتای دیگه برای سرویس های دیگری رزرو شده و قابل استفاده نیست)

برای این کار راههای بیشتری هم هست ولی توصیه نمیکنم مثل استفاده از سرویس Telnet که البته باز هم باید در سرور برنامه شنود داشته باشید و راههای دیگر...

موفق باشید.

[Mohsen.Sh_PC]

سلام
برای پاسخ هاتون متشکرم.
من یک سوال دیگه داشتم.
میخوام با ریجستری کامپیوتر رو Shut Down,Restart کنم.
اما فقط با ریجستری(معلممون گیر داده)
با دستور Shell بلدم ولی با ریجستری نه!!!

[Mohsen.Sh_PC]

سلام
یکم جستجو کردم فهمیدم باید با توابع api باید ریجستری رو تغییر بدی اما مثالی گیرم نیمومد
کار با توابع api رو یاد ندارم.آخه از یک سوم هنرستانی چه انتظاری دارید
حداقل یک مثالی بزنید که یک کارو در ریجستری انجام بده.

[!Plus]

من یک سوال دیگه داشتم.
میخوام با ریجستری کامپیوتر رو Shut Down,Restart کنم.
اما فقط با ریجستری(معلممون گیر داده)
با دستور Shell بلدم ولی با ریجستری نه!!!

سلام
یکم جستجو کردم فهمیدم باید با توابع api باید ریجستری رو تغییر بدی اما مثالی گیرم نیمومد
کار با توابع api رو یاد ندارم.آخه از یک سوم هنرستانی چه انتظاری دارید
حداقل یک مثالی بزنید که یک کارو در ریجستری انجام بده.

با رجیستری می خوای کامپیوترت رو خاموش کنی...؟؟؟!!!

فکر نمی کنم که این کار امکان پذیر باشه...!؟!

ولی... واسه کار با رجیستری از VB ... می تونی از ماژولی که خود ماکروسافت واسه این کار نوشته... استفاده کنی...!؟! این ماژول تو مسیر زیر هستش...!؟! (ممکنه درایو ش فرق داشته باشه...!؟! ) :

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

کار کردن با رجیستری از VB به طور مستقیم با توابع API کار بسیار مشکلی ه...!؟!

این ماژول هم خودش با توابع API نوشته شده...!؟!

کار کردن باهاش خیلی ساده ست...!؟!

اگه مشکلی بود من در خدمتم...!؟!

موفق باشید...!؟!

[blackrose2196]

سلام
آیا میشه تو ورد یه نوع ماکرو تعریف کرد به صورتیکه بشه با اون اطلاعات خاصی رو از توی فایل ورد استخراج کرد و توی یک فایل دیگه ریخت.
مثلا فرض کنید فایل ورد ما 50 صفحه است که شامل 50 تا نامه است و اطلاعاتی که ما نیاز داریم بین دو کلمه "باستحضار می رساند" و "مبذول فرمایید" است. میشه یه کدی نوشت که تمام ناحیه های بین این دو کلمه انتخاب بشه و کپی بشه توی یه فایل دیگه؟

[blackrose2196]

سلام
آیا میشه تو ورد یه نوع ماکرو تعریف کرد به صورتیکه بشه با اون اطلاعات خاصی رو از توی فایل ورد استخراج کرد و توی یک فایل دیگه ریخت.
مثلا فرض کنید فایل ورد ما 50 صفحه است که شامل 50 تا نامه است و اطلاعاتی که ما نیاز داریم بین دو کلمه "باستحضار می رساند" و "مبذول فرمایید" است. میشه یه کدی نوشت که تمام ناحیه های بین این دو کلمه انتخاب بشه و کپی بشه توی یه فایل دیگه؟

سلام
زحمت نکشید خودم نوشتمش. اینجا می ذارم از دوستان کسی خواست استفاده کنه مارو دعا کنه

Sub Macro1()
'
' Macro1 Macro
'
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "باستحضار می رساند "
.Replacement.Text = "*"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchKashida = False
.MatchDiacritics = False
.MatchAlefHamza = False
.MatchControl = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "مبذول فرمایید"
.Replacement.Text = "%"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchKashida = False
.MatchDiacritics = False
.MatchAlefHamza = False
.MatchControl = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Sub ScratchMacro()
Dim oRng As Word.Range
Set oRng = ActiveDocument.Range
With oRng.Find
.Text = "[\*]*%"
.Forward = True
.Wrap = wdFindStop
.MatchWildcards = True
While .Execute
'Clip special characters from found text
oRng.Start = oRng.Start + 1
oRng.End = oRng.End - 1
ScratchMacro2 oRng
oRng.Collapse wdCollapseEnd
Wend
End With
End Sub
Sub ScratchMacro2(ByVal oRng2 As Range)
Documents.Add
Selection.Range.Text = oRng2.Text
End Sub

[khonvehsamira]

برای انجام این مثال از تقسیم صحیح و باقیمانده تقسیم استفاده می شود.
برای بدست اوردن سال باید تعداد روزها را تقسیم بر 365 کرد.
برای بدست اوردن روزهای باقیمانده (پس از تبدیل به سال) باید باقیمانده تعداد کل روزها را نسبت به 365 به دست اورد.

Days:سن شما به روز

Y:تعداد سال
M:تعداد ماه
W:تعداد هفته

Days =val(text1.text)
Y= days\365
Days= days mod 365
M=days\30
Days =days mod 30
W=days \7
Days = days mod 7
Text2.text=”your age is :”+ str(y)+ “year,”
Text2.text= Text2.text+str(m)+”month,”
Text2.text= Text2.text+str(w)+”weeks”
Text2.text= Text2.text+str(days)+”days,”

اگه نظری داشتید برام بفرستید ممنون
سمیرا خنوه