خاموش کردن سیستم ها در کافی نت با برنامه VB

[میثم غلامی ف]

خاموش کردن سیستم ها در کافی نت با برنامه VB

[DPSxerex]

سلام دوست من
شما میتونید رو برنامه کلاس یه تابع Shutdown بنویسی بعد رو برنامه سرور برای خاموش کردن پیام خاصی ارسال کنین که تا با اون تابع رو فاخوانی کنه
if ServerSend Messege = "shut" then
call shutdown
end if

serversend Messege = پیام ارسالی از سرور

[850725115]

با سلام



جناب این اسکریپت رو می تونید کامل ارائه بدین؟

تو شبکه های بزرگ هم کار می کنه ؟


لطفا جواب بدین با تشکر

[M.T.P]

با فرض اینکه میخواید از سرور کلاینت رو خاموش کنید:

پس از برقراری ارتباط...

کد سرور

Winsock1.SendData "Quit"

کد کلاینت در رویداد DataArrival :

Dim StrData As String
Winsock1.GetData StrData,vbString
if StrData = "Quit" then Shell "Shutdown -s -t 0"

[850725115]

ميشه بيشتر توضيح بدين اين كد ها بايد كجا وارد كنم كنم

ميشه ي سورس بزارين ؟

[roomezonline]

ميشه بيشتر توضيح بدين اين كد ها بايد كجا وارد كنم كنم

ميشه ي سورس بزارين ؟
دوست عزیز شما یه کامپونت winsock لود میکنی
2 تا پروژه درست میکنی یکی روی سرور و یکی رو روی سیستمهای کافی نت بذار( کلاینت )

کد کلاینت ها


Private Sub Form_Load()
Winsock1.LocalPort = 2777
Winsock1.Listen
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData Data
If Data = "Exit" Then Shell "Shutdown -s -t 0"
End Sub


کد سرور برای ارسال دستور فرمان خاموش کردن سیستم :


Private Sub Command1_Click()
Winsock1.SendData "Exit"
End Sub

Private Sub Form_Load()
Winsock1.RemoteHost = "Pc Ip For Exit"
Winsock1.RemotePort = 2777
Winsock1.Connect
End Su

امید وارم به دردتون خورده باشه