วิธีการ chat ใน command promt หรือ dos

เข้าร่วม: 17 Jun 2006

วิธีการ chat ใน command promt หรือ dos โดยไม่ต้องลงโปรแกรมเพิ่มเติมใดๆ เอาไว้คุยกันในวงแลน (lan network chat)

1.ต้องไปเปิด services ของ Messenger กับ Messenger sharing Folder ก่อน
โดยการ ไปที่ start -> run
แล้วพิมพ์ คำสั่ง services.msc จะมีหน้าต่างเด้งขึ้นมา ชื่อว่า Services

2.หาบรรทัดที่ชื่อว่า Messenger คลิกขวาแล้วเลือก properties แล้วจะมีหน้าต่างเด้งขึ้นมา

3. ตรงกลางๆหน้าต่างที่เด้งขึ้นมา จะมีหัวข้อ start type ปกติจะเป็น disable หรือ manual ให้เลือกเป็น automatic แล้วกด apply

4.ที่หน้าต่างเดิม ถัดลงมาจาก start type จะมีหัวข้อ service statas ให้คลิกที่ปุ่ม start แล้วกด ปุ่ม ok

ทำตามขั้นตอน 1-4 ใหม่ให้กับ Messenger sharing Folder
เพี้ยงเท่านี้ก็ set ค่าให้สามารถ chat กันใน dos ได้แล้ว
-----------------------------------------------------
วิธีคุยกันใน dos
1.ไปที่ start -> run
2.พิมพ์ cmd แล้วจะมีหน้าต่าง dos ขึ้นมา
3.ให้พิมพ์ว่า net send 192.168.1.5 hi dude
(ที่เครื่องคอมฯหมายเลข ip 192.168.1.5 จะมีหน้าต่างเด้งขี้นมาว่า hi dude)

----------------------------------------------------
การใช้งาน net send ขั้นสูงลิ่ว

@echo off
:A
Cls
echo MESSENGER
set /p n=User:
set /p m=Message:
net send %n% %m%
Pause
Goto A

เปิด notepad แล้วเซฟคำสั่งข้างบนลงไป แล้วให้ชื่อว่า doschat.bat
แล้วเปิด doschat.bat ดู ก็จะพิมพ์หมายเลขเครื่องและข้อความได้เลย ไม่ต้องพิมพ์ net send บ่อยๆ

ตัวอย่าง การใช้งานอีกแบบนึง ไม่ต้องพิมพ์ หมายเลข ip บ่อยๆ
@echo off
:A
Cls
echo Type your message to 192.168.1.10
set /p m=Message:
net send 192.168.1.10 %m%
Goto A

เข้าร่วม: 26 Jun 2006

ความรู้ใหม่ Shocked

ข้าน้อยขอคาระวะ

ตอบเมื่อ: Tue Jul 28, 2009 10:20 am

Private Sub Command1_Click()
Dim X
If Trim(TxtMsg) = "" Then
MsgBox "ÂÑ§äÁèä´éãÊè¢éÍ¤ÇÒÁ ¤ÃÑº....", vbInformation
TxtMsg.SetFocus
Exit Sub
End If

If Trim(TxtIPAddress.Text) = "" Then
MsgBox "ÂÑ§äÁèä´éãÊèª×èÍà¤Ã×èÍ§¤ÃÑº....", vbInformation
TxtIPAddress.SetFocus
Exit Sub
End If

X = Shell("Net send " & Trim(TxtIPAddress.Text) & " " & Trim(TxtMsg), vbHide)
TxtMsg.Text = ""
TxtMsg.SetFocus
End Sub