PrivateSub GetMyIP()
Dim aa AsStringDim strLocalIP AsStringDim winIP AsObject
aa = aa & "消息电脑名称:" & Environ("computername") & vbCrLf
aa = aa & "消息用户名称:" & Environ("username") & vbCrLf
Set winIP = CreateObject("MSWinsock.Winsock")
strLocalIP = winIP.LocalIP
MyIP = aa & "消息源IP:" & strLocalIP
EndSub
').addClass('pre-numbering').hide();
$(this).addClass('has-numbering').parent().append($numbering);
for (i = 1; i <= lines; i++) {
$numbering.append($('').text(i));
};
$numbering.fadeIn(1700);
});
});