批处理获取计算机IP并悬浮在桌面右下角

winlong102

话不多说，上代码：

1. @echo off
   
2. chcp 936
   
3. :: 检查是否带有隐藏参数 "h"
   
4. if "%1"=="h" goto begin
   
5. :: 如果没有参数，则通过 mshta 调用 vbscript 重新以隐藏模式启动自身
   
6. start mshta vbscript:CreateObject("WScript.Shell").Run("""%~f0"" h",0)(window.close)&&exit
   
7. 
   
8. :begin
   
9. setlocal enabledelayedexpansion
   
10. for /f "tokens=2 delims=:" %%a in ('ipconfig ^| findstr /i "ipv4"') do (
    
11.     set "ip=%%a"
    
12.     goto :break
    
13. )
    
14. :break
    
15. if defined ip set "ip=%ip: =%"
    
16. set "psPath=%SystemRoot%\System32\WindowsPowerShell\v1.0\powershell.exe"
    
17. start /b "" powershell -NoProfile -Command "$ip='%ip%';if([string]::IsNullOrWhiteSpace($ip)){$ip='未获取'};Add-Type -AssemblyName System.Windows.Forms;Add-Type -AssemblyName System.Drawing;Add-Type -MemberDefinition '[DllImport(\"user32.dll\")] public static extern IntPtr SendMessage(IntPtr hWnd, int Msg, int wParam, int lParam); [DllImport(\"user32.dll\")] public static extern bool ReleaseCapture();' -Name User32 -Namespace WinAPI -PassThru | Out-Null;$form=New-Object System.Windows.Forms.Form;$form.Text='IP';$form.FormBorderStyle='None';$form.ControlBox=$false;$form.ShowInTaskbar=$false;$form.TopMost=$true;$form.BackColor='White';$form.TransparencyKey='White';$form.StartPosition='Manual';$label=New-Object System.Windows.Forms.Label;$label.Text='IP地址: '+$ip;$label.Font=New-Object System.Drawing.Font('SimSun',12,[System.Drawing.FontStyle]::Regular);$label.AutoSize=$true;$label.BackColor='White';$label.ForeColor='Black';$label.Cursor=[System.Windows.Forms.Cursors]::SizeAll;$form.Controls.Add($label);$form.ClientSize=$label.Size;$x=[System.Windows.Forms.Screen]::PrimaryScreen.Bounds.Width-$form.Width-10;$y=[System.Windows.Forms.Screen]::PrimaryScreen.Bounds.Height-$form.Height-80;$form.Location=New-Object System.Drawing.Point($x,$y);$label.Add_MouseDown({param($s,$e)if($e.Button -eq 'Left'){[WinAPI.User32]::ReleaseCapture();[WinAPI.User32]::SendMessage($form.Handle,0xA1,2,0);}});$form.Add_Shown({$form.Activate()});$form.Add_FormClosing({$form.Dispose()});[System.Windows.Forms.Application]::Run($form)"

复制代码

总在最前且可以拖动到任何位置。20年的老粉没权限上传图片，就不传效果了，自己运行看吧。

lzfwyqd

感谢分享，试试看

奈绪

能加个显示MAC地址，并且能复制IP和MAC地址到文本里吗？

a66

没啥用

忧心的启

追评返现：
我晕了，原来是我不会用啊，是在右下显示了个本机V4，失礼了，又小又不突出让人一时看不出。



第一次评论：
存为bat没效果啊，是win10LTSB系统，有正常Powrshel。

baby1277

一次就成功了，注意要保持为ANSI编码格式，就是Powrshel进程占用44M内存。

ILOVEQQ

真是辛苦了，謝謝分享

嗷小猫咪

感谢，可能会用到

y9032

感谢分享

sifansi

感谢分享

handsome_xiang

不错。感谢楼主分享！

it323

IP悬浮有新意，谢谢！