อุปกรณ์ A ---> RS232/485/USB/etc ---> ComA ----> LocalNetWork ----> Internet ----> อุปกรณ์ A
อุปกรณ์ B ---> RS232/485/USB/etc ----> ComA ----> LocalNetWork ----> Internet ----> อุปกรณ์ B
อุปกรณ์ C ---> RS232/485/USB/etc ----> ComZ ----> LocalNetWork ----> Internet ----> อุปกรณ์ A
...
...
... Real time .
ASP.NET C# ถามเกี่ยวกับการ Check IP Address ของ เครื่องที่เข้าใช้งาน
----- คือ เครื่องผม IP 10.0.1.5
----- เครื่อง SERVER IP 192.0.1.40
----- ถ้าให้ผมเดา น่าจะเป็น Local NetWork หรือ Intranet
ผมขออนุญาติขอถามกลับว่า "สมมุติว่า ได้ IP Address มาแล้ว และถูกต้องเสมอ"
----- ประโยชน์ที่ได้คืออะไร?
Date :
2013-05-15 01:08:48
By :
ผ่านมา
No. 7
Guest
ประโยชน์ที่ได้คืออะไร? หมายความว่า
----- What Most Schools Don't Teach
Save SourceCode ด้านล่างนี้ตั้งชื่อไฟล์ xxx.hta แล้วลองรันดูครับ
Code (JavaScript)
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>Application Executer</title>
<HTA:APPLICATION ID="oMyApp"
APPLICATIONNAME="Application Executer"
BORDER="no"
CAPTION="no"
SHOWINTASKBAR="yes"
SINGLEINSTANCE="yes"
SYSMENU="yes"
SCROLL="no"
WINDOWSTATE="normal">
<script type="text/javascript" language="javascript">
function RunExcuteFile() {
WshShell = new ActiveXObject("WScript.Shell");
WshShell.Run("c:/windows/system32/notepad.exe abc.txt", 1, false);
}
</script>
<script type="text/vbscript">
Function GetIPInformation()
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=True")
strDetails = ""
For Each objAdapter In colNetAdapters
If IsNull(objAdapter.IPAddress) = False And IsNull(objAdapter.DefaultIPGateway) = False Then
If Join(objAdapter.IPAddress) <> "0.0.0.0" Then
If strDetails = "" Then
strDetails = Join(objAdapter.IPAddress) & ";"
strDetails = strDetails & Join(objAdapter.IPSubnet) & ";"
strDetails = strDetails & Join(objAdapter.DefaultIPGateway) & ";"
strDetails = strDetails & Join(objAdapter.DNSServerSearchOrder, ";")
End If
End If
End If
Next
MsgBox strDetails
GetIPInformation = strDetails
End Function
</script>
</head>
<body>
<input type="button" value="Around the world Get IP Address" onclick="GetIPInformation();"/>
</body>
</html>
Date :
2013-05-15 17:56:15
By :
ผ่านมา
No. 22
Guest
ขอบคุณครับ ผมจะลองติดต่อ SE ดู
ถ้าอ้างตามทฤษฏี (คุยกันยาว และไม่รู้จบ)
----- IP4 แบ่งออกเป็น 3 Class ดังนี้
-------- Clase A
-------- Clase B
-------- Clase C
------------ โดยปกติแล้ว (Default) มักจะเข้าใจกันโดยทั่วฯไป เราจะใช้รูปแบบนี้เสมอ 192.168.X.X
------------ ยกเว้นกำหนดเป็นอย่างอื่น และแน่นอนว่า มันมีปัญหาซ่อนเร้นอยู่ *****
------------ เป็นโชคร้ายของคนที่เจอปัญหานั้น (รอเวลาเมื่อไหร่ก็เท่านั้นเอง) **********
Protected Function GetIpAddress() As String
Dim env = [Get](Of IDictionary(Of String, Object))(Context.Request.Items, "owin.environment")
If env Is Nothing Then
Return Nothing
End If
Dim ipAddress = [Get](Of String)(env, "server.RemoteIpAddress")
Return ipAddress
End Function
Private Shared Function [Get](Of T)(env As IDictionary(Of String, Object), key As String) As T
Dim value As Object
Return If(env.TryGetValue(key, value), DirectCast(value, T), Nothing)
End Function