Cài Đặt IP Máy Tính Bằng Code (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
Kiều Mạnh

Kiều Mạnh

I don't program, I beat code into submission!!!
Tham gia
9/6/12
Bài viết
5,538
Được thích
4,133
Giới tính
Nam
Mình đang Tìm cách cài đặt IP Máy tính bằng code chạy từ Excel mà chưa Nghỉ ra được .... Tìm trên GPE hoài mà chưa thấy ..... vậy mình muốn hỏi có cách nào Cài đặt IP máy tính theo Hình sau Bằng Code
Bạn nào biết xin chỉ dùmIP.png
 
Sắp xếp theo thời gian sắp xếp theo bầu chọn
kieu manh đã viết:
Mình đang Tìm cách cài đặt IP Máy tính bằng code chạy từ Excel mà chưa Nghỉ ra được .... Tìm trên GPE hoài mà chưa thấy ..... vậy mình muốn hỏi có cách nào Cài đặt IP máy tính theo Hình sau Bằng Code
Bạn nào biết xin chỉ dùmView attachment 180287
Nhấp chuột vào đây để mở rộng...
Chắc kiểu thế này:
Mã: 
Private Sub SetIp(nwName As String, varIp As String, varSm As String, _
                 varGw As String, varDNS1 As String, varDNS2 As String)
  Dim sComm1 As String, sComm2 As String, sComm3 As String, sComm4 As String
  On Error Resume Next
  sComm1 = "netsh interface ip set address name=""" & nwName & """ source=static addr=" & varIp & " mask=" & varSm
  sComm2 = "netsh interface ip set address name=""" & nwName & """ gateway=" & varGw & " gwmetric=0"
  sComm3 = "netsh interface ip set dns name=""" & nwName & """  source=static addr=" & varDNS1
  sComm4 = "netsh interface ip add dns name=""" & nwName & """ addr=" & varDNS2
  With CreateObject("Wscript.Shell")
    .Run "cmd /c " & sComm1, 0, True
    .Run "cmd /c " & sComm2, 0, True
    .Run "cmd /c " & sComm3, 0, True
    .Run "cmd /c " & sComm4, 0, True
  End With
  MsgBox "Finish"
End Sub
Với các đối số đầu vào bạn tự truyền vào, chẳng hạn như hình:

Capture.JPG

Hoặc có thể tạo file .bat với nội dung:
Mã: 
Set nwName="Wireless Network Connection"
Set varIp=211.54.133.251
Set varSm=255.255.252.0
Set varGw=211.54.135.253
Set varDNS1=211.54.128.1
Set varDNS2=211.54.135.251

netsh interface ip set address name=%nwName% source=static addr=%varIp%  mask=%varSm%
netsh interface ip set address name=%nwName% gateway=%varGw% gwmetric=0
netsh interface ip set dns name=%nwName% source=static addr=%varDNS1% 
netsh interface ip add dns name=%nwName% addr =%varDNS2%
6 dòng trên cùng bạn tự thiết lập
 
Upvote 0
ndu96081631 đã viết:
Chắc kiểu thế này:
Mã: 
Private Sub SetIp(nwName As String, varIp As String, varSm As String, _
                 varGw As String, varDNS1 As String, varDNS2 As String)
  Dim sComm1 As String, sComm2 As String, sComm3 As String, sComm4 As String
  On Error Resume Next
  sComm1 = "netsh interface ip set address name=""" & nwName & """ source=static addr=" & varIp & " mask=" & varSm
  sComm2 = "netsh interface ip set address name=""" & nwName & """ gateway=" & varGw & " gwmetric=0"
  sComm3 = "netsh interface ip set dns name=""" & nwName & """  source=static addr=" & varDNS1
  sComm4 = "netsh interface ip add dns name=""" & nwName & """ addr=" & varDNS2
  With CreateObject("Wscript.Shell")
    .Run "cmd /c " & sComm1, 0, True
    .Run "cmd /c " & sComm2, 0, True
    .Run "cmd /c " & sComm3, 0, True
    .Run "cmd /c " & sComm4, 0, True
  End With
  MsgBox "Finish"
End Sub
Với các đối số đầu vào bạn tự truyền vào, chẳng hạn như hình:

View attachment 180289

Hoặc có thể tạo file .bat với nội dung:
Mã: 
Set nwName="Wireless Network Connection"
Set varIp=211.54.133.251
Set varSm=255.255.252.0
Set varGw=211.54.135.253
Set varDNS1=211.54.128.1
Set varDNS2=211.54.135.251

netsh interface ip set address name=%nwName% source=static addr=%varIp%  mask=%varSm%
netsh interface ip set address name=%nwName% gateway=%varGw% gwmetric=0
netsh interface ip set dns name=%nwName% source=static addr=%varDNS1%
netsh interface ip add dns name=%nwName% addr =%varDNS2%
6 dòng trên cùng bạn tự thiết lập
Nhấp chuột vào đây để mở rộng...
Em mới lục trên máy Em có File này chắc Code Anh Viết Sao Em chạy không Thấy được ...hay em làm sai cái gì
Sau khi chạy code xong Em dùng File *.vbs kiểm tra vẫn vậy
 

File đính kèm

Upvote 0
Em coi trong Registry nhánh Sau nó như hình .... hay phải thay đổi trong Registry Mới Ok được Anh
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\Capture.PNG
 
Upvote 0
kieu manh đã viết:
Em mới lục trên máy Em có File này chắc Code Anh Viết Sao Em chạy không Thấy được ...hay em làm sai cái gì
Sau khi chạy code xong Em dùng File *.vbs kiểm tra vẫn vậy
Nhấp chuột vào đây để mở rộng...
Có 2 vấn đề cần phải để ý:
1> Connection Name (có thể không phải là "Wireless Network Connection")
2> RunAs Administrator
Để biết thông tin về Connection Name và nhũng thứ khác, bạn làm như sau:
- Bấm tổ hợp phím Windows + R và gõ cmd ---> Enter
- Gõ lệnh NETSH và Enter
- Gõ tiếp Interface IP Show Config và Enter
Còn liên quan đến vụ chạy RunAs thì chắc bạn biết rồi
 
Upvote 0
ndu96081631 đã viết:
Có 2 vấn đề cần phải để ý:
1> Connection Name (có thể không phải là "Wireless Network Connection")
2> RunAs Admintrator
Để biết thông tin về Connection Name và nhũng thứ khác, bạn làm như sau:
- Bấm tổ hợp phím Windows + R và gõ cmd ---> Enter
- Gõ lệnh NETSH và Enter
- Gõ tiếp Interface IP Show Config và Enter
Còn liên quan đến vụ chạy RunAs thì chắc bạn biết rồi
Nhấp chuột vào đây để mở rộng...
Em mới thử nó ra vầy.... Em sử Dụng Cáp Quang Viettel mm.PNG
 
Upvote 0
kieu manh đã viết:
Vậy code Em sửa lại khúc nào Anh
Nhấp chuột vào đây để mở rộng...
Thì sửa tham số truyền nwName đấy, cho nó = "Local Area Connection"
---------------------
Trên máy tôi thì tên là "Wi-Fi". Tôi vừa thử chạy lệnh:
Mã: 
Set nwName="Wi-Fi"
Set varIp=192.168.1.15
Set varSm=255.255.255.0
Set varGw=192.168.1.1

netsh interface ip set address name=%nwName% source=static addr=%varIp%  mask=%varSm% gateway=%varGw%

PAUSE
Và đã thành công
(đương nhiên RunAs Administrator)
 
Upvote 0
ndu96081631 đã viết:
Thì sửa tham số truyền nwName đấy, cho nó = "Local Area Connection"
---------------------
Trên máy tôi thì tên là "Wi-Fi". Tôi vừa thử chạy lệnh:
Mã: 
Set nwName="Wi-Fi"
Set varIp=192.168.1.15
Set varSm=255.255.255.0
Set varGw=192.168.1.1

netsh interface ip set address name=%nwName% source=static addr=%varIp%  mask=%varSm% gateway=%varGw%

PAUSE
Và đã thành công
(đương nhiên RunAs Administrator)
Nhấp chuột vào đây để mở rộng...
Máy Em cũng vậy chạy thành công Run As ....
Em muốn hỏi có cách nào ta viết code kiểm tra được nếu là "Wi-Fi" thì Set nwName="Wi-Fi" khác thì là Set nwName="Local Area Connection"
Không Anh .............ý Em muốn hỏi viết thành hàm Bao quát nhất xài cho 2 trường hợp đó

Cảm ơn Anh
 
Upvote 0
kieu manh đã viết:
Máy Em cũng vậy chạy thành công Run As ....
Em muốn hỏi có cách nào ta viết code kiểm tra được nếu là "Wi-Fi" thì Set nwName="Wi-Fi" khác thì là Set nwName="Local Area Connection"
Không Anh .............ý Em muốn hỏi viết thành hàm Bao quát nhất xài cho 2 trường hợp đó

Cảm ơn Anh
Nhấp chuột vào đây để mở rộng...
Thử cái này được không anh :rolleyes::rolleyes:
PHP: 
Sub vidu()
Dim sCmd As String, ConnName As String, strTMP
sCmd = "CMD /C powershell Get-NetIPConfiguration | clip"  
'CreateObject("WScript.Shell").Run sCmd, 0, True '
Shell sCmd, vbHide
strTMP = CreateObject("htmlfile").ParentWindow.ClipboardData.GetData("text")
strTMP = Split(strTMP, Chr(13))
For i = LBound(strTMP) To UBound(strTMP)
    If InStr(strTMP(i), ":") Then
        ConnName = Trim(Split(strTMP(i), ":")(1))
        Exit For
    End If
Next i
MsgBox ConnName
End Sub
 
Upvote 0
befaint đã viết:
Thử cái này được không anh :rolleyes::rolleyes:
PHP: 
Sub vidu()
Dim sCmd As String, ConnName As String, strTMP
sCmd = "CMD /C powershell Get-NetIPConfiguration | clip" 
'CreateObject("WScript.Shell").Run sCmd, 0, True '
Shell sCmd, vbHide
strTMP = CreateObject("htmlfile").ParentWindow.ClipboardData.GetData("text")
strTMP = Split(strTMP, Chr(13))
For i = LBound(strTMP) To UBound(strTMP)
    If InStr(strTMP(i), ":") Then
        ConnName = Trim(Split(strTMP(i), ":")(1))
        Exit For
    End If
Next i
MsgBox ConnName
End Sub
Nhấp chuột vào đây để mở rộng...
Không được và chạy rất chậm
Bài 12 Anh ndu viết Ok đó nhưng Nó thiếu theo Hình màu vàng Vì chưa viết thêm vào .... Mạnh chưa hiểu chỗ đó lắm không biết có liên quan gì không
nếu chạy File *.bat sau thì nó sẻ thêm vào đó ..... vấn đề là Mạnh muốn nghiên cứu Viết thành code chạy trong Excel cho 2 Trường hợp Sau trong 1 Hàm
1/ Wireless Network Connection
2/ Local Area ConnectionCapture.PNG
 

File đính kèm

Upvote 0
befaint đã viết:
Hic! Em thử với WScript.Shell thì chậm với shell function thì không chậm :D
Cái sub của em là để lấy Connection Name đang được kết nối mạng.
Nhấp chuột vào đây để mở rộng...
oh mới thử lại hiểu rồi ....Sao chay hồi nảy chạy chậm ko hiểu
Sub đó lấy được trường hợp 1 hay 2 xong viết thêm Hàm mới Gán nó vào là Ok .... Nhưng code viết sao đây ...???!!!
 
Upvote 0
kieu manh đã viết:
oh mới thử lại hiểu rồi ....Sao chay hồi nảy chạy chậm ko hiểu
Nhấp chuột vào đây để mở rộng...
Anh thử lại khúc này xem.
PHP: 
Sub vidu()
Dim sCmd As String, ConnName As String, strTMP
Dim pText As String, delpath As String
pText = ThisWorkbook.Path & "\oText.txt"
delpath = "CMD /C DEL /f /q """ & pText & """"
sCmd = "CMD /C powershell Get-NetIPConfiguration > " & pText
Shell delpath, vbHide
Shell sCmd, vbHide
strTMP = CreateObject("Scripting.FileSystemObject").OpenTextFile(pText).ReadAll()
Shell delpath, vbHide
strTMP = Split(strTMP, Chr(13))
For i = LBound(strTMP) To UBound(strTMP)
    If InStr(strTMP(i), ":") Then
        ConnName = Trim(Split(strTMP(i), ":")(1))
        Exit For
    End If
Next i
MsgBox ConnName
End Sub
Em dùng SSD nên cứ chạy 2 lần liên tiếp gần nhau thì 1 lần bị lỗi :D ở dòng strTMP = CreateObject("Scripting.FileSystemObject").OpenTextFile(pText).ReadAll()
Sub đó lấy được trường hợp 1 hay 2
Nhấp chuột vào đây để mở rộng...
Cứ cái nào đang kết nối thì lấy cái đó á anh.
 
Upvote 0
befaint đã viết:
Anh thử lại khúc này xem.
PHP: 
Sub vidu()
Dim sCmd As String, ConnName As String, strTMP
Dim pText As String, delpath As String
pText = ThisWorkbook.Path & "\oText.txt"
delpath = "CMD /C DEL /f /q """ & pText & """"
sCmd = "CMD /C powershell Get-NetIPConfiguration > " & pText
Shell delpath, vbHide
Shell sCmd, vbHide
strTMP = CreateObject("Scripting.FileSystemObject").OpenTextFile(pText).ReadAll()
Shell delpath, vbHide
strTMP = Split(strTMP, Chr(13))
For i = LBound(strTMP) To UBound(strTMP)
    If InStr(strTMP(i), ":") Then
        ConnName = Trim(Split(strTMP(i), ":")(1))
        Exit For
    End If
Next i
MsgBox ConnName
End Sub
Em dùng SSD nên cứ chạy 2 lần liên tiếp gần nhau thì 1 lần bị lỗi :D ở dòng strTMP = CreateObject("Scripting.FileSystemObject").OpenTextFile(pText).ReadAll()

Cứ cái nào đang kết nối thì lấy cái đó á anh.
Nhấp chuột vào đây để mở rộng...
Chạy lỗi .......... Link sau có các Lệnh liên quan hay Tuy nhiên coi khúc biết khúc ko
https://ss64.com/nt/netsh.html
 
Upvote 0
kieu manh đã viết:
Máy Em cũng vậy chạy thành công Run As ....
Em muốn hỏi có cách nào ta viết code kiểm tra được nếu là "Wi-Fi" thì Set nwName="Wi-Fi" khác thì là Set nwName="Local Area Connection"
Không Anh .............ý Em muốn hỏi viết thành hàm Bao quát nhất xài cho 2 trường hợp đó

Cảm ơn Anh
Nhấp chuột vào đây để mở rộng...
Thử với hàm này xem:
Mã: 
Function GetWirlessName()
Dim strKeyPath
Dim strComputer
Dim objReg
Dim arrSubKeys
Dim SubKey
Dim strValueName
Dim dwValue
Dim strValue
Const HKLM = &H80000002
strKeyPath = "SYSTEM\CurrentControlSet\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}"
strComputer = "."
Set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
objReg.Enumkey HKLM, strKeyPath, arrSubKeys
For Each SubKey In arrSubKeys
    strValueName = "MediaSubType"
    objReg.GetDWORDValue HKLM, strKeyPath & "\" & SubKey & "\" & "Connection", strValueName, dwValue
    If dwValue = 2 Then
        strValueName = "Name"
        objReg.GetStringValue HKLM, strKeyPath & "\" & SubKey & "\" & "Connection", strValueName, strValue
        Exit For
    End If
Next
GetWirlessName = strValue
End Function
Mọi thông số được lấy từ Registry.
Tôi không có điều kiện test trên nhiều máy (kết nối không dây và có dây) nên không chắc lắm
 
Upvote 0
ndu96081631 đã viết:
Thử với hàm này xem:
Mã: 
Function GetWirlessName()
Dim strKeyPath
Dim strComputer
Dim objReg
Dim arrSubKeys
Dim SubKey
Dim strValueName
Dim dwValue
Dim strValue
Const HKLM = &H80000002
strKeyPath = "SYSTEM\CurrentControlSet\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}"
strComputer = "."
Set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
objReg.Enumkey HKLM, strKeyPath, arrSubKeys
For Each SubKey In arrSubKeys
    strValueName = "MediaSubType"
    objReg.GetDWORDValue HKLM, strKeyPath & "\" & SubKey & "\" & "Connection", strValueName, dwValue
    If dwValue = 2 Then
        strValueName = "Name"
        objReg.GetStringValue HKLM, strKeyPath & "\" & SubKey & "\" & "Connection", strValueName, strValue
        Exit For
    End If
Next
GetWirlessName = strValue
End Function
Mọi thông số được lấy từ Registry.
Tôi không có điều kiện test trên nhiều máy (kết nối không dây và có dây) nên không chắc lắm
Nhấp chuột vào đây để mở rộng...
Máy Em nó báo Empty
 
Upvote 0
Mạnh thử test code này xem thế nào
Mã: 
Sub Test()
  Const NW_CONNECTION = &H31&
  Dim objShell As Object, item, objConn As Object
  Set objShell = CreateObject("Shell.Application")
  Set objConn = objShell.Namespace(NW_CONNECTION)
  For Each item In objConn.Items
    MsgBox item.Name
  Next
End Sub
Không chắc nên phải test trên nhiều máy, nhiều kiểu kết nối để rút ra kết luận
 
Upvote 0
ndu96081631 đã viết:
Vậy thì bạn kiểm tra lại đường dẫn trong registry trên máy bạn, chỗ nào có "Local Area Connection" thì sửa lại cho phù hợp
Nhấp chuột vào đây để mở rộng...
Em Ctrl + F Local Area Connection thì nó cho ra như hình
khóa Sau
Computer\HKEY_LOCAL_MACHINE\SYSTEM\Setup\Upgrade\NetworkDriverBackup\Control\Network\{4d36e972-e325-11ce-bfc1-08002be10318}\{B8EFE705-08BC-465B-9979-E29EF62D1A12}\ConnectionCapture.PNG
 
Upvote 0
ndu96081631 đã viết:
Mạnh thử test code này xem thế nào
Mã: 
Sub Test()
  Const NW_CONNECTION = &H31&
  Dim objShell As Object, item, objConn As Object
  Set objShell = CreateObject("Shell.Application")
  Set objConn = objShell.Namespace(NW_CONNECTION)
  For Each item In objConn.Items
    MsgBox item.Name
  Next
End Sub
Không chắc nên phải test trên nhiều máy, nhiều kiểu kết nối để rút ra kết luận
Nhấp chuột vào đây để mở rộng...
máy Em Ok ... máy Desktop xài cáp Quang ... code chạy rất nhanh
Chạy Windows10_x32 ... Còn x64 Em ko có nên không Biết
Mới thử Windows7_x32 cũng vậy ... Tốt nhưng nó sẻ báo ở Máy LAN2 là 2 lần Msgbox:
1/ Local Area Connection
2/ Local Area Connection 2

Lần 2 Thêm số 2 cuối
 
Lần chỉnh sửa cuối:
Upvote 0
Em mới coi trên mạng thấy code này nó chạy cũng rất nhanh
Mã: 
Private Sub Test()
    Dim oWMI, Instances, Instance
    Set oWMI = GetObject("WINMGMTS:\\.\ROOT\cimv2")
    Set Instances = oWMI.InstancesOf("Win32_NetworkAdapter")
    For Each Instance In Instances
        If Instance.NetconnectionID <> "null" Then
            MsgBox (Instance.NetconnectionID & "---" _
            & Instance.AdapterType & "-----" & Instance.NetConnectionStatus)
        End If
    Next
End Sub
 
Upvote 0
befaint đã viết:
Anh @kieumanh thử dùng PowerShell xem sao...
Nhấp chuột vào đây để mở rộng...
Mạnh có Tìm hiểu nhiều về IP thấy trên GPE có code sau chạy tốt .......... Nhưng Mình thấy cách Viết hơi dài rồi Mình có thử nghiên Cứu Winsock Mình viết thành code sau rất Gọn vậy Nhờ Bạn test dùm trên Windows_x64 xem 2 code sau nó như thế nào với
1/ Code Copy trên GPE
PHP: 
Private Sub GetIPAddress()
    Dim Item
    Dim rIP As String
    On Error Resume Next
    With GetObject("winmgmts:\\.\root\cimv2")
      For Each Item In .ExecQuery("Select * from Win32_NetworkAdapterConfiguration", , 48)
        Range("A65536").End(xlUp).Offset(1) = Item.IPAddress(0)
        'MsgBox (Item.IPAddress(0))
      Next
    End With
End Sub
2/ Code Mạnh Nghiên cứu Winsock để Viết
PHP: 
Public Function GetIPAddress()
    GetIPAddress = CreateObject("MSWinsock.Winsock").LocalIp
    'MsgBox GetIPAddress
    Range("A65536").End(xlUp).Offset(1) = GetIPAddress
End Function
Xin cảm Ơn
 
Upvote 0
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

H
  • Question Question
Xin giúp đỡ về tạo hàm excel với C# và excel-dna (2 người xem)
Trả lời
4
Đọc
110
hdcv.excel
H
N
Chuyển dấu chấm thành dấu chấm phẩy trong dữ liệu (3 người xem)
Trả lời
1
Đọc
19
ptm0412
ptm0412
befaint
Chia sẻ tâm tư, xả nỗi lòng (1 người xem)
    • Thích
6 7 8
Trả lời
761
Đọc
63K
befaint
befaint
B
Bỏ lọc và sort trong VBA (1 người xem)
Trả lời
1
Đọc
57
Bảo_Anh_
B
K
Điền giá trị ô thay vì địa chỉ ô
Trả lời
5
Đọc
211
DeTong
D
T
Xin hỏi về bảng lương
Trả lời
1
Đọc
123
SA_DQ
SA_DQ
T
Nhờ anh chị xem giúp file bị lỗi gì mà chạy rất chậm/lag - File tính tiền nhà trọ
Trả lời
3
Đọc
109
Thaik05
T
J
chiết khấu ở hóa đơn bán lẻ, lưu vào sheet tổng hợp
Trả lời
2
Đọc
85
le_vis
L
2
  • Question Question
Hỏi cách in phiếu điều tra PCGD-XMC từ file dữ liệu mẫu xuất ra từ hệ thống PCGD-XMC của Bộ GD
    • Thích
Trả lời
8
Đọc
720
Hoàng Tuấn 868
H
B
Sau 1 tháng Mã Lại reset về 1 trở lên
    • Chấp nhận
Trả lời
23
Đọc
373
SA_DQ
SA_DQ
H
Đánh số thứ thự phiếu thu chi
Trả lời
16
Đọc
326
HangktGTN
H
4
HỌC ĐẠI LÝ THUẾ
Trả lời
1
Đọc
56
Hoàng Tuấn 868
H
B
Chuyển số tiền thành chữ
Trả lời
3
Đọc
91
bongngongo
B
S
Tạo sheet mới từ dữ liệu 2 sheet khác ĐVT
Trả lời
1
Đọc
115
Hoàng Tuấn 868
H
N
  • Question Question
Cho em hỏi về mail merge bằng vba (1 người xem)
Trả lời
5
Đọc
181
Hoàng Tuấn 868
H
T
Khóa cột cập nhật dữ liệu
Trả lời
0
Đọc
85
tnkhanhvy
T
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (17 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
3 4 5
Trả lời
411
Đọc
50K
ongke0711
ongke0711
H
Tìm kiếm thông tin chi tiết trên sheet tổng hợp
Trả lời
1
Đọc
110
LOGANWover
L
Gà Công Nghệ
Tô màu họ và tên bị trùng từ 2 sheet khác nhau
Trả lời
6
Đọc
178
Gà Công Nghệ
Gà Công Nghệ
A
  • Question Question
Giải thích giúp mình code giải phóng bộ nhớ từ biến
Trả lời
20
Đọc
9K
nguyendang95
N
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Thời gian đếm ngược.

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom