Printable View
آقایون سلام من یک نرم افزار دیدم خیلی باهال بود تحت شبکه اسم کامپیوترت رو بهش می دادی بعد روی کامپیوتر طرف کنترل کامل داشتی هم میتونستی روشنش کنی هم خاموشش کنی دسکتاپش رو بدون این که بفهمه دستت بگیری دسکتاپ خودت رو روی مانیتورش بندازی
منظور از این همه حرف اینه که کسی بلده کامپیوتر کسی رو تحت شبکه روشن یا خاموش کنه؟ (با Vb)
سلام
تمام اعمالی که گفتید قابل انجام است بجز روشن کردن!
میتوان برنامه ای نوشت که فرامین را از برنامه دیگری که در رایانه ی دیگری در شبکه در حال اجرا است بگیرید و در کلاینت اجرا کند (یعنی نیاز به دو برنامه یا دو فایل است.)
ولی روشن کردن رایانه خارج از حیطه هر زبان برنامه نویسی است.
شاید بتوان برای رایانه Sleep شده کاری کرد ولی رایانه ای که کلاً خاموش شده (و شهودی، فن پاور آن کار نکند) هیچ راهی برای روشن شدن ندارد، چون اول باید CPU روشن باشد تا بعد بتواند دستوری را اجرا کند.
تنها راه روشن شدن رایانه با پاور خاوش قابلیتهای مادربورد و بایوس است.
مثلاً مادربوردهای جدید قابلیتی دارند که میتوانند در صورت برقراری تماس تلفنی با خطی که به مودم داخلی وصل است رایانه را روشن کنند. (مثلاً برای دریافت خودکار فکس)
و شاید مادربوردهای دیگری قابلیتهای مشابهی برای شبکه هم داشته باشند که در آن صورت اگر درست باشد باید حتماً کارت شبکه آنبورد باشد.
(از لحاظ الکترونیکی هم مادربورد اینطور عمل میکند که پاورها حتی وقتی به ظاهر خاموش هستند برق بسیار ضعیفی را میدهند که برای کار کردن مدارات کم مصرف کافی است و مدارات خاص مادربورد که برای همین منظور تعبیه شده اند با همان جریان کم کار میکنند و در صورت لزوم فرمان روشن شدن پاور را صادر میکنند.)
سلام
من دیروز عصر متوجه شدم، یکی از دوستمان همین سوال را در سایت برنامه نویس هم پرسیدند(احتمالاً خود شما بودید) و یکی از بچه ها لطف کردند و جواب دادند و گفتم لپ مطلب را برای دوستان عضو این سایت هم بیان کنم.
دو راه حل پیشنهاد شده بود که
اولی که بدیهی هم است ساخت سخت افزار ویژه ای برای این کار است که باید به کیس متصل شود.
و راه دوم که راحت تر است، پشتیبانی مادبورد از این قضیه است که به ظاهر نام این قابلیت (Wake On Lan (WOL است.
اما دوست من خودم امتحان کردم شد مادر بوردش هم قدیمی بود
چنین چیزی برای کامپیوتری که توی شبکه هست غیر ممکنه زمانی که کامپیوترت خاموشه اتصالی به شبکه نداری و وقتی IP شما توی شبکه نباشه کامپیوترهای دیگه نمی تونن عملی رو کامپیوتر شما مبنی بر روشن کردن انجام بدن- تائید می شه شما می تونی تمام اعمالی که گفتی رو با برنامه Net School انجام بدی ولی نمی تونی سیستم رو روشن کنی در ضمن اگه واقعا می گی خودت دیدی اسم نرم افزار رو بگو ببینیم چی هست اصلا
دوستان به نظر من برای این کار شما باید برنامه نویسی تحت شبکه رو برید یاد بگیرید . چون اگه سورس آماده گیر بیارید ازش هیچی سر در نمیارید . مطمئن باشید با VB معمولی خیلیییییییییییییی سخت تره تا اینکه با VB.Net یا شبکه .
سلام
عزیز دل بابا وقتی مادر بورد ساپورت کنه، تمومه! (این دوستمان هم که میگوید یک مادربور پنجاه سال پیشی داره و این را ساپورت میکنه پس ...) مثل همین امکان روشن شدن با تلفن که به کرات شاهدش بودم و شما هم احتمالاً دیده اید، در آن مورد هم با پشتیبانی مادربور و فرمان از مودم داخلی رایانه روشن میشود، در این یکی جای مودم داخلی را کارت شبکه گرفته... !نقل قول:
مجدداً تاکید میکنم که پاور حتی وقتی به ظاهر خاموش است (البته بدیهی است که به برق متصل است) ولتاژ ضعیفی را باز به ماردبور میدهد که برخی مدارات الکترونیکی مادربورد را اصطلاحاً در حالت آماده باش نگاه میدارد.
:10:
Dostan Bebakhshid Keh In Modeli Minevisam Windowsam Ro Tazeh Nasb Kardam Az Farsi Poshtibani Nemikoneh
Esm Narmafzar "Net Support"
Agar Khastid Uploadesh Ham Mikonam Narmafzaresh Ham Dolatieh Kheili Naiabeh
آقا چرا کمک نمی کنید خوب اسم نرم افزار هم که بهتون گفتم "Net Support"
باور کنید من چیزی رو که دیدم گفتم در ضمن اگر یک راهنمایی کوچک در مورد این که دسکتاپ کلاینت رو مثل یکی از برنامه های ویندوز ("Remote Desktop Connection") رو روی کامپیوتر خودم باز کنم و
از دسکتاپ کلاینت فیلم و عکس بگیرم و برای سرور بفرستم
خیلی خیلی ممنون میشم نرم افزارم هم VB6
دوستتون دارم خیلی زیاد
بای
به قول یکی از اطرافیان زبونم گیس در آورد بابا کمک کنید لازم دارم
سلامنقل قول:
بله ميشود اينكار را كرد، ولي :
1- دستگاه مقصد بايد داراي كارت شبكه باشد
2- Wake on Lan فعال شده باشد.
وقتي دستگاه خاموش است داراي IP نيست ولي هركارت شبكه داراي يك آدرس يكتاي MAC است.
بوسيله دلفي :
کد:uses idUDPClient;
// ==========================================
// Wakes a machine on lan
// AMacAddress is 17 char MAC address.
// eg. '00-C0-4F-0A-3A-D7'
// ==========================================
procedure WakeOnLan(const AMacAddress : string);
type
TMacAddress = array [1..6] of byte;
TWakeRecord = packed record
Waker : TMACAddress;
MAC : array[0..15] of TMACAddress;
end;
var i : integer;
WR : TWakeRecord;
MacAddress : TMacAddress;
UDP : TIdUDPClient;
sData : string;
begin
// Convert MAC string into MAC array
fillchar(MacAddress,SizeOf(TMacAddress),0);
sData := trim(AMacAddress);
if length(sData) = 17 then begin
for i := 1 to 6 do begin
MacAddress[i] := StrToIntDef('$' + copy(sData,1,2),0);
sData := copy(sData,4,17);
end;
end;
for i := 1 To 6 do WR.Waker[i] := $FF;
for i := 0 to 15 do WR.MAC[i] := MacAddress;
// Create UDP and Broadcast data structure
UDP := TIdUDPClient.Create(nil);
UDP.Host := '255.255.255.255';
UDP.Port := 32767;
UDP.BroadCastEnabled := true;
UDP.SendBuffer(WR,SizeOf(TWakeRecord));
UDP.BroadcastEnabled := false;
UDP.Free;
end;
كد VB :
براي استفاده از كد زير بايد از ASocket.dll استفاده كنيد ، كه از لينك زير ميتوانيد دريافت كنيد :
کد:http://www.vahland.com/asocket/asocket.dll
کد:Sub Main()
Dim objWol As ASOCKETLib.WOLClass = New ASOCKETLib.WOL()
Dim objConstants As Constants = New Constants()
Dim strMAC As String = "00-10-4B-BA-7A-51"
Console.WriteLine("WakeUp " & strMAC & " ...")
objWol.WakeUp(strMAC)
Console.WriteLine("Result: " & objWol.GetErrorDescription(objWol.LastError))
Console.WriteLine("Ready.")
System.Threading.Thread.Sleep(5000)
End Sub
پست تكراري - لطفا حذف شود
حالا یک سوال دیگه البته باید ببخشید
چطور میشه Wake On Lan رو از داخل ویندوز فعال و غیر فعال کرد (برای فعال شدن سریع بدون دردسر)
از بابت راهنمایی خیلی خیلی ممنون
آقا باز هم ببخشید
پیدا نکرد یعنی وجود نداشتنقل قول:
کد:http://www.vahland.com/asocket/asocket.dll
سلامنقل قول:
توي ياهو دنبال فايل بگرديد،
اين يه مثال ديگه است :
کد:http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=69071&lngWId=1
سلام
نقل قول:میبخشید من فکر کردم مشکلتان حل شده و تمام....! :11:نقل قول:
حالا بازم مشکل اصلیتان حل شد یا ادامه دارد؟؟؟ منظورم با توضیحات خوب کاربر NoneForce است.
مشکلات که تمام شد ((تقریبا))
اما من می خوام بدونم چطور از دسکتاپ کلاینت عکس و فیلم بگیرم و برای سرور بفرستم و همچنین چطور می تونم دسکتاپ کلاینت رو مثل برنامه Remote Desktop Connection ویندوز دست خودم(سرور) بگیرم
از تمامی دوستانی که در حل این مشکلات کمک کردند، می کنند و خواهند کرد بسیار ممنونم
سلام
خدا را شکر!نقل قول:
اون دیگه برنامه نویسی عادی میشه، شما باید برای تمام اعمال مورد نظر کد نویسی کنیدنقل قول:
در VB8 :
اگر صرف عکس گرفتن و ریست و اجرای چند برنامه از راه دور برای کارتان کفایت میکند، بهترین روش استفاده از کلاسس های مخصوص Net Remoting است که اجازه میدهد به راحتی یک جزء برنامه (کد) را در در رایانه دیگری اجرا کنید.
ولی اگر امکاناتی در حد remote desktop میخواهید پیشنهاد میکنم با خود remote desktop کنار بیایید و مثلاً آنرا از داخل برنامه خود فرا خوانی کنید، فایل اصلی mstsc.exe است که کنترل خط فرمانی هم دارد تا کاربر پنجره اضافه ای نبیند.
عموماً کلاسس های مورد نیاز برای این قبیل کارها در فضای نام System.Runtime.Remoting قرار دارند.
گرچه میتوان در چند خط کد مثالی زد ولی برای فهم نیاز به توضیح نوشتاری زیادی دارد و تازه اگر مطلب کامل بخواهید زیر و بم زیادی دارد، میتوانم کتاب معرفی کنم یا خودتان سرچی در مورد "Net Remoting" انجام دهید تا مطالبی و نمونه کدهایی پیدا کنید.
ولی در کل نصبت به دیگر زبانهای برنامه نویسی که حتماً باید در سطح سوکت کار را ادامه دهید، Net Remoting برای این قبیل کارها راحت تر است و اغلب مدیریت ها بر اهده خود Framework.Net است.
دوست عزیز از نظر عکس گرفتن که مشکلی ندارم مشکل من فرستادن فایل.
خودم یک سورس کد دارم که فایل میفرسته ولی هر چی نگاه می کنم چیزی دستگیرم نمیشه
تا جایی که من فهمیدم فایل رو بایناری باز می کنه و میفرسته و از اون طرف می گیره و سیوش می کنه ولی یک خورده سخته اگر برای Vb6 کد بزاری نه سورس کد ممنون می شم
بای
سلام
تا حالا فرصتی برایم پیش نیامده تا با API های Socket کار کنم.نقل قول:
در vb6 اگر دسترسی بین دو نمونه کد در شبکه بخواهید باید مستقیماً از API های مربوطه استفاده کنید.
انشا ا... اساتید دیگر یاری کنند.
اما در VB8 حتی چند وقت قبل چیزی مشابه خواسته شما درست کرده بودم و میتوانم بیشتر راهنمایی کنم.
سلام.
آقای جمشیدی اگه داری تروجان مینویسی باید بگم سیستم قربانی سرور هست و سیستم شما که هکری کلاینت. شما جای سرور و کلاینت رو بر عکس در نظر گرفتی.
عکس گرفتن از سیستم قربانی و ارسالش هم کار ساده ایه. عکس گرفتنش رو که فرمودی بلدی. ولی در مورد ارسال فایل برات توضیح میدم.
ببین شما هنگام ارسال هر فایلی ابتدا باید به صورت باینری بازش کنی. بعد متن داخلشو بخونی و اطلاعات رو سند کنی. هنگام سند اطلاعات فقط یک بار عمل سند صورت میگیره. ولی از اون ور هنگام دریافت اطلاعات اگه حجم فایل بیشتر از 8 کیلوبایت باشه فایل به صورت تکه تکه و 8 کیلو 8 کیلو دریافت میشه. گاهی اوقات هم 4 کیلو بایتی دریافت میکنی. شما باید یه متغیر تعریف کنی و هر بار اطلاعات دریافتی رو بریزی ته متغیرت. در واقع تکه های فایل رو به هم میچسبونی تا فایل نهایی ساخته بشه. این کار رو اون قدر ادامه میدی تا فایل به طور کامل دریافت بشه. بعد یه فایل رو باینری باز میکنی و متن متغیر رو میریزی داخلش. با این روش فایل بدون مشکل دانلود میشه. حتی اگه exe هم باشه میتونی اجراش کنی و ازش استفاده کنی.
دوست عزیز من هیچوقت از اطلاعاتم در راه آسیب رسوندن به بقیه استفاده نمی کنم
حرف شما درست می دونم باید بایناری باز کنم و بفرستم ولی زمانی که بازش می کنم نمی تونم کل اطلاعات رو بگیرم اگر شما یک کد بزاری ممنون می شم
یک جا دیدم از این کد استفاده کرده بود
Input$(EOF(FileName))
سلام.
یه تابع برات نوشتم که کل اطلاعات فایل رو میخونه. کارتو راه میندازه.
کد:Private Function ReadFromFile(strAdrsOfFile As String) As String
Dim strData As String
Open strAdrsOfFile For Binary As #1
strData = Space(FileLen(strAdrsOfFile))
Get #1, , strData
Close #1
ReadFromFile = strData
End Function
آقا خیلی خیلی ممنون
آقا بقیه سوالم چی شد
1- حالا چطور دسکتاپ رو شیر کنم از Remote Desktop Connection هم نمی خوام استفاده کنم اگر با همون Net Support کار کرده باشید و یا Net School می بینید وقتی دسکتاپ شیر میشه یک صفحه کوچیک باز میشه و با بقیه قسمت های نرم افزار و ویندوز هم میشه کار کرد در ضمن سیستم کلاینت هم Switch User نمیشه که باز بالا بیاد و سرور دیسکانکت بشه
2- چطور آدرس آی.پی کارت لن (Mac IP Address) رو بدست بیارم
3- چطور Wake On Lan رو از داخل ویندوز Enable یا Disable کنم
خواهشا این سوالات رو فراموش نکنید من اینارو لازم دارم تا برنامم تک بشه و همه بیان با نرم افزار من کار کنن هم مدرسه ها هم کافی نت ها هم گیم نت ها هم آموزشگاه ها هم ...
از این که زیاد حرف زدم ببخشید
بای
آقا چی شد کمک کنید
یک Api می خوام در صورتی که اجرا شد ویندوز تشخیص بده یکی از کلید های موس زده شده و یک Api هم برای کیبورد می خوام که هم به ویندوز بفهمونه چه کلیدی زده شده و بفهمه از روی کیبورد چه کلیدی زده شده
ببخشید که یک خورده سوالم رو بد طرح کردم چون الان خیلی خیلی خسته ام مخم کار نمیکنه
در ضمن سوالات پست 25 رو هم یک نیم نگاه بندازید بی زحمت
سلام.
برای تشخیص کلید فشرده شده یا موس فشرده شده.
GetAsyncKeyState
سلام دوست عزیز . امکان داره چرا نداره ؟ من با نرم افزار اسمارت لانچ مدیریت گیم نت 1 سری از سیستمامو میتونم روشن کنم ولی 1 سریشون نمیشه . ولی در کل من تونستم روشن کنم با این نرم افزار . ممنون
سلام دوست عزیز . امکان داره چرا نداره ؟ من با نرم افزار اسمارت لانچ مدیریت گیم نت 1 سری از سیستمامو میتونم روشن کنم ولی 1 سریشون نمیشه . ولی در کل من تونستم روشن کنم با این نرم افزار . ممنون:10:نقل قول: